Overview
| Comment: | Fix paragraph decoding inside notes | 
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk | 
| Files: | files | file ages | folders | 
| SHA3-256: | 
40ecb2126b1376f3c75e683240b538a6 | 
| User & Date: | joel on 2019-04-11 03:23:07 | 
| Other Links: | manifest | tags | 
Context
| 
   2019-04-11 
 | ||
| 04:16 | Add quick templating for new articles check-in: 1afe7e97 user: joel tags: trunk | |
| 03:23 | Fix paragraph decoding inside notes check-in: 40ecb212 user: joel tags: trunk | |
| 03:22 | Fix bug preventing inclusion of article footers check-in: 41f70967 user: joel tags: trunk | |
Changes
Modified tags-html.rkt from [3eb83629] to [4d4ea45a].
| ︙ | ︙ | |||
192 193 194 195 196 197 198  | 
                                                                    (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 (html-note attrs elems)
 | |  | 192 193 194 195 196 197 198 199  | 
                                                                    (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 (html-note attrs elems)
  (txexpr 'note attrs (decode-hardwrapped-paragraphs elems)))
 |