SUMMARY: DOCBOOK: Producing HTML from DocBook, without HTML

On Wednesday 29 September 1999, at 14 h 6, the keyboard of Norman Walsh 
<ndw@xxxxxxxxxx> wrote:

> In your custom stylesheet, make a copy of the function (html-document)
> from dbhtml.dsl and change the definition of the 'doc-sosofo' variable

Thanks, Norman, it works. Here is the function I now use. It produces WML (hence the literal '#use wml...') but it can be used for each time you need "embedded HTML" or a deeper customization of the HTML output.


;; Taken from dbhtml.dsl
(define (html-document title-sosofo body-sosofo)
  (let* (;; Let's look these up once, so that we can avoid calculating
	 ;; them over and over again.
	 (prev         (prev-chunk-element))
	 (next         (next-chunk-element))
	 (prevm        (prev-major-component-chunk-element))
	 (nextm        (next-major-component-chunk-element))
	 (navlist      (list prev next prevm nextm))
	 
	 (make-entity? (and (not nochunks)
			    (or (chunk?) 
				(node-list=? (current-node) 
					     (sgml-root-element)))))
	 (make-head?   (or make-entity?
			   (and nochunks
				(node-list=? (current-node)
					     (sgml-root-element)))))

	 (doc-sosofo
	  (make sequence
	    (if make-head?
		(make sequence
		  (literal "#use wml::bortzmeyer::template-debian Title=\"")
		  title-sosofo
		  (literal "\"")
		  (htmlnewline)
		  (htmlnewline))
		(empty-sosofo))
	    (header-navigation (current-node) navlist)
	    body-sosofo
	    (if (node-list=? (current-node) (sgml-root-element))
		(empty-sosofo)
		(footer-navigation (current-node) navlist)))))
    
    (if make-entity?
	(make entity
	  system-id: (html-entity-file (html-file))
	  doc-sosofo)
	(if (node-list=? (current-node) (sgml-root-element))
	    (make sequence
	      doc-sosofo)
	    doc-sosofo))))






 DSSSList info and archive:  http://www.mulberrytech.com/dsssl/dssslist

<- Previous	Index	Next ->
syntax limitations of DTDs (off top, Holger Klawitter	Thread	XSL equivalent sought., DPawson
syntax limitations of DTDs (off top, Holger Klawitter	Date	RE: SOLUTION FOR : How can I add a , Reyes Garcia Rosado
	Month

<-prev [Thread] next->	<-prev [Date] next->
Month Index \| List Home

SUMMARY: DOCBOOK: Producing HTML from DocBook, without HTML <head>