(use-modules
 (haunt builder assets)
 (haunt builder atom)
 (haunt builder flat-pages)
 (haunt builder blog)
 (haunt artifact)
 (haunt reader)
 (haunt reader commonmark)
 (haunt site)
 (haunt post)
 (haunt html)
 (haunt publisher rsync)
 (theme)
 (reader)
 (games))

(define post-prefix "post")

(define (posts/reverse-file-name posts)
  "Returns POSTS sorted in reverse file name order."
  (sort posts
        (lambda (a b)
          (string>? (post-file-name a) (post-file-name b)))))

(define (filter-now posts)
  (posts/reverse-file-name
   (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")
                       (atom-feed #:file-name "blog/feed.xml"
                                  #:filter filter-not-now
                                  #:blog-prefix "/blog/post")
                       (flat-pages #:template flat-page-template)
                       (static-directory "images")
                       color-quiz-page
                       (lambda (site posts)
                         (list (verbatim-artifact "style.css" "style.css"))))
      #:publishers (list (rsync-publisher #:destination "/usr/local/www/www-personal")))