;; make html: guile -l index.scm -c '(make-html)'
(define page
`((h3 "Te ti!: A beginner's guide to Oshindonga")
(h4 (a (@ (href "http://wingolog.org/pub/te-ti/te-ti.pdf")) "PDF") " | "
(a (@ (href "http://wingolog.org/pub/te-ti/te-ti.sxw")) "SXW") " | "
(a (@ (href "http://www.schoolnet.na/languages/teti/")) "HTML"))
(p
"An introductory guide to the Oshindonga language, a
language in the Bantu family spoken by about 400,000 people in
Namibia. Also see the answer key ("
(a (@ (href "http://wingolog.org/pub/te-ti/te-ti-answer-key.pdf")) "PDF") ", "
(a (@ (href "http://wingolog.org/pub/te-ti/te-ti-answer-key.sxw")) "SXW")
") and the unfinished word list ("
(a (@ (href "http://wingolog.org/pub/te-ti/te-ti-glossary.doc")) "DOC") ", "
(a (@ (href "http://wingolog.org/pub/te-ti/te-ti-glossary.sxw")) "SXW")
").")
(p
"A companion book, "
(a (@ (href "http://wingolog.org/pub/hai-ti/")) (i "Hai ti!"))
", covers the Oshikwanyama language.")
(h3 "Managing Agricultural Water Impacts")
(h4 (a (@ (href "water/html/")) "HTML") " | "
(a (@ (href "water/water.ps")) "PostScript") " | "
(a (@ (href "water/water.pdf")) "PDF"))
(p
"Written for the capstone course of the "
(a (@ (href "http://www4.ncsu.edu/~jherkert/bfs.html"))
"Benjamin Franklin Scholars") " engineering-humanities "
"program, this document assesses the impact of agricultural activities "
"on the US water supply.")))
;; Now output the HTML
(use-modules (sxml simple))
(load "../template.scm")
(define xhtml-doctype
(string-append
"\n"))
(define (make-index)
(display xhtml-doctype)
(sxml->xml
(templatize page
"writings"
"writings"
"../")))