]> (define %root-filename% "index") (define %html-ext% ".html") (define %use-id-as-filename% #t) (define %stylesheet% "../images/style.css") (define %html-header-tags% '(("META" ("HTTP-EQUIV" "Content-Type")("CONTENT" "text/html; charset=UTF-8")))) (define %section-autolabel% #t) (define (toc-depth nd) (cond ((string=? (gi nd) (normalize "book")) 2) ((string=? (gi nd) (normalize "set")) 2) ((string=? (gi nd) (normalize "part")) 2) ((string=? (gi nd) (normalize "chapter")) 2) ((string=? (gi nd) (normalize "section")) 2) (else 1))) (define %spacing-paras% #f) (define %generate-article-toc% #t) (define %admon-graphics% #t) (define %admon-graphics-path% "../images/") (define %body-attr% (list (list "BGCOLOR" "#EBE4D6") (list "TEXT" "#000000")))