docbook-apps message

Subject: DOCBOOK-APPS: problem with customized frames dsssl file
From: Christopher Hornbaker <chrishornbaker@earthlink.net>
To: docbook-apps@lists.oasis-open.org
Date: Thu, 06 Jun 2002 07:32:43 -0400
Hello, I'm having some trouble getting a DSSSL file, that is meant to
create HTML frames, which is based on J. Clark's work, to output
correctly. I'm trying to get it to output a file (the navigation) like
this:

<HTML>
    <HEAD>
        <TITLE>blank</TITLE>
    </HEAD>
<BODY BGCOLOR="#000000">
<CENTER>
<FORM NAME="addresses" ACTION="">
<SELECT NAME="list" onChange="update()">
<OPTION VALUE="/path/to/file">CHAPTER NAME</OPTION>
<OPTION VALUE="/path/to/file">CHAPTER NAME</OPTION>
<OPTION VALUE="/path/to/file">CHAPTER NAME</OPTION>
<OPTION VALUE="/path/to/file">CHAPTER NAME</OPTION>
</SELECT>
<A HREF="updatelink" TARGET="mainindex">GO!</A>
</FORM>
</CENTER>
</BODY>
</HTML>



My DSSSL file reads:

<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN"
[
<!ENTITY docbook.dsl PUBLIC "-//Norman Walsh//DOCUMENT DocBook HTML
Stylesheet//EN" CDATA DSSSL>
]>

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

(define %stylesheet-version%
  "Modular DocBook HTML Frames Stylesheet version 1.0")

(define (make-dhtml-nav)
        (make entity system-id: "chapters.html"
        (make element gi: "HTML"
                (make element gi: "HEAD"
                (make element gi: "TITLE" (literal "blank")
                ($standard-html-header$)
                (make element gi: "SCRIPT"
                        attributes: '(("SRC" "update.js"))
                (empty-sosofo)))
                (make element gi: "BODY"
                        attributes: '(("BGCOLOR" "#000000"))
                (make element gi: "CENTER"
                (make element gi: "FORM"
                        attributes: (list
                                        (list "NAME" "addresses")
                                        (list "ACTION" " ")))
                (make element gi: "SELECT"
                        attributes: (list
                                        (list "NAME" "list")
                                        (list "onChange" "update(" ")"))
                (make element gi: "OPTION"
                        attributes: '(("VALUE" "(current-node)"))
                (element-title-sosofo (current-node))
                (with-mode dhtmltoc
                        (process-children)))))

(mode dhtmltoc
        (default (empty-sosofo))
        (element set (make-dhtml-nav (current-node)
                (list (normalize "book"))))
        (element book (make-dhtml-nav (current-node)
                (list (normalize "part")
                        (normalize "preface")
                        (normalize "chapter")
                        (normalize "appendix")
                        (normalize "reference"))))
        (element preface (make-dhtml-nav (current-node)
                (list (normalize "sect1"))))
        (element part (make-dhtml-nav (current-node)
                (list (normalize "preface")
                        (normalize "chapter")
                        (normalize "appendix")
                        (normalize "reference"))))
        (element chapter (make-dhtml-nav (current-node)
                (list (normalize "sect1"))))
        (element appendix (make-dhtml-nav (current-node)
                (list (normalize "sect1"))))
        (element sect1 (make-dhtml-nav (current-node) '()))
        (element reference (make-dhtml-nav (current-node)
                (list (normalize "refentry"))))
        (element refentry (make-dhtml-nav (current-node) '()))
)

(root
        (make sequence
                (process-children)
                (with-mode manifest
                        (process-children))
                        (make-dhtml-nav)))
                        (process-children))))))

</style-specification-body>
</style-specification>

<external-specification id="docbook" document="docbook.dsl">

</style-sheet>

As you all can probably tell, I am quite new to creating these type of
files. Any help will be appreciated.

Chris