]]> ]]> ]> (define %gentext-nav-use-tables% ;; Use tables to build the navigation headers and footers? #t) (define %html-ext% ;; Default extension for HTML output files ".htm") (define %shade-verbatim% ;; Should verbatim environments be shaded? #f) (define %use-id-as-filename% ;; Use ID attributes as name for component HTML files? #t) (define %root-filename% ;; Name for the root HTML document "index") (define html-manifest ;; Write a manifest? #f) (element segmentedlist (make element gi: "TABLE" (process-children))) (element seglistitem (make element gi: "TR" (process-children))) (element seg (make element gi: "TD" attributes: '(("VALIGN" "TOP")) (process-children))) (define ($email-footer$) (empty-sosofo)) (define ($html-body-end$) (if (equal? $email-footer$ (normalize "")) (empty-sosofo) (make sequence (if nochunks (make empty-element gi: "hr") (empty-sosofo)) (make element gi: "p" attributes: (list (list "align" "center")) (make element gi: "small" ($email-footer$)))))) ]]> (define %section-autolabel% #t) (define %may-format-variablelist-as-table% #f) (define %indent-programlisting-lines% " ") (define %indent-screen-lines% " ") (define (toc-depth nd) (if (string=? (gi nd) (normalize "book")) 7 1)) (define (article-titlepage-recto-elements) (list (normalize "title") (normalize "subtitle") (normalize "corpauthor") (normalize "authorgroup") (normalize "author") (normalize "releaseinfo") (normalize "copyright") (normalize "pubdate") (normalize "revhistory") (normalize "legalnotice") (normalize "abstract"))) (element sgmltag ($mono-seq$ (make sequence (literal "<") (process-children) (literal ">")))) (element command ($mono-seq$)) (element application ($bold-seq$)) (element warning ($admonition$)) (element (warning title) (empty-sosofo)) (element (warning para) ($admonpara$)) (element (warning simpara) ($admonpara$)) (element caution ($admonition$)) (element (caution title) (empty-sosofo)) (element (caution para) ($admonpara$)) (element (caution simpara) ($admonpara$)) (define en-warning-label-title-sep ": ") (define en-caution-label-title-sep ": ") (element hostid ($mono-seq$)) (element username ($mono-seq$)) (element devicename ($mono-seq$)) (element maketarget ($mono-seq$)) (element makevar ($mono-seq$)) (define (qanda-defaultlabel) (normalize "qanda"))