about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--lib/html.scm63
1 files changed, 31 insertions, 32 deletions
diff --git a/lib/html.scm b/lib/html.scm index 26cdff4..9ed5957 100644 --- a/lib/html.scm +++ b/lib/html.scm
@@ -28,37 +28,36 @@
28 (char->tag "`" "code")) s)) 28 (char->tag "`" "code")) s))
29 29
30(set-formats! 30(set-formats!
31 '((para (line . "~a~%") 31 '((para (line . "~a~%")
32 (stanza . "<p>~% ~a</p>~%")) 32 (stanza . "<p>~% ~a</p>~%"))
33 (verb (line . "~a~%") 33 (verb (line . "~a~%")
34 (stanza . "<pre><code>~a</code></pre>~%")) 34 (stanza . "<pre><code>~a</code></pre>~%"))
35 (link (line . "<li><a href=\"~a\">~a</a></li>~%") 35 (link (line . "<li><a href=\"~a\">~a</a></li>~%")
36 (stanza . "<ul>~% ~a</ul>~%") 36 (stanza . "<ul>~% ~a</ul>~%")
37 (inline . "<a href=\"~a\">~a</a>~%")) 37 (inline . "<a href=\"~a\">~a</a>~%"))
38 (list (line . "<li>~a</li>~%") 38 (list (line . "<li>~a</li>~%")
39 (stanza . "<ul>~% ~a</ul>~%")) 39 (stanza . "<ul>~% ~a</ul>~%"))
40 (quot (line . "~a~%") 40 (quot (line . "~a~%")
41 (stanza . "<blockquote>~% ~a</blockquote>~%")) 41 (stanza . "<blockquote>~% ~a</blockquote>~%"))
42 (hdr1 (line . "~a") 42 (hdr1 (line . "~a")
43 (stanza . "<h1>~a</h1>~%")) 43 (stanza . "<h1>~a</h1>~%"))
44 (hdr2 (line . "~a") 44 (hdr2 (line . "~a")
45 (stanza . "<h2>~a</h2>~%")) 45 (stanza . "<h2>~a</h2>~%"))
46 (hdr3 (line . "~a") 46 (hdr3 (line . "~a")
47 (stanza . "<h3>~a</h3>~%")))) 47 (stanza . "<h3>~a</h3>~%"))))
48 48
49(set-filters! 49(set-filters!
50 `((verb (line . ,identity) 50 `((verb (stanza . ,(o ensure-newline (cut string-join <> "\n"))))
51 (stanza . ,join-lines)) 51 (link (line . ,(lambda (ln)
52 (link (line . ,(lambda (ln) 52 (cons (car ln)
53 (cons (car ln) 53 ((o list
54 ((o list 54 add-inline-markup
55 add-inline-markup 55 escape-entities
56 escape-entities 56 string-join)
57 string-join) 57 (cdr ln))))))
58 (cdr ln)))))) 58 (default
59 (default 59 (line . ,(o list
60 (line . ,(o list 60 add-inline-markup
61 add-inline-markup 61 escape-entities
62 escape-entities 62 string-join))
63 string-join)) 63 (stanza . ,string-join))))
64 (stanza . ,string-join))))