;; make html: guile -l index.scm -c '(make-html)'
(define page
`((p "What's this, an about page? That's one of those things
responsible people make, right?")
(p "I suspect here we should have a photo of me, mostly my face,
appearing knowledgeable. Or witty. Caring? Hard-nosed? The prototypal
patriarch: strong, and silent? Or are these too many words already?")
(p "Well, never mind that. Time and text flow to a new topic: work!
Here I mention my current job, along with an illustrious series of past
positions. Let us not forget the academic qualifications, up-puffed and
capitalized, and perhaps a couple of quirky things...")
(p "Or maybe we save the quirky things for this paragraph. Unusual
adjectival noun-noun pairs: something outdoorsy perhaps? Or urban
spelunkery? Yes, verily is your author a beautiful snowflake, a
pretty pretty prince and/or princess.")
(p "Or, or: perhaps we leave the spelunkery to the reader. "
(a (@ (href "../tags")) "Hither") ", & "
(a (@ (href "../photos/")) "thither") ", & "
(a (@ (href "mailto:wingo@pobox.com")) "yon") ". Yes. Let us
leave it at that.")))
;; 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
"about"
"about"
"../")))