]> ;; From documentation projet of 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/") ;; l'extension par défaut en mode HTML (define %graphic-default-extension% "png") ;; From ldp.dsl ;; Should a Table of Contents be produced for parts? (define %generate-part-toc% #t) ;; Use ID attributes as name for component HTML files? (Greg Ferguson) (define %use-id-as-filename% #t) (define (list-element-list) ;; fixes bug in Table of Contents generation '()) (element emphasis ;; make role=strong equate to bold for emphasis tag (if (equal? (attribute-string "role") "strong") (make element gi: "STRONG" (process-children)) (make element gi: "EM" (process-children)))) ;; 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,Disaster Recovery, Mondo, Mindi, MondoRescue"))) ) ;; --------------------- ;; Navigation Icons ;; --------------------- ;; ;; Redefine links as graphic icons instead of text ;; ;; (Overrides definitions in common/dbl1en.dsl) ;; (define (gentext-en-nav-prev prev) (make empty-element gi: "IMG" attributes: '(("SRC" "images/prev.png") ("BORDER" "0") ("ALT" "Previous")))) (define (gentext-en-nav-next next) (make empty-element gi: "IMG" attributes: '(("SRC" "images/next.png") ("BORDER" "0") ("ALT" "Next")))) (define (gentext-en-nav-up up) (make empty-element gi: "IMG" attributes: '(("SRC" "images/up.png") ("BORDER" "0") ("ALT" "Up")))) (define (gentext-en-nav-home home) (make empty-element gi: "IMG" attributes: '(("SRC" "images/home.png") ("BORDER" "0") ("ALT" "Home")))) ;; ;; ;;================================================================= ;; End of navigation icons section ;;================================================================= ;;================================================================= ;; NAVIGATION HEADER TABLES ;;================================================================= ;; ;; ;; Rearrange navigation header to put bigger jumps at outside edge ;; ;; (Overrides stuff defined in html/dbnavig.dsl) ;; ;; ;;================================================================= ;;================================================================= ;; ;; (define (default-header-nav-tbl-ff elemnode prev next prevsib nextsib) (let* ((r1? (nav-banner? elemnode)) (r1-sosofo (make element gi: "TR" (make element gi: "TH" attributes: (list (list "COLSPAN" "5") (list "ALIGN" "center") (list "VALIGN" "bottom")) (nav-banner elemnode)))) (r2? (or (not (node-list-empty? prev)) (not (node-list-empty? next)) (not (node-list-empty? prevsib)) (not (node-list-empty? nextsib)) (nav-context? elemnode))) (r2-sosofo (make element gi: "TR" ;; constructs Fast-Backward link (make element gi: "TD" attributes: (list (list "WIDTH" "10%") (list "ALIGN" "left") (list "VALIGN" "top")) (if (node-list-empty? prevsib) (make entity-ref name: "nbsp") (make element gi: "A" attributes: (list (list "HREF" (href-to prevsib))) (gentext-nav-prev-sibling prevsib)))) ;; constructs Previous link (make element gi: "TD" attributes: (list (list "WIDTH" "10%") (list "ALIGN" "left") (list "VALIGN" "top")) (if (node-list-empty? prev) (make entity-ref name: "nbsp") (make element gi: "A" attributes: (list (list "HREF" (href-to prev))) (gentext-nav-prev prev)))) ;; center part: navigation context, title, etc. (make element gi: "TD" attributes: (list (list "WIDTH" "60%") (list "ALIGN" "center") (list "VALIGN" "bottom")) (nav-context elemnode)) ;; constructs Next link (make element gi: "TD" attributes: (list (list "WIDTH" "10%") (list "ALIGN" "right") (list "VALIGN" "top")) (if (node-list-empty? next) (make entity-ref name: "nbsp") (make element gi: "A" attributes: (list (list "HREF" (href-to next))) (gentext-nav-next next)))) ;; constructs Fast-Forward link (make element gi: "TD" attributes: (list (list "WIDTH" "10%") (list "ALIGN" "right") (list "VALIGN" "top")) (if (node-list-empty? nextsib) (make entity-ref name: "nbsp") (make element gi: "A" attributes: (list (list "HREF" (href-to nextsib))) (gentext-nav-next-sibling nextsib)))) ))) (if (or r1? r2?) (make element gi: "DIV" attributes: '(("CLASS" "NAVHEADER")) (make element gi: "TABLE" attributes: (list (list "WIDTH" %gentext-nav-tblwidth%) (list "BORDER" "0") (list "CELLPADDING" "0") (list "CELLSPACING" "0")) (if r1? r1-sosofo (empty-sosofo)) (if r2? r2-sosofo (empty-sosofo))) (make empty-element gi: "HR" attributes: (list (list "ALIGN" "LEFT") (list "WIDTH" %gentext-nav-tblwidth%)))) (empty-sosofo)))) ;; ;; ;;================================================================= ;; Bookmark generation for PDF (declare-characteristic heading-level "UNREGISTERED::James Clark//Characteristic::heading-level" 2) ;;; To make URLs line wrap we use the TeX 'url' package. ;;; See also: jadetex.cfg ;; First we need to declare the 'formatting-instruction' flow class. ;; (declare-flow-object-class formatting-instruction ;; "UNREGISTERED::James Clark//Flow Object Class::formatting-instruction") ;; Then redefine ulink to use it. ;; (element ulink ;; (make sequence ;; (if (node-list-empty? (children (current-node))) ;; ; ulink url="...", /ulink ;; (make formatting-instruction ;; data: (string-append "\\url{" ;; (attribute-string (normalize "url")) ;; "}")) ;; (if (equal? (attribute-string (normalize "url")) ;; (data-of (current-node))) ;; ; ulink url="http://...", http://..., /ulink ;; (make formatting-instruction data: ;; (string-append "\\url{" ;; (attribute-string (normalize "url")) ;; "}")) ;; ; ulink url="http://...", some text, /ulink ;; (make sequence ;; ($charseq$) ;; (literal " (") ;; (make formatting-instruction data: ;; (string-append "\\url{" ;; (attribute-string (normalize "url")) ;; "}")) ;; (literal ")")))))) ;;; And redefine filename to use it too. ;; (element filename ;; (make formatting-instruction ;; data: (string-append "\\path{" (data-of (current-node)) "}"))) ;; Ne montre pas les liens (define %show-ulinks% #f) ;; 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.png")) ((equal? (gi nd) (normalize "note")) (string-append %admon-graphics-path% "note.png")) ((equal? (gi nd) (normalize "important")) (string-append %admon-graphics-path% "important.png")) ((equal? (gi nd) (normalize "caution")) (string-append %admon-graphics-path% "caution.png")) ((equal? (gi nd) (normalize "warning")) (string-append %admon-graphics-path% "warning.png")) (else (error (string-append (gi nd) " is not an admonition."))))) ;; No recto-verso (define %two-side% #f) ;; links for URLs ? (define %footnote-ulinks% #t) ;; Make "bottom-of-page" footnotes? (define bop-footnotes #t) (define tex-backend #t) ;; Allow justification (define %default-quadding% 'justify) ;; Allow automatic hyphenation? (define %hyphenation% #t) ;; défaut extension (print mode) (define %graphic-default-extension% "eps") ;; From Norman Walsh (define (book-titlepage-recto-elements) (list (normalize "title") (normalize "subtitle") (normalize "graphic") (normalize "mediaobject") (normalize "corpauthor") (normalize "authorgroup") (normalize "author") (normalize "editor") ;;(normalize "copyright") (normalize "printhistory") ;; add this... ;; (normalize "revhistory") ;;(normalize "abstract") ;;(normalize "releaseinfo") (normalize "pubdate") ;;(normalize "legalnotice") )) ;; From ldp.dsl (define %body-start-indent% ;; Default indent of body text 0pi) (define %para-indent-firstpara% ;; First line start-indent for the first paragraph 0pt) (define %para-indent% ;; First line start-indent for paragraphs (other than the first) 0pt) (define %block-start-indent% ;; Extra start-indent for block-elements 0pt) ;; l'extension par défaut en mode HTML (define %graphic-default-extension% "png") ;; Pour PDF (declare-characteristic heading-level "UNREGISTERED::James Clark//Characteristic::heading-level" 2) (define %generate-heading-level% #t) ;; One page (define nochunks #t) ;; no manifest (define %html-manifest% #f)