72
73
74
75
76
77
78
79
80
81
|
72
73
74
75
76
77
78
79
80
81
82
|
+
|
html-section
html-subsection
html-newthought
html-smallcaps
html-center
html-block
html-blockcode
html-verse
html-link
html-url
html-fn
|
87
88
89
90
91
92
93
94
95
96
|
88
89
90
91
92
93
94
95
96
97
98
99
100
|
+
+
+
|
(define html-subsection (default-tag-function 'h3))
(define html-newthought (default-tag-function 'span #:class "newthought"))
(define html-smallcaps (default-tag-function 'span #:class "smallcaps"))
(define html-center (default-tag-function 'div #:style "text-align: center"))
(define (html-block . elements)
`(section [[class "content-block"]] (div [[class "content-block-main"]] ,@elements)))
(define (html-root . elements)
(define first-pass
(decode-elements elements
#:txexpr-elements-proc decode-hardwrapped-paragraphs
#:exclude-tags '(script style figure table pre)))
|
