(define page
  '((h2 "contact information")

    (h3 "Mailing list")
    
    (p (code "guile-gnome") " is currently sharing a mailing list with "
       (code (a (@ (href "http://www.gnu.org/software/guile-gtk/")) "guile-gtk"))
       ", " (a (@ (href "http://mail.gnu.org/mailman/listinfo/guile-gtk-general/"))
               (code "guile-gtk-general@gnu.org"))
       ". You can subscribe, unsubscribe, and read an archive of the list at "
       "that location.")

    (h3 "IRC")

    (p "You can sometimes find some of the hackers hanging out
on " (code "#guile") " on irc.freenode.net.")))


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