sync with website / convert to xml

3 files changed, 9 insertions, 1154 deletions

diff --git a/desktop-entry/Makefile b/desktop-entry/Makefile
deleted file mode 100644
index 678c153..0000000
--- a/desktop-entry/Makefile
+++ /dev/null
@@ -1,7 +0,0 @@
-all: desktop-entry-spec.html desktop-entry-spec.ps
-
-desktop-entry-spec.html: desktop-entry-spec.sgml spec.dsl
-	jade -t sgml -i html -d spec.dsl#html -V nochunks desktop-entry-spec.sgml > $@
-
-desktop-entry-spec.ps: desktop-entry-spec.sgml spec.dsl
-	docbook2ps -d spec.dsl#print desktop-entry-spec.sgml > $@
diff --git a/desktop-entry/desktop-entry-spec.sgml b/desktop-entry/desktop-entry-spec.xml
index 4177c52..d39e891 100644
--- a/desktop-entry/desktop-entry-spec.sgml
+++ b/desktop-entry/desktop-entry-spec.xml
@@ -1,5 +1,6 @@
-<!doctype article PUBLIC "-//OASIS//DTD DocBook V3.1//EN" [
-]>
+<!DOCTYPE article PUBLIC "-//OASIS//DTD DocBook XML V4.1.2//EN"
+                  "http://www.oasis-open.org/docbook/xml/4.1.2/docbookx.dtd" [
+				  ]>
 <article id="index">
   <artheader>
     <title>Desktop Entry Standard</title>
@@ -138,7 +139,7 @@ Name=Value</programlisting>
       category against the <replaceable>locale</replaceable> postfixes of all occurrences of the key,
       with the .ENCODING part stripped. (The .ENCODING is used when the
       Encoding key for the desktop entry file is Legacy-Mixed, see
-      <xref linkend="legacy-mixed">.)
+      <xref linkend="legacy-mixed"/>.)
     </para>
     <para>
       The matching is done as follows: if the current value of
@@ -185,7 +186,7 @@ Name=Value</programlisting>
     </para>
     <table>
       <title>Standard Keys</title>
-      <tgroup cols=5>
+      <tgroup cols="5">
 	<thead>
 	  <row>
 	    <entry>Key</entry>
@@ -297,7 +298,7 @@ Name=Value</programlisting>
 	    <entry>Actions</entry>
 	    <entry>
               additional actions possible, see MIME type discussion
-	      in <xref linkend="mime-types">
+	      in <xref linkend="mime-types"/>
 	    </entry>
 	    <entry>string(s)</entry>
 	    <entry>NO</entry>
@@ -694,7 +695,7 @@ Name=Value</programlisting>
     Recognized fields are as follows:
     </para>
     <informaltable>
-      <tgroup cols=2>
+      <tgroup cols="2">
 	<tbody>
 	  <row>
 	    <entry>%f</entry>
@@ -865,7 +866,7 @@ Exec=sp -edit %u</programlisting>
       will take place.  This is the preferred method for introducing
       changes.  If one particular party wishes to add a field for personal
       use, they should prefix the key with the string "X-PRODUCT",
-      i.e. "X-NewDesktop-Foo", following the precedent set by other IETF and RFC
+      i.e. "X-NewDesktop-Foo", following the precedent set by other IETF and RFC
       standards.
     </para>
     <para>
@@ -921,7 +922,7 @@ Icon=fooview-edit.png</programlisting>
       explicitely in the table.)
     </para>
     <informaltable>
-      <tgroup cols=2>
+      <tgroup cols="2">
 	<thead>
 	  <row>
 	    <entry>Encoding</entry>
