118
119
120
121
122
123
124
125
126
127
128
|
118
119
120
121
122
123
124
125
126
127
128
|
-
+
|
(define doc-html (->html (cdr body-txpr)))
(define-values (disposition disp-note-id)
(notes->last-disposition-values note-txprs))
(define-values (title-plain title-html-flow)
(make-article-titles (maybe-meta 'title (default-title pubdate)) (report disposition)))
(make-article-titles (maybe-meta 'title (default-title pubdate)) disposition))
(define header (html$-article-open title-html-flow pubdate))
(define footer (html$-article-close))
(define notes-section-html (crystalize-notes! pagenode title-plain note-txprs))
|
