description を追加する

haunt.scm

@@ -99,6 +99,7 @@
      (cons
       `((title . ,title)
         (type . "website")
+        (description . "TojoQKのブログ")
         (url . "/"))
       `((h1 "最近の投稿")
         (ul (@ (class "post-list"))

posts/about-me.sxml

@@ -4,6 +4,7 @@
   (id . "about-me")
   (date . ,(string->date* "2020-02-19 00:00"))
   (updated . ,(string->date* "2020-02-19 05:00"))
+  (description . "自己紹介のページ")
   (content
    (h2 "自己紹介")
    "とりあえず箇条書きで"

posts/contact.sxml

@@ -3,6 +3,7 @@
 `((title . "連絡先")
   (id . "contact")
   (date . ,(string->date* "2020-02-19 00:00"))
+  (description . "TojoQKの問い合わせページ")
   (content
    (h3 (a (@ (href "https://twitter.com/tojoqk")) "Twitter"))
    (p "TojoQKを観測することのできる唯一のSNSです。")