(define page
  '((h2 "(cons 'guile 'gnome)")

    (p
     "The " (code "guile-gnome") " project brings the power of Scheme to
your graphical application. " (code "guile-gnome") " modules support the
entire Gnome library stack: from Pango to GnomeCanvas, Gtk+ to
GStreamer, Glade to GtkSourceView, you will find in " (code "guile-gnome")
     " a comprehensive environment for developing modern applications.")

    (h3 (@ (style "text-align: center")) "latest news")

    (latest-news)

    (h4 (rlink "news/" "older news..."))))

(load "template.scm")

(define this-page page)
(load "news/index.scm")
(define news-page page)
(define page this-page)

(define (news tag args . body)
  `(div (h4 ,@(assq-ref (cdr args) 'date) ": "
            ,@(assq-ref (cdr args) 'title))
        (p ,@body)))

(define (latest-news . body)
  (cadr news-page))

(define (make-index)
  (output-html page "guile-gnome" "guile-gnome" ""
               #:transform-rules `((news . ,news)
                                   (latest-news *macro* . ,latest-news))))