32 lines
907 B
Plaintext
32 lines
907 B
Plaintext
(load "mustache/mustache")
|
|
(load "pandoc/pandoc")
|
|
|
|
(import-all "mustache")
|
|
(import-all "pandoc")
|
|
|
|
(define tpl (read-contents "layout.html"))
|
|
(define poem-dir "poems/")
|
|
|
|
(define (all-poems)
|
|
(let* ((ls (os:ls poem-dir))
|
|
(ls (filter ($ (not (in? ["." ".."] %))) ls)))
|
|
(map (curry ++ poem-dir) ls)))
|
|
|
|
(define (from-path file)
|
|
(regex:sub r/.md$/ "" (list:last (string:split file "/"))))
|
|
|
|
(define (treat str)
|
|
(regex:gsub r/<br \/>/ "</p><p>" (regex:gsub r/<p>/ "<p class='paragraph'>" str)))
|
|
|
|
(define (render targets)
|
|
(let* ((strs (map read-contents targets))
|
|
(args (make-hash
|
|
"poems" (map (compose treat
|
|
(curry pandoc:convert "markdown" "html"))
|
|
strs))))
|
|
(with-output-file "index.html"
|
|
(curry write (mustache:template tpl args)))))
|
|
|
|
(let ((targets (all-poems)))
|
|
(render targets))
|