Back to slide -- Keyboard shortcut: 'u'        next  Slide 6 : 18
Program 1

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

(define laml-generation-meta (meta 'name "Generator" 'content "LAML"))
(define meta-props (list 'http-equiv "Content-Type" 
                         'content "text/html; charset=iso-8859-1"))
(define html-props (list 'xmlns "http://www.w3.org/1999/xhtml"))

(set-xml-accept-only-string-valued-attributes-in 'xhtml10-transitional #f)

(write-html '(pp prolog)
 (html  html-props
  (head   
   (meta  meta-props) laml-generation-meta
   (title  "Simple Page"))
  (body  
    (p  "Some" (em "emphasized") (b  "text") _ ".")

    (ol  'type "A" 'start 5
     (li  "Zero")
     (map li  
      (list "First" "Second" "Last"))
    )
  )
 )
)

(end-laml)