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

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

(define ttl "My Favorite Recipies")

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

    (div 'css:margin-bottom "2cm"
     (span (b "Recipe:") "Pita bread") (br)
     "Ingredients:"
     (ul
      (li "1.5 tsp dry yeast") (li "1 cup water")
      (li "1 tbs honey")       (li "1.5 tsp salt")
      (li "3 cups flour")
     )

     "Procedure:" 
     (ol
      (li "Dissolve the yeast")  (li "Add honey, folur and salt")
      (li "Oil the mixing bowl") (li "Punch the dough down")
      (li "Roll each ball to 0.5 inch thickness")
    ))

    (div 'css:margin-bottom "2cm"
     (span (b "Recipe:") "Apricot Compote") (br)
     "Ingredients:" (br)
     (ul
      (li "3 cups dried pears")
      (li "0.5 cups maple suryp")
      (li "1 cup water")
      (li "dash of salt")
      (li "2 cups heavy cream")
      )
     "Procedure:" (br)
     (ol
      (li "Cook the pears, sury and water")
      (li "Simer over low heat until soft")
      (li "Add salt")
      (li "Pure'e in blender")
      (li "Cool completely")
      (li "Add whiped cream and fold")
     ))))
)


(end-laml)