Overview
| Comment: | Fix error in short (no txexpr) notes |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
612b87e309b57f8d63a080278bfea913 |
| User & Date: | joel on 2019-04-11 22:20:26 |
| Other Links: | manifest | tags |
Context
|
2019-04-11
| ||
| 22:39 | Fix for layout bug preventing some permlinks from being unclickable check-in: 4d2683da user: joel tags: trunk | |
| 22:20 | Fix error in short (no txexpr) notes check-in: 612b87e3 user: joel tags: trunk | |
| 17:11 | Fix display of titles in poetry check-in: a4a69244 user: joel tags: trunk | |
Changes
Modified snippets-html.rkt from [460d9c7b] to [b2f8e39c].
| ︙ | ︙ | |||
95 96 97 98 99 100 101 |
;;
(define (html$-note-title pagenode parent-title)
(format "Re: <a class=\"cross-reference\" href=\"/~a\">~a</a>"
pagenode
parent-title))
(define (html$-note-contents disposition-mark elems)
| < | > | 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 |
;;
(define (html$-note-title pagenode parent-title)
(format "Re: <a class=\"cross-reference\" href=\"/~a\">~a</a>"
pagenode
parent-title))
(define (html$-note-contents disposition-mark elems)
(define disposition
(cond [(non-empty-string? disposition-mark)
`(span [[class "disposition-mark"]] ,disposition-mark)]
[else ""]))
(define body-elems
(cond
[(and (block-txexpr? (car elems)) (non-empty-string? disposition-mark))
(define-values (first-tag first-attrs first-elems) (txexpr->values (car elems)))
(cons (txexpr first-tag first-attrs (cons disposition first-elems)) (cdr elems))]
[else
(cons disposition elems)]))
(string-append* (map ->html body-elems)))
(define (html$-note-listing-full pagenode note-id title-html-flow date contents [author default-authorname] [author-url ""])
(define author-part
|
| ︙ | ︙ |