(define page `((div (@ (style "text-align: center")) (a (@ (href "./guile-charting-large.png")) (img (@ (src "./guile-charting-large.png") (style "max-width: 100%"))))) (p "Guile-Charting is a library to create charts and graphs in Guile. It is thus far a hack, but there are interesting things in it.") (h3 "Getting Guile-Charting") (p "The latest release can be found from Guile-Charting's " (a (@ (href "//wingolog.org/pub/guile-charting/")) "release area") ". If you want to hack Guile-Charting, you can pull the code from the " (a (@ (href "http://git-scm.com/")) "git") " repository via " (code "git clone " (a (@ (href "https://gitorious.org/guile-charting/guile-charting")) "https://gitorious.org/guile-charting/guile-charting.git")) ". You will need to have installed " (a (@ (href "http://www.nongnu.org/guile-cairo/")) "Guile-Cairo") " for things to work.") (h3 "Documentation") (p "Guile-Charting 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-charting.pdf")) "PDF") ", online in Guile itself, or use " (tt "info guile-charting") " once you install the package.") (h3 "Feedback") (p "I don't plan on being a responsive maintainer on this, but if you are struck with a brain wave, accompanied with a patch, send it to " (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-charting" "projects" "../../")))