(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 'style "list-style-type: lower-roman;" (li "First line") (li "Second line") (li 'value "10" 'style "background-color: yellow; text-decoration: underline;" "Third line") (li "Final line") ) ) white black blue blue ) |