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

clean up some parts using with-open

This commit is contained in:
Nico 2022-01-05 17:29:51 +00:00
parent 3683beb0b3
commit 1ef23de96f
1 changed files with 12 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
generate.fnl
View File

@ -75,9 +75,8 @@
(set gemini-index
(.. gemini-index (string.format "=> %s %s %s\n" url date title)))))
(set gemini-index (.. gemini-index gemini-footer))
(let [f (io.open (.. gemini-outdir "/log/index.gmi") :w+)]
(f:write gemini-index)
(f:close)))
(with-open [f (io.open (.. gemini-outdir "/log/index.gmi") :w+)]
(f:write gemini-index)))
(fn generate-rss-feeds []
"generates rss/atom feeds"
@ -103,12 +102,10 @@
(set html-rss-feed (.. html-rss-feed "</feed>"))
(set gemini-rss-feed (.. gemini-rss-feed "</feed>"))
; write out rss feeds
(let [f (io.open (.. gemini-outdir "/atom.xml") :w+)]
(f:write gemini-rss-feed)
(f:close))
(let [f (io.open (.. html-outdir "/atom.xml") :w+)]
(f:write html-rss-feed)
(f:close)))
(with-open [f (io.open (.. gemini-outdir "/atom.xml") :w+)]
(f:write gemini-rss-feed))
(with-open [f (io.open (.. html-outdir "/atom.xml") :w+)]
(f:write html-rss-feed)))
(fn generate-ass-feeds []
"generates ass (https://tilde.town/~dzwdz/ass) feeds"
@ -123,12 +120,10 @@
(set gemini-ass-feed (.. gemini-ass-feed
(string.format "%s\t%s%s\t%s\n" date gemini-baseurl path title)))))
; write out ass feeds
(let [f (io.open (.. gemini-outdir "/feed.ass") :w+)]
(f:write gemini-ass-feed)
(f:close))
(let [f (io.open (.. html-outdir "/feed.ass") :w+)]
(f:write html-ass-feed)
(f:close))))
(with-open [f (io.open (.. gemini-outdir "/feed.ass") :w+)]
(f:write gemini-ass-feed))
(with-open [f (io.open (.. html-outdir "/feed.ass") :w+)]
(f:write html-ass-feed))))
(fn generate-html-log []
"generates the blog index page for HTML"
@ -141,9 +136,8 @@
title))
"</li>"))))
(set html-index (.. html-index "</ul>" html-footer))
(let [f (io.open (.. html-outdir "/log/index.html") :w+)]
(f:write html-index)
(f:close)))
(with-open [f (io.open (.. html-outdir "/log/index.html") :w+)]
(f:write html-index)))
(fn generate-logs []
"generates the log index pages and feeds from the posts index"