doc/zebraphp.dsl.in

   1 <!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
   2 <!ENTITY docbook.dsl SYSTEM "@DSSSL_DIR@/html/docbook.dsl"
   3   CDATA DSSSL>
   4 ]>
   5 <!--
   6   $Id: zebraphp.dsl.in,v 1.1 2002-04-08 19:52:29 adam Exp $
   7 -->
   8 <style-sheet>
   9 <style-specification use="docbook">
  10 <style-specification-body>
  11
  12 (define %use-id-as-filename% #t)
  13 (define %output-dir% "php")
  14 (define %html-ext% ".php")
  15 (define %shade-verbatim% #t)
  16
  17 (define newline "\U-000D")
  18
  19 (define (html-document title-sosofo body-sosofo)
  20   (let* (;; Let's look these up once, so that we can avoid calculating
  21          ;; them over and over again.
  22          (prev         (prev-chunk-element))
  23          (next         (next-chunk-element))
  24          (prevm        (prev-major-component-chunk-element))
  25          (nextm        (next-major-component-chunk-element))
  26          (navlist      (list prev next prevm nextm))
  27
  28          ;; Let's make it possible to control the output even in the
  29          ;; nochunks case. Note: in the nochunks case, (chunk?) will
  30          ;; return #t for only the root element.
  31          (make-entity? (and (or (not nochunks) rootchunk)
  32                             (chunk?)))
  33
  34          (make-head?   (or make-entity?
  35                            (and nochunks
  36                                 (node-list=? (current-node)
  37                                              (sgml-root-element)))))
  38          (doc-sosofo
  39           (if make-head?
  40               (make sequence
  41                 (make formatting-instruction data:
  42                       (string-append "<" "?php "
  43                                      newline
  44                                      "require \"../../id_common.inc\";"
  45                                      newline
  46                                      "id_header(\""
  47                                      )
  48                       )
  49                 title-sosofo
  50                 (make formatting-instruction data:
  51                       (string-append "\");"
  52                                      newline
  53                                      "?" ">"
  54                                      )
  55                       )
  56                 (header-navigation (current-node) navlist)
  57                 body-sosofo
  58                 (footer-navigation (current-node) navlist)
  59                 (make formatting-instruction data:
  60                       (string-append "<" "?php id_footer() ?>")
  61                       )
  62                 )
  63               body-sosofo
  64               )
  65           )
  66          )
  67     (if make-entity?
  68         (make entity
  69           system-id: (html-entity-file (html-file))
  70           (if %html-pubid%
  71               (make document-type
  72                 name: "HTML"
  73                 public-id: %html-pubid%)
  74               (empty-sosofo))
  75           doc-sosofo)
  76         (if (node-list=? (current-node) (sgml-root-element))
  77             (make sequence
  78               (if %html-pubid%
  79                   (make document-type
  80                     name: "HTML"
  81                     public-id: %html-pubid%)
  82                   (empty-sosofo))
  83               doc-sosofo)
  84             doc-sosofo)
  85         )
  86     )
  87   )
  88
  89 </style-specification-body>
  90 </style-specification>
  91 <external-specification id="docbook" document="docbook.dsl">
  92 </style-sheet>
  93
  94 <!--
  95 Local Variables:
  96 mode: scheme
  97 End:
  98 -->