;; -*- 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 ;;;; . ;;;; ;;; 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))))