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

Overview
Comment:Fix series info missing from footer
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 5b4bc26c9422429ece6cd3db7161fdf88cac0304175355708842c3242107a2a5
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
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? series-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)







|







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)