summaryrefslogtreecommitdiff
path: root/haunt.scm
blob: f002287e2fa3f2fe4c12b7189450f21db3d4b946 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
(use-modules
 (haunt builder assets)
 (haunt builder flat-pages)
 (haunt builder blog)
 (haunt artifact)
 (haunt reader)
 (haunt reader commonmark)
 (haunt site)
 (haunt post)
 (haunt html)
 (theme)
 (reader))

(define post-prefix "post")

(define (filter-now posts)
  (posts/reverse-chronological
   (filter (lambda (p) (member "now" (post-tags p))) posts)))

(define (filter-not-now posts)
  (posts/reverse-chronological
   (filter (lambda (p) (not (member "now" (post-tags p)))) posts)))

(define posts-other
  `(("Blog" "blog/index.html" ,filter-not-now)))

(define posts-now
  `(("Now" "now/index.html" ,filter-now)))

(site #:title "hwebs"
      #:domain "hwebs.info"
      #:default-metadata
      '((author . "Henry J. Webster")
        (email . "hwebs@hwebs.info"))
      #:readers (list commonmark-reader xml-reader)
      #:builders (list (blog #:theme hwebs-theme-blog
                             #:collections posts-other
                             #:prefix "blog"
                             #:post-prefix post-prefix)
                       (blog #:theme hwebs-theme-now
                             #:collections posts-now
                             #:prefix "now")
                       (flat-pages #:template flat-page-template)
                       (static-directory "images")
                       (lambda (site posts)
                         (list (verbatim-artifact "style.css" "style.css")))))