From e4aa56ee98f50ab365c68aec320da95126b47025 Mon Sep 17 00:00:00 2001 From: hellerve Date: Mon, 3 Apr 2017 15:19:07 +0200 Subject: [PATCH] added poems and redesigned --- .gitignore | 1 + compile.zp | 40 +++++++++++++++++++++++-------- list.html | 15 ++++++++++++ poems/noch_zwei_stunden/106.md | 8 +++---- poems/und_dienstags_kahlua/107.md | 16 ++++++------- layout.html => post.html | 0 style.css | 23 ++++++++++++++++++ 7 files changed, 81 insertions(+), 22 deletions(-) create mode 100644 list.html rename layout.html => post.html (100%) diff --git a/.gitignore b/.gitignore index dcaf716..d917595 100644 --- a/.gitignore +++ b/.gitignore @@ -1 +1,2 @@ index.html +out/ diff --git a/compile.zp b/compile.zp index 3301aa1..5743c46 100644 --- a/compile.zp +++ b/compile.zp @@ -4,28 +4,48 @@ (import-all "mustache") (import-all "pandoc") -(define tpl (read-contents "layout.html")) +(define post-tpl (read-contents "post.html")) +(define list-tpl (read-contents "list.html")) (define poem-dir "poems/") +(define out-dir "out/") -(define (all-poems) +(define (all-sites) (let* ((ls (os:ls poem-dir)) (ls (filter ($ (not (in? ["." ".."] %))) ls))) - (map (curry ++ poem-dir) ls))) + ls)) -(define (from-path file) - (regex:sub r/.md$/ "" (list:last (string:split file "/")))) +(define (all-poems elem) + (let* ((dir (++ poem-dir elem "/")) + (ls (os:ls dir)) + (ls (filter ($ (not (in? ["." ".."] %))) ls))) + (map (curry ++ dir) ls))) + +(define (filename file) + (list:last (string:split file "/"))) (define (treat str) (regex:gsub r/
/ "

" (regex:gsub r/

/ "

" str))) -(define (render targets) +(define (render name 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))))) + (with-output-file name + (curry write (mustache:template post-tpl args))))) -(let ((targets (all-poems))) - (render targets)) +(define (make-index elems) + (let ((names (map ($ (make-hash + "name" (regex:gsub r/_/ " " %) + "url" (++ % ".html"))) + elems))) + (with-output-file "index.html" + (curry write (mustache:template list-tpl (make-hash "names" names)))))) + +(let ((elems (all-sites))) + (map (lambda (elem) + (let ((targets (all-poems elem))) + (render (++ out-dir elem ".html") targets))) + elems) + (make-index elems)) diff --git a/list.html b/list.html new file mode 100644 index 0000000..18fe818 --- /dev/null +++ b/list.html @@ -0,0 +1,15 @@ + + + + + Veit's Poems + + + +

+ + diff --git a/poems/noch_zwei_stunden/106.md b/poems/noch_zwei_stunden/106.md index c4933ad..4f08e6d 100644 --- a/poems/noch_zwei_stunden/106.md +++ b/poems/noch_zwei_stunden/106.md @@ -1,5 +1,5 @@ -Von dem Geheul Gehennas erschaudert die Senke. -Die Kühe hören nicht auf zu grasen, die Vernetzung zu filigran für ihr Gedächtnis. -Was sich fühlen lässt: Flaum; feuchte, ledrige Haut; nasser Atem. -Noch zwei Stunden heimwärts, dann liegt man beieinander, +Von dem Geheul Gehennas erschaudert die Senke. +Die Kühe hören nicht auf zu grasen, die Vernetzung zu filigran für ihr Gedächtnis. +Was sich fühlen lässt: Flaum; feuchte, ledrige Haut; nasser Atem. +Noch zwei Stunden heimwärts, dann liegt man beieinander, das ist die Furcht meiner kalten Hand. diff --git a/poems/und_dienstags_kahlua/107.md b/poems/und_dienstags_kahlua/107.md index b9f8a2a..b33f6c2 100644 --- a/poems/und_dienstags_kahlua/107.md +++ b/poems/und_dienstags_kahlua/107.md @@ -1,9 +1,9 @@ -du bist wie fallobst, sagt sie, wenn du deinem namen ehre machst, will ich dich -nicht mehr. ich denke nur, scheisse, das ist das ende. die hände schwitzen tierisch, -das volle programm. ich denke an die unterseekabel nach buenos aires, und ob ich -da durchpasse. falkland, vielleicht. gibt's da lichtwelle oder kupfer. oder garnichts. -ich bin für garnichts, sage ich. sie guckt mich an, als wäre ich daneben. was. sie -fragt auch noch danach, und ich weiss nicht, soll ich antworten. hm, sage ich, als -wäre das eine antwort. ich wünschte ich hätte ein kruezworträtsel, auf das ich mich -jetzt konzentrieren könnte, denn ihre blicke, die ertrag ich nicht. noch hängste ja, +du bist wie fallobst, sagt sie, wenn du deinem namen ehre machst, will ich dich +nicht mehr. ich denke nur, scheisse, das ist das ende. die hände schwitzen tierisch, +das volle programm. ich denke an die unterseekabel nach buenos aires, und ob ich +da durchpasse. falkland, vielleicht. gibt's da lichtwelle oder kupfer. oder garnichts. +ich bin für garnichts, sage ich. sie guckt mich an, als wäre ich daneben. was. sie +fragt auch noch danach, und ich weiss nicht, soll ich antworten. hm, sage ich, als +wäre das eine antwort. ich wünschte ich hätte ein kruezworträtsel, auf das ich mich +jetzt konzentrieren könnte, denn ihre blicke, die ertrag ich nicht. noch hängste ja, sagt sie nach einer weile, und ich weiss nicht, soll ich lachen oder. diff --git a/layout.html b/post.html similarity index 100% rename from layout.html rename to post.html diff --git a/style.css b/style.css index 945dad2..850d7f4 100644 --- a/style.css +++ b/style.css @@ -70,3 +70,26 @@ p { size: auto; margin: 0mm; } +#links { + max-width: 600px; + padding-top: 10vh; + margin: auto; +} +.elem { + display: block; + width: 300px; + text-decoration: none; + color: #000; + margin: 1em; + font-size: 23px; + border-bottom: 5px solid; + box-sizing: border-box; +} +.elem:nth-child(odd) { + margin-left: 2em; +} +.elem:hover { + color: #666; + border-color: #666; + padding-left: 2em; +}