Commit 312878d4 authored by Masaya Tojo's avatar Masaya Tojo
Browse files

Add link to feed.xml

parent ec575b63
......@@ -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))))
"このページのソースコード"))))))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment