mirror of https://github.com/tLDP/LDP
support for othercredit; role on emphasis and some other items
This commit is contained in:
parent
cf169ff32f
commit
6b4810f5bf
|
@ -112,6 +112,7 @@
|
||||||
#t)
|
#t)
|
||||||
|
|
||||||
(define %html-ext%
|
(define %html-ext%
|
||||||
|
;; when producing HTML files, use this extension
|
||||||
".html")
|
".html")
|
||||||
|
|
||||||
(define %generate-article-toc%
|
(define %generate-article-toc%
|
||||||
|
@ -120,9 +121,11 @@
|
||||||
#t)
|
#t)
|
||||||
|
|
||||||
(define %generate-part-toc%
|
(define %generate-part-toc%
|
||||||
|
;; show a partial table of contents on books; usually at chapter level
|
||||||
#t)
|
#t)
|
||||||
|
|
||||||
(define %generate-article-titlepage%
|
(define %generate-article-titlepage%
|
||||||
|
;; produce a title page for articles
|
||||||
#t)
|
#t)
|
||||||
|
|
||||||
(define (chunk-skip-first-element-list)
|
(define (chunk-skip-first-element-list)
|
||||||
|
@ -134,12 +137,17 @@
|
||||||
"index")
|
"index")
|
||||||
|
|
||||||
(define %shade-verbatim%
|
(define %shade-verbatim%
|
||||||
|
;; verbatim sections will be shaded if t(rue)
|
||||||
#t)
|
#t)
|
||||||
|
|
||||||
(define %use-id-as-filename%
|
(define %use-id-as-filename%
|
||||||
;; Use ID attributes as name for component HTML files?
|
;; Use ID attributes as name for component HTML files?
|
||||||
#t)
|
#t)
|
||||||
|
|
||||||
|
(define %graphic-extensions%
|
||||||
|
;; graphic extensions allowed
|
||||||
|
'("gif" "png" "jpg" "jpeg" "tif" "tiff" "eps" "epsf" ))
|
||||||
|
|
||||||
(define %graphic-default-extension%
|
(define %graphic-default-extension%
|
||||||
"gif")
|
"gif")
|
||||||
|
|
||||||
|
@ -148,12 +156,55 @@
|
||||||
#t)
|
#t)
|
||||||
|
|
||||||
(define (toc-depth nd)
|
(define (toc-depth nd)
|
||||||
;; more depth, 2 levels, to toc, instead of flat hierarchy
|
;; more depth (2 levels) to toc; instead of flat hierarchy
|
||||||
2)
|
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 (article-titlepage-recto-elements)
|
||||||
|
;; elements on an article's titlepage
|
||||||
|
;; note: added othercredit to the default list
|
||||||
|
(list (normalize "title")
|
||||||
|
(normalize "subtitle")
|
||||||
|
(normalize "authorgroup")
|
||||||
|
(normalize "author")
|
||||||
|
(normalize "othercredit")
|
||||||
|
(normalize "releaseinfo")
|
||||||
|
(normalize "copyright")
|
||||||
|
(normalize "pubdate")
|
||||||
|
(normalize "revhistory")
|
||||||
|
(normalize "abstract")))
|
||||||
|
|
||||||
|
(mode article-titlepage-recto-mode
|
||||||
|
|
||||||
|
(element contrib
|
||||||
|
;; print out with othercredit information; for translators, etc.
|
||||||
|
(make sequence
|
||||||
|
(make element gi: "SPAN"
|
||||||
|
attributes: (list (list "CLASS" (gi)))
|
||||||
|
(process-children))))
|
||||||
|
|
||||||
|
(element othercredit
|
||||||
|
;; 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))))
|
||||||
|
)
|
||||||
|
|
||||||
</style-specification-body>
|
</style-specification-body>
|
||||||
</style-specification>
|
</style-specification>
|
||||||
|
|
||||||
<external-specification id="docbook" document="docbook.dsl">
|
<external-specification id="docbook" document="docbook.dsl">
|
||||||
|
|
||||||
</style-sheet>
|
</style-sheet>
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue