;;; common.scm
;;; Copyright (C) 2010, 2011, 2012 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
 ((ice-9 rdelim) #:select (write-line))
 (ttn-do zzz xhtml-tree)
 ((ttn-do mark-up-news-excerpt) #:select (mark-up-news-excerpt))
 ((ttn-do zzz publishing) #:select (copyright-since
                                    update-page!)))

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

(define-macro (<format-NEWS>)
  (mark-up-news-excerpt
   "NEWS-excerpt"
   "http://download.savannah.nongnu.org/releases/guile-www/"))

(define (render o i)
  (update-page! i o write-line))

;;; common.scm ends here