◊(Local Yarn Code "Check-in [3c7620a3]")

Login
About History Code Code Docs Road Map Issues
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
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified tags-html.rkt from [4ebbddcc] to [fedcf631].

︙
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100

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
                     #: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)]
︙

This page was generated in about 0.011s by Fossil 2.19 [318ab802db] 2022-05-27 02:05:21