;; -*- 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 (ice-9 match)
	     (template)
	     (globals)
	     (utils))


(define page
  `((h2 "About")

    (p "Guile-Gnome is a " ,(%guile-a) " wrapper collection"
       #;(sup (a (@ (href "#fn-1")) "1"))
       " for the following " ,(%gnome-core-libs-ref-a) ":")

    (ul (@ (class "code"))
	(li "Gobject, Glib, Atk, Pango, Pangocairo, Gdk, Gdk-Pixbuf, Gtk,
Libglade, Gnome-Vfs, Libgnome, Libgnomecanvas, Libgnomeui, Corba"))

    (p " Guile-Gnome brings the power of " ,(%guile-a) " Scheme to your graphical
application, providing a comprehensive environment for developing modern applications:")

    (p (@ (style ,(string-append
		   "text-align: center;"
		   #;"background-color: black;"
		   "font-size: 1.1em;"
		   "font-weight: bold")))
       "(cons " ,(color-string "'guile 'gnome") ")")

    (h2 "Latest News")

    (latest-news)

    (p "See Guile-Gnome's " ,(%gg-git-sum-a) " and " ,(%gg-git-log-a) " for
further details.")

    (p "This and older news are available"
       (rlink "news.html" " here") ".")

    (h2 "Savannah")

    (p "Guile-Gnome also has a " ,(%gg-savannah-a) ".")

    (h2 "License")

    (p "Guile-Gnome is a free software, distributed under the terms of the
GNU General Public License " ,(%gpl-2-a) " or higher. You must be aware
there is no warranty whatsoever for Guile-Gnome. This is described in full
in the licenses.")))

(define this-page page)
(load "news.scm")
(define news-page page)
(define page this-page)

(define (latest-news . body)
  (match news-page
    ((title latest . rest) latest)))

(define (make-index)
  (output-html page
	       "Guile-Gnome"
	       "Guile-Gnome"
	       ""
               #:transform-rules `((news . ,news)
                                   (latest-news *macro* . ,latest-news))))