changes and fixes
This commit is contained in:
parent
8e512873ce
commit
6ff72101e7
10
linluwi.fnl
10
linluwi.fnl
|
@ -36,7 +36,7 @@
|
||||||
; header added to the blog index page on the web
|
; header added to the blog index page on the web
|
||||||
(var html-blog-header "<h1>lipu pi jan Niko</h1>\n\n")
|
(var html-blog-header "<h1>lipu pi jan Niko</h1>\n\n")
|
||||||
; header added to all pages on the web
|
; 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
|
; footer added to all pages on the web
|
||||||
(var html-footer "</article><footer>
|
(var html-footer "</article><footer>
|
||||||
<a href=https://itwont.work>Go Home</a><br>
|
<a href=https://itwont.work>Go Home</a><br>
|
||||||
|
@ -92,15 +92,15 @@
|
||||||
(each [_ p (ipairs posts)]
|
(each [_ p (ipairs posts)]
|
||||||
(let [ {: date : title : path} p
|
(let [ {: date : title : path} p
|
||||||
entry "\n<entry>
|
entry "\n<entry>
|
||||||
<id>%s%s</id>
|
<id>%s</id>
|
||||||
<title>%s</title>
|
<title>%s</title>
|
||||||
<updated>%sT12:00:00Z</updated>
|
<updated>%sT12:00:00Z</updated>
|
||||||
<link href=\"%s\" rel=\"alternate\" />
|
<link href=\"%s%s\" rel=\"alternate\" />
|
||||||
</entry>\n" ]
|
</entry>\n" ]
|
||||||
(set html-rss-feed (.. html-rss-feed
|
(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
|
(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 html-rss-feed (.. html-rss-feed "</feed>"))
|
||||||
(set gemini-rss-feed (.. gemini-rss-feed "</feed>"))
|
(set gemini-rss-feed (.. gemini-rss-feed "</feed>"))
|
||||||
; write out rss feeds
|
; write out rss feeds
|
||||||
|
|
Reference in New Issue