support for othercredit; role on emphasis and some other items

This commit is contained in:
gferg 2001-01-18 00:39:05 +00:00
parent cf169ff32f
commit 6b4810f5bf
1 changed files with 52 additions and 1 deletions

View File

@ -112,6 +112,7 @@
#t)
(define %html-ext%
;; when producing HTML files, use this extension
".html")
(define %generate-article-toc%
@ -120,9 +121,11 @@
#t)
(define %generate-part-toc%
;; show a partial table of contents on books; usually at chapter level
#t)
(define %generate-article-titlepage%
;; produce a title page for articles
#t)
(define (chunk-skip-first-element-list)
@ -134,12 +137,17 @@
"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")
@ -148,12 +156,55 @@
#t)
(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)
(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>
<external-specification id="docbook" document="docbook.dsl">
</style-sheet>