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

Login
About History Code Code Docs Road Map Issues
Overview
Comment:Process footnote blocks in the same way as the rest of the document. Fixes [d836105a]
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: e780afcd19cdf6e9ca6311b4ccd5017e3a3fed029ddf551acff37ecbe9ce6c40
User & Date: joel on 2019-04-12 03:00:29
Other Links: manifest | tags
References
2019-04-12
03:02 • Closed ticket [d836105a]: Hyperlinks within footnotes are not decoded plus 4 other changes artifact: 7f8cf53c user: joel
Context
2019-04-14
15:21
Add dialogue tags check-in: 4fb0671d user: joel tags: trunk
2019-04-12
03:00
Process footnote blocks in the same way as the rest of the document. Fixes [d836105a] check-in: e780afcd user: joel tags: trunk
02:33
First attempt at hiding redundant series info on series pages check-in: 8ab2075d user: joel tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified tags-html.rkt from [03385122] to [bdaae3f3].

︙
91
92
93
94
95
96
97
98

99
100
101
102
103
104
105
106
107

108
109
110
111
112
113
114

91
92
93
94
95
96
97

98
99
100
101
102
103
104
105
106

107
108
109
110
111
112
113
114








-
+








-
+








(define html-center (default-tag-function 'div #:style "text-align: center"))

(define (html-block . elements)
  `(section [[class "content-block"]] (div [[class "content-block-main"]] ,@elements)))

(define (html-root . elements)
  (define first-pass
    (decode-elements elements
    (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 ,(html-footnote-block)))
  `(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)]
        [else codeblock]))
︙

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