@@ -78,11 +78,11 @@ html-link html-xref html-url html-fn html-fndef - html-note) + html-note-with-srcline) (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")) @@ -261,7 +261,7 @@ (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 (html-note attrs elems) +(define (html-note-with-srcline attrs elems) (txexpr 'note attrs (decode-hardwrapped-paragraphs elems)))