(load (string-append laml-dir "laml.scm")) (lib-load "html4.0-loose/basis.scm") (lib-load "html4.0-loose/surface.scm") (lib-load "html4.0-loose/convenience.scm") (lib-load "file-read.scm") (define (html-write html-string) (write-text-file html-string (string-append (startup-directory) (source-filename-without-extension) "." "html") ) ) (define row list) (define (html-page ttl . body-forms) (html (title ttl) (apply body (cons (h1 ttl) body-forms)))) ; Assume at least one row (define (table-by-rows border . rows) (let ((first-row (car rows)) (other-rows (cdr rows))) (html4:table (string-append (table-row first-row #t) (apply string-append (map (lambda (row) (table-row row #f)) other-rows))) 'border border))) (define (table-row lst header?) (html4:tr (apply string-append (map (lambda (cell) ((if header? html4:th html4:td) (as-string cell))) lst)))) |