77
78
79
80
81
82
83
84
85
86
87
|
77
78
79
80
81
82
83
84
85
86
87
88
|
-
+
+
|
html-blockcode
html-verse
html-link
html-url
html-fn
html-fndef)
html-fndef
html-note)
(define html-item (default-tag-function 'li))
(define html-section (default-tag-function 'h2))
(define html-subsection (default-tag-function 'h3))
(define html-newthought (default-tag-function 'span #:class "newthought"))
|
187
188
189
190
191
|
188
189
190
191
192
193
194
195
|
+
+
+
|
(fn-id fn-name)
(format "~a" (+ 1 fnref-num)))]] "↩"))])
`(li [[id ,(fndef-id fn-name)]] ,@definition-text ,@backrefs))))
(cond [(null? note-items) ""]
[else `(section ((class "footnotes")) (hr) (ol ,@note-items))]))
(define-tag-function (html-note attrs elems)
(txexpr 'note attrs (decode-paragraphs elems #:force? #t)))
|
