◊(Local Yarn Code "Check-in [06f21d86]")

Login
About History Code Code Docs Road Map Issues
Overview
Comment:Remove debugging call
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 06f21d8694c8ff2d473ba605df7ee232efa58f58ad52ca54546bcde1b5de7b48
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
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified crystalize.rkt from [29b5c625] to [d75fdc63].

︙
116
117
118
119
120
121
122
123

124
125
126
127
128
129
130

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)) (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))

  ;; Values must come in the order defined in table_article_fields
  (define article-record
︙

This page was generated in about 0.01s by Fossil 2.19 [318ab802db] 2022-05-27 02:05:21