packaging/gdp-both.dsl

   1 <!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
   2 <!ENTITY % html "IGNORE">
   3 <![%html;[
   4 <!ENTITY % print "IGNORE">
   5 <!ENTITY docbook.dsl PUBLIC "-//Norman Walsh//DOCUMENT DocBook HTML Stylesheet//EN" CDATA dsssl>
   6 ]]>
   7 <!ENTITY % print "INCLUDE">
   8 <![%print;[
   9 <!ENTITY docbook.dsl PUBLIC "-//Norman Walsh//DOCUMENT DocBook Print Stylesheet//EN" CDATA dsssl>
  10 ]]>
  11 ]>
  12
  13 <!--
  14 ;;#######################################################################
  15 ;;#                                                                     #
  16 ;;#                 The GNOME Documentation Project's                   #
  17 ;;#                  Custion DocBook Stylesheet Layer                   #
  18 ;;#                    by Dave Mason dcm@redhat.com                     #
  19 ;;#            Based on Norman Walsh's Modular Stylesheets              #
  20 ;;#                                                                     #
  21 ;;#            This is intended as a drop-in replacement for            #
  22 ;;#            the cygnus-both.dsl file in DocBook Tools.               #
  23 ;;#           Just copy it to the location dbtools created              #
  24 ;;#                   and rename it cygnus-both.dsl                     #
  25 ;;#                                                                     #
  26 ;;#                       This is Version 1.0-4                         #
  27 ;;#                  patched to fix RTF output (#49677)                 #
  28 ;;#                patched to work with docbook-dsssl-1.72              #
  29 ;;#                 patched for ADDRESS output (#50605)                 #
  30 ;;#                      removed comment and remark                     #
  31 ;;#                      disabled use-id-as-filename                    #
  32 ;;#               don't define %graphic-default-extension%              #
  33 ;;#######################################################################
  34 -->
  35
  36 <style-sheet>
  37
  38
  39 <style-specification id="print" use="docbook">
  40 <style-specification-body>
  41
  42 ;;==========================================================================
  43 ;;                               PRINT
  44 ;;==========================================================================
  45
  46 ;;======================================
  47 ;;General Options
  48 ;;======================================
  49
  50 ;;Do you want to print on both sides of the paper?
  51 (define %two-side%
  52  #t)
  53
  54 ;;Do you want enumerated sections? (E.g, 1.1, 1.1.1, 1.2, etc.)
  55 (define %section-autolabel%
  56  #f)
  57
  58 ;;Show URL links? If the text of the link and the URL are identical,
  59 ;;the parenthetical URL is suppressed.
  60 (define %show-ulinks%
  61  #t)
  62
  63 ;Make Ulinks footnotes to stop bleeding in the edges - this increases
  64 ;'jade --> print' time tremendously keep this in mind before
  65 ;complaining!
  66 (define %footnote-ulinks%
  67   #t)
  68
  69 ;;Tex Backend on
  70 (define tex-backend
  71  #t)
  72
  73 ;;Define Line Spacing
  74 (define %line-spacing-factor% 1.1)
  75
  76 ;;Define the Paragraph Style
  77 (define para-style
  78   (style
  79    font-size: %bf-size%
  80    font-weight: 'medium
  81    font-posture: 'upright
  82    font-family-name: %body-font-family%
  83    line-spacing: (* %bf-size% %line-spacing-factor%)))
  84
  85 (define ($object-titles-after$)
  86   (list (normalize "figure")))
  87
  88 ;;======================================
  89 ;;Book Options
  90 ;;======================================
  91
  92
  93 ;;Do you want a title page for a Book?
  94 (define %generate-book-titlepage%
  95  #t)
  96
  97 ;;Do you want a separate page for the title?
  98 (define %generate-book-titlepage-on-separate-page%
  99  #t)
 100
 101 ;;Generate Book TOC?
 102 (define %generate-book-toc%
 103  #t)
 104
 105 ;;What depth should the TOC generate?
 106 ;;!Only top level of appendixes!
 107 (define (toc-depth nd)
 108   (if (string=? (gi nd) (normalize "book"))
 109       3
 110       (if (string=? (gi nd) (normalize "appendix"))
 111         0
 112         1)))
 113
 114 ;;Do you want a TOC for the element part?
 115 (define %generate-part-toc%
 116  #f)
 117
 118 ;;Do you want the part toc on the part titlepage or separate?
 119 (define %generate-part-toc-on-titlepage%
 120  #t)
 121
 122 ;;Generate Part Title Page?
 123 (define %generate-part-titlepage%
 124   #f)
 125
 126 ;;Do you want the Part intro on the part title page?
 127 (define %generate-partintro-on-titlepage%
 128   #t)
 129
 130 ;;What elements should have a LOT?
 131 (define ($generate-book-lot-list$)
 132   (list (normalize "equation")))
 133
 134 ;;Do you want chapters enumerated?
 135 (define %chapter-autolabel%
 136  #t)
 137
 138 ;;Do you want Chapter's and Appendix's
 139 ;;to have automatic labels?
 140 (define %chap-app-running-head-autolabel%
 141   #t)
 142
 143
 144 ;;======================================
 145 ;;Article Options
 146 ;;======================================
 147
 148 ;;Do you want a title page for an Article?
 149 (define %generate-article-titlepage%
 150  #t)
 151
 152 ;;Generate Article TOC?
 153 (define %generate-article-toc%
 154  #t)
 155
 156 ;;Do you want a separate page for the title?
 157 (define %generate-article-titlepage-on-separate-page%
 158  #t)
 159
 160 ;;Do you want the article toc on the titlepage or separate?
 161 (define %generate-article-toc-on-titlepage%
 162  #t)
 163
 164 ;;Do you want to start new page numbers with each article?
 165 (define %article-page-number-restart%
 166  #f)
 167
 168 ;;Titlepage Separate?
 169 (define (chunk-skip-first-element-list)
 170   '())
 171
 172 ;;Titlepage Not Separate
 173 ;(define (chunk-skip-first-element-list)
 174 ;  (list (normalize "sect1")
 175 ;       (normalize "section")))
 176
 177 ;;======================================
 178 ;;Columns
 179 ;;======================================
 180
 181 ;;How many columns do you want?
 182 (define %page-n-columns%
 183  1)
 184
 185 ;;How much space between columns?
 186 (define %page-column-sep%
 187  0.2in)
 188
 189 ;;How many Columns on the titlepage?
 190 (define %titlepage-n-columns%
 191   1)
 192
 193 ;;Balance columns?
 194 (define %page-balance-colums%
 195 #t)
 196
 197 ;;======================================
 198 ;;Fonts
 199 ;;======================================
 200
 201 ;;Defines the general size of the text in the document. normal(10),
 202 ;;presbyopic(12), and large-type(24).
 203 (define %visual-acuity%
 204  "normal")
 205
 206 ;;What font would you like for titles?
 207 (define %title-font-family%
 208   "Helvetica")
 209
 210 ;;What font would you like for the body?
 211 (define %body-font-family%
 212  "Palatino")
 213
 214 ;;What font would you like for mono-seq?
 215 (define %mono-font-family%
 216  "Courier New")
 217
 218 ;;If the base fontsize is 10pt, and '%hsize-bump-factor%' is
 219 ;; 1.2, hsize 1 is 12pt, hsize 2 is 14.4pt, hsize 3 is 17.28pt, etc
 220 (define %hsize-bump-factor%
 221  1.1)
 222
 223 ;;What size do you want the body fonts?
 224 (define %bf-size%
 225  (case %visual-acuity%
 226     (("tiny") 8pt)
 227     (("normal") 10pt)
 228     (("presbyopic") 12pt)
 229     (("large-type") 24pt)))
 230
 231 (define-unit em %bf-size%)
 232
 233 ;;======================================
 234 ;;Margins
 235 ;;======================================
 236
 237 (define %left-right-margin% 6pi)
 238
 239 ;;How much indentation for the body?
 240 (define %body-start-indent%
 241  4pi)
 242
 243 ;;How big is the left margin? (relative to physical page)
 244 (define %left-margin%
 245  8pi) ;white-paper-column
 246
 247 ;;How big is the right margin? (relative to physical page)
 248 (define %right-margin%
 249  8pi) ;white-paper-column
 250
 251 ;;How big do you want the margin at the top?
 252 (define %top-margin%
 253 (if (equal? %visual-acuity% "large-type")
 254       7.5pi
 255       6pi))
 256
 257 ;;How big do you want the margin at the bottom?
 258 (define %bottom-margin%
 259  (if (equal? %visual-acuity% "large-type")
 260       7.5pi
 261       5pi))
 262
 263 ;;Define the text width. (Change the elements in the formula rather
 264 ;;than the formula itself)
 265 ;(define %text-width% (- %page-width% (* %left-right-margin% 2)))
 266 (define %text-width%  (- %page-width% (+ %left-margin% %right-margin%)))
 267
 268 ;;Define the body width. (Change the elements in the formula rather
 269 ;;than the formula itself)
 270 (define %body-width%
 271  (- %text-width% %body-start-indent%))
 272
 273 ;;Define distance between paragraphs
 274 (define %para-sep%
 275  (/ %bf-size% 2.0))
 276
 277 ;;Define distance between block elements (figures, tables, etc.).
 278 (define %block-sep%
 279  (* %para-sep% 2.0))
 280
 281 ;;Indent block elements?
 282 (define %block-start-indent%
 283   0pt)
 284 ;0pt
 285
 286 ;;======================================
 287 ;;Admon Graphics
 288 ;;======================================
 289
 290 ;;Do you want admon graohics on?
 291 (define %admon-graphics%
 292  #f)
 293
 294 ;;Where are the admon graphics?
 295 (define %admon-graphics-path%
 296  "../images/")
 297
 298 ;;======================================
 299 ;;Quadding
 300 ;;======================================
 301
 302 ;;What quadding do you want by default; start, center, justify, or end?
 303 (define %default-quadding%
 304  'justify)
 305
 306 ;;What quadding for component titles(Chapter, Appendix, etc)?
 307 (define %component-title-quadding%
 308  'start)
 309
 310 ;;What quadding for section titles?
 311 (define %section-title-quadding%
 312  'start)
 313
 314 ;;What quadding for section sub-titles?
 315 (define %section-subtitle-quadding%
 316  'start)
 317
 318 ;;What quadding for article title?
 319 (define %article-title-quadding%
 320  'center)
 321
 322 ;;What quadding for article sub-titles?
 323 (define %article-subtitle-quadding%
 324  'center)
 325
 326 ;;What quadding for division subtitles?
 327 (define %division-subtitle-quadding%
 328   'start)
 329
 330 ;;What quadding for component subtitles?
 331 (define %component-subtitle-quadding%
 332   'start)
 333
 334
 335
 336
 337 ;;======================================
 338 ;;Paper Options
 339 ;;======================================
 340
 341 ;;What size paper do you need? A4, USletter, USlandscape, or RedHat?
 342 (define %paper-type%
 343  "USletter")
 344
 345 ;;Now define those paper types' width
 346 (define %page-width%
 347  (case %paper-type%
 348     (("A4") 210mm)
 349     (("USletter") 8.5in)
 350     (("USlandscape") 11in)))
 351
 352 ;;Now define those paper types' height
 353 (define %page-height%
 354  (case %paper-type%
 355     (("A4") 297mm)
 356     (("USletter") 11in)
 357     (("USlandscape") 8.5in)))
 358
 359 ;;======================================
 360 ;;Functions
 361 ;;======================================
 362
 363 (define (OLSTEP)
 364   (case
 365    (modulo (length (hierarchical-number-recursive "ORDEREDLIST")) 4)
 366         ((1) 1.2em)
 367         ((2) 1.2em)
 368         ((3) 1.6em)
 369         ((0) 1.4em)))
 370
 371 (define (ILSTEP) 1.0em)
 372
 373 (define (PROCSTEP ilvl)
 374   (if (> ilvl 1) 1.8em 1.4em))
 375
 376 (define (PROCWID ilvl)
 377   (if (> ilvl 1) 1.8em 1.4em))
 378
 379
 380 (define ($comptitle$)
 381   (make paragraph
 382         font-family-name: %title-font-family%
 383         font-weight: 'bold
 384         font-size: (HSIZE 2)
 385         line-spacing: (* (HSIZE 2) %line-spacing-factor%)
 386         space-before: (* (HSIZE 2) %head-before-factor%)
 387         space-after: (* (HSIZE 2) %head-after-factor%)
 388         start-indent: 0pt
 389         first-line-start-indent: 0pt
 390         quadding: 'start
 391         keep-with-next?: #t
 392         (process-children-trim)))
 393
 394 ;;Callouts are confusing in Postscript... fix them.
 395 (define %callout-fancy-bug%
 396  #f)
 397
 398
 399 ;;By default perils are centered and dropped into a box with a really
 400 ;;big border - I have simply decreased the border thickness -
 401 ;;unfortunately it takes all this to do it - sigh.
 402 (define ($peril$)
 403   (let* ((title     (select-elements
 404                      (children (current-node)) (normalize "title")))
 405          (has-title (not (node-list-empty? title)))
 406          (adm-title (if has-title
 407                         (make sequence
 408                           (with-mode title-sosofo-mode
 409                             (process-node-list (node-list-first title))))
 410                         (literal
 411                          (gentext-element-name
 412                           (current-node)))))
 413          (hs (HSIZE 2)))
 414   (if %admon-graphics%
 415       ($graphical-admonition$)
 416       (make display-group
 417         space-before: %block-sep%
 418         space-after: %block-sep%
 419         font-family-name: %admon-font-family%
 420         font-size: (- %bf-size% 1pt)
 421         font-weight: 'medium
 422         font-posture: 'upright
 423         line-spacing: (* (- %bf-size% 1pt) %line-spacing-factor%)
 424         (make box
 425           display?: #t
 426           box-type: 'border
 427           line-thickness: .5pt
 428           start-indent: (+ (inherited-start-indent) (* 2 (ILSTEP)) 2pt)
 429           end-indent: (inherited-end-indent)
 430           (make paragraph
 431             space-before: %para-sep%
 432             space-after: %para-sep%
 433             start-indent: 1em
 434             end-indent: 1em
 435             font-family-name: %title-font-family%
 436             font-weight: 'bold
 437             font-size: hs
 438             line-spacing: (* hs %line-spacing-factor%)
 439             quadding: 'center
 440             keep-with-next?: #t
 441             adm-title)
 442           (process-children))))))
 443
 444
 445 ;;======================================
 446 ;;Non-printing Elements
 447 ;;======================================
 448 (element TITLEABBREV (empty-sosofo))
 449 (element SUBTITLE (empty-sosofo))
 450 (element SETINFO (empty-sosofo))
 451 (element BOOKINFO (empty-sosofo))
 452 (element BIBLIOENTRY (empty-sosofo))
 453 (element BIBLIOMISC (empty-sosofo))
 454 (element BOOKBIBLIO (empty-sosofo))
 455 (element SERIESINFO (empty-sosofo))
 456 (element DOCINFO (empty-sosofo))
 457 (element ARTHEADER (empty-sosofo))
 458 ;;(element ADDRESS (empty-sosofo))
 459
 460 ;;Show comment element?
 461 (define %show-comments%
 462   #t)
 463
 464 ;;======================================
 465 ;;Formalpara titles
 466 ;;======================================
 467
 468
 469 ;;Change the way Formal Paragraph titles are displayed. The commented
 470 ;;out section will run the titles in the paragraphs.
 471 (element (formalpara title)
 472   ;(make sequence
 473   ;font-weight: 'bold
 474   ;($runinhead$))
 475   ($lowtitle$ 5 7))
 476
 477 ;;======================================
 478 ;;Inlines
 479 ;;======================================
 480
 481 (element application ($mono-seq$))
 482 (element command ($bold-seq$))
 483 (element filename ($mono-seq$))
 484 (element function ($mono-seq$))
 485 (element guibutton ($bold-seq$))
 486 (element guiicon ($bold-seq$))
 487 (element guilabel ($italic-seq$))
 488 (element guimenu ($bold-seq$))
 489 (element guimenuitem ($bold-seq$))
 490 (element hardware ($bold-mono-seq$))
 491 (element keycap ($bold-seq$))
 492 (element literal ($mono-seq$))
 493 (element parameter ($italic-mono-seq$))
 494 (element prompt ($mono-seq$))
 495 (element symbol ($charseq$))
 496 (element emphasis ($italic-seq$))
 497
 498 </style-specification-body>
 499 </style-specification>
 500
 501
 502 <!--
 503 ;;===========================================================================
 504 ;;                                HTML
 505 ;;===========================================================================
 506 -->
 507
 508 <style-specification id="html" use="docbook">
 509 <style-specification-body>
 510
 511 ;; this is necessary because right now jadetex does not understand
 512 ;; symbolic entities, whereas things work well with numeric entities.
 513 (declare-characteristic preserve-sdata?
 514           "UNREGISTERED::James Clark//Characteristic::preserve-sdata?"
 515           #f)
 516
 517
 518 ;;=========================
 519 ;;Header HTML 4.0.1
 520 ;;=========================
 521
 522 (define %html-pubid% "-//W3C//DTD HTML 4.01//EN")
 523
 524 ;;=========================
 525 ;;Common Stuff
 526 ;;=========================
 527
 528 ;;Should there be a link to the legalnotice?
 529 (define %generate-legalnotice-link%
 530   #t)
 531
 532 ;;What graphics extensions allowed?
 533 (define %graphic-extensions%
 534 '("gif" "png" "jpg" "jpeg" "tif" "tiff" "eps" "epsf" ))
 535
 536 ;;What is the default extension for images?
 537 (define %graphic-default-extension% "png")
 538
 539 ;;Use element ids as filenames?
 540 (define %use-id-as-filename%
 541  #f)
 542
 543
 544 ;;=========================
 545 ;;Book Stuff
 546 ;;=========================
 547
 548 ;;Do you want a TOC for Books?
 549 (define %generate-book-toc%
 550   #t)
 551
 552 ;;What depth should the TOC generate?
 553 ;;!Only top level of appendixes!
 554 (define (toc-depth nd)
 555   (if (string=? (gi nd) (normalize "book"))
 556       3
 557       (if (string=? (gi nd) (normalize "appendix"))
 558         0
 559         1)))
 560
 561 ;;What elements should have an LOT?
 562 (define ($generate-book-lot-list$)
 563   (list (normalize "equation")))
 564
 565 ;;Do you want a title page for your Book?
 566 (define %generate-book-titlepage%
 567 #t)
 568
 569 ;;=========================
 570 ;;Part Stuff
 571 ;;=========================
 572
 573 ;;Should parts have TOCs?
 574 (define %generate-part-toc%
 575   #t)
 576
 577 ;;Should part TOCs be on their titlepages?
 578 (define %generate-part-toc-on-titlepage%
 579   #t)
 580
 581 ;;Do you want a title page for your part?
 582 (define %generate-part-titlepage%
 583   #t)
 584
 585 ;;Should the Part intro be on the part title page?
 586 (define %generate-partintro-on-titlepage%
 587  #t)
 588
 589 (define %para-autolabel%
 590  #t)
 591
 592 ;;========================
 593 ;;Chapter Stuff
 594 ;;=======================
 595
 596 ;;No TOCs in Chapters
 597 (define $generate-chapter-toc$
 598  (lambda ()
 599     #f))
 600
 601 ;;=========================
 602 ;;Navigation
 603 ;;=========================
 604
 605 ;;Should there be navigation at top?
 606 (define %header-navigation%
 607  #t)
 608
 609 ;;Should there be navigation at bottom?
 610 (define %footer-navigation%
 611   #t)
 612
 613 ;;Use tables to create the navigation?
 614 (define %gentext-nav-use-tables%
 615  #t)
 616
 617 ;;If tables are used for navigation,
 618 ;;how wide should they be?
 619 (define %gentext-nav-tblwidth%
 620 "100%")
 621
 622 ;;Add arrows to navigation (comment these
 623 ;;out if you want admon graphics here)
 624 (define (gentext-en-nav-prev prev)
 625   (make sequence (literal "<<< Previous")))
 626
 627 ;;Add arrows to navigation (comment these
 628 ;;out if you want admon graphics here)
 629 (define (gentext-en-nav-next next)
 630   (make sequence (literal "Next >>>")))
 631
 632
 633 ;;=========================
 634 ;;Tables and Lists
 635 ;;=========================
 636
 637 ;;Should Variable lists be tables?
 638 (define %always-format-variablelist-as-table%
 639  #f)
 640
 641 ;;What is the length of the 'Term' in a variablelist?
 642 (define %default-variablelist-termlength%
 643   20)
 644
 645 ;;When true | If the terms are shorter than
 646 ;;the termlength above then the variablelist
 647 ;;will be formatted as a table.
 648 (define %may-format-variablelist-as-table%
 649 #f)
 650
 651 ;;This overrides the tgroup definition
 652 ;;(copied from 1.20, dbtable.dsl).
 653 ;;It changes the table background color,
 654 ;;cell spacing and cell padding.
 655 ;;This is based on gtk-doc additions - thanks!
 656
 657 (element tgroup
 658   (let* ((wrapper   (parent (current-node)))
 659          (frameattr (attribute-string (normalize "frame") wrapper))
 660          (pgwide    (attribute-string (normalize "pgwide") wrapper))
 661          (footnotes (select-elements (descendants (current-node))
 662                                      (normalize "footnote")))
 663          (border (if (equal? frameattr (normalize "none"))
 664                      '(("BORDER" "0"))
 665                      '(("BORDER" "1"))))
 666          (bgcolor '(("BGCOLOR" "#E0E0E0")))
 667          (width (if (equal? pgwide "1")
 668                     (list (list "WIDTH" ($table-width$)))
 669                     '()))
 670          (head (select-elements (children (current-node)) (normalize "thead")))
 671          (body (select-elements (children (current-node)) (normalize "tbody")))
 672          (feet (select-elements (children (current-node)) (normalize "tfoot"))))
 673     (make element gi: "TABLE"
 674           attributes: (append
 675                        border
 676                        width
 677                        bgcolor
 678                        '(("CELLSPACING" "0"))
 679                        '(("CELLPADDING" "4"))
 680                        (if %cals-table-class%
 681                            (list (list "CLASS" %cals-table-class%))
 682                            '()))
 683           (process-node-list head)
 684           (process-node-list body)
 685           (process-node-list feet)
 686           (make-table-endnotes))))
 687
 688 ;;===================
 689 ;; Admon Graphics
 690 ;;===================
 691
 692 ;;Should Admon Graphics be used?
 693 (define %admon-graphics%
 694   #t)
 695
 696 ;;Where are those admon graphics?
 697 (define %admon-graphics-path%
 698   "./stylesheet-images/")
 699
 700 ;;Given an admonition node, returns the
 701 ;;name of the graphic that should
 702 ;;be used for that admonition.
 703 ;;Define admon graphics usage
 704 ;;NOTE these will change to pngs
 705 ;;soon in the GDP when Tigert gets
 706 ;;the time to make special ones for us!
 707 (define ($admon-graphic$ #!optional (nd (current-node)))
 708   (cond ((equal? (gi nd) (normalize "tip"))
 709          (string-append %admon-graphics-path% "tip.gif"))
 710         ((equal? (gi nd) (normalize "note"))
 711          (string-append %admon-graphics-path% "note.gif"))
 712         ((equal? (gi nd) (normalize "important"))
 713          (string-append %admon-graphics-path% "important.gif"))
 714         ((equal? (gi nd) (normalize "caution"))
 715          (string-append %admon-graphics-path% "caution.gif"))
 716         ((equal? (gi nd) (normalize "warning"))
 717          (string-append %admon-graphics-path% "warning.gif"))
 718         (else (error (string-append (gi nd) " is not an admonition.")))))
 719
 720 ;;Given an admonition node, returns
 721 ;;the width of the graphic that will
 722 ;;be used for that admonition.
 723 (define ($admon-graphic-width$ #!optional (nd (current-node)))
 724   "25")
 725
 726 ;;=========================
 727 ;;Labels
 728 ;;=========================
 729
 730 ;;Enumerate Chapters?
 731 (define %chapter-autolabel%
 732  #f)
 733
 734 ;;Enumerate Sections?
 735 (define %section-autolabel%
 736  #f)
 737
 738 ;;=========================
 739 ;;    HTML Attributes
 740 ;;=========================
 741
 742 ;;What attributes should be hung off
 743 ;;of 'body'?
 744 (define %body-attr%
 745  (list
 746    (list "BGCOLOR" "#FFFFFF")
 747    (list "TEXT" "#000000")
 748    (list "LINK" "#0000FF")
 749    (list "VLINK" "#840084")
 750    (list "ALINK" "#0000FF")))
 751
 752 ;;Default extension for filenames?
 753 (define %html-ext%
 754   ".html")
 755
 756 ;;Use a CSS stylesheet?
 757 ;;Which one? Should work on
 758 ;;this one soon
 759 ;(define %stylesheet%
 760 ;        "./gnome.css")
 761
 762 ;;Use it
 763 ;(define %stylesheet-type%
 764 ;"text/css")
 765
 766
 767 ;;========================
 768 ;;Title Pages for Books
 769 ;;=======================
 770
 771 (define (book-titlepage-recto-elements)
 772   (list (normalize "title")
 773         (normalize "subtitle")
 774         (normalize "corpauthor")
 775         (normalize "authorgroup")
 776         (normalize "author")
 777         (normalize "orgname")
 778         (normalize "graphic")
 779         (normalize "copyright")
 780         (normalize "legalnotice")
 781         (normalize "releaseinfo")
 782         (normalize "publisher")
 783         (normalize "isbn")))
 784
 785 ;;========================
 786 ;;Title Pages for Articles
 787 ;;========================
 788
 789 ;;Should Articles have a TOC?
 790 (define %generate-article-toc%
 791   #t)
 792
 793 ;;Which elements should appear
 794 ;;on title page?
 795 (define (article-titlepage-recto-elements)
 796   (list (normalize "title")
 797         (normalize "subtitle")
 798         (normalize "authorgroup")
 799         (normalize "copyright")
 800         (normalize "legalnotice")
 801         (normalize "abstract")))
 802
 803 ;;How should elements on title page look?
 804 (mode article-titlepage-recto-mode
 805
 806 ;;Author name is too big - change it!
 807   (element author
 808     (let ((author-name  (author-string))
 809           (author-affil (select-elements (children (current-node))
 810                                          (normalize "affiliation"))))
 811       (make sequence
 812         (make element gi: "H4"
 813               attributes: (list (list "CLASS" (gi)))
 814               (make element gi: "A"
 815                     attributes: (list (list "NAME" (element-id)))
 816                     (literal author-name)))
 817         (process-node-list author-affil))))
 818
 819 ;;Address?
 820   (element address
 821     (make sequence
 822       (make element gi: "DIV"
 823             attributes: (list (list "CLASS" (gi)))
 824             (process-children))))
 825
 826 ;;Get rid of spam-producing "mailto" links
 827 ;;and get rid of email indentation
 828   (element email
 829     (make sequence
 830       (make element gi: "DIV"
 831             attributes: (list (list "CLASS" (gi)))
 832             (process-children))))
 833
 834 ;;Point Abstract to custom table function
 835 ;;(See $dcm-abstract-object$ below. For default
 836 ;;use $semiformal-object$
 837   (element abstract
 838     (make element gi: "DIV"
 839           ($dcm-abstract-object$)))
 840
 841   (element (abstract title) (empty-sosofo))
 842
 843 ;;subtitle sizing
 844 (element subtitle
 845   (make element gi: "H4"
 846         attributes: (list (list "CLASS" (gi)))
 847         (process-children-trim))))
 848
 849 ;;=================
 850 ;;    INLINES
 851 ;;=================
 852
 853 ;Define my own series of fonts for various elements
 854 (element application ($mono-seq$))
 855 (element command ($bold-seq$))
 856 (element filename ($mono-seq$))
 857 (element function ($mono-seq$))
 858 (element guibutton ($bold-seq$))
 859 (element guiicon ($bold-seq$))
 860 (element guilabel ($bold-mono-seq$))
 861 (element guimenu ($bold-seq$))
 862 (element guimenuitem ($bold-seq$))
 863 (element guisubmenu ($bold-seq$))
 864 (element hardware ($bold-mono-seq$))
 865 (element keycap ($bold-seq$))
 866 (element literal ($mono-seq$))
 867 (element parameter ($italic-mono-seq$))
 868 (element prompt ($mono-seq$))
 869 (element symbol ($charseq$))
 870 (element emphasis ($italic-seq$))
 871
 872 ;;Show comment element?
 873 (define %show-comments%
 874   #t)
 875
 876 ;;====================
 877 ;; General Formatting
 878 ;;====================
 879
 880 ;;Formal Paras are ugly by default!
 881 ;;Make the title run in - otherwise
 882 ;;you should use a sect!
 883 (element formalpara
 884   (make element gi: "DIV"
 885         attributes: (list
 886                      (list "CLASS" (gi)))
 887         (make element gi: "P"
 888               (process-children))))
 889
 890 ;;This is the old one
 891 ;(element (formalpara title)
 892 ;($lowtitle$ 5))
 893
 894 ;;This is the new one
 895 (element (formalpara title)
 896   (make element gi: "B"
 897         ($runinhead$)))
 898
 899 ;;Make captions come after objects in the list
 900 (define ($object-titles-after$)
 901   (list (normalize "figure")))
 902
 903
 904 ;; Handle qanda labelling with Q: A:
 905 (define (qanda-defaultlabel)
 906   (normalize "qanda"))
 907
 908 ;;From FreeBSD Sheets (Thanks!) Display Q and A in bigger bolder fonts
 909
 910 (element question
 911   (let* ((chlist   (children (current-node)))
 912          (firstch  (node-list-first chlist))
 913          (restch   (node-list-rest chlist)))
 914     (make element gi: "DIV"
 915           attributes: (list (list "CLASS" (gi)))
 916           (make element gi: "P"
 917                 (make element gi: "BIG"
 918                       (make element gi: "A"
 919                             attributes: (list
 920                                          (list "NAME" (element-id)))
 921                             (empty-sosofo))
 922                       (make element gi: "B"
 923                             (literal (question-answer-label
 924                                       (current-node)) " ")
 925                             (process-node-list (children firstch)))))
 926           (process-node-list restch))))
 927
 928 ;;Literal Elements
 929
 930 ;;Indent Literal layouts?
 931 (define %indent-literallayout-lines%
 932   #f)
 933
 934 ;;Indent Programlistings?
 935 (define %indent-programlisting-lines%
 936   #f)
 937
 938 ;;Number lines in Programlistings?
 939 (define %number-programlisting-lines%
 940  #f)
 941
 942 ;;Should verbatim items be 'shaded' with a table?
 943 (define %shade-verbatim%
 944  #t)
 945
 946 ;;Define shade-verbatim attributes
 947 (define ($shade-verbatim-attr$)
 948  (list
 949   (list "BORDER" "0")
 950   (list "BGCOLOR" "#E0E0E0")
 951   (list "WIDTH" ($table-width$))))
 952
 953 ;;===================
 954 ;;    Entities
 955 ;;===================
 956
 957 ;;Netscape doesn't handle trademark
 958 ;;entity right at all!! Get rid of it.
 959 ;;Make a TM in a superscipt font.
 960 (element trademark
 961   (make sequence
 962     (process-children)
 963     (make element gi: "sup"
 964     (literal "TM"))))
 965
 966
 967 ;;===================
 968 ;; New Definitions
 969 ;;==================
 970
 971 (define ($dcm-abstract-object$)
 972    (make element gi: "TABLE"
 973         attributes: '(("BORDER" "0")
 974                       ("BGCOLOR" "#E0E0E0")
 975                       ("WIDTH" "50%")
 976                       ("CELLSPACING" "0")
 977                       ("CELLPADDING" "0")
 978                       ("ALIGN" "CENTER"))
 979         (make element gi: "TR"
 980               (make element gi: "TD"
 981                     attributes: '(("VALIGN" "TOP"))
 982                     (make element gi: "B"
 983                     (literal "Abstract"))))
 984         (make element gi: "TR"
 985               (make element gi: "TD"
 986                     attributes: '(("VALIGN" "TOP"))
 987                     (process-children)))))
 988
 989 ;;Redefine Titlepage Separator on Articles
 990
 991 (define (article-titlepage-separator side)
 992   (make empty-element gi: "HR"
 993   attributes: '(("WIDTH" "75%")
 994                  ("ALIGN" "CENTER")
 995                  ("COLOR" "#000000")
 996                  ("SIZE" "1"))))
 997
 998
 999
1000
1001 (define (chunk-element-list)
1002   (list (normalize "preface")
1003         (normalize "chapter")
1004         (normalize "appendix")
1005         (normalize "article")
1006         (normalize "glossary")
1007         (normalize "bibliography")
1008         (normalize "index")
1009         (normalize "colophon")
1010         (normalize "setindex")
1011         (normalize "reference")
1012         (normalize "refentry")
1013         (normalize "part")
1014         (normalize "sect1")
1015         (normalize "section")
1016         (normalize "book") ;; just in case nothing else matches...
1017         (normalize "set")  ;; sets are definitely chunks...
1018         ))
1019
1020 ;;Do you want Callouts to be graphics?
1021 (define %callout-graphics%
1022 #f)
1023
1024
1025 ;;Make Callout graphics PNGs
1026 (define %callout-graphics-path%
1027   "./imagelib/callouts/")
1028
1029   ;; Redefine $callout-bug$ to support the %callout-graphic-ext%
1030   ;; variable.
1031   (define ($callout-bug$ conumber)
1032     (let ((number (if conumber (format-number conumber "1") "0")))
1033       (if conumber
1034           (if %callout-graphics%
1035               (if (<= conumber %callout-graphics-number-limit%)
1036                   (make empty-element gi: "IMG"
1037                         attributes: (list (list "SRC"
1038                                                 (root-rel-path
1039                                                  (string-append
1040                                                   %callout-graphics-path%
1041                                                   number
1042                                                   %callout-graphics-ext%)))
1043                                           (list "HSPACE" "0")
1044                                           (list "VSPACE" "0")
1045                                           (list "BORDER" "0")
1046                                           (list "ALT"
1047                                                 (string-append
1048                                                  "(" number ")"))))
1049                   (make element gi: "B"
1050                         (literal "(" (format-number conumber "1") ")")))
1051               (make element gi: "B"
1052                     (literal "(" (format-number conumber "1") ")")))
1053           (make element gi: "B"
1054          (literal "(??)")))))
1055
1056 </style-specification-body>
1057 </style-specification>
1058
1059 <external-specification id="docbook" document="docbook.dsl">
1060
1061 </style-sheet>