(define page
  '((h2 "documentation")

    (doc "gobject" "(gnome gobject)"
         ". Also includes a basic tutorial, and documents the wrapset generator.")

    (doc "glib" "(gnome glib)")

    (doc "atk" "(gnome atk)")

    (doc "pango" "(gnome pango)")

    (doc "pangocairo" "(gnome pangocairo)")

    (doc "gdk" "(gnome gdk)")

    (doc "gtk" "(gnome gtk)")

    (doc "libglade" "(gnome glade)")

    (doc "gnome-vfs" "(gnome vfs)")

    (doc "libgnomecanvas" "(gnome canvas)")

    (doc "gconf" "(gnome gconf)")

    (doc "libgnome" "(gnome gnome)")

    (doc "libgnomeui" "(gnome ui)")

    (doc "corba" "(gnome corba)")

    (doc "clutter" "(gnome clutter)")

    (doc "clutter-glx" "(gnome clutter-glx)")))


(load "../template.scm")
(define (make-index)
  (output-html page "guile-gnome: docs" "documentation" "../"
               #:transform-rules
               `((doc
                  . ,(lambda (doc stem module . extra)
                       `(div 
                         (h3 ,stem " reference [ " (a (@ (href ,stem "/html/")) "html")
                             " | " (a (@ (href ,stem "/guile-gnome-" ,stem ".pdf")) "pdf")
                             " | " (a (@ (href ,stem "/")) "other formats") " ]")
                         (p "Reference for " (tt ,module)
                            ,@(if (pair? extra) extra '(".")))))))))