(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)![]()
![]()
(define laml-url "http://www.cs.auc.dk/~normark/laml/")![]()
![]()
![]()
; 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")) ;(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)