;;; common.scm
;;; Copyright (C) 2010, 2011 Thien-Thi Nguyen
;;; This file is provided under GPLv3+.

;;; Commentary:

;; The modules (ttn-do zzz ...) are GPLv3+, from ttn-do:
;;  <http://www.gnuvola.org/software/ttn-do/>

;;; Code:

(use-modules
 (ttn-do zzz xhtml-tree)
 ((ttn-do zzz publishing) #:select (copyright-since
                                    update-page!)))

(define (~~meta-last-modified)
  (~meta 'http-equiv "Last-Modified"
         'content "<!--#echo var='LAST_MODIFIED' -->"))

(define (~~source first . rest)
  (define (ref x)
    (~a 'href x (~samp x)))
  (list "(source: "
        (ref first)
        (map (lambda (filename)
               (list ", " (ref filename)))
             rest)
        ")"))

;;; common.scm ends here