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