Overview
| Comment: | No more smartypants-style quote/dash processing |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
3c7620a3b8cfd089770175b923296c2a |
| User & Date: | joel on 2019-05-26 20:33:28 |
| Other Links: | manifest | tags |
Context
|
2019-05-27
| ||
| 16:48 | Add constants for web root and images subfolder check-in: cda214e8 user: joel tags: trunk | |
|
2019-05-26
| ||
| 20:33 | No more smartypants-style quote/dash processing check-in: 3c7620a3 user: joel tags: trunk | |
| 20:22 | Fix [50052157dd] check-in: b6a4e42a user: joel tags: trunk | |
Changes
Modified tags-html.rkt from [4ebbddcc] to [fedcf631].
| ︙ | ︙ | |||
86 87 88 89 90 91 92 |
(decode-elements (append elements (list (html-footnote-block)))
#:txexpr-elements-proc decode-hardwrapped-paragraphs
#:exclude-tags '(script style figure table pre)))
(define second-pass
(decode-elements first-pass
#:block-txexpr-proc detect-newthoughts
#:inline-txexpr-proc decode-link-urls
| < | 86 87 88 89 90 91 92 93 94 95 96 97 98 99 |
(decode-elements (append elements (list (html-footnote-block)))
#:txexpr-elements-proc decode-hardwrapped-paragraphs
#:exclude-tags '(script style figure table pre)))
(define second-pass
(decode-elements first-pass
#:block-txexpr-proc detect-newthoughts
#:inline-txexpr-proc decode-link-urls
#:exclude-tags '(script style pre code)))
`(body ,@second-pass))
(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)]
|
| ︙ | ︙ |