<!-- $FreeBSD: doc/share/sgml/default.dsl,v 1.1 2000/09/28 23:29:48 nbm Exp $ -->

<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [

<!ENTITY olink.dsl PUBLIC "-//Norman Walsh//DOCUMENT DocBook OLink Summary V1.1//EN" CDATA DSSSL>

]>

<style-sheet>

  <style-specification use="olink">

    <style-specification-body>

      <![ %output.html; [

        (define %gentext-nav-use-tables%

          ;; Use tables to build the navigation headers and footers?

          #t)

        (define %html-ext%

          ;; Default extension for HTML output files

          ".html")

        (define %shade-verbatim%

          ;; Should verbatim environments be shaded?

          #f)

        (define %use-id-as-filename%

          ;; Use ID attributes as name for component HTML files?

          #t)

        (define %root-filename%

          ;; Name for the root HTML document

          "index")

        (define html-manifest

          ;; Write a manifest?

          #f)

        (define %generate-legalnotice-link%

          ;; Should legal notices be a link to a separate file?

          ;;

          ;; Naturally, this has no effect if you're building one big

          ;; HTML file.

          #t)

	]]>

    </style-specification-body>

  </style-specification>

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

</style-sheet>

<!ENTITY doc.faq SYSTEM "../../books/faq/faq.sgml" CDATA SGML>

<!ENTITY doc.handbook SYSTEM "../../books/handbook/book.sgml" CDATA SGML>

      <!-- Conclusions: I don't know what I'm doing.

           Assumptions: many.

      -->

      (define (olink-href target modespec)

	(let* ((linfo   (normalize (attribute-string (normalize "localinfo"))))

	       (sysid   (entity-system-id target))

	       (basef   (trim-string sysid '(".sgml")))

	       (based   (trim-string basef '("book" "article")))

	       (sumdoc  (sgml-parse (string-append basef %olink-outline-ext%)))

	       (root    (node-property 'document-element sumdoc))

	       (node    (if linfo (element-with-id linfo root) root))

	       (idfn    (attribute-string (normalize "id") node))

	       (anchor  (if idfn (string-append "#" idfn) ""))

	       (href    (string-append based

			 (attribute-string (normalize "href") node) anchor)))

	  href))

PUBLIC "-//FreeBSD//ENTITIES DocBook Document Entities//EN"

	"doc-refs.ent"

DSLOLINK?=	${DOC_PREFIX}/share/sgml/olink.dsl