(load (string-append laml-dir "laml.scm")) (style "simple-html4.0-loose") (define (generic-page-2 tl bd c1 c2 c3 c4) (generic-page-1 tl (b (font-size 4 bd)) c1 c2 c3 c4)) (generic-page-2 "Attribute example" (con (ol 'css:list-style-type "lower-roman" (li "First line") (li "Second line") (li 'css:text-decoration "underline" 'value "10" 'css:background-color "yellow" "Third line") (li "Final line") ) ) white black blue blue ) |