Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
faui2k17
generator
Commits
48f4c2fa
Unverified
Commit
48f4c2fa
authored
Aug 14, 2019
by
Philip Kaludercic
🌝
Browse files
rss support added
parent
15c4cd97
Changes
2
Hide whitespace changes
Inline
Side-by-side
haunt.scm
View file @
48f4c2fa
...
...
@@ -5,6 +5,7 @@
(
haunt
html
)
(
haunt
builder
blog
)
(
haunt
builder
atom
)
(
haunt
builder
rss
)
(
haunt
builder
assets
)
(
haunt
reader
commonmark
)
(
local
micronews
paged-blog
)
...
...
@@ -27,8 +28,10 @@
#
:readers
(
list
commonmark-reader
)
#
:builders
(
list
(
paged-blog
#
:theme
local-site-theme
#
:prefix
"post"
)
(
atom-feed
)
(
atom-feeds-by-tag
)
(
atom-feed
#
:blog-prefix
"post"
)
(
atom-feeds-by-tag
#
:prefix
"tags"
#
:blog-prefix
"post"
)
(
rss-feed
#
:blog-prefix
"post"
)
(
static-page
"meta"
"Meta"
%meta-page
)
(
static-page
"irc"
"IRC"
...
...
local/theme.scm
View file @
48f4c2fa
...
...
@@ -25,7 +25,7 @@
(
span
"Tags: "
,
(
intersperse
(
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
)
'
()))
", "
))
,@
(
if
(
and
site
prefix
)
...
...
@@ -53,7 +53,8 @@
(
link
"IRC"
"/irc.html"
)
(
link
"WhatsApp"
"/whatsapp.html"
)
(
link
"Beitragen"
"/meta.html"
)
(
link
"Atom Feed"
"/feed.xml"
))))
(
link
"Atom"
"/feed.xml"
)
(
link
"RSS"
"/rss-feed.xml"
))))
,
body
)))
#
:post-template
(
make-post-generator
)
#
:collection-template
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment