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

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

(define current-xml-language 'xhtml10-transitional)
(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"))

(write-html '(pp prolog)
 (html html-props
  (head 
   (meta meta-props) laml-generation-meta
   (title "Mirror Examples"))
  (body 
   (h1 "Mirror Examples")

   (a 'href "http://www.alu.org" "Association of Lisp Users")

   (p "Some" (em "emphasized") 'id "p1" (char-ref "quot") _ "text" _ (char-ref "quot"))

   (p "This" "is" "a" "paragraph" _ ".")
   
   (ol (li "One") (map li '("Two" "Three")) (list 'start "10") )
  

  )
 )
)


(end-laml)