26
27
28
29
30
31
32
33
34
35
|
26
27
28
29
30
31
32
33
34
35
36
|
+
|
(require (for-syntax racket/base racket/syntax))
(require racket/list
racket/function
pollen/decode
pollen/tag
net/uri-codec
txexpr
"dust.rkt")
(provide html-fn
html-fndef)
|
74
75
76
77
78
79
80
81
82
83
|
75
76
77
78
79
80
81
82
83
84
85
|
+
|
html-newthought
html-smallcaps
html-center
html-block
html-blockcode
html-index
html-dialogue
html-say
html-verse
html-link
html-url
|
113
114
115
116
117
118
119
120
121
122
|
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
|
+
+
+
+
+
+
|
(define (html-blockcode attrs elems)
(define file (or (assoc 'filename attrs) ""))
(define codeblock `(pre [[class "code"]] (code ,@elems)))
(cond [(string>? file "") `(@ (div [[class "listing-filename"]] 128196 " " ,file) ,codeblock)]
[else codeblock]))
(define (html-index . elems)
`(a [[id ,(here-id (list "_idx-" (uri-encode (car elems))))]
[data-index-entry ,(car elems)]
[class "index-link"]]
,@(cdr elems)))
(define (html-say . elems)
`(@ (dt ,(car elems) (span [[class "x"]] ": ")) (dd ,@(cdr elems))))
(define (html-verse attrs elems)
|
