hellerve/poems
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

added poems and redesigned

Browse Source
This commit is contained in:
Veit Heller
2017-04-03 15:19:07 +02:00
parent f697c77de5
commit e4aa56ee98
7 changed files with 81 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
.gitignore vendored
View File

@@ -1 +1,2 @@
index.html index.html
out/

40
compile.zp
View File

@@ -4,28 +4,48 @@
(import-all "mustache") (import-all "mustache")
(import-all "pandoc") (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 poem-dir "poems/")
(define out-dir "out/")
(define (all-poems) (define (all-sites)
(let* ((ls (os:ls poem-dir)) (let* ((ls (os:ls poem-dir))
(ls (filter ($ (not (in? ["." ".."] %))) ls))) (ls (filter ($ (not (in? ["." ".."] %))) ls)))
(map (curry ++ poem-dir) ls))) ls))
(define (from-path file) (define (all-poems elem)
(regex:sub r/.md$/ "" (list:last (string:split file "/")))) (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) (define (treat str)
(regex:gsub r/<br \/>/ "</p><p>" (regex:gsub r/<p>/ "<p class='paragraph'>" str))) (regex:gsub r/<br \/>/ "</p><p>" (regex:gsub r/<p>/ "<p class='paragraph'>" str)))
(define (render targets) (define (render name targets)
(let* ((strs (map read-contents targets)) (let* ((strs (map read-contents targets))
(args (make-hash (args (make-hash
"poems" (map (compose treat "poems" (map (compose treat
(curry pandoc:convert "markdown" "html")) (curry pandoc:convert "markdown" "html"))
strs)))) strs))))
(with-output-file "index.html" (with-output-file name
(curry write (mustache:template tpl args))))) (curry write (mustache:template post-tpl args)))))
(let ((targets (all-poems))) (define (make-index elems)
(render targets)) (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))

15
list.html Normal file
View File

@@ -0,0 +1,15 @@
<!DOCTYPE html>
<html>
<head>
<meta charset="utf-8">
<title>Veit's Poems</title>
<link rel="stylesheet" type="text/css" href="/poems/style.css">
</head>
<body>
<div id="links">
{{#names}}
<a class="elem" href="./{{url}}">{{name}}</a>
{{/names}}
</div>
</body>
</html>

8
poems/noch_zwei_stunden/106.md
View File

@@ -1,5 +1,5 @@
Von dem Geheul Gehennas erschaudert die Senke. 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. 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. Was sich fühlen lässt: Flaum; feuchte, ledrige Haut; nasser Atem.
Noch zwei Stunden heimwärts, dann liegt man beieinander, Noch zwei Stunden heimwärts, dann liegt man beieinander,
das ist die Furcht meiner kalten Hand. das ist die Furcht meiner kalten Hand.

16
poems/und_dienstags_kahlua/107.md
View File

@@ -1,9 +1,9 @@
du bist wie fallobst, sagt sie, wenn du deinem namen ehre machst, will ich dich 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, 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 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. 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 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 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 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, 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. sagt sie nach einer weile, und ich weiss nicht, soll ich lachen oder.

0
layout.html → post.html
View File

23
style.css
View File

@@ -70,3 +70,26 @@ p {
size: auto; size: auto;
margin: 0mm; 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;
}