51
52
53
54
55
56
57
58
59
60
|
51
52
53
54
55
56
57
58
59
60
61
62
63
|
+
+
+
|
sup
blockquote
code)
(provide html-root
html-title
html-excerpt
html-excerpt*
html-item
html-section
html-subsection
html-newthought
html-caps
|
99
100
101
102
103
104
105
106
107
108
|
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
+
+
+
+
|
#:block-txexpr-proc detect-newthoughts
#:inline-txexpr-proc decode-link-urls
#:exclude-tags '(script style pre code)))
`(body ,@second-pass))
(define (html-title . elements) `(title ,@elements))
(define (html-excerpt . elements) `(excerpt ,@elements))
(define (html-excerpt* . elements) `(excerpt* ,@elements))
(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]))
|
