]> ;; Courtoisement du projet de documentation FreeBSD ;; Use tables to build the navigation headers and footers? (define %gentext-nav-use-tables% #t) ;; Default extension for HTML output files (define %html-ext% ".html") ;; Name for the root HTML document (define %root-filename% "index") ;; Should verbatim environments be shaded? (define %shade-verbatim% #t) ;; Write a manifest? (define html-manifest #t) ;; Are sections enumerated? ;;(define %section-autolabel% #t) ;; Use graphics in admonitions? (define %admon-graphics% #t) ;; Path to admonition graphics (define %admon-graphics-path% "images/") ;; Courtoisement de la part de S. Bortzmeyer (element urlsgml (make sequence (make element gi: "A" attributes: `(("HREF" ,(data (current-node))) (data (current-node)))) ) ) ;; l'extension par défaut en mode HTML (define %graphic-default-extension% "gif") ;; Use ID attributes as name for component HTML files? (Greg Ferguson) (define %use-id-as-filename% #t) ;; Custom headers (define %html-header-tags% '(("META" ("HTTP-EQUIV" "Content-Type") ("CONTENT" "text/html; charset=iso-8859-1")) ("META" ("NAME" "Author") ("CONTENT" "Bruno Cornec")) ("META" ("NAME" "KeyWords") ("CONTENT" "Linux,HP,Medasys,HP-UX,Hewlett,Packard,France"))) ) ;; Ne montre pas les liens (define %show-ulinks% #f) ;; liens en bas de page ? (define %footnote-ulinks% #t) ;; Are sections enumerated? ;;(define %section-autolabel% #t) ;; Use graphics in admonitions? (define %admon-graphics% #t) ;; Path to admonition graphics (define %admon-graphics-path% "images/") (define ($admon-graphic$ #!optional (nd (current-node))) (cond ((equal? (gi nd) (normalize "tip")) (string-append %admon-graphics-path% "tip.eps")) ((equal? (gi nd) (normalize "note")) (string-append %admon-graphics-path% "note.eps")) ((equal? (gi nd) (normalize "important")) (string-append %admon-graphics-path% "important.eps")) ((equal? (gi nd) (normalize "caution")) (string-append %admon-graphics-path% "caution.eps")) ((equal? (gi nd) (normalize "warning")) (string-append %admon-graphics-path% "warning.eps")) (else (error (string-append (gi nd) " is not an admonition."))))) ;; To make the following item work (define tex-backend #t) ;; Make "bottom-of-page" footnotes? (define bop-footnotes #f) ;; Allow justification (define %default-quadding% 'justify) ;; Allow automatic hyphenation? (define %hyphenation% #t) ;; urlsgml ne fait rien dans ce mode (element urlsgml ($mono-seq$)) ;; l'extension par défaut en mode print (define %graphic-default-extension% "eps") ;; Un seul morceau (define nochunks #t) ;; pas de manifest (define %html-manifest% #f)