(define stem (basename (getcwd)))
(define module (string-append "(gnome " stem ")"))
(define file (string-append "guile-gnome- " stem))
(define page
  `((h2 ,module " reference")

    (p "The " ,module " reference manual is available in the following "
       "formats:")

    (ul ;; (li (a (@ (href "html/")) "HTML, entirely on one web page"))
        (li (a (@ (href "html/")) "HTML, with one web page per node"))
        (li (a (@ (href ,file ".info.tar.gz")) "Info document, in a gzipped tar file"))
        (li (a (@ (href ,file ".ps.gz")) "PostScript file, gzipped"))
        (li (a (@ (href ,file ".dvi.gz")) "TeX DVI file, gzipped"))
        (li (a (@ (href ,file ".pdf")) "PDF file"))
        (li (a (@ (href ,file ".texi.tar.gz")) "Texinfo source, in a gzipped tar file"))
        )
    ))

(load "../../template.scm")
(define (make-index)
  (output-html page "guile-gnome: docs" (string-append module " reference") "../../"))