@@ -4,12 +4,12 @@ ◊; This file is licensed under the Blue Oak Model License 1.0.0. ◊(require pollen/template db/base racket/list racket/match) ◊(define (fetch-series) - (define q "SELECT noun_plural, pagenode, title FROM series ORDER BY noun_plural DESC") - (query-rows (sqltools:dbc) q)) + (define q "SELECT noun_plural, page, title FROM series ORDER BY noun_plural DESC") + (query-rows cache-conn q)) ◊(define (series-item->txpr s) (match-define (list n pagenode title) s) `(li (a [[href ,pagenode]] (i ,title)))) @@ -86,13 +86,13 @@ collections: ◊url[1]{/blog-pg1.html} }) -◊(crystalize-index-entries! '|index.html| front-page-body) +◊; stop for now: (crystalize-index-entries! '|index.html| front-page-body)
◊(->html front-page-body #:splice? #t) ◊(->html (series-grouped-list))