Overview
Comment: | Provide index entry crystallization |
---|---|
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA3-256: |
94c49607f6904a2d2e6235297b28bb1a |
User & Date: | joel on 2019-07-10 01:37:26 |
Other Links: | manifest | tags |
Context
2019-07-12
| ||
04:31 | Fix SQL query for articles+notes so series filtering will work check-in: b49b65af user: joel tags: trunk | |
2019-07-10
| ||
01:37 | Provide index entry crystallization check-in: 94c49607 user: joel tags: trunk | |
01:29 | Make parallel processing in Pollen setup explicit check-in: 7d4de0ec user: joel tags: trunk | |
Changes
Modified code-docs/crystalize.scrbl from [85f11db1] to [ff8f9919].
44 45 46 47 48 49 50 51 52 53 54 55 56 57 |
individually to the SQLite cache. If any of the notes use the @code{#:disposition} attribute, information about the disposition is parsed out and used in the rendering of the article. @defproc[(crystalize-series!) void?] Saves metas for the current series page in the SQLite cache. Meant to be called from the HTML template for βSeriesβ pages (Pollen documents located in @racket[series-folder]). @deftogether[(@defproc[(list/articles [type (or/c 'listing_full_html 'listing_short_html 'listing_excerpt_html)] [#:series series (or/c string? boolean?) #t] [#:limit limit stringish? -1] [order string? "DESC"]) (listof string?)] |
> > > > > > > |
44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 |
individually to the SQLite cache. If any of the notes use the @code{#:disposition} attribute, information about the disposition is parsed out and used in the rendering of the article. @defproc[(crystalize-series!) void?] Saves metas for the current series page in the SQLite cache. Meant to be called from the HTML template for βSeriesβ pages (Pollen documents located in @racket[series-folder]). @defproc[(crystalize-index-entries! [pagenode pagenode?] [doc txexpr?]) void?] Saves any @racket[index] enries entries in @racket[_doc] to the SQLite cache. @margin-note{This function was originally private; I provided it out only so it could be called manually from @tt{index.html.pp}.} @deftogether[(@defproc[(list/articles [type (or/c 'listing_full_html 'listing_short_html 'listing_excerpt_html)] [#:series series (or/c string? boolean?) #t] [#:limit limit stringish? -1] [order string? "DESC"]) (listof string?)] |
Modified crystalize.rkt from [feaffe0a] to [db2e6817].
26
27
28
29
30
31
32
33
34
35
36
37
38
39
...
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
|
"dust.rkt") ;; ~~~ Provides ~~~ (provide spell-of-summoning! crystalize-article! crystalize-series! article-plain-title list/articles list/articles+notes listing<>-short/articles listing<>-full/articles listing<>-full/articles+notes unfence ................................................................................ ;; "entry!sub" β '("entry" "sub") ;; "entry!sub!why?!? '("entry" "sub") (define (split-entry str) (define splits (string-split str "!")) (list (car splits) (cadr (append splits (list ""))))) ;; (private) Save any index entries in doc to the SQLite cache ;; Sub-entries are specified by "!" in the index key (define (crystalize-index-entries! pagenode doc) (define (index-entry? tx) (and (txexpr? tx) (string=? "index-link" (attr-ref tx 'class "")) ; see definition of html-index (attr-ref tx 'data-index-entry #f))) (define-values (_ entries) (splitf-txexpr doc index-entry?)) |
>
|
|
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
...
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
|
"dust.rkt") ;; ~~~ Provides ~~~ (provide spell-of-summoning! crystalize-article! crystalize-series! crystalize-index-entries! article-plain-title list/articles list/articles+notes listing<>-short/articles listing<>-full/articles listing<>-full/articles+notes unfence ................................................................................ ;; "entry!sub" β '("entry" "sub") ;; "entry!sub!why?!? '("entry" "sub") (define (split-entry str) (define splits (string-split str "!")) (list (car splits) (cadr (append splits (list ""))))) ;; Save any index entries in doc to the SQLite cache. ;; Sub-entries are specified by "!" in the index key (define (crystalize-index-entries! pagenode doc) (define (index-entry? tx) (and (txexpr? tx) (string=? "index-link" (attr-ref tx 'class "")) ; see definition of html-index (attr-ref tx 'data-index-entry #f))) (define-values (_ entries) (splitf-txexpr doc index-entry?)) |