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

  
(define normark-url "http://www.cs.auc.dk/~normark/")

   
(define ol-alpha (xml-modify-element ol 'type "A"))
   
(define (a-target t) (xml-modify-element a 'target t))

   
(define ol-attributes 
    (list 'css:list-style-type "lower-roman" 'start "3"))

   
(define ol-roman-3 (xml-modify-element ol ol-attributes))

   
(define sli (xml-modify-element li (p)))

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