diff --git a/LDP/users/Peter-Bieringer/ldp.dsl b/LDP/users/Peter-Bieringer/ldp.dsl new file mode 100644 index 00000000..0e6dff33 --- /dev/null +++ b/LDP/users/Peter-Bieringer/ldp.dsl @@ -0,0 +1,351 @@ + + + +]]> + + +]]> +]> + + + + + + +;; customize the print stylesheet + +(declare-characteristic preserve-sdata? + ;; this is necessary because right now jadetex does not understand + ;; symbolic entities, whereas things work well with numeric entities. + "UNREGISTERED::James Clark//Characteristic::preserve-sdata?" + #f) + +(define %generate-article-toc% + ;; Should a Table of Contents be produced for Articles? + #t) + +(define (toc-depth nd) + 4) + +(define %generate-article-titlepage-on-separate-page% + ;; Should the article title page be on a separate page? + #t) + +(define %section-autolabel% + ;; Are sections enumerated? + #t) + +(define %footnote-ulinks% + ;; Generate footnotes for ULinks? + #f) + +(define %bop-footnotes% + ;; Make "bottom-of-page" footnotes? + #f) + +(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) + +(define formal-object-float + ;; Do formal objects float? + #t) + +(define %hyphenation% + ;; Allow automatic hyphenation? + #t) + +(define %admon-graphics% + ;; Use graphics in admonitions? + #f) + +(define %default-quadding% + ;; Full justification. + 'justify) + +(define (book-titlepage-verso-elements) + ;;added publisher, releaseinfo to the default list + (list (normalize "title") + (normalize "subtitle") + (normalize "corpauthor") + (normalize "authorgroup") + (normalize "author") + (normalize "publisher") + (normalize "releaseinfo") + (normalize "editor") + (normalize "edition") + (normalize "pubdate") + (normalize "copyright") + (normalize "isbn") + (normalize "abstract") + (normalize "legalnotice") + (normalize "revhistory"))) + + + + + + + + + + +(declare-characteristic preserve-sdata? + ;; this is necessary because right now jadetex does not understand + ;; symbolic entities, whereas things work well with numeric entities. + "UNREGISTERED::James Clark//Characteristic::preserve-sdata?" + #f) + +(declare-flow-object-class element + ;; for redhat + "UNREGISTERED::James Clark//Flow Object Class::element") + +(define %html-pubid% + ;; put the public identifier in each HTML file + "-//W3C//DTD HTML 4.0 Transitional//EN") + +(define %generate-legalnotice-link% + ;; put the legal notice in a separate file + #t) + +(define %admon-graphics-path% + ;; use graphics in admonitions, set their + "../images/") + +(define %admon-graphics% + #t) + +(define %funcsynopsis-decoration% + ;; make funcsynopsis look pretty + #t) + +(define %html-ext% + ;; when producing HTML files, use this extension + ".html") + +(define %generate-book-toc% + ;; Should a Table of Contents be produced for books? + #t) + +(define %generate-article-toc% + ;; Should a Table of Contents be produced for articles? + #t) + +(define %generate-part-toc% + ;; Should a Table of Contents be produced for parts? + #t) + +(define %generate-book-titlepage% + ;; produce a title page for books + #t) + +(define %generate-article-titlepage% + ;; produce a title page for articles + #t) + +(define (chunk-skip-first-element-list) + ;; forces the Table of Contents on separate page + '()) + +(define (list-element-list) + ;; fixes bug in Table of Contents generation + '()) + +(define %root-filename% + ;; The filename of the root HTML document (e.g, "index"). + "index") + +(define %shade-verbatim% + ;; verbatim sections will be shaded if t(rue) + #t) + +(define %use-id-as-filename% + ;; Use ID attributes as name for component HTML files? + #t) + +(define %graphic-extensions% + ;; graphic extensions allowed + '("gif" "png" "jpg" "jpeg" "tif" "tiff" "eps" "epsf" )) + +(define %graphic-default-extension% + "gif") + +(define %section-autolabel% + ;; For enumerated sections (1.1, 1.1.1, 1.2, etc.) + #t) + +(define (toc-depth nd) + ;; more depth (2 levels) to toc; instead of flat hierarchy + 2) + +(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)))) + +(define (book-titlepage-recto-elements) + ;; elements on a book's titlepage + (list (normalize "title") + (normalize "subtitle") + (normalize "graphic") + (normalize "mediaobject") + (normalize "corpauthor") + (normalize "authorgroup") + (normalize "author") + (normalize "othercredit") + (normalize "contrib") + (normalize "edition") + (normalize "releaseinfo") + (normalize "publisher") + (normalize "editor") + (normalize "copyright") + (normalize "pubdate") + (normalize "revhistory") + (normalize "abstract") + (normalize "legalnotice"))) + +(define (article-titlepage-recto-elements) + ;; elements on an article's titlepage + (list (normalize "title") + (normalize "subtitle") + (normalize "authorgroup") + (normalize "author") + (normalize "othercredit") + (normalize "releaseinfo") + (normalize "copyright") + (normalize "pubdate") + (normalize "revhistory") + (normalize "abstract") + (normalize "legalnotice"))) + +(define (process-contrib #!optional (sosofo (process-children))) + ;; print out with othercredit information; for translators, etc. + (make sequence + (make element gi: "SPAN" + attributes: (list (list "CLASS" (gi))) + (process-children)))) + +(define (process-othercredit #!optional (sosofo (process-children))) + ;; print out othercredit information; for translators, etc. + (let ((author-name (author-string)) + (author-contrib (select-elements (children (current-node)) + (normalize "contrib")))) + (make element gi: "P" + attributes: (list (list "CLASS" (gi))) + (make element gi: "B" + (literal author-name) + (literal " - ")) + (process-node-list author-contrib)))) + +(mode article-titlepage-recto-mode + (element contrib (process-contrib)) + (element othercredit (process-othercredit)) +) + +(mode book-titlepage-recto-mode + (element contrib (process-contrib)) + (element othercredit (process-othercredit)) +) + +(define (article-title nd) + (let* ((artchild (children nd)) + (artheader (select-elements artchild (normalize "artheader"))) + (artinfo (select-elements artchild (normalize "articleinfo"))) + (ahdr (if (node-list-empty? artheader) + artinfo + artheader)) + (ahtitles (select-elements (children ahdr) + (normalize "title"))) + (artitles (select-elements artchild (normalize "title"))) + (titles (if (node-list-empty? artitles) + ahtitles + artitles))) + (if (node-list-empty? titles) + "" + (node-list-first titles)))) + +(mode subtitle-mode + ;; do not print subtitle on subsequent pages + (element subtitle (empty-sosofo))) + +;; Redefinition of $verbatim-display$ +;; Origin: dbverb.dsl +;; Different foreground and background colors for verbatim elements +;; Author: Philippe Martin (feloy@free.fr) 2001-04-07 + +(define ($verbatim-display$ indent line-numbers?) + (let ((verbatim-element (gi)) + (content (make element gi: "PRE" + attributes: (list + (list "CLASS" (gi))) + (if (or indent line-numbers?) + ($verbatim-line-by-line$ indent line-numbers?) + (process-children))))) + (if %shade-verbatim% + (make element gi: "TABLE" + attributes: (shade-verbatim-attr-element verbatim-element) + (make element gi: "TR" + (make element gi: "TD" + (make element gi: "FONT" + attributes: (list + (list "COLOR" (car (shade-verbatim-element-colors + verbatim-element)))) + content)))) + content))) + +;; +;; Customize this function +;; to change the foreground and background colors +;; of the different verbatim elements +;; Return (list "foreground color" "background color") +;; +(define (shade-verbatim-element-colors element) + (case element + (("SYNOPSIS") (list "#000000" "#6495ED")) + ;; ... + ;; Add your verbatim elements here + ;; ... + (else (list "#000000" "#E0E0E0")))) + +(define (shade-verbatim-attr-element element) + (list + (list "BORDER" + (cond + ((equal? element (normalize "SCREEN")) "1") + (else "0"))) + (list "BGCOLOR" (car (cdr (shade-verbatim-element-colors element)))) + (list "WIDTH" ($table-width$)))) + +;; End of $verbatim-display$ redefinition + + + + + + + +