home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
XML Bible (2nd Edition)
/
XML_Bible_Second_Edition_Hungry_Minds_2001.iso
/
mac
/
examples
/
religion
/
common
/
t1.dsl
< prev
next >
Wrap
Text File
|
1998-09-28
|
2KB
|
62 lines
;; specific styles for one-level testaments (like the Quran)
;; that consist entirely of suras
(element SURACOLL
(let ((page-header-center
(make sequence
use: headerfooter-style
(with-mode hf-mode
(process-node-list
(select-elements
(descendants (ancestor "TSTMT"))
"TITLE")))))
(page-folio
(make sequence
use: headerfooter-style
(page-number-sosofo))))
(sosofo-append
(make simple-page-sequence
use: page-style
page-n-columns: 1
page-number-restart?: #t
(make paragraph
quadding: 'center
keep-with-next?: #t
font-family-name: %title-font-family%
font-weight: 'bold
font-size: %title2-size%
line-spacing: (* %title2-size% %line-spacing-factor%)
space-after: (* %title2-size% 1.5)
(literal "Table of Contents"))
(with-mode toc ;; defined in base.dsl
(sosofo-append
(process-node-list
(select-elements
(descendants (ancestor "TSTMT"))
"BKTLONG")))))
(make simple-page-sequence
page-number-restart?: #t
use: page-style
page-n-columns: (if large 1 2)
page-balance-columns?: #t
center-header: page-header-center
center-footer: page-folio
input-whitespace-treatment: 'collapse
quadding: 'justify
(process-children)))))
(element SURA (process-children))
(element BKTLONG
(make paragraph
quadding: 'center
keep-with-next?: #t
space-before: (/ (* %chtitle-size% 5) 3)
space-after: %chtitle-size%
font-size: %chtitle-size%
font-family-name: %title-font-family%
font-weight: 'bold))
(element BKTSHORT (empty-sosofo))