lfs.dsl 1.4 KB

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