;; make html: guile -l index.scm -c '(make-html)'
(define page
`((p
"Hi. I'm Andy Wingo. Welcome to my site.")
(p
"I'm a computer programmer, a teacher, and a lazy house-cleaner, to
varying degrees of professionalism. I'm a picker of stringed
instruments, a coffee drinker, a traveller, and an idle sunday dreamer.
I putter about.")
(p
"As I write this in September of 2006, I realize that it's been a
couple years since I updated this page. So when I say to you that I am
now living in Barcelona working as a computer programmer, time adds
doubt to my words. More current words, if not more coherent, can be
found on my " (a (@ (href "../")) "web log thing") ".")
(p
"Before moving to Spain in the beginning of 2005, I spent a couple
years working in rural northern Namibia. I taught math and science to
high school students, and got a fair amount of free software
programming done at night. Before that, I was
at " (a (@ (href "http://www.ncsu.edu/")) "university") ", on the
five-year plan. I studied nuclear engineering, physics, and
Spanish.")
(p
"Since leaving university, I realized that my passion and skills
lie in computer programming. I'm currently hacking on streaming video
software for " (a (@ (href "http://www.fluendo.com/")) "Fluendo") ", a
small Barcelona-based company.")
(p
"Well, there's more to existence than a few paragraphs can
summarize. Thanks for coming around, and if you need to get in
contact with me, my email address is "
(code "wingo at pobox dot com") ".")
(p "-- Andy")))
;; 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"
"../")))