Overview
| Comment: | Tweak dialogue/say tag output |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
9922a46b474353f596b41ac119605ce6 |
| 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
Modified tags-html.rkt from [a10546b2] to [392bb161].
| ︙ | ︙ | |||
112 113 114 115 116 117 118 |
(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)
| | | 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) (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)]
|
| ︙ | ︙ |