(define page
  '((h2 "links")

    (h3 "Other guile projects")

    (dl (dt (a (@ (href "http://www.gnu.org/software/guile-gtk/"))
               "guile-gtk"))
        (dd (code "guile-gtk") " is the old branch that covers Gtk+-1.2."))

    (h3 "Supporting projects")

    (dl (dt (a (@ (href "http://www.gtk.org/")) "Gtk+"))
        (dd "The GIMP toolkit.")

        (dt (a (@ (href "http://www.gnome.org/")) "Gnome"))
        (dd "The GNOME project.")

        (dt (a (@ (href "http://www.gnu.org/software/guile/")) "Guile"))
        (dd "Guile, an embeddable Scheme interpreter."))

    (h3 "Scheme-related links")

    (dl (dt (a (@ (href "http://www.scheme.org/")) "scheme.org"))
        (dd "Our beautiful language :-)"))

    (h3 "Applications")

    (dl (dt (a (@ (href "http://ambient.2y.net/soundscrape/"))
               "Soundscrape"))
        (dd "A programmatic modular synthesizer in the tradition of "
            (a (@ (href "http://supercollider.sf.net/")) "SuperCollider")
            ". Constructs synthesis networks from programmatic Scheme, "
            "but runs them with all the speed of C.")

        (dt (a (@ (href "http://wingolog.org/software/photoblogger/"))
               "Photoblogger"))
        (dd "A simple app to help you post photos on a web log."))

    (p "If you know of one we've left out, please "
       (a (@ (href "../contact/")) "let us know."))))


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