Add about-me page

haunt.scm

@@ -50,7 +50,7 @@
                       (li (@ (class "nav-logo"))
                           (a (@ (href "/")) "TojoQK"))
                       (li (@ (class "nav-item"))
-                          (a (@ (href "#")) "About me"))
+                          (a (@ (href "/about-me.html")) "About me"))
                       (li (@ (class "nav-item"))
                           (a (@ (href "#")) "Contact"))))
              (article (@ (class "main"))

posts/about-me.sxml

+(use-modules (haunt utils))
+
+`((title . "私について")
+  (id . "about-me")
+  (date . ,(string->date* "2020-02-19 00:00"))
+  (content
+   (h2 "自己紹介")
+   "とりあえず箇条書きで"
+   (ul
+    (li "好きなもの"
+        (ul (li "Scheme")
+            (li "S式")
+            (li "Lisp")
+            (li "行動分析学")
+            (li "宇宙")
+            (li "高いところ")
+            (li "チップチューン")
+            (li "中性子星")
+            (li "エレクトロスウィング")))
+    (li "苦手なもの"
+        (ul (li "吠える犬")
+            (li "自分の死")
+            (li "暴力")
+            (li "悪夢")
+            (li "血液型性格診断")
+            (li "心や性格を行動の原因として扱うこと")))
+    (li "休日にすること"
+        (ul (li "プログラミング")
+            (li "外食")
+            (li "呼吸"))))
+   (h2 "よくある質問")
+   (p "Q. TojoQKのQKってどういう意味なんですか？")
+   (p "A. QK自体には何の意味もありません。Tojoと連結するとユニークな識別子として機能することが唯一の役割です。")))