(define page `((p "Guile-RSVG wraps the RSVG library for Guile, allowing you to render SVG images onto Cairo surfaces. See " (a (@ (href "http://www.nongnu.org/guile-cairo/")) "Guile-Cairo") " for more information.") (h3 "Getting Guile-RSVG") (h4 "Prerequisites") (p (a (@ (href "http://www.nongnu.org/guile-cairo/")) "guile-cairo")) (h4 "Releases") (p "The latest release can be found from Guile-RSVG's " (a (@ (href "//wingolog.org/pub/guile-rsvg/")) "release area") ".") (h4 "Development") (p "Pull the latest code from the " (a (@ (href "http://git-scm.com/")) "git") " repository via " (code "git clone git://gitorious.org/guile-rsvg/guile-rsvg.git") ". " "There are more options available at the " (a (@ (href "http://gitorious.org/guile-rsvg/")) "gitorious page") ".") (h3 "Documentation") (p "Guile-Rsvg is " (a (@ (href "//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-rsvg.pdf")) "PDF") ", online in Guile itself, or use " (tt "info guile-rsvg") " 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-rsvg" "projects" "../../")))