(load (string-append laml-dir "laml.scm"))
(laml-style "simple-html4.01-transitional-validating")

Show source file in small font In more-tables: Link from map to it's cross reference table entry 4.2. Tables
(define map (curry-generalized map)) Show source file in small font In more-tables: Link from row to it's cross reference table entry 
(define row list) Show source file in small font In more-tables: Link from cell to it's cross reference table entry 4.3. More Tables
(define cell list) Show source file in small font In more-tables: Link from sample-table to it's cross reference table entry 4.3. More Tables
(define sample-table (list (row "This" "is" "row" "1") (row "This" "is" "row" "2") (row "This" "is" "row" "3") (row "This" "is" "row" "4"))) Show source file in small font In more-tables: Link from switch to it's cross reference table entry 4.3. More Tables
(define (switch row-lst) (cons (second row-lst) (cons (first row-lst) (cddr row-lst)))) Show source file in small font In more-tables: Link from grey-numeric to it's cross reference table entry 4.3. More Tables
(define (grey-numeric x) (if (and (string? x) (numeric-string? x)) (list x 'bgcolor (rgb-color 200 200 200)) x)) Show source file in small font In more-tables: Link from write-html-clause to it's cross reference table entry 4.3. More Tables
; write-html-clause (write-html 'raw (html (head (title "Demonstration of higher order functions together with tables") ) (body (p "Original table rendering:") (table (tbody (map (compose tr (map td)) sample-table)) 'border "1") (p "Switching the first and second column:") (table (tbody (map (compose tr (map td) switch) sample-table)) 'border "1") (p "Passing certain attribute values to given cells in the table :") (table 'border "1" (tbody (map (compose tr (map (compose td grey-numeric))) (list (row (cell "This" 'rowspan "2") "is" "row" "1") (row "is" "row" "2") (row "This" "is" "row" "3") (row "This" "is" "row" "4"))))) ) ))