;; -*- mode: scheme; coding: utf-8 -*-

;;;; Copyright (C) 2003 - 2015
;;;; Free Software Foundation, Inc.

;;;; This file is part of Guile-Clutter.

;;;; Guile-Clutter 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-Clutter 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-Clutter.  If not, see
;;;; <http://www.gnu.org/licenses/>.
;;;;

;;; Commentary:

;;; Code:


(use-modules (ice-9 match)
	     (template)
	     (globals)
	     (utils))


(define page
  `((h2 "About")

    (p "Guile-Clutter is a " ,(%guile-a) " wrapper for the "
,(color-string "ultra-hip") " " ,(%clutter-a) " library! " ,(%wiki-clutter-a
#:name "Clutter") " is a " ,(%wiki-scene-graph-a) " based canvas working
in " ,(%wiki-retained-mode-a) ". Every object on the scene is usually a 2D
surface inside a 3D space.")


     (p " Guile-Clutter brings the power of " ,(%guile-a) " Scheme to
your " ,(%clutter-a #:name "Clutter") " applications:")

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

    (p (@ (class "note"))
       (b "Note:") " of the available backend, we currently only support X11.
See " (rlink "docs/clutter-glx/html/index.html" "Guile-Clutter-GLX")
" documentation for details.")

    (p "Guile-Clutter is part of " ,(%gg-a #:name "GNU Guile-Gnome") ".")


    (h2 "Latest News")

    (latest-news)

    (p "See Guile-Clutter's " ,(%gc-git-a) " and " ,(%gc-git-log-a) " for
further details.")

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

    (h2 "Savannah")

    (p "We have a pending request for a Guile-Clutter specific "
,(%savannah-a) " project page.  It currently shares its GNU Savannah project
page with " ,(%gg-savannah-a #:name "Guile-Gnome") ".")

    (h2 "License")

    (p "Guile-Clutter 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-Clutter. 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-Clutter"
	       "Guile-Clutter"
	       ""
               #:transform-rules `((news . ,news)
                                   (latest-news *macro* . ,latest-news))))