(load (string-append laml-dir "laml.scm"))
(lib-load "xml-in-laml/xml-in-laml.scm")
(lib-load "xml-in-laml/mirrors/xhtml10-strict-mirror.scm")
(set! xml-validate-contents? #t)
(set! xml-check-attributes? #t)
(set-xml-transliterate-character-data-in 'xhtml10-strict #t)
(set-xml-accept-only-string-valued-attributes-in 'xhtml10-strict #t)
(define laml-url "http://www.cs.auc.dk/~normark/laml/")
(write-html 'pp
(html
(head
(title "HTML Mirror functions")
)
(body
(p "The following items all give rise to
the same HTML fragments:")
(let* ((my-attributes (list 'href laml-url))
(my-att-and-cont (cons "LAML" my-attributes))
(target-attributes
(append (list 'target "t") my-attributes))
)
(ol
(li (a 'href laml-url "LAML"))
(li (a "LAML" 'href laml-url))
(li (a (list "LAML" 'href laml-url)))
(li (a my-attributes "LAML"))
(li (a my-att-and-cont))
(li (a "LAML" target-attributes "Power"))
))
)
)
)
(end-laml)