source: project/gazette/hyde.scm @ 19902

(use hyde hyde-atom environments)

(define $ (environment-ref (page-eval-env) '$))

(define (page-updated page)
  (or ($ 'updated page) ($ 'date page)))

(define (sort-by pages accessor)
  (sort pages (lambda (p1 p2) (> (accessor p1) (accessor p2)))))

(define (pages-matching regex)
  (map cdr (filter (lambda (p) (string-match regex (car p)))
                   (environment-ref (page-eval-env) 'pages))))

(for-each (lambda (binding)
            (apply environment-extend! (cons (page-eval-env) binding)))
          `((page-updated ,page-updated)
            (all-issues ,(lambda ()
                           (sort-by (pages-matching "issues/.+") page-updated)))))