(define page
  '((h2 "packages")

    (p "Guile-gnome consists of a number of modules. The modules that
wrap the " (a (@ (href "http://www.gnome.org/start/unstable/platform/"))
"GNOME Developer Platform") " are all distributed as one source package,
although if you lack the prerequisites for a given module, it won't be
built. Such packages are named like " (code
"guile-gnome-platform-X.Y.Z") ", where the numbering of X and Y
correspond to the major and minor versions of the GNOME platform.")

    (p "Modules that are not part of the developer platform are
distributed on their own, e.g. " (code "guile-gnome-gstreamer") ", and
are numbered to correspond with the API version of the library that they
wrap.")

    (h2 "releases")

    (p "Releases are available from our "
       (a (@ (href "http://ftp.gnu.org/pub/gnu/guile-gnome/"))
          "release area")
       " on gnu.org.")

    (h2 "ancient history")

    (p "For a while we made releases
on " (a (@ (href "http://download.gna.org/guile-gnome/")) "gna.org") ";
some non-platform packages have yet to be released on gnu.org and
so you might find tarballs there.")

    (p "Those readers with paleolithic fascinations can also find
old releases under the name " (code "guile-gobject") " by digging
in our source code archive.")))

(load "../template.scm")
(define (make-index)
  (output-html page "guile-gnome: download" "download" "../"))