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 >
Text File  |  1998-09-28  |  2KB  |  62 lines
  1. ;; specific styles for one-level testaments (like the Quran)
  2. ;;   that consist entirely of suras
  3.  
  4. (element SURACOLL
  5.  (let ((page-header-center
  6.     (make sequence
  7.           use: headerfooter-style
  8.           (with-mode hf-mode
  9.         (process-node-list
  10.          (select-elements
  11.           (descendants (ancestor "TSTMT"))
  12.           "TITLE")))))
  13.        (page-folio
  14.     (make sequence
  15.           use: headerfooter-style
  16.           (page-number-sosofo))))
  17.    (sosofo-append
  18.     (make simple-page-sequence
  19.       use: page-style
  20.       page-n-columns: 1
  21.       page-number-restart?: #t
  22.       (make paragraph
  23.         quadding: 'center
  24.         keep-with-next?: #t
  25.         font-family-name: %title-font-family%
  26.         font-weight: 'bold
  27.         font-size: %title2-size%
  28.         line-spacing: (* %title2-size% %line-spacing-factor%)
  29.         space-after: (* %title2-size% 1.5)
  30.         (literal "Table of Contents"))
  31.       (with-mode toc ;; defined in base.dsl
  32.              (sosofo-append
  33.               (process-node-list
  34.                (select-elements
  35.             (descendants (ancestor "TSTMT"))
  36.             "BKTLONG")))))
  37.     (make simple-page-sequence
  38.       page-number-restart?: #t
  39.       use: page-style
  40.       page-n-columns: (if large 1 2)
  41.       page-balance-columns?: #t
  42.       center-header: page-header-center
  43.       center-footer: page-folio
  44.       input-whitespace-treatment: 'collapse
  45.       quadding: 'justify
  46.       (process-children)))))
  47.  
  48. (element SURA (process-children))
  49.  
  50. (element BKTLONG
  51.      (make paragraph
  52.            quadding: 'center
  53.            keep-with-next?: #t
  54.            space-before: (/ (* %chtitle-size% 5) 3)
  55.            space-after: %chtitle-size%
  56.            font-size: %chtitle-size%
  57.            font-family-name: %title-font-family%
  58.            font-weight: 'bold))
  59.  
  60. (element BKTSHORT (empty-sosofo))
  61.  
  62.