Initial commit

static/contact/index.sxml

@@ -0,0 +1,10 @@
+;; -*- scheme -*-
+
+`((title . "contact")
+  (content
+   (ul
+    (li "irc: " (address "afiw () libera.chat"))
+    (li "email: " (address "afiw () linuxposting.xyz") " (temporarily unavailable)")
+    (li "fedi: " (address "afiw () linuxposting.xyz"))
+    (li "matrix: " (address "() afiw () linuxposting.xyz"))
+    (li "other sites: " (a (@ (href "https://tilde.town/~afiw")) "tilde.town")))))

static/index.sxml

@@ -0,0 +1,13 @@
+;; -*- scheme -*-
+`((title . "about")
+ (content
+  (p "hi i'm afiw/emily (she/her), i'm some sort of linuxposter")
+  (p "my interests include:")
+  (ul
+   (li "C programming")
+   (li "Scheme programming")
+   (li "Standard ML programming")
+   (li "compiler theory")
+   (li "linguistics and conlanging")
+   (li "music"))
+  (p "i use gentoo and openbsd btw")))

static/projects/index.sxml

@@ -0,0 +1,13 @@
+;; -*- scheme -*-
+
+(define (aux-project name desc vers)
+  `(li (strong ,name) " – " ,desc " – "
+       (a (@ (href ,(format #f "https://git.linuxposting.xyz/afiw/~a" name))) "git")
+       ", "
+       (a (@ (href ,(format #f "/~~afiw/dist/~a-~a.tar.gz" name vers))) "tar.gz")))
+
+`((title . "projects")
+  (content
+   (ul
+    ,(aux-project "can" "query filesystem permissions" "1.0")
+    ,(aux-project "cwm" "linux port of the openbsd calm window manager" "7.8.1.1"))))