;; -*- mode: scheme; coding: utf-8 -*- ;;;; Copyright (C) 2003 - 2017 ;;;; 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 ;;;; . ;;;; ;;; Commentary: ;;; Code: (use-modules (ice-9 match) (template) (globals) (utils)) (define page `((h2 "About") (p ,(%gg-a) " 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") (li "Gobject, Glib, Atk, Pango, Pangocairo, Gdk, Gdk-Pixbuf, Gtk, Libglade, Libgnome, Libgnomecanvas, Libgnomeui")) (p ,(%gg-a) " 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") ")") (h4 "Guile-Clutter") (p ,(%gg-a) " also has a " ,(%guile-a) " wrapper for the " ,(color-string "ultra-hip") " " ,(%clutter-a) " library, " ,(%gc-a #:name "here") ".") (h2 "Latest News") (latest-news) (p "This and older news are available" (rlink "news.html" " here") ".") (h2 "Savannah") (p ,(%gg-a) " also has a " ,(%gg-savannah-a) ".") (h2 "License") (p ,(%gg-a) " 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 " ,(%gg-a) ". 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))))