Local Yarn Code

Check-in [3c7620a3]
Overview
Comment:No more smartypants-style quote/dash processing
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 3c7620a3b8cfd089770175b923296c2a3b5017374bcd461c4bb641e737402e8a
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
93
94
95
96
97
98
99
100
    (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
                     #:string-proc (compose1 smart-quotes smart-dashes)
                     #: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)]







<







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)]