;; -*- 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 page
  '((h2 "Contact")

    (p "Guile-Gnome has a " (a (@ (href "mailto:guile-gtk-general@gnu.org"))
			       "mailing list")
       ", which for historical reasons, still is the one that was created and used 
for the " (a (@ (href "http://www.gnu.org/software/guile-gtk/")) "Guile-Gtk")
    " project. Please send us your questions, patches and/or requests for 
improvements there.  You may subscribe, unsubscribe and read the archives "
       (a (@ (href "http://mail.gnu.org/mailman/listinfo/guile-gtk-general/"))
	  "here") ".")

    (h2 "Bugs")

    (p "Guile-Gnome  has a "
       (a (@ (href "https://bugzilla.gnome.org/page.cgi?id=browse.html&product=guile-gnome"))
	  "bug tracker") ". You may submit bug reports using the bug tracker
 or, if it's easier for you, using the "
	  (a (@ (href "mailto:guile-gtk-general@gnu.org")) "mailing list") ".")

    (h2 "IRC")

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


(define (make-index)
  (output-html page
	       "Guile-Gnome"
	       "Contact" ""
	       #:scm-path "contact.scm"))