Overview
| Comment: | Fix series info missing from footer |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
5b4bc26c9422429ece6cd3db7161fdf8 |
| User & Date: | joel on 2018-09-21 21:54:54 |
| Other Links: | manifest | tags |
Context
|
2018-09-22
| ||
| 19:42 | Add space between multiple notes in an article. Hide byline for notes by the site proprietor. check-in: 4fec6778 user: joel tags: trunk | |
|
2018-09-21
| ||
| 21:54 | Fix series info missing from footer check-in: 5b4bc26c user: joel tags: trunk | |
|
2018-09-20
| ||
| 12:38 | Dynamic footer text for articles. More comments in code. Clean up anchor links to notes. check-in: 9cf832ae user: joel tags: trunk | |
Changes
Modified crystalize.rkt from [3a59963c] to [cb0151f2].
| ︙ | ︙ | |||
170 171 172 173 174 175 176 |
[else (values title-val (string-append title-val disposition-part))]))
;; Convert a bunch of information about an article into some nice English and links.
(define (make-article-footertext pagenode series disposition disp-note-id note-count)
(define s-title (series-title))
(define s-noun (series-noun))
(define series-part
| | | 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 |
[else (values title-val (string-append title-val disposition-part))]))
;; Convert a bunch of information about an article into some nice English and links.
(define (make-article-footertext pagenode series disposition disp-note-id note-count)
(define s-title (series-title))
(define s-noun (series-noun))
(define series-part
(cond [(non-empty-string? s-title)
(format "This is ~a, part of <a href=\"/~a\">‘~a’</a>."
s-noun
series
s-title)]
[else ""]))
(define disp-part
(cond [(non-empty-string? disposition)
|
| ︙ | ︙ |