(load (string-append laml-dir "laml.scm"))
(laml-style "simple-xhtml1.0-transitional-validating")
(define laml-generation-meta (meta 'name "Generator" 'content "LAML"))
(define meta-props (list 'http-equiv "Content-Type"
'content "text/html; charset=iso-8859-1"))
(define html-props (list 'xmlns "http://www.w3.org/1999/xhtml"))
(set-xml-accept-only-string-valued-attributes-in 'xhtml10-transitional #f)
(write-html '(pp prolog)
(html html-props
(head
(meta meta-props) laml-generation-meta
(title "Simple Page"))
(body
(p "Some" (em "emphasized") (b "text") _ ".")
(ol 'type "A" 'start 5
(li "Zero")
(map li
(list "First" "Second" "Last"))
)
)
)
)
(end-laml) |