Differences From Artifact [ffde9e3c]:
- File crystalize.rkt — part of check-in [8af3b9ce] at 2020-02-29 16:12:23 on branch trunk — Implement excerpts ([10e20e5ab65]) (user: joel, size: 12064) [annotate] [blame] [check-ins using]
To Artifact [121eb65c]:
- File crystalize.rkt — part of check-in [56b50a38] at 2020-03-14 21:32:58 on branch trunk — Add version control links to notes [678cc6aeca1d9d31] (user: joel, size: 12177) [annotate] [blame] [check-ins using]
| ︙ | |||
180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 | 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 | + + |
disposition-attr))
(define-values (disp-mark disp-verb) (disposition-values disposition-attr))
(let* ([note-id (build-note-id note-tx)]
[title-tx (make-note-title pagenode parent-title-plain)]
[title-html (->html title-tx #:splice? #t)]
[author (maybe-attr 'author attrs default-authorname)]
[author-url (maybe-attr 'author-url attrs)]
[note-srcline (maybe-attr 'srcline attrs)]
[content-html (html$-note-contents disp-mark disp-verb elems)]
[listing-full (html$-note-listing-full pagenode
note-id
title-html
note-date
note-srcline
content-html
author
author-url)])
(insert-one! (cache-conn)
(make-cache:note
#:page pagenode
#:html-anchor note-id
|
| ︙ |