mirror of https://github.com/tLDP/LDP
updated
This commit is contained in:
parent
05fd812351
commit
ff74422c72
|
@ -177,6 +177,22 @@
|
||||||
(make element gi: "STRONG" (process-children))
|
(make element gi: "STRONG" (process-children))
|
||||||
(make element gi: "EM" (process-children))))
|
(make element gi: "EM" (process-children))))
|
||||||
|
|
||||||
|
(define (book-titlepage-recto-elements)
|
||||||
|
;; elements on a book's titlepage
|
||||||
|
;; note: added revhistory to the default list
|
||||||
|
(list (normalize "title")
|
||||||
|
(normalize "subtitle")
|
||||||
|
(normalize "graphic")
|
||||||
|
(normalize "mediaobject")
|
||||||
|
(normalize "corpauthor")
|
||||||
|
(normalize "authorgroup")
|
||||||
|
(normalize "author")
|
||||||
|
(normalize "editor")
|
||||||
|
(normalize "copyright")
|
||||||
|
(normalize "revhistory")
|
||||||
|
(normalize "abstract")
|
||||||
|
(normalize "legalnotice")))
|
||||||
|
|
||||||
(define (article-titlepage-recto-elements)
|
(define (article-titlepage-recto-elements)
|
||||||
;; elements on an article's titlepage
|
;; elements on an article's titlepage
|
||||||
;; note: added othercredit to the default list
|
;; note: added othercredit to the default list
|
||||||
|
@ -231,6 +247,54 @@
|
||||||
(node-list-first titles))))
|
(node-list-first titles))))
|
||||||
|
|
||||||
|
|
||||||
|
;; 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"))
|
||||||
|
(("PROGRAMLISTING") (list "#000000" "#98FB98"))
|
||||||
|
;; ...
|
||||||
|
;; Add your verbatim elements here
|
||||||
|
;; ...
|
||||||
|
(else (list "#32CD32" "#000000"))))
|
||||||
|
|
||||||
|
(define (shade-verbatim-attr-element element)
|
||||||
|
(list
|
||||||
|
(list "BORDER" "0")
|
||||||
|
(list "BGCOLOR" (car (cdr (shade-verbatim-element-colors element))))
|
||||||
|
(list "WIDTH" ($table-width$))))
|
||||||
|
|
||||||
|
;; End of $verbatim-display$ redefinition
|
||||||
|
|
||||||
</style-specification-body>
|
</style-specification-body>
|
||||||
</style-specification>
|
</style-specification>
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue