BOOK/lfs.dsl

   1 <!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
   2 <!ENTITY docbook.dsl SYSTEM "docbook.dsl" CDATA dsssl>
   3 ]>
   4
   5 <style-sheet>
   6
   7 <style-specification use="docbook">
   8 <style-specification-body>
   9
  10 (define %generate-legalnotice-link%
  11 ;; put the legal notice in a separate file
  12 #t)
  13
  14 (define ($legalnotice-link-file$ legalnotice)
  15 ;; filename of the legalnotice file
  16 (string-append "legalnotice"%html-ext%))
  17
  18 (define %html-ext%
  19 ;; html extenstion
  20 ".html")
  21
  22 (define %root-filename%
  23 ;; index file of the book
  24 "index")
  25
  26 (define %use-id-as-filename%
  27 ;; filenames same as id attribute in title tags
  28 #t)
  29
  30 (define %body-attr%
  31 ;; html body settings
  32 (list
  33 (list "BGCOLOR" "#FFFFFF")
  34 (list "TEXT" "#000000")
  35 (list "LINK" "#0000FF")
  36 (list "VLINK" "#840084")
  37 (list "ALINK" "#006000")))
  38
  39 (define (chunk-skip-first-element-list)
  40 ;; forces the Table of Contents on separate page
  41 '())
  42
  43 (define (list-element-list)
  44 ;; fixes bug in Table of Contents generation
  45 '())
  46
  47 (define %shade-verbatim%
  48 ;; verbatim sections will be shaded if t(rue)
  49 #t)
  50
  51 ;;(define %section-autolabel%
  52 ;; For enumerated sections (1.1, 1.1.1, 1.2, etc.)
  53 ;;#t)
  54
  55 (element emphasis
  56 ;; make role=strong equate to bold for emphasis tag
  57 (if (equal? (attribute-string "role") "strong")
  58 (make element gi: "STRONG" (process-children))
  59 (make element gi: "EM" (process-children))))
  60
  61
  62 </style-specification-body>
  63 </style-specification>
  64
  65 <external-specification id="docbook" document="docbook.dsl">
  66
  67 </style-sheet>
  68