(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")![]()
![]()
; document-body ; Writing the cd archive to a file. (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)