(define page `((p "Guile-Present defines a declarative vocabulary for presentations, together with tools to render presentation documents as SVG or PDF. Guile-Present can be used to make presentations programmatically, but also includes a tool to generate a PDF presentation out of an " (a (@ (href "http://staff.science.uva.nl/~dominik/Tools/org/")) "Org mode") " document.") (h3 "Interesting fact") (p "Guile-Present is written in a pure-functional subset of Scheme. Doing layout in a functional language turns out to be interesting enough for me to have " (a (@ (href "http://wingolog.org/pub/fold-and-xml-transformation.pdf")) "written a paper") " about it.") (h3 "Getting Guile-Present") (h4 "Prerequisites") (p (a (@ (href "http://home.gna.org/guile-lib/")) "guile-lib") ", available under Debian/Ubuntu as \"guile-library\".") (h4 "Releases") (p "The latest release can be found from Guile-Present's " (a (@ (href "http://wingolog.org/pub/guile-present/")) "release area") ".") (h4 "Development") (p "Pull the latest code from the " (a (@ (href "http://bazaar-vcs.org/")) "bzr") " repository via " (code "bzr get http://wingolog.org/bzr/guile-present") ".") (h3 "Documentation") (p "Guile-Present is " (a (@ (href "http://wingolog.org/archives/2006/11/17/high-on-sodium-vapor")) "self-documented") ", check the reference in " (a (@ (href "doc/")) "HTML format") " or " (a (@ (href "guile-present.pdf")) "PDF") ", online in Guile itself, or use " (tt "info guile-present") " once you install the package.") (h3 "Feedback") (p "Send me an email at " (code "wingo at pobox.com") "."))) ;; Now output the HTML (use-modules (sxml simple) (sxml transform)) (load "../../template.scm") (define xhtml-doctype (string-append "\n")) (define (make-index) (display xhtml-doctype) (sxml->xml (templatize page "guile-present" "software" "../../")))