nihilazo
/
linluwi
Archived
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

changes and fixes

This commit is contained in:
Nico 2022-06-12 16:03:14 +01:00
parent 8e512873ce
commit 6ff72101e7
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
linluwi.fnl
View File

@ -36,7 +36,7 @@
; 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>
@ -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