Compare commits
2 Commits
85946b11a0
...
6ff72101e7
Author | SHA1 | Date |
---|---|---|
Nico | 6ff72101e7 | |
Nico | 8e512873ce |
12
linluwi.fnl
12
linluwi.fnl
|
@ -36,11 +36,11 @@
|
|||
; header added to the blog index page on the web
|
||||
(var html-blog-header "<h1>lipu pi jan Niko</h1>\n\n")
|
||||
; header added to all pages on the web
|
||||
(var html-header "<!DOCTYPE html><head><link rel=stylesheet href='https://itwont.work/style.css'><title>lipu pi jan Niko</title><body><article>")
|
||||
(var html-header "<!DOCTYPE html><head><link rel=stylesheet href='/~nihilazo/style.css'><link rel='alternate' type='application/atom+xml' title='lipu pi jan Niko' href='https://itwont.work/atom.xml' /><title>lipu pi jan Niko</title><body><article>")
|
||||
; footer added to all pages on the web
|
||||
(var html-footer "</article><footer>
|
||||
<a href=https://itwont.work>Go Home</a><br>
|
||||
<a href='https://webring.xxiivv.com/#random' target='_blank'><img id='webring' src='https://webring.xxiivv.com/icon.white.svg'/></a></footer></body>")
|
||||
<a href='https://webring.xxiivv.com/#random' target='_blank'><img id='webring' src='https://webring.xxiivv.com/icon.black.svg'/></a></footer></body>")
|
||||
|
||||
;; Header of the RSS feed. Here you should set your site title (in between the <title> and </title> tags) and name (in between the <name> and </name> tags).
|
||||
(var rss-feed-header "<?xml version=\"1.0\" encoding=\"utf-8\"?>
|
||||
|
@ -92,15 +92,15 @@
|
|||
(each [_ p (ipairs posts)]
|
||||
(let [ {: date : title : path} p
|
||||
entry "\n<entry>
|
||||
<id>%s%s</id>
|
||||
<id>%s</id>
|
||||
<title>%s</title>
|
||||
<updated>%sT12:00:00Z</updated>
|
||||
<link href=\"%s\" rel=\"alternate\" />
|
||||
<link href=\"%s%s\" rel=\"alternate\" />
|
||||
</entry>\n" ]
|
||||
(set html-rss-feed (.. html-rss-feed
|
||||
(entry:format html-baseurl (path:gsub ".gmi" ".html") title date (path:gsub ".gmi" ".html"))))
|
||||
(entry:format (path:gsub ".gmi" ".html") title date html-baseurl (path:gsub ".gmi" ".html"))))
|
||||
(set gemini-rss-feed (.. gemini-rss-feed
|
||||
(entry:format gemini-baseurl path title date (.. gemini-baseurl path))))))
|
||||
(entry:format path title date gemini-baseurl path)))))
|
||||
(set html-rss-feed (.. html-rss-feed "</feed>"))
|
||||
(set gemini-rss-feed (.. gemini-rss-feed "</feed>"))
|
||||
; write out rss feeds
|
||||
|
|
Reference in New Issue