(load (string-append laml-dir "laml.scm"))
(laml-style "simple-xhtml1.0-transitional-validating")

Show source file in small font In li-extensions: Link from meta-props to it's cross reference table entry 
(define meta-props (list 'http-equiv "Content-Type" 'content "text/html; charset=iso-8859-1")) Show source file in small font In li-extensions: Link from html-props to it's cross reference table entry 
(define html-props (list 'xmlns "http://www.w3.org/1999/xhtml")) (set! xml-validate-contents? #t) (set! xml-check-attributes? #t) Show source file in small font In li-extensions: Link from spacy-li to it's cross reference table entry 5.2. XML-in-LAML abstractions
(define spacy-li (xml-in-laml-abstraction (lambda (cont-list attr-prop-list) (li (p cont-list) attr-prop-list)))) Show source file in small font In li-extensions: Link from question-li to it's cross reference table entry 5.2. XML-in-LAML abstractions
(define question-li (xml-in-laml-abstraction (lambda (cont-list attr-prop-list) (let ((keywords (defaulted-get-prop 'keywords attr-prop-list ""))) (spacy-li (b cont-list) (br) (font 'size "2" keywords)))) (required-implied-attributes '(keywords) '() "question-li"))) Show source file in small font In li-extensions: Link from write-html-clause-li to it's cross reference table entry 5.2. XML-in-LAML abstractions
; write-html-clause-li (write-html '(raw prolog) (html html-props (head (meta meta-props) (title "TITLE")) (body (p "The first list:") (ul ; A linked program source marker to section 5.2:
'XML-in-LAML abstractions'
Mark char: a (spacy-li "The" "first" 'id "first" 'type "A") (spacy-li "The" "second" 'type "B")) (hr) (p "The second list:") (ol ; A linked program source marker to section 5.2:
'XML-in-LAML abstractions'
Mark char: b (question-li "The first exam question" 'keywords "lists, types") (question-li 'keywords "functions, recursion" "The second exam question" 'x "pip") ) (hr) (p "The third list:") (ol ; A program source marker WITHOUT a link to the documentation (question-li "The first" _ "," "second" _ "," "and third" "exam question" 'keywords "lists, types") (question-li 'keywords "functions, recursion" "The fourth exam question" 'x "pip") ) ) ) ) (end-laml)