bunbun/bunbun.dev
1
0
Fork 0
mirror of https://codeberg.org/bunbun/bunbun.dev synced 2025-06-07 17:49:55 -07:00
Code Issues Actions Packages Projects Releases Wiki Activity

initial

Browse Source
This commit is contained in:
Winter
2024-05-20 20:23:38 -07:00
commit 578313417b
9 changed files with 354 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
page-handler.fnl Normal file
View File

@ -0,0 +1,19 @@
(local cmark (require :cmark))
(local lfs (require :lfs))
(local page-handler {})
(fn page-handler.read-pages []
(each [file (lfs.dir :pages)]
(when (and (not= file ".") (not= file ".."))
(local markdown (with-open [markdown-file (io.open (.. :pages/ file) :r)]
(markdown-file:read :*a)))
(local html-template (with-open [html-template-file (io.open :template.html :r)]
(html-template-file:read :*a)))
(local html (cmark.markdown_to_html markdown (markdown:len) cmark.OPT_UNSAFE))
(tset _G.files (file:match "(.+)%..+") (html-template:format html)))))
page-handler