|
Packit Service |
4c4772 |
|
|
Packit Service |
4c4772 |
|
|
Packit Service |
4c4772 |
PUBLIC "-//Norman Walsh//ENTITIES DocBook Stylesheet Localization//NN"
|
|
Packit Service |
4c4772 |
"dbl1nn.ent">
|
|
Packit Service |
4c4772 |
%nn.words;
|
|
Packit Service |
4c4772 |
]>
|
|
Packit Service |
4c4772 |
|
|
Packit Service |
4c4772 |
<style-sheet>
|
|
Packit Service |
4c4772 |
<style-specification id="docbook-l10n-nn">
|
|
Packit Service |
4c4772 |
<style-specification-body>
|
|
Packit Service |
4c4772 |
|
|
Packit Service |
4c4772 |
;; $Id: dbl1nn.dsl,v 1.1 2001/11/14 20:57:53 nwalsh Exp $
|
|
Packit Service |
4c4772 |
;;
|
|
Packit Service |
4c4772 |
;; This file is part of the Modular DocBook Stylesheet distribution.
|
|
Packit Service |
4c4772 |
;; See ../README or http://nwalsh.com/docbook/dsssl/
|
|
Packit Service |
4c4772 |
;;
|
|
Packit Service |
4c4772 |
|
|
Packit Service |
4c4772 |
;; ----------------------------- Localization -----------------------------
|
|
Packit Service |
4c4772 |
|
|
Packit Service |
4c4772 |
;; If you create a new version of this file, please send it to
|
|
Packit Service |
4c4772 |
;; Norman Walsh, ndw@nwalsh.com
|
|
Packit Service |
4c4772 |
|
|
Packit Service |
4c4772 |
;; The generated text for cross references to elements. See dblink.dsl
|
|
Packit Service |
4c4772 |
;; for a discussion of how substitution is performed on the %x
|
|
Packit Service |
4c4772 |
;; keywords.
|
|
Packit Service |
4c4772 |
;;
|
|
Packit Service |
4c4772 |
|
|
Packit Service |
4c4772 |
(define (nn-author-string #!optional (author (current-node)))
|
|
Packit Service |
4c4772 |
;; Return a formatted string representation of the contents of:
|
|
Packit Service |
4c4772 |
;; AUTHOR:
|
|
Packit Service |
4c4772 |
;; Handles Honorific, FirstName, SurName, and Lineage.
|
|
Packit Service |
4c4772 |
;; If %author-othername-in-middle% is #t, also OtherName
|
|
Packit Service |
4c4772 |
;; Handles *only* the first of each.
|
|
Packit Service |
4c4772 |
;; Format is "Honorific. FirstName [OtherName] SurName, Lineage"
|
|
Packit Service |
4c4772 |
;; CORPAUTHOR:
|
|
Packit Service |
4c4772 |
;; returns (data corpauthor)
|
|
Packit Service |
4c4772 |
(let* ((h_nl (select-elements (descendants author) (normalize "honorific")))
|
|
Packit Service |
4c4772 |
(f_nl (select-elements (descendants author) (normalize "firstname")))
|
|
Packit Service |
4c4772 |
(o_nl (select-elements (descendants author) (normalize "othername")))
|
|
Packit Service |
4c4772 |
(s_nl (select-elements (descendants author) (normalize "surname")))
|
|
Packit Service |
4c4772 |
(l_nl (select-elements (descendants author) (normalize "lineage")))
|
|
Packit Service |
4c4772 |
(has_h (not (node-list-empty? h_nl)))
|
|
Packit Service |
4c4772 |
(has_f (not (node-list-empty? f_nl)))
|
|
Packit Service |
4c4772 |
(has_o (and %author-othername-in-middle%
|
|
Packit Service |
4c4772 |
(not (node-list-empty? o_nl))))
|
|
Packit Service |
4c4772 |
(has_s (not (node-list-empty? s_nl)))
|
|
Packit Service |
4c4772 |
(has_l (not (node-list-empty? l_nl))))
|
|
Packit Service |
4c4772 |
(if (or (equal? (gi author) (normalize "author"))
|
|
Packit Service |
4c4772 |
(equal? (gi author) (normalize "editor"))
|
|
Packit Service |
4c4772 |
(equal? (gi author) (normalize "othercredit")))
|
|
Packit Service |
4c4772 |
(string-append
|
|
Packit Service |
4c4772 |
(if has_h (string-append (data-of (node-list-first h_nl))
|
|
Packit Service |
4c4772 |
%honorific-punctuation%) "")
|
|
Packit Service |
4c4772 |
(if has_f (string-append
|
|
Packit Service |
4c4772 |
(if has_h " " "")
|
|
Packit Service |
4c4772 |
(data-of (node-list-first f_nl))) "")
|
|
Packit Service |
4c4772 |
(if has_o (string-append
|
|
Packit Service |
4c4772 |
(if (or has_h has_f) " " "")
|
|
Packit Service |
4c4772 |
(data-of (node-list-first o_nl))) "")
|
|
Packit Service |
4c4772 |
(if has_s (string-append
|
|
Packit Service |
4c4772 |
(if (or has_h has_f has_o) " " "")
|
|
Packit Service |
4c4772 |
(data-of (node-list-first s_nl))) "")
|
|
Packit Service |
4c4772 |
(if has_l (string-append ", " (data-of (node-list-first l_nl))) ""))
|
|
Packit Service |
4c4772 |
(data-of author))))
|
|
Packit Service |
4c4772 |
|
|
Packit Service |
4c4772 |
(define (nn-xref-strings)
|
|
Packit Service |
4c4772 |
(list (list (normalize "appendix") (if %chapter-autolabel%
|
|
Packit Service |
4c4772 |
"&Appendix; %n"
|
|
Packit Service |
4c4772 |
"the &appendix; called %t"))
|
|
Packit Service |
4c4772 |
(list (normalize "article") (string-append %gentext-nn-start-quote%
|
|
Packit Service |
4c4772 |
"%t"
|
|
Packit Service |
4c4772 |
%gentext-nn-end-quote%))
|
|
Packit Service |
4c4772 |
(list (normalize "bibliography") "%t")
|
|
Packit Service |
4c4772 |
(list (normalize "book") "%t")
|
|
Packit Service |
4c4772 |
(list (normalize "chapter") (if %chapter-autolabel%
|
|
Packit Service |
4c4772 |
"&Chapter; %n"
|
|
Packit Service |
4c4772 |
"the &chapter; called %t"))
|
|
Packit Service |
4c4772 |
(list (normalize "equation") "&Equation; %n")
|
|
Packit Service |
4c4772 |
(list (normalize "example") "&Example; %n")
|
|
Packit Service |
4c4772 |
(list (normalize "figure") "&Figure; %n")
|
|
Packit Service |
4c4772 |
(list (normalize "glossary") "%t")
|
|
Packit Service |
4c4772 |
(list (normalize "index") "%t")
|
|
Packit Service |
4c4772 |
(list (normalize "listitem") "%n")
|
|
Packit Service |
4c4772 |
(list (normalize "part") "&Part; %n")
|
|
Packit Service |
4c4772 |
(list (normalize "preface") "%t")
|
|
Packit Service |
4c4772 |
(list (normalize "procedure") "&Procedure; %n, %t")
|
|
Packit Service |
4c4772 |
(list (normalize "reference") "&Reference; %n, %t")
|
|
Packit Service |
4c4772 |
(list (normalize "section") (if %section-autolabel%
|
|
Packit Service |
4c4772 |
"&Section; %n"
|
|
Packit Service |
4c4772 |
"the §ion; called %t"))
|
|
Packit Service |
4c4772 |
(list (normalize "sect1") (if %section-autolabel%
|
|
Packit Service |
4c4772 |
"&Section; %n"
|
|
Packit Service |
4c4772 |
"the §ion; called %t"))
|
|
Packit Service |
4c4772 |
(list (normalize "sect2") (if %section-autolabel%
|
|
Packit Service |
4c4772 |
"&Section; %n"
|
|
Packit Service |
4c4772 |
"the §ion; called %t"))
|
|
Packit Service |
4c4772 |
(list (normalize "sect3") (if %section-autolabel%
|
|
Packit Service |
4c4772 |
"&Section; %n"
|
|
Packit Service |
4c4772 |
"the §ion; called %t"))
|
|
Packit Service |
4c4772 |
(list (normalize "sect4") (if %section-autolabel%
|
|
Packit Service |
4c4772 |
"&Section; %n"
|
|
Packit Service |
4c4772 |
"the §ion; called %t"))
|
|
Packit Service |
4c4772 |
(list (normalize "sect5") (if %section-autolabel%
|
|
Packit Service |
4c4772 |
"&Section; %n"
|
|
Packit Service |
4c4772 |
"the §ion; called %t"))
|
|
Packit Service |
4c4772 |
(list (normalize "simplesect") (if %section-autolabel%
|
|
Packit Service |
4c4772 |
"&Section; %n"
|
|
Packit Service |
4c4772 |
"the §ion; called %t"))
|
|
Packit Service |
4c4772 |
(list (normalize "sidebar") "the &sidebar; %t")
|
|
Packit Service |
4c4772 |
(list (normalize "step") "&ste;; %n")
|
|
Packit Service |
4c4772 |
(list (normalize "table") "&Tabl;; %n")))
|
|
Packit Service |
4c4772 |
|
|
Packit Service |
4c4772 |
(define (gentext-nn-xref-strings gind)
|
|
Packit Service |
4c4772 |
(let* ((giname (if (string? gind) gind (gi gind)))
|
|
Packit Service |
4c4772 |
(name (normalize giname))
|
|
Packit Service |
4c4772 |
(xref (assoc name (nn-xref-strings))))
|
|
Packit Service |
4c4772 |
(if xref
|
|
Packit Service |
4c4772 |
(car (cdr xref))
|
|
Packit Service |
4c4772 |
(let* ((msg (string-append "[&xrefto; "
|
|
Packit Service |
4c4772 |
(if giname giname "&nonexistantelement;")
|
|
Packit Service |
4c4772 |
" &unsupported;]"))
|
|
Packit Service |
4c4772 |
(err (node-list-error msg (current-node))))
|
|
Packit Service |
4c4772 |
msg))))
|
|
Packit Service |
4c4772 |
|
|
Packit Service |
4c4772 |
(define (nn-auto-xref-indirect-connector before)
|
|
Packit Service |
4c4772 |
;; In English, the (cond) is unnecessary since the word is always the
|
|
Packit Service |
4c4772 |
;; same, but in other languages, that's not the case. I've set this
|
|
Packit Service |
4c4772 |
;; one up with the (cond) so it stands as an example.
|
|
Packit Service |
4c4772 |
(cond
|
|
Packit Service |
4c4772 |
((equal? (gi before) (normalize "book"))
|
|
Packit Service |
4c4772 |
(literal " ∈ "))
|
|
Packit Service |
4c4772 |
((equal? (gi before) (normalize "chapter"))
|
|
Packit Service |
4c4772 |
(literal " ∈ "))
|
|
Packit Service |
4c4772 |
((equal? (gi before) (normalize "sect1"))
|
|
Packit Service |
4c4772 |
(literal " ∈ "))
|
|
Packit Service |
4c4772 |
(else
|
|
Packit Service |
4c4772 |
(literal " ∈ "))))
|
|
Packit Service |
4c4772 |
|
|
Packit Service |
4c4772 |
;; Should the TOC come first or last?
|
|
Packit Service |
4c4772 |
;;
|
|
Packit Service |
4c4772 |
(define %generate-nn-toc-in-front% #t)
|
|
Packit Service |
4c4772 |
|
|
Packit Service |
4c4772 |
;; gentext-element-name returns the generated text that should be
|
|
Packit Service |
4c4772 |
;; used to make reference to the selected element.
|
|
Packit Service |
4c4772 |
;;
|
|
Packit Service |
4c4772 |
|
|
Packit Service |
4c4772 |
(define (nn-element-name)
|
|
Packit Service |
4c4772 |
(list
|
|
Packit Service |
4c4772 |
(list (normalize "abstract") "&Abstract;")
|
|
Packit Service |
4c4772 |
(list (normalize "answer") "&Answer;")
|
|
Packit Service |
4c4772 |
(list (normalize "appendix") "&Appendix;")
|
|
Packit Service |
4c4772 |
(list (normalize "article") "&Article;")
|
|
Packit Service |
4c4772 |
(list (normalize "bibliography") "&Bibliography;")
|
|
Packit Service |
4c4772 |
(list (normalize "book") "&Boo;;")
|
|
Packit Service |
4c4772 |
(list (normalize "calloutlist") "")
|
|
Packit Service |
4c4772 |
(list (normalize "caution") "&Caution;")
|
|
Packit Service |
4c4772 |
(list (normalize "chapter") "&Chapter;")
|
|
Packit Service |
4c4772 |
(list (normalize "copyright") "&Copyright;")
|
|
Packit Service |
4c4772 |
(list (normalize "dedication") "&Dedication;")
|
|
Packit Service |
4c4772 |
(list (normalize "edition") "&Edition;")
|
|
Packit Service |
4c4772 |
(list (normalize "equation") "&Equation;")
|
|
Packit Service |
4c4772 |
(list (normalize "example") "&Example;")
|
|
Packit Service |
4c4772 |
(list (normalize "figure") "&Figure;")
|
|
Packit Service |
4c4772 |
(list (normalize "glossary") "&Glossary;")
|
|
Packit Service |
4c4772 |
(list (normalize "glosssee") "&GlossSee;")
|
|
Packit Service |
4c4772 |
(list (normalize "glossseealso") "&GlossSeeAlso;")
|
|
Packit Service |
4c4772 |
(list (normalize "important") "&Important;")
|
|
Packit Service |
4c4772 |
(list (normalize "index") "&Index;")
|
|
Packit Service |
4c4772 |
(list (normalize "colophon") "&Colophon;")
|
|
Packit Service |
4c4772 |
(list (normalize "setindex") "&SetIndex;")
|
|
Packit Service |
4c4772 |
(list (normalize "isbn") "&isb;;")
|
|
Packit Service |
4c4772 |
(list (normalize "legalnotice") "&LegalNotice;")
|
|
Packit Service |
4c4772 |
(list (normalize "msgaud") "&MsgAud;")
|
|
Packit Service |
4c4772 |
(list (normalize "msglevel") "&MsgLevel;")
|
|
Packit Service |
4c4772 |
(list (normalize "msgorig") "&MsgOrig;")
|
|
Packit Service |
4c4772 |
(list (normalize "note") "&Note;")
|
|
Packit Service |
4c4772 |
(list (normalize "part") "&Part;")
|
|
Packit Service |
4c4772 |
(list (normalize "preface") "&Preface;")
|
|
Packit Service |
4c4772 |
(list (normalize "procedure") "&Procedure;")
|
|
Packit Service |
4c4772 |
(list (normalize "pubdate") "&Published;")
|
|
Packit Service |
4c4772 |
(list (normalize "question") "&Question;")
|
|
Packit Service |
4c4772 |
(list (normalize "refentry") "&RefEntry;")
|
|
Packit Service |
4c4772 |
(list (normalize "reference") "&Reference;")
|
|
Packit Service |
4c4772 |
(list (normalize "refname") "&RefName;")
|
|
Packit Service |
4c4772 |
(list (normalize "revhistory") "&RevHistory;")
|
|
Packit Service |
4c4772 |
(list (normalize "refsect1") "&RefSection;")
|
|
Packit Service |
4c4772 |
(list (normalize "refsect2") "&RefSection;")
|
|
Packit Service |
4c4772 |
(list (normalize "refsect3") "&RefSection;")
|
|
Packit Service |
4c4772 |
(list (normalize "refsynopsisdiv") "&RefSynopsisDiv;")
|
|
Packit Service |
4c4772 |
(list (normalize "revision") "&Revision;")
|
|
Packit Service |
4c4772 |
(list (normalize "sect1") "&Section;")
|
|
Packit Service |
4c4772 |
(list (normalize "sect2") "&Section;")
|
|
Packit Service |
4c4772 |
(list (normalize "sect3") "&Section;")
|
|
Packit Service |
4c4772 |
(list (normalize "sect4") "&Section;")
|
|
Packit Service |
4c4772 |
(list (normalize "sect5") "&Section;")
|
|
Packit Service |
4c4772 |
(list (normalize "section") "&Section;")
|
|
Packit Service |
4c4772 |
(list (normalize "simplesect") "&Section;")
|
|
Packit Service |
4c4772 |
(list (normalize "seeie") "&Se;;")
|
|
Packit Service |
4c4772 |
(list (normalize "seealsoie") "&Seealso;")
|
|
Packit Service |
4c4772 |
(list (normalize "set") "&Se;;")
|
|
Packit Service |
4c4772 |
(list (normalize "sidebar") "&Sidebar;")
|
|
Packit Service |
4c4772 |
(list (normalize "step") "&ste;;")
|
|
Packit Service |
4c4772 |
(list (normalize "table") "&Tabl;;")
|
|
Packit Service |
4c4772 |
(list (normalize "tip") "&Tip;")
|
|
Packit Service |
4c4772 |
(list (normalize "toc") "&TableofContents;")
|
|
Packit Service |
4c4772 |
(list (normalize "warning") "&Warning;")
|
|
Packit Service |
4c4772 |
))
|
|
Packit Service |
4c4772 |
|
|
Packit Service |
4c4772 |
(define (gentext-nn-element-name gind)
|
|
Packit Service |
4c4772 |
(let* ((giname (if (string? gind) gind (gi gind)))
|
|
Packit Service |
4c4772 |
(name (normalize giname))
|
|
Packit Service |
4c4772 |
(pname (assoc name (nn-element-name))))
|
|
Packit Service |
4c4772 |
(if pname
|
|
Packit Service |
4c4772 |
(car (cdr pname))
|
|
Packit Service |
4c4772 |
(let* ((msg (string-append
|
|
Packit Service |
4c4772 |
"gentext-nn-element-name: &unexpectedelementname;: "
|
|
Packit Service |
4c4772 |
name))
|
|
Packit Service |
4c4772 |
(err (node-list-error msg (current-node))))
|
|
Packit Service |
4c4772 |
msg))))
|
|
Packit Service |
4c4772 |
|
|
Packit Service |
4c4772 |
;; gentext-element-name-space returns gentext-element-name with a
|
|
Packit Service |
4c4772 |
;; trailing space, if gentext-element-name isn't "".
|
|
Packit Service |
4c4772 |
;;
|
|
Packit Service |
4c4772 |
(define (gentext-nn-element-name-space giname)
|
|
Packit Service |
4c4772 |
(string-with-space (gentext-element-name giname)))
|
|
Packit Service |
4c4772 |
|
|
Packit Service |
4c4772 |
;; gentext-intra-label-sep returns the seperator to be inserted
|
|
Packit Service |
4c4772 |
;; between multiple occurances of a label (or parts of a label)
|
|
Packit Service |
4c4772 |
;; for the specified element. Most of these are for enumerated
|
|
Packit Service |
4c4772 |
;; labels like "Figure 2-4", but this function is used elsewhere
|
|
Packit Service |
4c4772 |
;; (e.g. REFNAME) with a little abuse.
|
|
Packit Service |
4c4772 |
;;
|
|
Packit Service |
4c4772 |
|
|
Packit Service |
4c4772 |
(define (local-nn-intra-label-sep)
|
|
Packit Service |
4c4772 |
(list))
|
|
Packit Service |
4c4772 |
|
|
Packit Service |
4c4772 |
(define (nn-intra-label-sep)
|
|
Packit Service |
4c4772 |
(list
|
|
Packit Service |
4c4772 |
(list (normalize "equation") "-")
|
|
Packit Service |
4c4772 |
(list (normalize "informalequation") "-")
|
|
Packit Service |
4c4772 |
(list (normalize "example") "-")
|
|
Packit Service |
4c4772 |
(list (normalize "figure") "-")
|
|
Packit Service |
4c4772 |
(list (normalize "listitem") ".")
|
|
Packit Service |
4c4772 |
(list (normalize "procedure") ".")
|
|
Packit Service |
4c4772 |
(list (normalize "refentry") ".")
|
|
Packit Service |
4c4772 |
(list (normalize "reference") ".")
|
|
Packit Service |
4c4772 |
(list (normalize "refname") ", ")
|
|
Packit Service |
4c4772 |
(list (normalize "refsect1") ".")
|
|
Packit Service |
4c4772 |
(list (normalize "refsect2") ".")
|
|
Packit Service |
4c4772 |
(list (normalize "refsect3") ".")
|
|
Packit Service |
4c4772 |
(list (normalize "sect1") ".")
|
|
Packit Service |
4c4772 |
(list (normalize "sect2") ".")
|
|
Packit Service |
4c4772 |
(list (normalize "sect3") ".")
|
|
Packit Service |
4c4772 |
(list (normalize "sect4") ".")
|
|
Packit Service |
4c4772 |
(list (normalize "sect5") ".")
|
|
Packit Service |
4c4772 |
(list (normalize "section") ".")
|
|
Packit Service |
4c4772 |
(list (normalize "simplesect") ".")
|
|
Packit Service |
4c4772 |
(list (normalize "step") ".")
|
|
Packit Service |
4c4772 |
(list (normalize "table") "-")
|
|
Packit Service |
4c4772 |
(list (normalize "_pagenumber") "-")
|
|
Packit Service |
4c4772 |
))
|
|
Packit Service |
4c4772 |
|
|
Packit Service |
4c4772 |
(define (gentext-nn-intra-label-sep gind)
|
|
Packit Service |
4c4772 |
(let* ((giname (if (string? gind) gind (gi gind)))
|
|
Packit Service |
4c4772 |
(name (normalize giname))
|
|
Packit Service |
4c4772 |
(lsep (assoc name (local-nn-intra-label-sep)))
|
|
Packit Service |
4c4772 |
(sep (assoc name (nn-intra-label-sep))))
|
|
Packit Service |
4c4772 |
(if lsep
|
|
Packit Service |
4c4772 |
(car (cdr lsep))
|
|
Packit Service |
4c4772 |
(if sep
|
|
Packit Service |
4c4772 |
(car (cdr sep))
|
|
Packit Service |
4c4772 |
""))))
|
|
Packit Service |
4c4772 |
|
|
Packit Service |
4c4772 |
;; gentext-label-title-sep returns the seperator to be inserted
|
|
Packit Service |
4c4772 |
;; between a label and the text following the label for the
|
|
Packit Service |
4c4772 |
;; specified element. Most of these are for use between
|
|
Packit Service |
4c4772 |
;; enumerated labels and titles like "1. Chapter One Title", but
|
|
Packit Service |
4c4772 |
;; this function is used elsewhere (e.g. NOTE) with a little
|
|
Packit Service |
4c4772 |
;; abuse.
|
|
Packit Service |
4c4772 |
;;
|
|
Packit Service |
4c4772 |
|
|
Packit Service |
4c4772 |
(define (local-nn-label-title-sep)
|
|
Packit Service |
4c4772 |
(list))
|
|
Packit Service |
4c4772 |
|
|
Packit Service |
4c4772 |
(define (nn-label-title-sep)
|
|
Packit Service |
4c4772 |
(list
|
|
Packit Service |
4c4772 |
(list (normalize "abstract") ": ")
|
|
Packit Service |
4c4772 |
(list (normalize "answer") " ")
|
|
Packit Service |
4c4772 |
(list (normalize "appendix") ". ")
|
|
Packit Service |
4c4772 |
(list (normalize "caution") "")
|
|
Packit Service |
4c4772 |
(list (normalize "chapter") ". ")
|
|
Packit Service |
4c4772 |
(list (normalize "equation") ". ")
|
|
Packit Service |
4c4772 |
(list (normalize "example") ". ")
|
|
Packit Service |
4c4772 |
(list (normalize "figure") ". ")
|
|
Packit Service |
4c4772 |
(list (normalize "footnote") ". ")
|
|
Packit Service |
4c4772 |
(list (normalize "glosssee") ": ")
|
|
Packit Service |
4c4772 |
(list (normalize "glossseealso") ": ")
|
|
Packit Service |
4c4772 |
(list (normalize "important") ": ")
|
|
Packit Service |
4c4772 |
(list (normalize "note") ": ")
|
|
Packit Service |
4c4772 |
(list (normalize "orderedlist") ". ")
|
|
Packit Service |
4c4772 |
(list (normalize "part") ". ")
|
|
Packit Service |
4c4772 |
(list (normalize "procedure") ". ")
|
|
Packit Service |
4c4772 |
(list (normalize "prefix") ". ")
|
|
Packit Service |
4c4772 |
(list (normalize "question") " ")
|
|
Packit Service |
4c4772 |
(list (normalize "refentry") "")
|
|
Packit Service |
4c4772 |
(list (normalize "reference") ". ")
|
|
Packit Service |
4c4772 |
(list (normalize "refsect1") ". ")
|
|
Packit Service |
4c4772 |
(list (normalize "refsect2") ". ")
|
|
Packit Service |
4c4772 |
(list (normalize "refsect3") ". ")
|
|
Packit Service |
4c4772 |
(list (normalize "sect1") ". ")
|
|
Packit Service |
4c4772 |
(list (normalize "sect2") ". ")
|
|
Packit Service |
4c4772 |
(list (normalize "sect3") ". ")
|
|
Packit Service |
4c4772 |
(list (normalize "sect4") ". ")
|
|
Packit Service |
4c4772 |
(list (normalize "sect5") ". ")
|
|
Packit Service |
4c4772 |
(list (normalize "section") ". ")
|
|
Packit Service |
4c4772 |
(list (normalize "simplesect") ". ")
|
|
Packit Service |
4c4772 |
(list (normalize "seeie") " ")
|
|
Packit Service |
4c4772 |
(list (normalize "seealsoie") " ")
|
|
Packit Service |
4c4772 |
(list (normalize "step") ". ")
|
|
Packit Service |
4c4772 |
(list (normalize "table") ". ")
|
|
Packit Service |
4c4772 |
(list (normalize "tip") ": ")
|
|
Packit Service |
4c4772 |
(list (normalize "warning") "")
|
|
Packit Service |
4c4772 |
))
|
|
Packit Service |
4c4772 |
|
|
Packit Service |
4c4772 |
(define (gentext-nn-label-title-sep gind)
|
|
Packit Service |
4c4772 |
(let* ((giname (if (string? gind) gind (gi gind)))
|
|
Packit Service |
4c4772 |
(name (normalize giname))
|
|
Packit Service |
4c4772 |
(lsep (assoc name (local-nn-label-title-sep)))
|
|
Packit Service |
4c4772 |
(sep (assoc name (nn-label-title-sep))))
|
|
Packit Service |
4c4772 |
(if lsep
|
|
Packit Service |
4c4772 |
(car (cdr lsep))
|
|
Packit Service |
4c4772 |
(if sep
|
|
Packit Service |
4c4772 |
(car (cdr sep))
|
|
Packit Service |
4c4772 |
""))))
|
|
Packit Service |
4c4772 |
|
|
Packit Service |
4c4772 |
(define (nn-label-number-format-list)
|
|
Packit Service |
4c4772 |
(list
|
|
Packit Service |
4c4772 |
(list (normalize "set") "1")
|
|
Packit Service |
4c4772 |
(list (normalize "book") "1")
|
|
Packit Service |
4c4772 |
(list (normalize "prefix") "1")
|
|
Packit Service |
4c4772 |
(list (normalize "part") "I")
|
|
Packit Service |
4c4772 |
(list (normalize "chapter") "1")
|
|
Packit Service |
4c4772 |
(list (normalize "appendix") "A")
|
|
Packit Service |
4c4772 |
(list (normalize "reference") "I")
|
|
Packit Service |
4c4772 |
(list (normalize "example") "1")
|
|
Packit Service |
4c4772 |
(list (normalize "figure") "1")
|
|
Packit Service |
4c4772 |
(list (normalize "table") "1")
|
|
Packit Service |
4c4772 |
(list (normalize "procedure") "1")
|
|
Packit Service |
4c4772 |
(list (normalize "step") "1")
|
|
Packit Service |
4c4772 |
(list (normalize "refsect1") "1")
|
|
Packit Service |
4c4772 |
(list (normalize "refsect2") "1")
|
|
Packit Service |
4c4772 |
(list (normalize "refsect3") "1")
|
|
Packit Service |
4c4772 |
(list (normalize "sect1") "1")
|
|
Packit Service |
4c4772 |
(list (normalize "sect2") "1")
|
|
Packit Service |
4c4772 |
(list (normalize "sect3") "1")
|
|
Packit Service |
4c4772 |
(list (normalize "sect4") "1")
|
|
Packit Service |
4c4772 |
(list (normalize "sect5") "1")
|
|
Packit Service |
4c4772 |
(list (normalize "section") "1")
|
|
Packit Service |
4c4772 |
))
|
|
Packit Service |
4c4772 |
|
|
Packit Service |
4c4772 |
(define (nn-label-number-format gind)
|
|
Packit Service |
4c4772 |
(let* ((giname (if (string? gind) gind (gi gind)))
|
|
Packit Service |
4c4772 |
(name (normalize giname))
|
|
Packit Service |
4c4772 |
(format (assoc name (nn-label-number-format-list))))
|
|
Packit Service |
4c4772 |
(if format
|
|
Packit Service |
4c4772 |
(car (cdr format))
|
|
Packit Service |
4c4772 |
"1")))
|
|
Packit Service |
4c4772 |
|
|
Packit Service |
4c4772 |
(define (nn-lot-title)
|
|
Packit Service |
4c4772 |
(list
|
|
Packit Service |
4c4772 |
(list (normalize "table") "&ListofTables;")
|
|
Packit Service |
4c4772 |
(list (normalize "example") "&ListofExamples;")
|
|
Packit Service |
4c4772 |
(list (normalize "figure") "&ListofFigures;")
|
|
Packit Service |
4c4772 |
(list (normalize "equation") "&ListofEquations;")
|
|
Packit Service |
4c4772 |
))
|
|
Packit Service |
4c4772 |
|
|
Packit Service |
4c4772 |
(define ($lot-title-nn$ gind)
|
|
Packit Service |
4c4772 |
(let* ((giname (if (string? gind) gind (gi gind)))
|
|
Packit Service |
4c4772 |
(name (normalize giname))
|
|
Packit Service |
4c4772 |
(title (assoc name (nn-lot-title))))
|
|
Packit Service |
4c4772 |
(if title
|
|
Packit Service |
4c4772 |
(car (cdr title))
|
|
Packit Service |
4c4772 |
(let* ((msg (string-append "&ListofUnknown;: " name))
|
|
Packit Service |
4c4772 |
(err (node-list-error msg (current-node))))
|
|
Packit Service |
4c4772 |
msg))))
|
|
Packit Service |
4c4772 |
|
|
Packit Service |
4c4772 |
(define %gentext-nn-start-quote% (dingbat "ldquo"))
|
|
Packit Service |
4c4772 |
|
|
Packit Service |
4c4772 |
(define %gentext-nn-end-quote% (dingbat "rdquo"))
|
|
Packit Service |
4c4772 |
|
|
Packit Service |
4c4772 |
(define %gentext-nn-start-nested-quote% (dingbat "lsquo"))
|
|
Packit Service |
4c4772 |
|
|
Packit Service |
4c4772 |
(define %gentext-nn-end-nested-quote% (dingbat "rsquo"))
|
|
Packit Service |
4c4772 |
|
|
Packit Service |
4c4772 |
(define %gentext-nn-by% "&by;") ;; e.g. Copyright 1997 "by" A. Nonymous
|
|
Packit Service |
4c4772 |
;; Authored "by" Jane Doe
|
|
Packit Service |
4c4772 |
|
|
Packit Service |
4c4772 |
(define %gentext-nn-edited-by% "&Editedby;")
|
|
Packit Service |
4c4772 |
;; "Edited by" Jane Doe
|
|
Packit Service |
4c4772 |
|
|
Packit Service |
4c4772 |
(define %gentext-nn-revised-by% "&Revisedby;")
|
|
Packit Service |
4c4772 |
;; "Revised by" Jane Doe
|
|
Packit Service |
4c4772 |
|
|
Packit Service |
4c4772 |
(define %gentext-nn-page% "")
|
|
Packit Service |
4c4772 |
|
|
Packit Service |
4c4772 |
(define %gentext-nn-and% "∧")
|
|
Packit Service |
4c4772 |
|
|
Packit Service |
4c4772 |
(define %gentext-nn-listcomma% "&listcomma;")
|
|
Packit Service |
4c4772 |
|
|
Packit Service |
4c4772 |
(define %gentext-nn-lastlistcomma% "&lastlistcomma;")
|
|
Packit Service |
4c4772 |
|
|
Packit Service |
4c4772 |
(define %gentext-nn-bibl-pages% "&Pg;;")
|
|
Packit Service |
4c4772 |
|
|
Packit Service |
4c4772 |
(define %gentext-nn-endnotes% "&Note;;")
|
|
Packit Service |
4c4772 |
|
|
Packit Service |
4c4772 |
(define %gentext-nn-table-endnotes% "&TableNotes;:")
|
|
Packit Service |
4c4772 |
|
|
Packit Service |
4c4772 |
(define %gentext-nn-index-see% "&Se;;")
|
|
Packit Service |
4c4772 |
|
|
Packit Service |
4c4772 |
(define %gentext-nn-index-seealso% "&SeeAlso;")
|
|
Packit Service |
4c4772 |
|
|
Packit Service |
4c4772 |
|
|
Packit Service |
4c4772 |
(define (gentext-nn-nav-prev prev)
|
|
Packit Service |
4c4772 |
(make sequence (literal "&nav-prev;")))
|
|
Packit Service |
4c4772 |
|
|
Packit Service |
4c4772 |
(define (gentext-nn-nav-prev-sibling prevsib)
|
|
Packit Service |
4c4772 |
(make sequence (literal "&nav-prev-sibling;")))
|
|
Packit Service |
4c4772 |
|
|
Packit Service |
4c4772 |
(define (gentext-nn-nav-next-sibling nextsib)
|
|
Packit Service |
4c4772 |
(make sequence (literal "&nav-next-sibling;")))
|
|
Packit Service |
4c4772 |
|
|
Packit Service |
4c4772 |
(define (gentext-nn-nav-next next)
|
|
Packit Service |
4c4772 |
(make sequence (literal "&nav-next;")))
|
|
Packit Service |
4c4772 |
|
|
Packit Service |
4c4772 |
(define (gentext-nn-nav-up up)
|
|
Packit Service |
4c4772 |
(make sequence (literal "&nav-up;")))
|
|
Packit Service |
4c4772 |
|
|
Packit Service |
4c4772 |
(define (gentext-nn-nav-home home)
|
|
Packit Service |
4c4772 |
(make sequence (literal "&nav-home;")))
|
|
Packit Service |
4c4772 |
|
|
Packit Service |
4c4772 |
|
|
Packit Service |
4c4772 |
</style-specification-body>
|
|
Packit Service |
4c4772 |
</style-specification>
|
|
Packit Service |
4c4772 |
</style-sheet>
|
|
Packit Service |
4c4772 |
|