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

;;; Commentary:

;; The modules (ttn-do ...) 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 (:LF
                                    w/o-<&>
                                    update-page!)))

(define (~~ssi filename)
  (list :LF
        "<!--#include virtual=\"" filename "\" -->"
        :LF))

(define (~~/// . elements)
  (define (closing elem)
    (list :LF "</" (symbol->string elem) ">"))
  (map closing elements))

(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://ftpmirror.gnu.org/guile-sdl/"))

(define (~~maintainers)
  "Thien-Thi Nguyen")

(define (gen! out in)
  (update-page! in out write-line))

;;; common.scm ends here