tables-1.laml - Entire document.

Slide 17 : 26 Program 1

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

(define map (curry-generalized map))
(define row list)  (define cell list)

(write-html '(pp prolog)
 (html 
  (head 
   (title "Table Examples"))
  (body 
    (table 
	 'border "1" 
	 (map (compose tr (map td))
	       (list
		(row (cell "This" 'rowspan "2") "is" "row" "1")
		(row                            "is" "row" "2")
		(row "This"                     "is" "row" "3")
		(row (cell "This is" 'colspan "2")   "row" "4"))) ) )))

(end-laml)