Unverified Commit 48f4c2fa authored by Philip Kaludercic's avatar Philip Kaludercic 🌝
Browse files

rss support added

parent 15c4cd97
...@@ -5,6 +5,7 @@ ...@@ -5,6 +5,7 @@
(haunt html) (haunt html)
(haunt builder blog) (haunt builder blog)
(haunt builder atom) (haunt builder atom)
(haunt builder rss)
(haunt builder assets) (haunt builder assets)
(haunt reader commonmark) (haunt reader commonmark)
(local micronews paged-blog) (local micronews paged-blog)
...@@ -27,8 +28,10 @@ ...@@ -27,8 +28,10 @@
#:readers (list commonmark-reader) #:readers (list commonmark-reader)
#:builders (list (paged-blog #:theme local-site-theme #:builders (list (paged-blog #:theme local-site-theme
#:prefix "post") #:prefix "post")
(atom-feed) (atom-feed #:blog-prefix "post")
(atom-feeds-by-tag) (atom-feeds-by-tag #:prefix "tags"
#:blog-prefix "post")
(rss-feed #:blog-prefix "post")
(static-page "meta" "Meta" (static-page "meta" "Meta"
%meta-page) %meta-page)
(static-page "irc" "IRC" (static-page "irc" "IRC"
......
...@@ -25,7 +25,7 @@ ...@@ -25,7 +25,7 @@
(span "Tags: " (span "Tags: "
,(intersperse ,(intersperse
(map (lambda (tag) (map (lambda (tag)
(link tag (format #f "/feeds/tags/~a.xml" tag))) (link tag (format #f "/tags/~a.xml" tag)))
(or (post-ref post 'tags) '())) (or (post-ref post 'tags) '()))
", ")) ", "))
,@(if (and site prefix) ,@(if (and site prefix)
...@@ -53,7 +53,8 @@ ...@@ -53,7 +53,8 @@
(link "IRC" "/irc.html") (link "IRC" "/irc.html")
(link "WhatsApp" "/whatsapp.html") (link "WhatsApp" "/whatsapp.html")
(link "Beitragen" "/meta.html") (link "Beitragen" "/meta.html")
(link "Atom Feed" "/feed.xml")))) (link "Atom" "/feed.xml")
(link "RSS" "/rss-feed.xml"))))
,body))) ,body)))
#:post-template (make-post-generator) #:post-template (make-post-generator)
#:collection-template #:collection-template
......
Supports Markdown
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