Welcome to the CHICKEN Scheme pasting service

;; -*- scheme -*-
((title . "Blog archive"))

`((h1 ,($ 'title)
      (a (@ (href "feed.atom"))
         (img (@ (src "pics/feed.png") (alt "Atom feed")
                 (title "Atom feed of all blog posts")))))
  (div (@ (id "archive"))
       ,(map (lambda (page)
               `(div (h4 (@ (class "article-meta"))
                         (a (@ (class "article-title")
                               (href ,(page-path page)))
                            ,($ 'title page))
                         " "
                         (small (@ (class "date"))
                                "Posted on "
                                ,(format-seconds (page-updated page))))))
              (all-posts))))


;;; In hyde.scm:
(define (pages-matching regex)
  (map cdr (filter (lambda (p) (irregex-match regex (car p))) (pages))))

(define (all-posts)
  (sort-by (pages-matching '(: "posts/" (+ any) ".wiki")) page-updated))