(load (string-append laml-dir "laml.scm"))

; We here load the mirror libraries directly instead of relying
; on the simple LAML style "simple-xhtml1.0-strict-validating"
; via (laml-style "simple-xhtml1.0-strict-validating")

(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)

Show source file in large font In mirror1: Link from laml-url to it's cross reference table entry 2.1. Parameters
(define laml-url "http://www.cs.auc.dk/~normark/laml/") Show source file in large font In mirror1: Link from the-write-clause to it's cross reference table entry 2.1. Parameters 2.2. More Parameters
; the-write-clause ; Writing the HTML fragment to an HTML file. (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")) ; A linked program source marker to section 2.1:
'Parameters'
Mark char: b (li (a "LAML" 'href laml-url)) ; A linked program source marker to section 2.1:
'Parameters'
Mark char: c (li (a (list "LAML" 'href laml-url))) ; A linked program source marker to section 2.2:
'More Parameters'
The relation is ambiguous.
The other relevant section is 2.2
Mark char: d (li (a my-attributes "LAML")) ; A linked program source marker to section 2.2:
'More Parameters'
Mark char: e (li (a my-att-and-cont)) ; A program source marker WITHOUT a link to the documentation (li (a "LAML" target-attributes "Power")) ; A linked program source marker to section 2.2:
'More Parameters'
Mark char: g )) ) ) ) (end-laml)