diff --git a/desktop-entry/spec.dsl b/desktop-entry/spec.dsl
deleted file mode 100644
index 55062c0..0000000
--- a/desktop-entry/spec.dsl
+++ /dev/null
@@ -1,1139 +0,0 @@
-<!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>
-]]>
-]>
-
-<!--
-;;#######################################################################
-;;#                                                                     #
-;;#                 The GNOME Documentation Project's                   #
-;;#                  Custion DocBook Stylesheet Layer                   #
-;;#                    by Dave Mason dcm@redhat.com                     #
-;;#            Based on Norman Walsh's Modular Stylesheets              #
-;;#                                                                     #
-;;#            This is intended as a drop-in replacement for            #
-;;#            the cygnus-both.dsl file in DocBook Tools.               #
-;;#           Just copy it to the location dbtools created              #
-;;#                   and rename it cygnus-both.dsl                     #
-;;#                                                                     #
-;;#                       This is Version 1.0-4                         #
-;;#######################################################################
-;;
-;;  Modified for desktop entry spec.
-;; 
-;; article-titlepage-recto-elements: Added date, release info 
-;; %section-autolabel%: Turn on enumerated sections
-;;    
-;; Owen Taylor 8 March 2001
-;; 
--->
-
-<style-sheet>
-
-
-<style-specification id="print" use="docbook">
-<style-specification-body> 
-
-;;==========================================================================
-;;                               PRINT
-;;==========================================================================
-
-;;======================================
-;;General Options
-;;======================================
-
-;;Do you want to print on both sides of the paper?
-(define %two-side% 
- #t)
-
-;;Do you want enumerated sections? (E.g, 1.1, 1.1.1, 1.2, etc.)
-(define %section-autolabel% 
- #t)
-
-;;What is the default extension for graphics?
-(define %graphic-default-extension% 
-  "eps")
-
-;;Show URL links? If the text of the link and the URL are identical,
-;;the parenthetical URL is suppressed.
-(define %show-ulinks%
- #t)
-
-;Make Ulinks footnotes to stop bleeding in the edges - this increases
-;'jade --> print' time tremendously keep this in mind before
-;complaining!
-(define %footnote-ulinks%
-  #t)
-
-;;Tex Backend on
-(define tex-backend 
- #t)
-
-;;Define Line Spacing
-(define %line-spacing-factor% 1.1)
-
-;;Define the Paragraph Style
-(define para-style
-  (style
-   font-size: %bf-size%
-   font-weight: 'medium
-   font-posture: 'upright
-   font-family-name: %body-font-family%
-   line-spacing: (* %bf-size% %line-spacing-factor%)))
-
-(define ($object-titles-after$)
-  (list (normalize "figure")))
-
-;;======================================
-;;Book Options
-;;======================================
-
-
-;;Do you want a title page for a Book?
-(define %generate-book-titlepage%
- #t)
-
-;;Do you want a separate page for the title?
-(define %generate-book-titlepage-on-separate-page%
- #t)
-
-;;Generate Book TOC?
-(define %generate-book-toc% 
- #t)
-
-;;What depth should the TOC generate?
-;;!Only top level of appendixes!
-(define (toc-depth nd)
-  (if (string=? (gi nd) (normalize "book"))
-      3
-      (if (string=? (gi nd) (normalize "appendix"))
-        0
-        1)))
-
-;;Do you want a TOC for the element part?
-(define %generate-part-toc% 
- #f)
-
-;;Do you want the part toc on the part titlepage or separate?
-(define %generate-part-toc-on-titlepage%
- #t)
-
-;;Generate Part Title Page?
-(define %generate-part-titlepage% 
-  #f)
-
-;;Do you want the Part intro on the part title page?
-(define %generate-partintro-on-titlepage%
-  #t)
-
-;;What elements should have a LOT?
-(define ($generate-book-lot-list$)
-  (list (normalize "equation")))
-
-;;Do you want chapters enumerated?
-(define %chapter-autolabel% 
- #t)
-
-;;Do you want Chapter's and Appendix's 
-;;to have automatic labels?
-(define %chap-app-running-head-autolabel% 
-  #t)
-
-
-;;======================================
-;;Article Options
-;;======================================
-
-;;Do you want a title page for an Article?
-(define %generate-article-titlepage%
- #t)
-
-;;Which elements should appear 
-;;on title page?
-(define (article-titlepage-recto-elements)
-  (list (normalize "title")
-	(normalize "subtitle")
-        (normalize "authorgroup")
-        (normalize "copyright")
-        (normalize "legalnotice")
-	(normalize "releaseinfo")
-	(normalize "date")
-        (normalize "abstract")))
-
-;;Generate Article TOC?
-(define %generate-article-toc% 
- #t)
-
-;;Do you want a separate page for the title?
-(define %generate-article-titlepage-on-separate-page%
- #t)
-
-;;Do you want the article toc on the titlepage or separate?
-(define %generate-article-toc-on-titlepage%
- #t)
-
-;;Do you want to start new page numbers with each article?
-(define %article-page-number-restart%
- #f)
-
-;;Titlepage Separate?
-(define (chunk-skip-first-element-list)
-  '())
-
-;;Titlepage Not Separate
-;(define (chunk-skip-first-element-list)
-;  (list (normalize "sect1")
-;	(normalize "section")))
-
-;;======================================
-;;Columns
-;;======================================
-
-;;How many columns do you want?
-(define %page-n-columns%
- 1)
-
-;;How much space between columns?
-(define %page-column-sep%
- 0.2in)
-
-;;How many Columns on the titlepage?
-(define %titlepage-n-columns%
-  1)
-
-;;Balance columns?
-(define %page-balance-colums%
-#t)
-
-;;======================================
-;;Fonts
-;;======================================
-
-;;Defines the general size of the text in the document. normal(10),
-;;presbyopic(12), and large-type(24). 
-(define %visual-acuity%
- "normal")
-
-;;What font would you like for titles?
-(define %title-font-family% 
-  "Helvetica")
-
-;;What font would you like for the body?
-(define %body-font-family% 
- "Palatino")
-
-;;What font would you like for mono-seq?
-(define %mono-font-family% 
- "Courier New")
-
-;;If the base fontsize is 10pt, and '%hsize-bump-factor%' is
-;; 1.2, hsize 1 is 12pt, hsize 2 is 14.4pt, hsize 3 is 17.28pt, etc
-(define %hsize-bump-factor% 
- 1.1)
-
-;;What size do you want the body fonts?
-(define %bf-size%
- (case %visual-acuity%
-    (("tiny") 8pt)
-    (("normal") 10pt)
-    (("presbyopic") 12pt)
-    (("large-type") 24pt)))
-
-(define-unit em %bf-size%)
-
-;;======================================
-;;Margins
-;;======================================
-
-(define %left-right-margin% 6pi)
-
-;;How much indentation for the body?
-(define %body-start-indent% 
- 4pi)
-
-;;How big is the left margin? (relative to physical page)
-(define %left-margin% 
- 8pi) ;white-paper-column
-
-;;How big is the right margin? (relative to physical page)
-(define %right-margin% 
- 8pi) ;white-paper-column
-
-;;How big do you want the margin at the top?
-(define %top-margin%
-(if (equal? %visual-acuity% "large-type")
-      7.5pi
-      4pi))
-
-;;How big do you want the margin at the bottom?
-(define %bottom-margin% 
- (if (equal? %visual-acuity% "large-type")
-      7.5pi 
-      2pi))
-
-;;Define the text width. (Change the elements in the formula rather
-;;than the formula itself)
-;(define %text-width% (- %page-width% (* %left-right-margin% 2)))
-(define %text-width%  (- %page-width% (+ %left-margin% %right-margin%)))
-
-;;Define the body width. (Change the elements in the formula rather
-;;than the formula itself)
-(define %body-width% 
- (- %text-width% %body-start-indent%))
-
-;;Define distance between paragraphs
-(define %para-sep% 
- (/ %bf-size% 2.0))
-
-;;Define distance between block elements (figures, tables, etc.).
-(define %block-sep% 
- (* %para-sep% 2.0))
-
-;;Indent block elements?
-(define %block-start-indent% 
-  0pt)
-;0pt
-
-;;======================================
-;;Admon Graphics
-;;======================================
-
-;;Do you want admon graohics on?
-(define %admon-graphics%
- #f)
-
-;;Where are the admon graphics?
-(define %admon-graphics-path%
- "../images/")
-
-;;======================================
-;;Quadding
-;;======================================
-
-;;What quadding do you want by default; start, center, justify, or end?
-(define %default-quadding%
- 'justify)
-
-;;What quadding for component titles(Chapter, Appendix, etc)?
-(define %component-title-quadding% 
- 'start)
-
-;;What quadding for section titles?
-(define %section-title-quadding% 
- 'start)
-
-;;What quadding for section sub-titles?
-(define %section-subtitle-quadding%
- 'start)
-
-;;What quadding for article title?
-(define %article-title-quadding% 
- 'center)
-
-;;What quadding for article sub-titles?
-(define %article-subtitle-quadding%
- 'center)
-
-;;What quadding for division subtitles?
-(define %division-subtitle-quadding% 
-  'start)
-
-;;What quadding for component subtitles?
-(define %component-subtitle-quadding% 
-  'start)
-
-
-
-
-;;======================================
-;;Paper Options
-;;======================================
-
-;;What size paper do you need? A4, USletter, USlandscape, or RedHat?
-(define %paper-type%
- "USletter")
-
-;;Now define those paper types' width
-(define %page-width%
- (case %paper-type%
-    (("A4") 210mm)
-    (("USletter") 8.5in)
-    (("USlandscape") 11in)))
-
-;;Now define those paper types' height
-(define %page-height%
- (case %paper-type%
-    (("A4") 297mm)
-    (("USletter") 11in)
-    (("USlandscape") 8.5in)))
-
-;;======================================
-;;Functions
-;;======================================
-
-(define (OLSTEP)
-  (case
-   (modulo (length (hierarchical-number-recursive "ORDEREDLIST")) 4)
-	((1) 1.2em)
-	((2) 1.2em)
-	((3) 1.6em)
-	((0) 1.4em)))
-
-(define (ILSTEP) 1.0em)
-
-(define (PROCSTEP ilvl)
-  (if (> ilvl 1) 1.8em 1.4em))
-
-(define (PROCWID ilvl)
-  (if (> ilvl 1) 1.8em 1.4em))
-
-
-(define ($comptitle$)
-  (make paragraph
-	font-family-name: %title-font-family%
-	font-weight: 'bold
-	font-size: (HSIZE 2)
-	line-spacing: (* (HSIZE 2) %line-spacing-factor%)
-	space-before: (* (HSIZE 2) %head-before-factor%)
-	space-after: (* (HSIZE 2) %head-after-factor%)
-	start-indent: 0pt
-	first-line-start-indent: 0pt
-	quadding: 'start
-	keep-with-next?: #t
-	(process-children-trim)))
-
-;;Callouts are confusing in Postscript... fix them.
-(define %callout-fancy-bug% 
- #f)
-
-
-;;By default perils are centered and dropped into a box with a really
-;;big border - I have simply decreased the border thickness -
-;;unfortunately it takes all this to do it - sigh.
-(define ($peril$)
-  (let* ((title     (select-elements 
-		     (children (current-node)) (normalize "title")))
-	 (has-title (not (node-list-empty? title)))
-	 (adm-title (if has-title 
-			(make sequence
-			  (with-mode title-sosofo-mode
-			    (process-node-list (node-list-first title))))
-			(literal
-			 (gentext-element-name 
-			  (current-node)))))
-	 (hs (HSIZE 2)))
-  (if %admon-graphics%
-      ($graphical-admonition$)
-      (make display-group
-	space-before: %block-sep%
-	space-after: %block-sep%
-	font-family-name: %admon-font-family%
-	font-size: (- %bf-size% 1pt)
-	font-weight: 'medium
-	font-posture: 'upright
-	line-spacing: (* (- %bf-size% 1pt) %line-spacing-factor%)
-	(make box
-	  display?: #t
-	  box-type: 'border
-	  line-thickness: .5pt
-	  start-indent: (+ (inherited-start-indent) (* 2 (ILSTEP)) 2pt)
-	  end-indent: (inherited-end-indent)
-	  (make paragraph
-	    space-before: %para-sep%
-	    space-after: %para-sep%
-	    start-indent: 1em
-	    end-indent: 1em
-	    font-family-name: %title-font-family%
-	    font-weight: 'bold
-	    font-size: hs
-	    line-spacing: (* hs %line-spacing-factor%)
-	    quadding: 'center
-	    keep-with-next?: #t
-	    adm-title)
-	  (process-children))))))
-
-
-;;======================================
-;;Non-printing Elements
-;;======================================
-(element TITLEABBREV (empty-sosofo))
-(element SUBTITLE (empty-sosofo))
-(element SETINFO (empty-sosofo))
-(element BOOKINFO (empty-sosofo))
-(element BIBLIOENTRY (empty-sosofo))
-(element BIBLIOMISC (empty-sosofo))
-(element BOOKBIBLIO (empty-sosofo))
-(element SERIESINFO (empty-sosofo))
-(element DOCINFO (empty-sosofo))
-(element ARTHEADER (empty-sosofo))
-(element ADDRESS (empty-sosofo))
-
-;;Show comment element?
-(define %show-comments%
-  #t)
-
-;;Redefine comment for LSB
-(element comment
-  (if %show-comments%
-      (make paragraph
-	start-indent: 0pt
-	first-line-start-indent: -10pt
-	font-posture: 'italic
-	font-size: (* (inherited-font-size) 0.9)
-	(make sequence
-	  (make line-field 
-	    field-width: 10pt
-	    quadding: 'center
-	    (literal "BEGIN RATIONALE:   "))
-	  (process-children))
-	(literal "END RATIONALE:   "))
-      (empty-sosofo)))
-
-;; In DocBook V4.0 comment became remark
-(element remark
-  (if %show-comments%
-      (make paragraph
-	start-indent: 0pt
-	first-line-start-indent: -10pt
-	font-posture: 'italic
-	font-size: (* (inherited-font-size) 0.9)
-	(make sequence
-	  (make line-field 
-	    field-width: 10pt
-	    quadding: 'center
-	    (literal "BEGIN RATIONALE:   "))
-	  (process-children))
-	(literal "END RATIONALE:   "))
-      (empty-sosofo)))
-
-;;======================================
-;;Formalpara titles
-;;======================================
-
-
-;;Change the way Formal Paragraph titles are displayed. The commented
-;;out section will run the titles in the paragraphs. 
-(element (formalpara title)
-  ;(make sequence
-  ;font-weight: 'bold
-  ;($runinhead$))
-  ($lowtitle$ 5))
-
-;;======================================
-;;Inlines
-;;======================================
-
-(element application ($mono-seq$))
-(element command ($bold-seq$))
-(element filename ($mono-seq$))
-(element function ($mono-seq$))
-(element guibutton ($bold-seq$))
-(element guiicon ($bold-seq$))
-(element guilabel ($italic-seq$))
-(element guimenu ($bold-seq$))
-(element guimenuitem ($bold-seq$))
-(element hardware ($bold-mono-seq$))
-(element keycap ($bold-seq$))
-(element literal ($mono-seq$))
-(element parameter ($italic-mono-seq$))
-(element prompt ($mono-seq$))
-(element symbol ($charseq$))
-(element emphasis ($italic-seq$))
-
-</style-specification-body>
-</style-specification>
-
-
-<!-- 
-;;===========================================================================
-;;                                HTML
-;;===========================================================================
--->
-
-<style-specification id="html" use="docbook">
-<style-specification-body> 
-
-;; this is necessary because right now jadetex does not understand
-;; symbolic entities, whereas things work well with numeric entities.
-(declare-characteristic preserve-sdata?
-          "UNREGISTERED::James Clark//Characteristic::preserve-sdata?"
-          #f)
-
-
-;;=========================
-;;Header HTML 4.0.1
-;;=========================
-
-(define %html-pubid% "-//W3C//DTD HTML 4.01//EN")
-
-;;=========================
-;;Common Stuff
-;;=========================
-
-;;Should there be a link to the legalnotice?
-(define %generate-legalnotice-link%
-  #t)
-
-;;What graphics extensions allowed?
-(define %graphic-extensions% 
-'("gif" "png" "jpg" "jpeg" "tif" "tiff" "eps" "epsf" ))
-
-;;What is the default extension for images?
-(define %graphic-default-extension% "png")
-
-;;Use element ids as filenames?
-(define %use-id-as-filename%
- #t)
-
-
-;;=========================
-;;Book Stuff
-;;=========================
-
-;;Do you want a TOC for Books?
-(define %generate-book-toc% 
-  #t)
-
-;;What depth should the TOC generate?
-;;!Only top level of appendixes!
-(define (toc-depth nd)
-  (if (string=? (gi nd) (normalize "book"))
-      3
-      (if (string=? (gi nd) (normalize "appendix"))
-        0
-        1)))
-
-;;What elements should have an LOT?
-(define ($generate-book-lot-list$)
-  (list (normalize "equation")))
-
-;;Do you want a title page for your Book?
-(define %generate-book-titlepage%
-#t)
-
-;;=========================
-;;Part Stuff
-;;=========================
-
-;;Should parts have TOCs?
-(define %generate-part-toc% 
-  #t)
-
-;;Should part TOCs be on their titlepages?
-(define %generate-part-toc-on-titlepage%
-  #t)
-
-;;Do you want a title page for your part?
-(define %generate-part-titlepage% 
-  #t)
-
-;;Should the Part intro be on the part title page?
-(define %generate-partintro-on-titlepage%
- #t)
-
-(define %para-autolabel%
- #t)
-
-;;========================
-;;Chapter Stuff
-;;=======================
-
-;;No TOCs in Chapters
-(define $generate-chapter-toc$
- (lambda ()
-    #f))
-
-;;=========================
-;;Navigation
-;;=========================
-
-;;Should there be navigation at top?
-(define %header-navigation%
- #t)
-
-;;Should there be navigation at bottom?
-(define %footer-navigation%
-  #t)
-
-;;Use tables to create the navigation?
-(define %gentext-nav-use-tables%
- #t)
-
-;;If tables are used for navigation, 
-;;how wide should they be? 
-(define %gentext-nav-tblwidth% 
-"100%")
-
-;;Add arrows to navigation (comment these 
-;;out if you want admon graphics here)
-(define (gentext-en-nav-prev prev) 
-  (make sequence (literal "<<< Previous")))
-
-;;Add arrows to navigation (comment these 
-;;out if you want admon graphics here)
-(define (gentext-en-nav-next next)
-  (make sequence (literal "Next >>>")))
-
-
-;;=========================
-;;Tables and Lists
-;;=========================
-
-;;Should Variable lists be tables?
-(define %always-format-variablelist-as-table%
- #f)
-
-;;What is the length of the 'Term' in a variablelist?
-(define %default-variablelist-termlength%
-  20)
-
-;;When true | If the terms are shorter than 
-;;the termlength above then the variablelist 
-;;will be formatted as a table.
-(define %may-format-variablelist-as-table%
-#f)
-
-;;This overrides the tgroup definition 
-;;(copied from 1.20, dbtable.dsl).
-;;It changes the table background color, 
-;;cell spacing and cell padding.
-;;This is based on gtk-doc additions - thanks!
-
-(element tgroup
-  (let* ((wrapper   (parent (current-node)))
-	 (frameattr (attribute-string (normalize "frame") wrapper))
-	 (pgwide    (attribute-string (normalize "pgwide") wrapper))
-	 (footnotes (select-elements (descendants (current-node)) 
-				     (normalize "footnote")))
-	 (border (if (equal? frameattr (normalize "none"))
-		     '(("BORDER" "0"))
-		     '(("BORDER" "1"))))
-	 (bgcolor '(("BGCOLOR" "#E0E0E0")))
-	 (width (if (equal? pgwide "1")
-		    (list (list "WIDTH" ($table-width$)))
-		    '()))
-	 (head (select-elements (children (current-node)) (normalize "thead")))
-	 (body (select-elements (children (current-node)) (normalize "tbody")))
-	 (feet (select-elements (children (current-node)) (normalize "tfoot"))))
-    (make element gi: "TABLE"
-	  attributes: (append
-		       border
-		       width
-		       bgcolor
-		       '(("CELLSPACING" "0"))
-		       '(("CELLPADDING" "4"))
-		       (if %cals-table-class%
-			   (list (list "CLASS" %cals-table-class%))
-			   '()))
-	  (process-node-list head)
-	  (process-node-list body)
-	  (process-node-list feet)
-	  (make-table-endnotes))))
-
-;;===================
-;; Admon Graphics
-;;===================
-
-;;Should Admon Graphics be used?
-(define %admon-graphics%
-  #t)
-
-;;Where are those admon graphics?
-(define %admon-graphics-path%
-  "./stylesheet-images/")
-
-;;Given an admonition node, returns the 
-;;name of the graphic that should
-;;be used for that admonition.
-;;Define admon graphics usage
-;;NOTE these will change to pngs 
-;;soon in the GDP when Tigert gets 
-;;the time to make special ones for us!
-(define ($admon-graphic$ #!optional (nd (current-node)))
-  (cond ((equal? (gi nd) (normalize "tip"))
-	 (string-append %admon-graphics-path% "tip.gif"))
-	((equal? (gi nd) (normalize "note"))
-	 (string-append %admon-graphics-path% "note.gif"))
-	((equal? (gi nd) (normalize "important"))
-	 (string-append %admon-graphics-path% "important.gif"))
-	((equal? (gi nd) (normalize "caution"))
-	 (string-append %admon-graphics-path% "caution.gif"))
-	((equal? (gi nd) (normalize "warning"))
-	 (string-append %admon-graphics-path% "warning.gif"))
-	(else (error (string-append (gi nd) " is not an admonition.")))))
-
-;;Given an admonition node, returns 
-;;the width of the graphic that will
-;;be used for that admonition.
-(define ($admon-graphic-width$ #!optional (nd (current-node)))
-  "25")
-
-;;=========================
-;;Labels
-;;=========================
-
-;;Enumerate Chapters?
-(define %chapter-autolabel% 
- #f)
-
-;;Enumerate Sections?
-(define %section-autolabel%
- #t)
-
-;;=========================
-;;    HTML Attributes
-;;=========================
-
-;;What attributes should be hung off 
-;;of 'body'?
-(define %body-attr%
- (list
-   (list "BGCOLOR" "#FFFFFF")
-   (list "TEXT" "#000000")
-   (list "LINK" "#0000FF")
-   (list "VLINK" "#840084")
-   (list "ALINK" "#0000FF")))
-
-;;Default extension for filenames?
-(define %html-ext% 
-  ".html")
-
-;;Use a CSS stylesheet?
-;;Which one? Should work on 
-;;this one soon
-;(define %stylesheet% 
-;        "./gnome.css")
-
-;;Use it
-;(define %stylesheet-type% 
-;"text/css")
-
-
-;;========================
-;;Title Pages for Books
-;;=======================
-
-(define (book-titlepage-recto-elements)
-  (list (normalize "title")
-	(normalize "subtitle")
-	(normalize "corpauthor")
-	(normalize "authorgroup")
-	(normalize "author")
-	(normalize "orgname")
-	(normalize "graphic")
-	(normalize "copyright")
-	(normalize "legalnotice")
-	(normalize "releaseinfo")
-	(normalize "publisher")
-	(normalize "isbn")))
-
-;;========================
-;;Title Pages for Articles
-;;========================
-
-;;Should Articles have a TOC?
-(define %generate-article-toc% 
-  #t)
-
-;;Which elements should appear 
-;;on title page?
-(define (article-titlepage-recto-elements)
-  (list (normalize "title")
-	(normalize "subtitle")
-        (normalize "authorgroup")
-        (normalize "copyright")
-        (normalize "legalnotice")
-	(normalize "releaseinfo")
-	(normalize "date")
-        (normalize "abstract")))
-
-;;How should elements on title page look?
-(mode article-titlepage-recto-mode
-
-;;Author name is too big - change it!
-  (element author
-    (let ((author-name  (author-string))
-	  (author-affil (select-elements (children (current-node)) 
-					 (normalize "affiliation"))))
-      (make sequence      
-	(make element gi: "H4"
-	      attributes: (list (list "CLASS" (gi)))
-	      (make element gi: "A"
-		    attributes: (list (list "NAME" (element-id)))
-		    (literal author-name)))
-	(process-node-list author-affil))))
-
-;;Address?
-  (element address 
-    (make sequence
-      (make element gi: "DIV"
-            attributes: (list (list "CLASS" (gi)))
-            (process-children))))
-
-;;Get rid of spam-producing "mailto" links
-;;and get rid of email indentation  
-  (element email
-    (make sequence
-      (make element gi: "DIV"
-            attributes: (list (list "CLASS" (gi)))
-            (process-children))))
-
-;;Point Abstract to custom table function 
-;;(See $dcm-abstract-object$ below. For default
-;;use $semiformal-object$
-  (element abstract
-    (make element gi: "DIV"
-          ($dcm-abstract-object$)))
-
-  (element (abstract title) (empty-sosofo))
-
-;;subtitle sizing
-(element subtitle 
-  (make element gi: "H4"
-        attributes: (list (list "CLASS" (gi)))
-        (process-children-trim))))
-
-;;=================
-;;    INLINES
-;;=================
-
-;Define my own series of fonts for various elements
-(element application ($mono-seq$))
-(element command ($bold-seq$))
-(element filename ($mono-seq$))
-(element function ($mono-seq$))
-(element guibutton ($bold-seq$))
-(element guiicon ($bold-seq$))
-(element guilabel ($bold-mono-seq$))
-(element guimenu ($bold-seq$))
-(element guimenuitem ($bold-seq$))
-(element guisubmenu ($bold-seq$))
-(element hardware ($bold-mono-seq$))
-(element keycap ($bold-seq$))
-(element literal ($mono-seq$))
-(element parameter ($italic-mono-seq$))
-(element prompt ($mono-seq$))
-(element symbol ($charseq$))
-(element emphasis ($italic-seq$))
-
-;;Show comment element?
-(define %show-comments%
-  #t)
-
-;;Redefine comment element for LSB
-(element comment
-  (if %show-comments%
-      (make element gi: "TABLE"
-	    attributes: ($shade-verbatim-attr$)
-	    (make element gi: "TR"
-		  (make element gi: "TD"
-			(literal "RATIONALE:")
-			(make element gi: "P"
-			      (process-children)))))
-      (empty-sosofo)))
-
-;;In DocBook V4.0 comment became remark
-(element remark
-  (if %show-comments%
-      (make element gi: "TABLE"
-	    attributes: ($shade-verbatim-attr$)
-	    (make element gi: "TR"
-		  (make element gi: "TD"
-			(literal "RATIONALE:")
-			(make element gi: "P"
-			      (process-children)))))
-      (empty-sosofo)))
-
-;;====================
-;; General Formatting
-;;====================
-
-;;Formal Paras are ugly by default!
-;;Make the title run in - otherwise 
-;;you should use a sect!
-(element formalpara
-  (make element gi: "DIV"
-	attributes: (list
-		     (list "CLASS" (gi)))
-  	(make element gi: "P"
-	      (process-children))))
-
-;;This is the old one 
-;(element (formalpara title) 
-;($lowtitle$ 5))
-
-;;This is the new one
-(element (formalpara title) 
-  (make element gi: "B"
-	($runinhead$)))
-
-;;Make captions come after objects in the list
-(define ($object-titles-after$)
-  (list (normalize "figure")))
-
-
-;; Handle qanda labelling with Q: A:
-(define (qanda-defaultlabel)
-  (normalize "qanda"))
-
-;;From FreeBSD Sheets (Thanks!) Display Q and A in bigger bolder fonts
-
-(element question
-  (let* ((chlist   (children (current-node)))
-	 (firstch  (node-list-first chlist))
-	 (restch   (node-list-rest chlist)))
-    (make element gi: "DIV"
-	  attributes: (list (list "CLASS" (gi)))
-	  (make element gi: "P" 
-		(make element gi: "BIG"
-		      (make element gi: "A"
-			    attributes: (list
-					 (list "NAME" (element-id)))
-			    (empty-sosofo))
-		      (make element gi: "B"
-			    (literal (question-answer-label
-				      (current-node)) " ")
-			    (process-node-list (children firstch)))))
-	  (process-node-list restch))))
-
-;;Literal Elements
-
-;;Indent Literal layouts?
-(define %indent-literallayout-lines% 
-  #f)
-
-;;Indent Programlistings?
-(define %indent-programlisting-lines%
-  #f)
-
-;;Number lines in Programlistings?
-(define %number-programlisting-lines%
- #f)
-
-;;Should verbatim items be 'shaded' with a table?
-(define %shade-verbatim% 
- #t)
-
-;;Define shade-verbatim attributes
-(define ($shade-verbatim-attr$)
- (list
-  (list "BORDER" "0")
-  (list "BGCOLOR" "#E0E0E0")
-  (list "WIDTH" ($table-width$))))
-
-;;===================
-;;    Entities
-;;===================
-
-;;Netscape doesn't handle trademark 
-;;entity right at all!! Get rid of it.
-;;Make a TM in a superscipt font.
-(element trademark
-  (make sequence
-    (process-children)
-    (make element gi: "sup"
-    (literal "TM"))))
-
-
-;;===================
-;; New Definitions
-;;==================
-
-(define ($dcm-abstract-object$)
-   (make element gi: "TABLE"
-        attributes: '(("BORDER" "0")
-                      ("BGCOLOR" "#E0E0E0")
-                      ("WIDTH" "50%")
-                      ("CELLSPACING" "0")
-                      ("CELLPADDING" "0")
-                      ("ALIGN" "CENTER"))
-        (make element gi: "TR"
-              (make element gi: "TD"
-                    attributes: '(("VALIGN" "TOP"))
-                    (make element gi: "B"
-                    (literal "Abstract"))))
-        (make element gi: "TR"
-              (make element gi: "TD"
-                    attributes: '(("VALIGN" "TOP"))
-                    (process-children)))))
-
-;;Redefine Titlepage Separator on Articles
-
-(define (article-titlepage-separator side)
-  (make empty-element gi: "HR"
-  attributes: '(("WIDTH" "75%")
-                 ("ALIGN" "CENTER")
-                 ("COLOR" "#000000")
-                 ("SIZE" "1"))))
-
-
-
-
-(define (chunk-element-list)
-  (list (normalize "preface")
-	(normalize "chapter")
-	(normalize "appendix") 
-	(normalize "article")
-	(normalize "glossary")
-	(normalize "bibliography")
-	(normalize "index")
-	(normalize "colophon")
-	(normalize "setindex")
-	(normalize "reference")
-	(normalize "refentry")
-	(normalize "part")
-	(normalize "sect1") 
-	(normalize "section") 
-	(normalize "book") ;; just in case nothing else matches...
-	(normalize "set")  ;; sets are definitely chunks...
-	))
-
-;;Do you want Callouts to be graphics?
-(define %callout-graphics%
-#f)
-
-
-;;Make Callout graphics PNGs
-(define %callout-graphics-path%
-  "./imagelib/callouts/")
-
-  ;; Redefine $callout-bug$ to support the %callout-graphic-ext%
-  ;; variable.
-  (define ($callout-bug$ conumber)
-    (let ((number (if conumber (format-number conumber "1") "0")))
-      (if conumber
-          (if %callout-graphics%
-              (if (<= conumber %callout-graphics-number-limit%)
-                  (make empty-element gi: "IMG"
-                        attributes: (list (list "SRC"
-                                                (root-rel-path
-                                                 (string-append
-                                                  %callout-graphics-path%
-                                                  number
-                                                  %callout-graphics-ext%)))
-                                          (list "HSPACE" "0")
-                                          (list "VSPACE" "0")
-                                          (list "BORDER" "0")
-                                          (list "ALT"
-                                                (string-append
-                                                 "(" number ")"))))
-                  (make element gi: "B"
-                        (literal "(" (format-number conumber "1") ")")))
-              (make element gi: "B"
-                    (literal "(" (format-number conumber "1") ")")))
-          (make element gi: "B"
-         (literal "(??)")))))
-
-</style-specification-body>
-</style-specification>
-
-<external-specification id="docbook" document="docbook.dsl">
-
-</style-sheet>