(load (string-append laml-dir "laml.scm")) (laml-style "simple-html4.0-loose") (write-text-file (html (head (title "Table Abstractions")) (body (h1 "Table Abstractions") (table 'border "3" (tr (td 'width "50" 'valign "top" 'bgcolor "#ffffff" "Her") (td 'width "100" 'valign "top" 'bgcolor "#00ff00" "er") (td 'width "150" 'valign "top" 'bgcolor "#0000ff" "første")) (tr (td 'width "50" 'valign "top" 'bgcolor "#ffffff" "Her") (td 'width "100" 'valign "top" 'bgcolor "#00ff00" "er") (td 'width "150" 'valign "top" 'bgcolor "#0000ff" "anden")) (tr (td 'width "50" 'valign "top" 'bgcolor "#ffffff" "Her") (td 'width "100" 'valign "top" 'bgcolor "#00ff00" "er") (td 'width "150" 'valign "top" 'bgcolor "#0000ff" "tredie")) (tr (td 'width "50" 'valign "top" 'bgcolor "#ffffff" "Her") (td 'width "100" 'valign "top" 'bgcolor "#00ff00" "er") (td 'width "150" 'valign "top" 'bgcolor "#0000ff" "fjerde"))) ) ) (string-append (startup-directory) laml-source-file-name-without-extension ".html")) |