Back to slide Keyboard shortcut: 'u' 

(load (string-append laml-dir "laml.scm"))
(style "simple-html4.0-loose")
(lib-load "color.scm")
(load (string-append laml-dir "tools/xml-html-support/html-support.scm"))

(define (www-document ttl bd background-color)
  (write-text-file
   (pretty-print-html-parse-tree
    (parse-html-string
     (html
      (head 
       (title ttl)
       )
      (body 'bgcolor (rgb-color-list background-color) bd))))
   (full-source-path-with-extension "html")))


(www-document
  "This is the document title"
  (con 
   (h1 "Document title")

   (p "Here is the first paragraph of the document")

   (p "The second paragraph has an" (em "emphasized item")
      "and a" (em "bold face item")_"."))

  red)