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
out/

40
compile.zp
View File

@@ -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/<br \/>/ "</p><p>" (regex:gsub r/<p>/ "<p class='paragraph'>" 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))

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.
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.

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
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.

0
layout.html → post.html
View File

23
style.css
View File

@@ -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;
}