XSL customization

[Sam Steingold <sds@gnu.org>]

I used DSSSL to transform DocBook/XML --> html before and I am trying
to move to XSL now.
I am having some problems when I try to customize the output.

1. is there a way to produce multi-file output with xsltproc (like
   docbook2html does by default)?

2. I have a DSSSL customization layer (appended) which I don't know how
   to convert to XSL.  I would greatly appreciate suggestions!
   E.g., what is the format of the customization layer file?

3. The refentry to *roff converter inserts just a single linebreak into
   the synopsis line:

SYNOPSIS
       clisp [-h] [--help] [--version] [--license] [-B lisp-lib-dir]
             [-K linking-set] [-M mem-file] [-m mem-size] [-s stack-size] [-t te
mp-dir] [-L language] [-N locale-dir] [-Edomain encoding] [-q] [--quiet] [--sile
nt] [-interactive-debug] [-repl] [-w] [-I] [-ansi] [-traditional] [-p package-na
me] [-C] [-v] [-verbose] [--verbose] [-norc] [-i init-file...] [-c [-l] lisp-fil
e [-o output-file]...] [-x expressions] [lisp-file [argument...]]


Thanks!


-- 
Sam Steingold (http://www.podval.org/~sds) running RedHat9 GNU/Linux
<http://www.camera.org> <http://www.iris.org.il> <http://www.memri.org/>
<http://www.mideasttruth.com/> <http://www.palestine-central.com/links.html>
What garlic is to food, insanity is to art.


<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
 <!ENTITY % html "IGNORE">
 <![%html;[
  <!ENTITY % print "IGNORE">
  <!ENTITY docbook.dsl PUBLIC
   "-//Norman Walsh//DOCUMENT DocBook HTML Stylesheet//EN" CDATA dsssl>
  ]]>
 <!ENTITY % print "INCLUDE">
 <![%print;[
  <!ENTITY docbook.dsl PUBLIC
   "-//Norman Walsh//DOCUMENT DocBook Print Stylesheet//EN" CDATA dsssl>
  ]]>
]>

<style-sheet>
<style-specification use="docbook">
<style-specification-body>

;; common to both html and print

(define %default-quadding% "justify")
(define ($generate-book-lot-list$) '())

(define (book-titlepage-recto-elements)
  (list (normalize "title")
	(normalize "subtitle")
	(normalize "date")
	(normalize "pubdate")
	(normalize "edition")
        (normalize "author")
        (normalize "authorblurb")
	(normalize "graphic")
	(normalize "copyright")
	(normalize "legalnotice")))

(element imagedata
  (if (have-ancestor? (normalize "mediaobject"))
      ($img$ (current-node) #t)
      ($img$ (current-node) #f)))

(element emphasis
  (if (equal? (normalize "strong") (attribute-string (normalize "role")))
      ($bold-seq$)
      ($italic-seq$)))

(element literal
  (let ((role (attribute-string (normalize "role"))))
    (case role
      (("sexp" "type")
       (make element gi: "TT" attributes: (list (list "CLASS" role))
             (process-children)))
      (else
       ($mono-seq$)))))

(element (varlistentry term)
  (make sequence
    (process-children-trim)
    (if (not (last-sibling?))
	(make empty-element gi: "BR")
	(literal ""))))

<![%print;[ ;; customize the print stylesheet here

(define %paper-type% "USletter")

]]>

<![%html;[  ;; customize the html stylesheet here

;; /usr/share/sgml/docbook/dsssl-stylesheets/html/dbparam.dsl
(define %force-chapter-toc% #t)
(define %shade-verbatim% #t)
(define biblio-citation-check #t)
(define %html-ext% ".html")
;;(define %html-header-tags% '(("META" ("NAME" "name") ("CONTENT" "content"))))
(define %html-pubid% "-//W3C//DTD HTML 4.01//EN")
;;(define html-index #t)
;;(define html-index-filename "impnotes.idx")
;;(define html-manifest #t)
;;(define html-manifest-filename "impnotes.lst")
(define %stylesheet% "impnotes.css")
(define %use-id-as-filename% #t)
(define %funcsynopsis-decoration% #t)
(define %link-mailto-url% "mailto:clisp-list@sf.net")
(define %section-autolabel% #t)
(define %graphic-extensions%
  '("gif" "png" "jpg" "jpeg" "tif" "tiff" "eps" "epsf" ))
(define %admon-graphics% #t)
(define %admon-graphics-path%
  "/usr/share/sgml/docbook/dsssl-stylesheets/images/")
(define %show-comments% #t)     ; show the REMARK element

;; (define %generate-legalnotice-link% #f) ; default

(define %clisp-gnu-sourceforge-footer%
  (make element gi: "div" attributes: '(("class" "custom-footer"))
        (make empty-element gi: "hr" attributes: '(("width" "100%")))
        (make element gi: "table" attributes: '(("width" "100%"))
              (make element gi: "tr"
                    (make element gi: "td" attributes: '(("align" "left"))
                          (make element gi: "a" attributes:
                                '(("href" "http://clisp.cons.org"))
                                (make empty-element gi: "img" attributes:
                                      '(("src" "clisp.png")
                                        ("width" "48") ("height" "48")
                                        ("alt" "[CLISP home]")))))
                    (make element gi: "td" attributes: '(("align" "center"))
                          (make element gi: "a" attributes:
                                '(("href" "http://www.gnu.org"))
                                (make empty-element gi: "img" attributes:
                                      '(("src" "http://www.gnu.org/graphics/gnubanner.jpg")
                                        ("width" "468") ("height" "60")
                                        ("alt" "[Come and see what GNU creates for YOU]")))))
                    (make element gi: "td" attributes: '(("align" "right"))
                          (make element gi: "a" attributes:
                                '(("href" "http://sourceforge.net"))
                                (make empty-element gi: "img" attributes:
                                      '(("src" "http://sourceforge.net/sflogo.php?group_id=1355&#38;amp;type=2")
                                        ("width" "125") ("height" "37")
                                        ("alt" "[SourceForge]")))))))))

(define (nav-footer elemnode) %clisp-gnu-sourceforge-footer%)

]]>

</style-specification-body>
</style-specification>
<external-specification id="docbook" document="docbook.dsl">
</style-sheet>