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

Login
About History Code Code Docs Road Map Issues
Overview
Comment:Tweak dialogue/say tag output
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 9922a46b474353f596b41ac119605ce60e61e301afdc62e26ed15476249cfb22
User & Date: joel on 2019-04-16 03:02:04
Other Links: manifest | tags
Context
2019-04-18
03:08
Add blog check-in: 8145bdb7 user: joel tags: trunk
2019-04-16
03:02
Tweak dialogue/say tag output check-in: 9922a46b user: joel tags: trunk
2019-04-14
15:35
Fix CSS selector check-in: d637a276 user: joel tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified tags-html.rkt from [a10546b2] to [392bb161].

︙
112
113
114
115
116
117
118
119

120
121
122
123
124
125
126

112
113
114
115
116
117
118

119
120
121
122
123
124
125
126








-
+








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

(define (html-say . elems)
  `(@ (dt ,(car elems)) (dd ,@(cdr elems))))
  `(@ (dt ,(car elems) (span [[class "x"]] ": ")) (dd ,@(cdr elems))))

(define (html-verse attrs elems)
  (let* ([title  (maybe-attr 'title attrs "")]
         [italic? (assoc 'italic attrs)]
         [pre-attrs (cond [italic? '([class "verse"] [style "font-style: italic"])]
                          [else '([class "verse"])])]
         [pre-title (cond [(string>? title "") `(p [[class "verse-heading"]] ,title)]
︙

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