Add link to feed.xml

haunt.scm

@@ -101,6 +101,7 @@
         (type . "website")
         (url . "/"))
       `((h1 "最近の投稿")
+        (p (a (@ (href "feed.xml")) "RSSフィードを購読する方はこちら"))
         (ul (@ (class "post-list"))
             ,@(map (lambda (post)
                      (let ((url (post-url post)))
@@ -128,6 +129,7 @@
         (div ,(post-sxml post))
         (ul (@ (class "post-end"))
             (li (a (@ (href "/")) "投稿の一覧"))
+            (li (a (@ (href "feed.xml")) "RSSフィードを購読する"))
             (li (a (@ (href ,(string-append "https://gitlab.com/tojoqk/www-tojo-tokyo/-/tree/master/" (post-file-name post))))
                    "このページのソースコード"))))))))