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

Show source file in small font In lists: 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 lists: Link from li-map to it's cross reference table entry 4.1. Ordered and unordered lists
(define li-map (map li)) Show source file in small font In lists: Link from my-list to it's cross reference table entry 4.1. Ordered and unordered lists
(define my-list (list "My first item" "My second item" "My third item" "My fourth item")) Show source file in small font In lists: Link from my-second-list to it's cross reference table entry 4.1. Ordered and unordered lists
(define my-second-list (list "*This is my first item" "Here is the second item" "The follows the third item" "*Finally fourth item")) (write-html '(raw prolog) (html (head (title "Ordered and unordered lists")) (body (h1 "Ordered and unordered lists") ; First list (ul (li "The first item") (li "The second item") (li "The third item")) ; Second list (ul (li-map (list "The first item" "The second item" "The third item"))) ; Third list (ul (li-map my-list)) ; Fourth list (let ((stared-items (lambda (str) (eq? (string-ref str 0) #\*)))) (ul (li-map (filter stared-items my-second-list)))) ))) (end-laml)