]> ;; $Id: dbhtml.dsl,v 1.4 1997/10/30 15:54:22 tkg Exp $ ;; ;; Example of a customization layer on top of the modular docbook style ;; sheet. Definitions inserted in this file take precedence over ;; definitions in the 'use'd stylesheet(s). (element FUNCTION ($mono-seq$)) (element REVHISTORY (empty-sosofo)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Borrowed from dbparam.dsl (part of dbhtml distribution) ;; What extension should be used on HTML files? ;; (define %html-ext% ".html") ;; name of legal notice link file (define %legalnotice-link-file% "legal.html") ;; Should verbatim environments be shaded? With what attributes on ;; the table used to wrap the shading? (define %shade-verbatim% #t) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; GLOSSSEE is an alternative to a definition in the GLOSSENTRY content ;; model, so also map GLOSSSEE to DD and insert the reference to the ;; other term ;;(element GLOSSSEE ;; (make element gi: "BLOCKQUOTE" ;; attributes: (list ;; (list "CLASS" (gi))) ;; (make sequence ;; (make element ;; gi: "em" ;; (literal "See ")) ;; (make element ;; gi: "a" ;; attributes: (list (list "href" ;; (string-append ;; "#" ;; (attribute-string ;; "OTHERTERM")))) ;; (with-mode otherterm ;; (process-element-with-id ;; (attribute-string "OTHERTERM"))))))) ;; ;;(element GLOSSSEEALSO ;; (if (first-sibling?) ;; (make element ;; gi: "p" ;; (make sequence ;; (make element ;; gi: "em" ;; (literal "See also "))) ;; (with-mode glossseealso ;; (process-node-list ;; (select-elements ;; (children (parent)) ;; '(glossseealso)))) ;; (literal ".")) ;; (empty-sosofo))) ;; ;;(mode glossseealso ;; (element glossseealso ;; (make sequence ;; (if (first-sibling?) ;; (empty-sosofo) ;; (make element ;; gi: "em" ;; (literal ", "))) ;; (make element ;; gi: "a" ;; attributes: (list (list "href" ;; (string-append ;; "#" ;; (attribute-string ;; "OTHERTERM")))) ;; (with-mode otherterm ;; (process-element-with-id ;; (attribute-string "OTHERTERM"))))))) ;; ;;;; This is referenced within the GLOSSSEE and GLOSSSEEALSO element ;;;; construction expressions. The OTHERTERM attributes on GLOSSSEE and ;;;; GLOSSSEEALSO (should) refer to GLOSSENTRY elements but we're only ;;;; interested in the text within the GLOSSTERM. Discard the revision ;;;; history and the definition from the referenced term. ;;(mode otherterm ;; (element glossentry ;; (process-children-trim)) ;; (element glossterm ;; (process-children-trim)) ;; (element revhistory ;; (empty-sosofo)) ;; (element glosssee ;; (empty-sosofo)) ;; (element glossdef ;; (empty-sosofo))) ;; ;;;; So we can pass different sosofo's to this routine and get identical ;;;; treatment (see REFNAME in dbrfntry.dsl) ;;;; ;;(define ($lowtitlewithsosofo$ tlevel sosofo) ;; (let ((tgi (cond ;; ((equal? tlevel 1) "H1") ;; ((equal? tlevel 2) "H2") ;; ((equal? tlevel 3) "H3") ;; ((equal? tlevel 4) "H4") ;; ((equal? tlevel 5) "H5") ;; (else "P")))) ;; (if (< tlevel 6) ;; (make element gi: tgi ;; (if ;; (string? ;; (attribute-string ;; "ID" ;; (parent (current-node)))) ;; (make element ;; gi: "a" ;; attributes: (list ;; (list "name" ;; (attribute-string ;; "ID" ;; (parent (current-node))))) ;; sosofo) ;; sosofo)) ;; (make element gi: "P" ;; (make element gi: "B" ;; (make element ;; gi: "a" ;; attributes: (list ;; (list "name" ;; (if ;; (string? ;; (inherited-attribute-string ;; "ID")) ;; (inherited-attribute-string ;; "ID") ;; ""))) ;; sosofo))))))