(load (string-append laml-dir "laml.scm"))
(laml-style "simple-xhtml1.0-strict-validating")
(set! xml-validate-contents? #t)
(set! xml-check-attributes? #t)
(set-xml-accept-only-string-valued-attributes-in 'xhtml10-strict #t)
(load (in-startup-directory "cd-stuff.scm"))
(define page-title "My CD Archive")
(write-html '(raw)
(cd-archive
(cd-entry
(cd-number "1")
(cd-artist "Paul Simon")
(cd-title "Graceland")
(cd-playing-time 45 37)
)
(cd-entry
(cd-number "2")
(cd-artist "Elvis Presley")
(cd-title "Elvis Christmas Classics")
(cd-playing-time 37 38)
)
(cd-entry
(cd-number "3")
(cd-artist "Elvis Presley")
(cd-title "Elvis No1 Hits")
(cd-playing-time 63 45)
)
)
)
(end-laml)