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

Show source file in small font In element-mod: Link from normark-url to it's cross reference table entry 
(define normark-url "http://www.cs.auc.dk/~normark/") Show source file in small font In element-mod: Link from ol-alpha to it's cross reference table entry 3.1. Element Modification
(define ol-alpha (xml-modify-element ol 'type "A")) Show source file in small font In element-mod: Link from a-target to it's cross reference table entry 3.1. Element Modification
(define (a-target t) (xml-modify-element a 'target t)) Show source file in small font In element-mod: Link from ol-attributes to it's cross reference table entry 3.1. Element Modification
(define ol-attributes (list 'css:list-style-type "lower-roman" 'start "3")) Show source file in small font In element-mod: Link from ol-roman-3 to it's cross reference table entry 3.1. Element Modification
(define ol-roman-3 (xml-modify-element ol ol-attributes)) Show source file in small font In element-mod: Link from sli to it's cross reference table entry 3.1. Element Modification
(define sli (xml-modify-element li (p))) Show source file in small font In element-mod: Link from !!-li to it's cross reference table entry 3.1. Element Modification
(define !!-li (xml-modify-element-prepend li "!!")) (write-html '(prolog raw) (html (head (title "Element Modification Examples")) (body (h1 "Element Modification Examples") (hr) (p "Using ol-alpha:") (ol-alpha (li "One") (li "Two") (li "Three")) (hr) (p "Using a-target - will show target page in new window:") ((a-target "new") 'href normark-url "Kurt Nørmark") (hr) (p "Ordered list with roman numbers - starting from 3 - with ol-roman-3:") (ol-roman-3 (li "One") (li "Two") (li "Three")) (hr) (p "Spacy lists with sli :") (ul (sli "One") (sli "Two") (sli "Three")) (hr) (p "lists with !!-li :") (ul (!!-li "One") (!!-li "Two") (!!-li "Three")) (hr) ))) (end-laml)