summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--desktop-entry/Makefile7
-rw-r--r--desktop-entry/desktop-entry-spec.xml (renamed from desktop-entry/desktop-entry-spec.sgml)17
-rw-r--r--desktop-entry/spec.dsl1139
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>