6
7
8
9
10
11
12
13
14
15
|
6
7
8
9
10
11
12
13
14
15
16
|
+
|
;; Builds the paginated “blog” HTML files (blog-pg1.html ...) from the SQLite cache
;; The files will be written out every time this module is evaluated! (see end)
(require "crystalize.rkt"
"snippets-html.rkt"
"dust.rkt"
racket/file
sugar/list)
(provide main)
|
36
37
38
39
40
41
42
43
44
45
|
37
38
39
40
41
42
43
44
45
46
47
|
+
|
◊html$-page-body-close[]
</html>})
;; Grabs all the articles+notes from the cache and writes out all the blog page files
(define (build-blog)
(listing-context 'blog) ; honor conceal directives for the blog
(define arts-n-notes (slice-at (listing-htmls (articles+notes 'full #:series #f)) per-page))
(define pagecount (length arts-n-notes))
(for ([pagenum (in-range 1 (+ 1 pagecount))]
[page (in-list arts-n-notes)])
|
