(load (string-append laml-dir "laml.scm")) (laml-style "simple-xhtml1.0-transitional-validating")![]()
![]()
(define map (curry-generalized map))![]()
![]()
(define li-map (map li))![]()
![]()
(define my-list (list "My first item" "My second item" "My third item" "My fourth item"))![]()
![]()
(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)