;; -*- mode: scheme; coding: utf-8 -*-

;;;; Copyright (C) 2003 - 2015
;;;; Free Software Foundation, Inc.

;;;; This file is part of Guile-Gnome.

;;;; Guile-Gnome is free software: you can redistribute it and/or modify
;;;; it under the terms of the GNU General Public License as published
;;;; by the Free Software Foundation, either version 3 of the License,
;;;; or (at your option) any later version.

;;;; Guile-Gnome is distributed in the hope that it will be useful, but
;;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
;;;; General Public License for more details.

;;;; You should have received a copy of the GNU General Public License
;;;; along with Guile-Gnome.  If not, see
;;;; <http://www.gnu.org/licenses/>.
;;;;

;;; Commentary:

;;; Code:


(use-modules (template)
	     (globals))


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

    (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/index.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"))
        )
    ))

(define (make-index)
  (output-html page
	       "Guile-Gnome"
	       ""
	       "../../"))