Overview
| Comment: | Remove debugging call |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
06f21d8694c8ff2d473ba605df7ee232 |
| User & Date: | joel on 2018-09-19 19:13:33 |
| Other Links: | manifest | tags |
Context
|
2018-09-20
| ||
| 02:19 | Fix title in template function check-in: 7b7da3d7 user: joel tags: trunk | |
|
2018-09-19
| ||
| 19:13 | Remove debugging call check-in: 06f21d86 user: joel tags: trunk | |
| 19:04 | Add support for Notes, closing [ce23bb4086]. The old dates.rkt is now dust.rkt: helper functions for use everywhere. Functions returning HTML strings have html$ prefix. check-in: de9f1215 user: joel tags: trunk | |
Changes
Modified crystalize.rkt from [29b5c625] to [d75fdc63].
| ︙ | ︙ | |||
116 117 118 119 120 121 122 |
(define pubdate (select-from-metas 'published (current-metas)))
(define-values (body-txpr note-txprs) (doc->body/notes doc))
(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)
| | | 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 |
(define pubdate (select-from-metas 'published (current-metas)))
(define-values (body-txpr note-txprs) (doc->body/notes doc))
(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)) 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))
;; Values must come in the order defined in table_article_fields
(define article-record
|
| ︙ | ︙ |