Index: code-docs/crystalize.scrbl ================================================================== --- code-docs/crystalize.scrbl +++ code-docs/crystalize.scrbl @@ -46,10 +46,17 @@ @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] Index: crystalize.rkt ================================================================== --- crystalize.rkt +++ crystalize.rkt @@ -28,10 +28,11 @@ ;; ~~~ 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 @@ -365,11 +366,11 @@ (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 +;; 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