mirror of https://github.com/postgres/postgres
All documentation is now built using XSLT. Remove all references to Jade, DSSSL, also JadeTex and some other outdated tooling. For chunked HTML builds, this changes nothing, but removes the transitional "oldhtml" target. The single-page HTML build is ported over to XSLT. For PDF builds, this removes the JadeTex builds and moves the FOP builds in their place.pull/3/merge
Peter Eisentraut
8 years ago
parent
3f902354b0
commit
510074f9f0
@ -1,46 +0,0 @@ |
||||
#!/bin/sh |
||||
# fixrtf |
||||
|
||||
# doc/src/sgml/fixrtf |
||||
|
||||
# Repair (slightly) damaged RTF generated by jade |
||||
# Applixware wants the s0 stylesheet defined, whereas |
||||
# M$Word does not care about it. |
||||
# (c) 2001, Thomas Lockhart, PostgreSQL Inc. |
||||
|
||||
flist="" |
||||
RPAT="" |
||||
for i in $@ ; do |
||||
case "$i" in |
||||
-r|--refentry) |
||||
RPAT='-e s/\\\keepn/\\\keep/g' |
||||
;; |
||||
-?|--help) |
||||
echo "$0 [--refentry] <rtf file> ..." |
||||
exit 0 |
||||
;; |
||||
-*) |
||||
echo "Command $i not recognized" |
||||
$0 --help |
||||
exit 1 |
||||
;; |
||||
*) |
||||
flist="$flist $i" |
||||
esac |
||||
done |
||||
|
||||
if [ "$flist" = "" ] ; then |
||||
flist=*.rtf |
||||
fi |
||||
|
||||
for f in $flist ; do |
||||
echo -n "Repairing '$f' ..." |
||||
if [ -r $f ] ; then |
||||
(sed -e 's/{\\stylesheet{\\s1/{\\stylesheet{\\s0 Normal 0;}{\\s1/g' $RPAT $f > $f.new \ |
||||
&& mv -f $f.new $f \ |
||||
&& echo " done") || echo " failed" |
||||
else |
||||
echo " file not found" |
||||
fi |
||||
done |
||||
exit |
||||
@ -1,89 +0,0 @@ |
||||
% doc/src/sgml/jadetex.cfg |
||||
% |
||||
% This file redefines \FlowObjectSetup and some related macros to greatly |
||||
% reduce the number of control sequence names created, and also to avoid |
||||
% creation of many useless hyperlink anchors (bookmarks) in PDF files. |
||||
% |
||||
% The original coding of \FlowObjectSetup defined a control sequence x@LABEL |
||||
% for pretty nearly every flow object in the file, whether that object was |
||||
% cross-referenced or not. Worse yet, it created a hyperlink anchor for |
||||
% every such object, which not only bloated the output PDF with useless |
||||
% anchors but consumed an additional control sequence name per anchor. |
||||
% This results in overrunning TeX's limited-size string pool. |
||||
% |
||||
% To fix, extend \PageLabel's already-existing mechanism whereby a p@LABEL |
||||
% control sequence is filled in only for labels that are referenced by at |
||||
% least one \Pageref call. We now also fill in p@LABEL for labels that are |
||||
% referenced by a \Link. Then, we can drop x@LABEL entirely, and use p@LABEL |
||||
% to control emission of both a hyperlink anchor and a page-number label. |
||||
% Now, both of those things are emitted for all and only the flow objects |
||||
% that have either a hyperlink reference or a page-number reference. |
||||
% We consume about one control sequence name per flow object plus one per |
||||
% referenced object, which is a lot better than three per flow object. |
||||
% |
||||
% (With a more invasive patch, we could track the need for an anchor and a |
||||
% page-number label separately, but that would probably require two control |
||||
% sequences for every flow object. Besides, many objects that have one kind |
||||
% of reference will have the other one too; that's certainly true for objects |
||||
% referenced in either the TOC or the index, for example.) |
||||
% |
||||
% |
||||
% In addition to checking p@LABEL not x@LABEL, this version of \FlowObjectSetup |
||||
% is fixed to clear \Label and \Element whether or not it emits an anchor |
||||
% and page label. Failure to do that seems to explain some pre-existing bugs |
||||
% in which certain SGML constructs weren't correctly cross-referenced. |
||||
% |
||||
\def\FlowObjectSetup#1{% |
||||
\ifDoFOBSet |
||||
\ifLabelElements |
||||
\ifx\Label\@empty\let\Label\Element\fi |
||||
\fi |
||||
\ifx\Label\@empty\else |
||||
\expandafter\ifx\csname p@\Label\endcsname\relax |
||||
\else |
||||
\bgroup |
||||
\ifNestedLink |
||||
\else |
||||
\hyper@anchorstart{\Label}\hyper@anchorend |
||||
\PageLabel{\Label}% |
||||
\fi |
||||
\egroup |
||||
\fi |
||||
\let\Label\@empty |
||||
\let\Element\@empty |
||||
\fi |
||||
\fi |
||||
} |
||||
% |
||||
% Adjust \PageLabel so that the p@NAME control sequence acquires a correct |
||||
% value immediately; this seems to be needed to avoid scenarios wherein |
||||
% additional TeX runs are needed to reach a stable state of the .aux file. |
||||
% |
||||
\def\PageLabel#1{% |
||||
\@bsphack |
||||
\expandafter\ifx\csname p@#1\endcsname\relax |
||||
\else |
||||
\protected@write\@auxout{}% |
||||
{\string\pagelabel{#1}{\thepage}}% |
||||
% Ensure the p@NAME control sequence acquires correct value immediately |
||||
\expandafter\xdef\csname p@#1\endcsname{\thepage}% |
||||
\fi |
||||
\@esphack} |
||||
% |
||||
% In \Link, add code to emit an aux-file entry if the p@NAME sequence isn't |
||||
% defined. Much as in \@Setref, this ensures we'll process the referenced |
||||
% item correctly on the next TeX run. |
||||
% |
||||
\def\Link#1{% |
||||
\begingroup |
||||
\SetupICs{#1}% |
||||
\ifx\Label\@empty\let\Label\Element\fi |
||||
% \typeout{Made a Link at \the\inputlineno, to \Label}% |
||||
\hyper@linkstart{\LinkType}{\Label}% |
||||
\NestedLinktrue |
||||
% If p@NAME control sequence isn't defined, emit dummy def to aux file |
||||
% so it will get defined properly on next run, much as in \@Setref |
||||
\expandafter\ifx\csname p@\Label\endcsname\relax |
||||
\immediate\write\@mainaux{\string\pagelabel{\Label}{qqq}}% |
||||
\fi |
||||
} |
||||
@ -0,0 +1,266 @@ |
||||
<?xml version="1.0" encoding="utf-8"?> |
||||
<!DOCTYPE xsl:stylesheet [ |
||||
<!ENTITY % common.entities SYSTEM "http://docbook.sourceforge.net/release/xsl/current/common/entities.ent"> |
||||
%common.entities; |
||||
]> |
||||
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" |
||||
version="1.0"> |
||||
|
||||
<!-- |
||||
This file contains XSLT stylesheet customizations that are common to |
||||
all HTML output variants (chunked and single-page). |
||||
--> |
||||
|
||||
<!-- Parameters --> |
||||
<xsl:param name="make.valid.html" select="1"></xsl:param> |
||||
<xsl:param name="generate.id.attributes" select="1"></xsl:param> |
||||
<xsl:param name="link.mailto.url">pgsql-docs@postgresql.org</xsl:param> |
||||
<xsl:param name="toc.max.depth">2</xsl:param> |
||||
|
||||
|
||||
<!-- Change display of some elements --> |
||||
|
||||
<xsl:template match="command"> |
||||
<xsl:call-template name="inline.monoseq"/> |
||||
</xsl:template> |
||||
|
||||
<xsl:template match="confgroup" mode="bibliography.mode"> |
||||
<span> |
||||
<xsl:call-template name="common.html.attributes"/> |
||||
<xsl:call-template name="id.attribute"/> |
||||
<xsl:apply-templates select="conftitle/text()" mode="bibliography.mode"/> |
||||
<xsl:text>, </xsl:text> |
||||
<xsl:apply-templates select="confdates/text()" mode="bibliography.mode"/> |
||||
<xsl:copy-of select="$biblioentry.item.separator"/> |
||||
</span> |
||||
</xsl:template> |
||||
|
||||
<xsl:template match="isbn" mode="bibliography.mode"> |
||||
<span> |
||||
<xsl:call-template name="common.html.attributes"/> |
||||
<xsl:call-template name="id.attribute"/> |
||||
<xsl:text>ISBN </xsl:text> |
||||
<xsl:apply-templates mode="bibliography.mode"/> |
||||
<xsl:copy-of select="$biblioentry.item.separator"/> |
||||
</span> |
||||
</xsl:template> |
||||
|
||||
|
||||
<!-- table of contents configuration --> |
||||
|
||||
<xsl:param name="generate.toc"> |
||||
appendix toc,title |
||||
article/appendix nop |
||||
article toc,title |
||||
book toc,title |
||||
chapter toc,title |
||||
part toc,title |
||||
preface toc,title |
||||
qandadiv toc |
||||
qandaset toc |
||||
reference toc,title |
||||
sect1 toc |
||||
sect2 toc |
||||
sect3 toc |
||||
sect4 toc |
||||
sect5 toc |
||||
section toc |
||||
set toc,title |
||||
</xsl:param> |
||||
|
||||
<xsl:param name="generate.section.toc.level" select="1"></xsl:param> |
||||
|
||||
<!-- include refentry under sect1 in tocs --> |
||||
<xsl:template match="sect1" mode="toc"> |
||||
<xsl:param name="toc-context" select="."/> |
||||
<xsl:call-template name="subtoc"> |
||||
<xsl:with-param name="toc-context" select="$toc-context"/> |
||||
<xsl:with-param name="nodes" select="sect2|refentry |
||||
|bridgehead[$bridgehead.in.toc != 0]"/> |
||||
</xsl:call-template> |
||||
</xsl:template> |
||||
|
||||
|
||||
<!-- Put index "quicklinks" (A | B | C | ...) at the top of the bookindex page. --> |
||||
|
||||
<!-- from html/autoidx.xsl --> |
||||
|
||||
<xsl:template name="generate-basic-index"> |
||||
<xsl:param name="scope" select="NOTANODE"/> |
||||
|
||||
<xsl:variable name="role"> |
||||
<xsl:if test="$index.on.role != 0"> |
||||
<xsl:value-of select="@role"/> |
||||
</xsl:if> |
||||
</xsl:variable> |
||||
|
||||
<xsl:variable name="type"> |
||||
<xsl:if test="$index.on.type != 0"> |
||||
<xsl:value-of select="@type"/> |
||||
</xsl:if> |
||||
</xsl:variable> |
||||
|
||||
<xsl:variable name="terms" |
||||
select="//indexterm |
||||
[count(.|key('letter', |
||||
translate(substring(&primary;, 1, 1), |
||||
&lowercase;, |
||||
&uppercase;)) |
||||
[&scope;][1]) = 1 |
||||
and not(@class = 'endofrange')]"/> |
||||
|
||||
<xsl:variable name="alphabetical" |
||||
select="$terms[contains(concat(&lowercase;, &uppercase;), |
||||
substring(&primary;, 1, 1))]"/> |
||||
|
||||
<xsl:variable name="others" select="$terms[not(contains(concat(&lowercase;, |
||||
&uppercase;), |
||||
substring(&primary;, 1, 1)))]"/> |
||||
|
||||
<div class="index"> |
||||
<!-- pgsql-docs: begin added stuff --> |
||||
<p class="indexdiv-quicklinks"> |
||||
<a href="#indexdiv-Symbols"> |
||||
<xsl:call-template name="gentext"> |
||||
<xsl:with-param name="key" select="'index symbols'"/> |
||||
</xsl:call-template> |
||||
</a> |
||||
<xsl:apply-templates select="$alphabetical[count(.|key('letter', |
||||
translate(substring(&primary;, 1, 1), |
||||
&lowercase;,&uppercase;))[&scope;][1]) = 1]" |
||||
mode="index-div-quicklinks"> |
||||
<xsl:with-param name="position" select="position()"/> |
||||
<xsl:with-param name="scope" select="$scope"/> |
||||
<xsl:with-param name="role" select="$role"/> |
||||
<xsl:with-param name="type" select="$type"/> |
||||
<xsl:sort select="translate(&primary;, &lowercase;, &uppercase;)"/> |
||||
</xsl:apply-templates> |
||||
</p> |
||||
<!-- pgsql-docs: end added stuff --> |
||||
|
||||
<xsl:if test="$others"> |
||||
<xsl:choose> |
||||
<xsl:when test="normalize-space($type) != '' and |
||||
$others[@type = $type][count(.|key('primary', &primary;)[&scope;][1]) = 1]"> |
||||
<!-- pgsql-docs: added id attribute here for linking to it --> |
||||
<div class="indexdiv" id="indexdiv-Symbols"> |
||||
<h3> |
||||
<xsl:call-template name="gentext"> |
||||
<xsl:with-param name="key" select="'index symbols'"/> |
||||
</xsl:call-template> |
||||
</h3> |
||||
<dl> |
||||
<xsl:apply-templates select="$others[count(.|key('primary', &primary;)[&scope;][1]) = 1]" |
||||
mode="index-symbol-div"> |
||||
<xsl:with-param name="position" select="position()"/> |
||||
<xsl:with-param name="scope" select="$scope"/> |
||||
<xsl:with-param name="role" select="$role"/> |
||||
<xsl:with-param name="type" select="$type"/> |
||||
<xsl:sort select="translate(&primary;, &lowercase;, &uppercase;)"/> |
||||
</xsl:apply-templates> |
||||
</dl> |
||||
</div> |
||||
</xsl:when> |
||||
<xsl:when test="normalize-space($type) != ''"> |
||||
<!-- Output nothing, as there isn't a match for $other using this $type --> |
||||
</xsl:when> |
||||
<xsl:otherwise> |
||||
<!-- pgsql-docs: added id attribute here for linking to it --> |
||||
<div class="indexdiv" id="indexdiv-Symbols"> |
||||
<h3> |
||||
<xsl:call-template name="gentext"> |
||||
<xsl:with-param name="key" select="'index symbols'"/> |
||||
</xsl:call-template> |
||||
</h3> |
||||
<dl> |
||||
<xsl:apply-templates select="$others[count(.|key('primary', |
||||
&primary;)[&scope;][1]) = 1]" |
||||
mode="index-symbol-div"> |
||||
<xsl:with-param name="position" select="position()"/> |
||||
<xsl:with-param name="scope" select="$scope"/> |
||||
<xsl:with-param name="role" select="$role"/> |
||||
<xsl:with-param name="type" select="$type"/> |
||||
<xsl:sort select="translate(&primary;, &lowercase;, &uppercase;)"/> |
||||
</xsl:apply-templates> |
||||
</dl> |
||||
</div> |
||||
</xsl:otherwise> |
||||
</xsl:choose> |
||||
</xsl:if> |
||||
|
||||
<xsl:apply-templates select="$alphabetical[count(.|key('letter', |
||||
translate(substring(&primary;, 1, 1), |
||||
&lowercase;,&uppercase;))[&scope;][1]) = 1]" |
||||
mode="index-div-basic"> |
||||
<xsl:with-param name="position" select="position()"/> |
||||
<xsl:with-param name="scope" select="$scope"/> |
||||
<xsl:with-param name="role" select="$role"/> |
||||
<xsl:with-param name="type" select="$type"/> |
||||
<xsl:sort select="translate(&primary;, &lowercase;, &uppercase;)"/> |
||||
</xsl:apply-templates> |
||||
</div> |
||||
</xsl:template> |
||||
|
||||
<xsl:template match="indexterm" mode="index-div-basic"> |
||||
<xsl:param name="scope" select="."/> |
||||
<xsl:param name="role" select="''"/> |
||||
<xsl:param name="type" select="''"/> |
||||
|
||||
<xsl:variable name="key" |
||||
select="translate(substring(&primary;, 1, 1), |
||||
&lowercase;,&uppercase;)"/> |
||||
|
||||
<xsl:if test="key('letter', $key)[&scope;] |
||||
[count(.|key('primary', &primary;)[&scope;][1]) = 1]"> |
||||
<div class="indexdiv"> |
||||
<!-- pgsql-docs: added id attribute here for linking to it --> |
||||
<xsl:attribute name="id"> |
||||
<xsl:value-of select="concat('indexdiv-', $key)"/> |
||||
</xsl:attribute> |
||||
|
||||
<xsl:if test="contains(concat(&lowercase;, &uppercase;), $key)"> |
||||
<h3> |
||||
<xsl:value-of select="translate($key, &lowercase;, &uppercase;)"/> |
||||
</h3> |
||||
</xsl:if> |
||||
<dl> |
||||
<xsl:apply-templates select="key('letter', $key)[&scope;] |
||||
[count(.|key('primary', &primary;) |
||||
[&scope;][1])=1]" |
||||
mode="index-primary"> |
||||
<xsl:with-param name="position" select="position()"/> |
||||
<xsl:with-param name="scope" select="$scope"/> |
||||
<xsl:with-param name="role" select="$role"/> |
||||
<xsl:with-param name="type" select="$type"/> |
||||
<xsl:sort select="translate(&primary;, &lowercase;, &uppercase;)"/> |
||||
</xsl:apply-templates> |
||||
</dl> |
||||
</div> |
||||
</xsl:if> |
||||
</xsl:template> |
||||
|
||||
<!-- pgsql-docs --> |
||||
<xsl:template match="indexterm" mode="index-div-quicklinks"> |
||||
<xsl:param name="scope" select="."/> |
||||
<xsl:param name="role" select="''"/> |
||||
<xsl:param name="type" select="''"/> |
||||
|
||||
<xsl:variable name="key" |
||||
select="translate(substring(&primary;, 1, 1), |
||||
&lowercase;,&uppercase;)"/> |
||||
|
||||
<xsl:if test="key('letter', $key)[&scope;] |
||||
[count(.|key('primary', &primary;)[&scope;][1]) = 1]"> |
||||
<xsl:if test="contains(concat(&lowercase;, &uppercase;), $key)"> |
||||
| |
||||
<a> |
||||
<xsl:attribute name="href"> |
||||
<xsl:value-of select="concat('#indexdiv-', $key)"/> |
||||
</xsl:attribute> |
||||
<xsl:value-of select="translate($key, &lowercase;, &uppercase;)"/> |
||||
</a> |
||||
</xsl:if> |
||||
</xsl:if> |
||||
</xsl:template> |
||||
|
||||
</xsl:stylesheet> |
||||
@ -0,0 +1,12 @@ |
||||
<?xml version='1.0'?> |
||||
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" |
||||
version='1.0' |
||||
xmlns="http://www.w3.org/TR/xhtml1/transitional" |
||||
exclude-result-prefixes="#default"> |
||||
|
||||
<xsl:import href="http://docbook.sourceforge.net/release/xsl/current/xhtml/docbook.xsl"/> |
||||
<xsl:include href="stylesheet-common.xsl" /> |
||||
<xsl:include href="stylesheet-html-common.xsl" /> |
||||
<xsl:include href="stylesheet-speedup-xhtml.xsl" /> |
||||
|
||||
</xsl:stylesheet> |
||||
@ -1,798 +0,0 @@ |
||||
<!-- doc/src/sgml/stylesheet.dsl --> |
||||
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [ |
||||
|
||||
<!-- must turn on one of these with -i on the jade command line --> |
||||
<!ENTITY % output-html "IGNORE"> |
||||
<!ENTITY % output-print "IGNORE"> |
||||
|
||||
<![ %output-html; [ |
||||
<!ENTITY dbstyle PUBLIC "-//Norman Walsh//DOCUMENT DocBook HTML Stylesheet//EN" CDATA DSSSL> |
||||
]]> |
||||
|
||||
<![ %output-print; [ |
||||
<!ENTITY dbstyle PUBLIC "-//Norman Walsh//DOCUMENT DocBook Print Stylesheet//EN" CDATA DSSSL> |
||||
]]> |
||||
|
||||
]> |
||||
|
||||
<style-sheet> |
||||
<style-specification use="docbook"> |
||||
<style-specification-body> |
||||
|
||||
<!-- general customization ......................................... --> |
||||
|
||||
<!-- (applicable to all output formats) --> |
||||
|
||||
(define draft-mode #f) |
||||
|
||||
(define pgsql-docs-list "pgsql-docs@postgresql.org") |
||||
|
||||
;; Don't show manpage volume numbers |
||||
(define %refentry-xref-manvolnum% #f) |
||||
|
||||
;; Don't use graphics for callouts. (We could probably do that, but |
||||
;; it needs extra work.) |
||||
(define %callout-graphics% #f) |
||||
|
||||
;; Show comments during the development stage. |
||||
(define %show-comments% draft-mode) |
||||
|
||||
;; Don't append period if run-in title ends with any of these |
||||
;; characters. We had to add the colon here. This is fixed in |
||||
;; stylesheets version 1.71, so it can be removed sometime. |
||||
(define %content-title-end-punct% |
||||
'(#\. #\! #\? #\:)) |
||||
|
||||
;; No automatic punctuation after honorific name parts |
||||
(define %honorific-punctuation% "") |
||||
|
||||
;; Change display of some elements |
||||
(element command ($mono-seq$)) |
||||
(element envar ($mono-seq$)) |
||||
(element lineannotation ($italic-seq$)) |
||||
(element literal ($mono-seq$)) |
||||
(element option ($mono-seq$)) |
||||
(element parameter ($mono-seq$)) |
||||
(element structfield ($mono-seq$)) |
||||
(element structname ($mono-seq$)) |
||||
(element symbol ($mono-seq$)) |
||||
(element token ($mono-seq$)) |
||||
(element type ($mono-seq$)) |
||||
(element varname ($mono-seq$)) |
||||
(element (programlisting emphasis) ($bold-seq$)) ;; to highlight sections of code |
||||
|
||||
;; Special support for Tcl synopses |
||||
(element optional |
||||
(if (equal? (attribute-string (normalize "role")) "tcl") |
||||
(make sequence |
||||
(literal "?") |
||||
($charseq$) |
||||
(literal "?")) |
||||
(make sequence |
||||
(literal %arg-choice-opt-open-str%) |
||||
($charseq$) |
||||
(literal %arg-choice-opt-close-str%)))) |
||||
|
||||
;; Avoid excessive cross-reference labels |
||||
(define (auto-xref-indirect? target ancestor) |
||||
(cond |
||||
; ;; Always add indirect references to another book |
||||
; ((member (gi ancestor) (book-element-list)) |
||||
; #t) |
||||
;; Add indirect references to the section or component a block |
||||
;; is in iff chapters aren't autolabelled. (Otherwise "Figure 1-3" |
||||
;; is sufficient) |
||||
((and (member (gi target) (block-element-list)) |
||||
(not %chapter-autolabel%)) |
||||
#t) |
||||
;; Add indirect references to the component a section is in if |
||||
;; the sections are not autolabelled |
||||
((and (member (gi target) (section-element-list)) |
||||
(member (gi ancestor) (component-element-list)) |
||||
(not %section-autolabel%)) |
||||
#t) |
||||
(else #f))) |
||||
|
||||
|
||||
;; Bibliography things |
||||
|
||||
;; Use the titles of bibliography entries in cross-references |
||||
(define biblio-xref-title #t) |
||||
|
||||
;; Process bibliography entry components in the order shown below, not |
||||
;; in the order they appear in the document. (I suppose this should |
||||
;; be made to fit some publishing standard.) |
||||
(define %biblioentry-in-entry-order% #f) |
||||
|
||||
(define (biblioentry-inline-elements) |
||||
(list |
||||
(normalize "author") |
||||
(normalize "authorgroup") |
||||
(normalize "title") |
||||
(normalize "subtitle") |
||||
(normalize "volumenum") |
||||
(normalize "edition") |
||||
(normalize "othercredit") |
||||
(normalize "contrib") |
||||
(normalize "editor") |
||||
(normalize "publishername") |
||||
(normalize "confgroup") |
||||
(normalize "publisher") |
||||
(normalize "isbn") |
||||
(normalize "issn") |
||||
(normalize "pubsnumber") |
||||
(normalize "date") |
||||
(normalize "pubdate") |
||||
(normalize "pagenums") |
||||
(normalize "bibliomisc"))) |
||||
|
||||
(mode biblioentry-inline-mode |
||||
|
||||
(element confgroup |
||||
(make sequence |
||||
(literal "Proc. ") |
||||
(next-match))) |
||||
|
||||
(element isbn |
||||
(make sequence |
||||
(literal "ISBN ") |
||||
(process-children))) |
||||
|
||||
(element issn |
||||
(make sequence |
||||
(literal "ISSN ") |
||||
(process-children)))) |
||||
|
||||
|
||||
;; The rules in the default stylesheet for productname format it as a |
||||
;; paragraph. This may be suitable for productname directly within |
||||
;; *info, but it's nonsense when productname is used inline, as we do. |
||||
(mode book-titlepage-recto-mode |
||||
(element (para productname) ($charseq$))) |
||||
(mode book-titlepage-verso-mode |
||||
(element (para productname) ($charseq$))) |
||||
;; Add more here if needed... |
||||
|
||||
|
||||
;; Replace a sequence of whitespace in a string by a single space |
||||
(define (normalize-whitespace str #!optional (whitespace '(#\space #\U-000D))) |
||||
(let loop ((characters (string->list str)) |
||||
(result '()) |
||||
(prev-was-space #f)) |
||||
(if (null? characters) |
||||
(list->string (reverse result)) |
||||
(let ((c (car characters)) |
||||
(rest (cdr characters))) |
||||
(if (member c whitespace) |
||||
(if prev-was-space |
||||
(loop rest result #t) |
||||
(loop rest (cons #\space result) #t)) |
||||
(loop rest (cons c result) #f)))))) |
||||
|
||||
|
||||
<!-- HTML output customization ..................................... --> |
||||
|
||||
<![ %output-html; [ |
||||
|
||||
(define %section-autolabel% #t) |
||||
(define %label-preface-sections% #f) |
||||
(define %generate-legalnotice-link% #t) |
||||
(define %html-ext% ".html") |
||||
(define %root-filename% "index") |
||||
(define %link-mailto-url% (string-append "mailto:" pgsql-docs-list)) |
||||
(define %use-id-as-filename% #t) |
||||
(define website-stylesheet #f) |
||||
(define %stylesheet% (if website-stylesheet "http://www.postgresql.org/media/css/docs.css" "stylesheet.css")) |
||||
(define %graphic-default-extension% "gif") |
||||
(define %body-attr% '()) |
||||
(define ($generate-book-lot-list$) '()) |
||||
(define use-output-dir #t) |
||||
(define %output-dir% "html") |
||||
(define html-index-filename "../HTML.index") |
||||
|
||||
|
||||
;; Only build HTML.index or the actual HTML output, not both. Saves a |
||||
;; *lot* of time. (overrides docbook.dsl) |
||||
(root |
||||
(if (not html-index) |
||||
(make sequence |
||||
(process-children) |
||||
(with-mode manifest |
||||
(process-children))) |
||||
(with-mode htmlindex |
||||
(process-children)))) |
||||
|
||||
|
||||
;; Do not combine first section into chapter chunk. |
||||
(define (chunk-skip-first-element-list) '()) |
||||
|
||||
;; Returns the depth of auto TOC that should be made at the nd-level |
||||
(define (toc-depth nd) |
||||
(cond ((string=? (gi nd) (normalize "book")) 2) |
||||
((string=? (gi nd) (normalize "part")) 2) |
||||
((string=? (gi nd) (normalize "chapter")) 2) |
||||
(else 1))) |
||||
|
||||
;; Add character encoding and time of creation into HTML header |
||||
(define %html-header-tags% |
||||
(list (list "META" '("HTTP-EQUIV" "Content-Type") '("CONTENT" "text/html; charset=ISO-8859-1")) |
||||
(list "META" '("NAME" "creation") (list "CONTENT" (time->string (time) #t))))) |
||||
|
||||
|
||||
;; Block elements are allowed in PARA in DocBook, but not in P in |
||||
;; HTML. With %fix-para-wrappers% turned on, the stylesheets attempt |
||||
;; to avoid putting block elements in HTML P tags by outputting |
||||
;; additional end/begin P pairs around them. |
||||
(define %fix-para-wrappers% #t) |
||||
|
||||
;; ...but we need to do some extra work to make the above apply to PRE |
||||
;; as well. (mostly pasted from dbverb.dsl) |
||||
(define ($verbatim-display$ indent line-numbers?) |
||||
(let ((content (make element gi: "PRE" |
||||
attributes: (list |
||||
(list "CLASS" (gi))) |
||||
(if (or indent line-numbers?) |
||||
($verbatim-line-by-line$ indent line-numbers?) |
||||
(process-children))))) |
||||
(if %shade-verbatim% |
||||
(make element gi: "TABLE" |
||||
attributes: ($shade-verbatim-attr$) |
||||
(make element gi: "TR" |
||||
(make element gi: "TD" |
||||
content))) |
||||
(make sequence |
||||
(para-check) |
||||
content |
||||
(para-check 'restart))))) |
||||
|
||||
;; ...and for notes. |
||||
(element note |
||||
(make sequence |
||||
(para-check) |
||||
($admonition$) |
||||
(para-check 'restart))) |
||||
|
||||
;;; XXX The above is very ugly. It might be better to run 'tidy' on |
||||
;;; the resulting *.html files. |
||||
|
||||
|
||||
;; Format multiple terms in varlistentry vertically, instead |
||||
;; of comma-separated. |
||||
(element (varlistentry term) |
||||
(make sequence |
||||
(process-children-trim) |
||||
(if (not (last-sibling?)) |
||||
(make empty-element gi: "BR") |
||||
(empty-sosofo)))) |
||||
|
||||
|
||||
;; Customization of header |
||||
;; - make title a link to the home page |
||||
;; - add tool tips to Prev/Next links |
||||
;; - add Up link |
||||
;; (overrides dbnavig.dsl) |
||||
(define (default-header-nav-tbl-noff elemnode prev next prevsib nextsib) |
||||
(let* ((r1? (nav-banner? elemnode)) |
||||
(r1-sosofo (make element gi: "TR" |
||||
(make element gi: "TH" |
||||
attributes: (list |
||||
(list "COLSPAN" "4") |
||||
(list "ALIGN" "center") |
||||
(list "VALIGN" "bottom")) |
||||
(make element gi: "A" |
||||
attributes: (list |
||||
(list "HREF" (href-to (nav-home elemnode)))) |
||||
(nav-banner elemnode))))) |
||||
(r2? (or (not (node-list-empty? prev)) |
||||
(not (node-list-empty? next)) |
||||
(nav-context? elemnode))) |
||||
(r2-sosofo (make element gi: "TR" |
||||
(make element gi: "TD" |
||||
attributes: (list |
||||
(list "WIDTH" "10%") |
||||
(list "ALIGN" "left") |
||||
(list "VALIGN" "top")) |
||||
(if (node-list-empty? prev) |
||||
(make entity-ref name: "nbsp") |
||||
(make element gi: "A" |
||||
attributes: (list |
||||
(list "TITLE" (element-title-string prev)) |
||||
(list "HREF" |
||||
(href-to |
||||
prev)) |
||||
(list "ACCESSKEY" |
||||
"P")) |
||||
(gentext-nav-prev prev)))) |
||||
(make element gi: "TD" |
||||
attributes: (list |
||||
(list "WIDTH" "10%") |
||||
(list "ALIGN" "left") |
||||
(list "VALIGN" "top")) |
||||
(if (nav-up? elemnode) |
||||
(nav-up elemnode) |
||||
(nav-home-link elemnode))) |
||||
(make element gi: "TD" |
||||
attributes: (list |
||||
(list "WIDTH" "60%") |
||||
(list "ALIGN" "center") |
||||
(list "VALIGN" "bottom")) |
||||
(nav-context elemnode)) |
||||
(make element gi: "TD" |
||||
attributes: (list |
||||
(list "WIDTH" "20%") |
||||
(list "ALIGN" "right") |
||||
(list "VALIGN" "top")) |
||||
(if (node-list-empty? next) |
||||
(make entity-ref name: "nbsp") |
||||
(make element gi: "A" |
||||
attributes: (list |
||||
(list "TITLE" (element-title-string next)) |
||||
(list "HREF" |
||||
(href-to |
||||
next)) |
||||
(list "ACCESSKEY" |
||||
"N")) |
||||
(gentext-nav-next next))))))) |
||||
(if (or r1? r2?) |
||||
(make element gi: "DIV" |
||||
attributes: '(("CLASS" "NAVHEADER")) |
||||
(make element gi: "TABLE" |
||||
attributes: (list |
||||
(list "SUMMARY" "Header navigation table") |
||||
(list "WIDTH" %gentext-nav-tblwidth%) |
||||
(list "BORDER" "0") |
||||
(list "CELLPADDING" "0") |
||||
(list "CELLSPACING" "0")) |
||||
(if r1? r1-sosofo (empty-sosofo)) |
||||
(if r2? r2-sosofo (empty-sosofo))) |
||||
(make empty-element gi: "HR" |
||||
attributes: (list |
||||
(list "ALIGN" "LEFT") |
||||
(list "WIDTH" %gentext-nav-tblwidth%)))) |
||||
(empty-sosofo)))) |
||||
|
||||
|
||||
;; Put index "quicklinks" (A | B | C | ...) at the top of the bookindex page. |
||||
|
||||
(element index |
||||
(let ((preamble (node-list-filter-by-not-gi |
||||
(children (current-node)) |
||||
(list (normalize "indexentry")))) |
||||
(indexdivs (node-list-filter-by-gi |
||||
(children (current-node)) |
||||
(list (normalize "indexdiv")))) |
||||
(entries (node-list-filter-by-gi |
||||
(children (current-node)) |
||||
(list (normalize "indexentry"))))) |
||||
(html-document |
||||
(with-mode head-title-mode |
||||
(literal (element-title-string (current-node)))) |
||||
(make element gi: "DIV" |
||||
attributes: (list (list "CLASS" (gi))) |
||||
($component-separator$) |
||||
($component-title$) |
||||
(if (node-list-empty? indexdivs) |
||||
(empty-sosofo) |
||||
(make element gi: "P" |
||||
attributes: (list (list "CLASS" "INDEXDIV-QUICKLINKS")) |
||||
(with-mode indexdiv-quicklinks-mode |
||||
(process-node-list indexdivs)))) |
||||
(process-node-list preamble) |
||||
(if (node-list-empty? entries) |
||||
(empty-sosofo) |
||||
(make element gi: "DL" |
||||
(process-node-list entries))))))) |
||||
|
||||
|
||||
(mode indexdiv-quicklinks-mode |
||||
(element indexdiv |
||||
(make sequence |
||||
(make element gi: "A" |
||||
attributes: (list (list "HREF" (href-to (current-node)))) |
||||
(element-title-sosofo)) |
||||
(if (not (last-sibling?)) |
||||
(literal " | ") |
||||
(literal ""))))) |
||||
|
||||
|
||||
;; Changed to strip and normalize index term content (overrides |
||||
;; dbindex.dsl) |
||||
(define (htmlindexterm) |
||||
(let* ((attr (gi (current-node))) |
||||
(content (data (current-node))) |
||||
(string (strip (normalize-whitespace content))) ;; changed |
||||
(sortas (attribute-string (normalize "sortas")))) |
||||
(make sequence |
||||
(make formatting-instruction data: attr) |
||||
(if sortas |
||||
(make sequence |
||||
(make formatting-instruction data: "[") |
||||
(make formatting-instruction data: sortas) |
||||
(make formatting-instruction data: "]")) |
||||
(empty-sosofo)) |
||||
(make formatting-instruction data: " ") |
||||
(make formatting-instruction data: string) |
||||
(htmlnewline)))) |
||||
|
||||
|
||||
]]> <!-- %output-html --> |
||||
|
||||
|
||||
<!-- Print output customization .................................... --> |
||||
|
||||
<![ %output-print; [ |
||||
|
||||
(define %section-autolabel% #t) |
||||
(define %default-quadding% 'justify) |
||||
|
||||
;; Don't know how well hyphenation works with other backends. Might |
||||
;; turn this on if desired. |
||||
(define %hyphenation% |
||||
(if tex-backend #t #f)) |
||||
|
||||
;; Put footnotes at the bottom of the page (rather than end of |
||||
;; section), and put the URLs of links into footnotes. |
||||
;; |
||||
;; bop-footnotes only works with TeX, otherwise it's ignored. But |
||||
;; when both of these are #t and TeX is used, you need at least |
||||
;; stylesheets 1.73 because otherwise you don't get any footnotes at |
||||
;; all for the links. |
||||
(define bop-footnotes #t) |
||||
(define %footnote-ulinks% #t) |
||||
|
||||
(define %refentry-new-page% #t) |
||||
(define %refentry-keep% #f) |
||||
|
||||
;; Disabled because of TeX problems |
||||
;; (http://archives.postgresql.org/pgsql-docs/2007-12/msg00056.php) |
||||
(define ($generate-book-lot-list$) '()) |
||||
|
||||
;; Indentation of verbatim environments. (This should really be done |
||||
;; with start-indent in DSSSL.) |
||||
;; Use of indentation in this area exposes a bug in openjade, |
||||
;; http://archives.postgresql.org/pgsql-docs/2006-12/msg00064.php |
||||
;; (define %indent-programlisting-lines% " ") |
||||
;; (define %indent-screen-lines% " ") |
||||
;; (define %indent-synopsis-lines% " ") |
||||
|
||||
|
||||
;; Default graphic format: Jadetex wants eps, pdfjadetex wants pdf. |
||||
;; (Note that pdfjadetex will not accept eps, that's why we need to |
||||
;; create a different .tex file for each.) What works with RTF? |
||||
|
||||
(define texpdf-output #f) ;; override from command line |
||||
|
||||
(define %graphic-default-extension% |
||||
(cond (tex-backend (if texpdf-output "pdf" "eps")) |
||||
(rtf-backend "gif") |
||||
(else "XXX"))) |
||||
|
||||
;; Need to add pdf here so that the above works. Default setup |
||||
;; doesn't know about PDF. |
||||
(define preferred-mediaobject-extensions |
||||
(list "eps" "ps" "jpg" "jpeg" "pdf" "png")) |
||||
|
||||
|
||||
;; Don't show links when citing a bibliography entry. This fouls up |
||||
;; the footnumber counting. To get the link, one can still look into |
||||
;; the bibliography itself. |
||||
(mode xref-title-mode |
||||
(element ulink |
||||
(process-children))) |
||||
|
||||
|
||||
;; Format legalnotice justified and with space between paragraphs. |
||||
(mode book-titlepage-verso-mode |
||||
(element (legalnotice para) |
||||
(make paragraph |
||||
use: book-titlepage-verso-style ;; alter this if ever it needs to appear elsewhere |
||||
quadding: %default-quadding% |
||||
line-spacing: (* 0.8 (inherited-line-spacing)) |
||||
font-size: (* 0.8 (inherited-font-size)) |
||||
space-before: (* 0.8 %para-sep%) |
||||
space-after: (* 0.8 %para-sep%) |
||||
first-line-start-indent: (if (is-first-para) |
||||
(* 0.8 %para-indent-firstpara%) |
||||
(* 0.8 %para-indent%)) |
||||
(process-children)))) |
||||
|
||||
|
||||
;; Fix spacing problems in variablelists |
||||
|
||||
(element (varlistentry term) |
||||
(make paragraph |
||||
space-before: (if (first-sibling?) |
||||
%para-sep% |
||||
0pt) |
||||
keep-with-next?: #t |
||||
(process-children))) |
||||
|
||||
(define %varlistentry-indent% 2em) |
||||
|
||||
(element (varlistentry listitem) |
||||
(make sequence |
||||
start-indent: (+ (inherited-start-indent) %varlistentry-indent%) |
||||
(process-children))) |
||||
|
||||
|
||||
;; Whitespace fixes for itemizedlists and orderedlists |
||||
|
||||
(define (process-listitem-content) |
||||
(if (absolute-first-sibling?) |
||||
(make sequence |
||||
(process-children-trim)) |
||||
(next-match))) |
||||
|
||||
|
||||
;; Default stylesheets format simplelists as tables. This spells |
||||
;; trouble for Jade. So we just format them as plain lines. |
||||
|
||||
(define %simplelist-indent% 1em) |
||||
|
||||
(define (my-simplelist-vert members) |
||||
(make display-group |
||||
space-before: %para-sep% |
||||
space-after: %para-sep% |
||||
start-indent: (+ %simplelist-indent% (inherited-start-indent)) |
||||
(process-children))) |
||||
|
||||
(element simplelist |
||||
(let ((type (attribute-string (normalize "type"))) |
||||
(cols (if (attribute-string (normalize "columns")) |
||||
(if (> (string->number (attribute-string (normalize "columns"))) 0) |
||||
(string->number (attribute-string (normalize "columns"))) |
||||
1) |
||||
1)) |
||||
(members (select-elements (children (current-node)) (normalize "member")))) |
||||
(cond |
||||
((equal? type (normalize "inline")) |
||||
(if (equal? (gi (parent (current-node))) |
||||
(normalize "para")) |
||||
(process-children) |
||||
(make paragraph |
||||
space-before: %para-sep% |
||||
space-after: %para-sep% |
||||
start-indent: (inherited-start-indent)))) |
||||
((equal? type (normalize "vert")) |
||||
(my-simplelist-vert members)) |
||||
((equal? type (normalize "horiz")) |
||||
(simplelist-table 'row cols members))))) |
||||
|
||||
(element member |
||||
(let ((type (inherited-attribute-string (normalize "type")))) |
||||
(cond |
||||
((equal? type (normalize "inline")) |
||||
(make sequence |
||||
(process-children) |
||||
(if (not (last-sibling?)) |
||||
(literal ", ") |
||||
(literal "")))) |
||||
((equal? type (normalize "vert")) |
||||
(make paragraph |
||||
space-before: 0pt |
||||
space-after: 0pt)) |
||||
((equal? type (normalize "horiz")) |
||||
(make paragraph |
||||
quadding: 'start |
||||
(process-children)))))) |
||||
|
||||
|
||||
;; Jadetex doesn't handle links to the content of tables, so |
||||
;; indexterms that point to table entries will go nowhere. We fix |
||||
;; this by pointing the index entry to the table itself instead, which |
||||
;; should be equally useful in practice. |
||||
|
||||
(define (find-parent-table nd) |
||||
(let ((table (ancestor-member nd ($table-element-list$)))) |
||||
(if (node-list-empty? table) |
||||
nd |
||||
table))) |
||||
|
||||
;; (The function below overrides the one in print/dbindex.dsl.) |
||||
|
||||
(define (indexentry-link nd) |
||||
(let* ((id (attribute-string (normalize "role") nd)) |
||||
(prelim-target (find-indexterm id)) |
||||
(target (find-parent-table prelim-target)) |
||||
(preferred (not (node-list-empty? |
||||
(select-elements (children (current-node)) |
||||
(normalize "emphasis"))))) |
||||
(sosofo (if (node-list-empty? target) |
||||
(literal "?") |
||||
(make link |
||||
destination: (node-list-address target) |
||||
(with-mode toc-page-number-mode |
||||
(process-node-list target)))))) |
||||
(if preferred |
||||
(make sequence |
||||
font-weight: 'bold |
||||
sosofo) |
||||
sosofo))) |
||||
|
||||
|
||||
;; By default, the part and reference title pages get wrong page |
||||
;; numbers: The first title page gets roman numerals carried over from |
||||
;; preface/toc -- we want Arabic numerals. We also need to make sure |
||||
;; that page-number-restart is set of #f explicitly, because otherwise |
||||
;; it will carry over from the previous component, which is not good. |
||||
;; |
||||
;; (This looks worse than it is. It's copied from print/dbttlpg.dsl |
||||
;; and common/dbcommon.dsl and modified in minor detail.) |
||||
|
||||
(define (first-part?) |
||||
(let* ((book (ancestor (normalize "book"))) |
||||
(nd (ancestor-member (current-node) |
||||
(append |
||||
(component-element-list) |
||||
(division-element-list)))) |
||||
(bookch (children book))) |
||||
(let loop ((nl bookch)) |
||||
(if (node-list-empty? nl) |
||||
#f |
||||
(if (equal? (gi (node-list-first nl)) (normalize "part")) |
||||
(if (node-list=? (node-list-first nl) nd) |
||||
#t |
||||
#f) |
||||
(loop (node-list-rest nl))))))) |
||||
|
||||
(define (first-reference?) |
||||
(let* ((book (ancestor (normalize "book"))) |
||||
(nd (ancestor-member (current-node) |
||||
(append |
||||
(component-element-list) |
||||
(division-element-list)))) |
||||
(bookch (children book))) |
||||
(let loop ((nl bookch)) |
||||
(if (node-list-empty? nl) |
||||
#f |
||||
(if (equal? (gi (node-list-first nl)) (normalize "reference")) |
||||
(if (node-list=? (node-list-first nl) nd) |
||||
#t |
||||
#f) |
||||
(loop (node-list-rest nl))))))) |
||||
|
||||
|
||||
(define (part-titlepage elements #!optional (side 'recto)) |
||||
(let ((nodelist (titlepage-nodelist |
||||
(if (equal? side 'recto) |
||||
(reference-titlepage-recto-elements) |
||||
(reference-titlepage-verso-elements)) |
||||
elements)) |
||||
;; partintro is a special case... |
||||
(partintro (node-list-first |
||||
(node-list-filter-by-gi elements (list (normalize "partintro")))))) |
||||
(if (part-titlepage-content? elements side) |
||||
(make simple-page-sequence |
||||
page-n-columns: %titlepage-n-columns% |
||||
;; Make sure that page number format is correct. |
||||
page-number-format: ($page-number-format$) |
||||
;; Make sure that the page number is set to 1 if this is the |
||||
;; first part in the book |
||||
page-number-restart?: (first-part?) |
||||
input-whitespace-treatment: 'collapse |
||||
use: default-text-style |
||||
|
||||
;; This hack is required for the RTF backend. If an external-graphic |
||||
;; is the first thing on the page, RTF doesn't seem to do the right |
||||
;; thing (the graphic winds up on the baseline of the first line |
||||
;; of the page, left justified). This "one point rule" fixes |
||||
;; that problem. |
||||
(make paragraph |
||||
line-spacing: 1pt |
||||
(literal "")) |
||||
|
||||
(let loop ((nl nodelist) (lastnode (empty-node-list))) |
||||
(if (node-list-empty? nl) |
||||
(empty-sosofo) |
||||
(make sequence |
||||
(if (or (node-list-empty? lastnode) |
||||
(not (equal? (gi (node-list-first nl)) |
||||
(gi lastnode)))) |
||||
(part-titlepage-before (node-list-first nl) side) |
||||
(empty-sosofo)) |
||||
(cond |
||||
((equal? (gi (node-list-first nl)) (normalize "subtitle")) |
||||
(part-titlepage-subtitle (node-list-first nl) side)) |
||||
((equal? (gi (node-list-first nl)) (normalize "title")) |
||||
(part-titlepage-title (node-list-first nl) side)) |
||||
(else |
||||
(part-titlepage-default (node-list-first nl) side))) |
||||
(loop (node-list-rest nl) (node-list-first nl))))) |
||||
|
||||
(if (and %generate-part-toc% |
||||
%generate-part-toc-on-titlepage% |
||||
(equal? side 'recto)) |
||||
(make display-group |
||||
(build-toc (current-node) |
||||
(toc-depth (current-node)))) |
||||
(empty-sosofo)) |
||||
|
||||
;; PartIntro is a special case |
||||
(if (and (equal? side 'recto) |
||||
(not (node-list-empty? partintro)) |
||||
%generate-partintro-on-titlepage%) |
||||
($process-partintro$ partintro #f) |
||||
(empty-sosofo))) |
||||
|
||||
(empty-sosofo)))) |
||||
|
||||
|
||||
(define (reference-titlepage elements #!optional (side 'recto)) |
||||
(let ((nodelist (titlepage-nodelist |
||||
(if (equal? side 'recto) |
||||
(reference-titlepage-recto-elements) |
||||
(reference-titlepage-verso-elements)) |
||||
elements)) |
||||
;; partintro is a special case... |
||||
(partintro (node-list-first |
||||
(node-list-filter-by-gi elements (list (normalize "partintro")))))) |
||||
(if (reference-titlepage-content? elements side) |
||||
(make simple-page-sequence |
||||
page-n-columns: %titlepage-n-columns% |
||||
;; Make sure that page number format is correct. |
||||
page-number-format: ($page-number-format$) |
||||
;; Make sure that the page number is set to 1 if this is the |
||||
;; first part in the book |
||||
page-number-restart?: (first-reference?) |
||||
input-whitespace-treatment: 'collapse |
||||
use: default-text-style |
||||
|
||||
;; This hack is required for the RTF backend. If an external-graphic |
||||
;; is the first thing on the page, RTF doesn't seem to do the right |
||||
;; thing (the graphic winds up on the baseline of the first line |
||||
;; of the page, left justified). This "one point rule" fixes |
||||
;; that problem. |
||||
(make paragraph |
||||
line-spacing: 1pt |
||||
(literal "")) |
||||
|
||||
(let loop ((nl nodelist) (lastnode (empty-node-list))) |
||||
(if (node-list-empty? nl) |
||||
(empty-sosofo) |
||||
(make sequence |
||||
(if (or (node-list-empty? lastnode) |
||||
(not (equal? (gi (node-list-first nl)) |
||||
(gi lastnode)))) |
||||
(reference-titlepage-before (node-list-first nl) side) |
||||
(empty-sosofo)) |
||||
(cond |
||||
((equal? (gi (node-list-first nl)) (normalize "author")) |
||||
(reference-titlepage-author (node-list-first nl) side)) |
||||
((equal? (gi (node-list-first nl)) (normalize "authorgroup")) |
||||
(reference-titlepage-authorgroup (node-list-first nl) side)) |
||||
((equal? (gi (node-list-first nl)) (normalize "corpauthor")) |
||||
(reference-titlepage-corpauthor (node-list-first nl) side)) |
||||
((equal? (gi (node-list-first nl)) (normalize "editor")) |
||||
(reference-titlepage-editor (node-list-first nl) side)) |
||||
((equal? (gi (node-list-first nl)) (normalize "subtitle")) |
||||
(reference-titlepage-subtitle (node-list-first nl) side)) |
||||
((equal? (gi (node-list-first nl)) (normalize "title")) |
||||
(reference-titlepage-title (node-list-first nl) side)) |
||||
(else |
||||
(reference-titlepage-default (node-list-first nl) side))) |
||||
(loop (node-list-rest nl) (node-list-first nl))))) |
||||
|
||||
(if (and %generate-reference-toc% |
||||
%generate-reference-toc-on-titlepage% |
||||
(equal? side 'recto)) |
||||
(make display-group |
||||
(build-toc (current-node) |
||||
(toc-depth (current-node)))) |
||||
(empty-sosofo)) |
||||
|
||||
;; PartIntro is a special case |
||||
(if (and (equal? side 'recto) |
||||
(not (node-list-empty? partintro)) |
||||
%generate-partintro-on-titlepage%) |
||||
($process-partintro$ partintro #f) |
||||
(empty-sosofo))) |
||||
|
||||
(empty-sosofo)))) |
||||
|
||||
]]> <!-- %output-print --> |
||||
|
||||
</style-specification-body> |
||||
</style-specification> |
||||
|
||||
<external-specification id="docbook" document="dbstyle"> |
||||
</style-sheet> |
||||
Loading…
Reference in new issue