;ELC
|
;;; Compiled
|
;;; in Emacs version 26.1
|
;;; with all optimizations.
|
|
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
|
|
;;; This file does not contain utf-8 non-ASCII characters,
|
;;; and so can be loaded in Emacs versions earlier than 23.
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310\311\312\313&\210\314\315\316\317\320\321\322\323\324\325\326\327&\210\330\331\332\333\334DD\335\326\315\336\337&\210\330\340\332\333\341DD\342\326\315\336\343&\210\330\344\332\333\345DD\346\326\315\322\347\324\350\336\351&\210\330\352\332\333\353DD\354\326\315\336\333\322\347\324\355&\210\330\356\332\333\357DD\360\326\315\336\361&\210\330\362\332\333\363DD\364\326\315\336\365&\210\330\366\332\333\367DD\370\326\315\336\365&\210\330\371\332\333\372DD\373\326\315\336\365&\210\330\374\332\333\375DD\376\326\315\336\365&\210\330\377\332\333\201@ DD\201A \326\315\336\201B &\210\330\201C \332\333\201D DD\201E \326\315\336\201F &\210\330\201G \332\333\201H DD\201I \326\315\336\365\322\347\324\201J \201K \201L & \210\330\201M \332\333\201N DD\201O \326\315\322\347\324\201P \336\201Q \201R \201S & \210\330\201T \332\333\201U DD\201V \326\315\322\323\324\201W \336\333&\210\330\201X \332\333\201Y DD\201Z \326\315\336\333&\210\330\201[ \332\333\201\\ DD\201] \326\315\322\347\324\201^ \336\201_ &\210\330\201` \332\333\201a DD\201b \326\315\336\201c &\210\330\201d \332\333\201e DD\201f \326\201g \336\201B &\207" [require cl-lib ox org-export-define-backend texinfo ((bold . org-texinfo-bold) (center-block . org-texinfo-center-block) (clock . org-texinfo-clock) (code . org-texinfo-code) (drawer . org-texinfo-drawer) (dynamic-block . org-texinfo-dynamic-block) (entity . org-texinfo-entity) (example-block . org-texinfo-example-block) (export-block . org-texinfo-export-block) (export-snippet . org-texinfo-export-snippet) (fixed-width . org-texinfo-fixed-width) (footnote-definition . org-texinfo-footnote-definition) (footnote-reference . org-texinfo-footnote-reference) (headline . org-texinfo-headline) (inline-src-block . org-texinfo-inline-src-block) (inlinetask . org-texinfo-inlinetask) (italic . org-texinfo-italic) (item . org-texinfo-item) (keyword . org-texinfo-keyword) (line-break . org-texinfo-line-break) (link . org-texinfo-link) (node-property . org-texinfo-node-property) (paragraph . org-texinfo-paragraph) (plain-list . org-texinfo-plain-list) (plain-text . org-texinfo-plain-text) (planning . org-texinfo-planning) (property-drawer . org-texinfo-property-drawer) (quote-block . org-texinfo-quote-block) (radio-target . org-texinfo-radio-target) (section . org-texinfo-section) (special-block . org-texinfo-special-block) (src-block . org-texinfo-src-block) (statistics-cookie . org-texinfo-statistics-cookie) (strike-through . org-texinfo-strike-through) (subscript . org-texinfo-subscript) (superscript . org-texinfo-superscript) (table . org-texinfo-table) (table-cell . org-texinfo-table-cell) (table-row . org-texinfo-table-row) (target . org-texinfo-target) (template . org-texinfo-template) (timestamp . org-texinfo-timestamp) (underline . org-texinfo-underline) (verbatim . org-texinfo-verbatim) (verse-block . org-texinfo-verse-block)) :filters-alist ((:filter-headline . org-texinfo--filter-section-blank-lines) (:filter-parse-tree . org-texinfo--normalize-headlines) (:filter-section . org-texinfo--filter-section-blank-lines) (:filter-final-output . org-texinfo--untabify)) :menu-entry (105 "Export to Texinfo" ((116 "As TEXI file" org-texinfo-export-to-texinfo) (105 "As INFO file" org-texinfo-export-to-info) (111 "As INFO file and open" (lambda (a s v b) (if a (org-texinfo-export-to-info t s v b) (org-open-file (org-texinfo-export-to-info nil s v b))))))) :options-alist ((:texinfo-filename "TEXINFO_FILENAME" nil nil t) (:texinfo-class "TEXINFO_CLASS" nil org-texinfo-default-class t) (:texinfo-header "TEXINFO_HEADER" nil nil newline) (:texinfo-post-header "TEXINFO_POST_HEADER" nil nil newline) (:subtitle "SUBTITLE" nil nil parse) (:subauthor "SUBAUTHOR" nil nil newline) (:texinfo-dircat "TEXINFO_DIR_CATEGORY" nil nil t) (:texinfo-dirtitle "TEXINFO_DIR_TITLE" nil nil t) (:texinfo-dirdesc "TEXINFO_DIR_DESC" nil nil t) (:texinfo-printed-title "TEXINFO_PRINTED_TITLE" nil nil t) (:texinfo-classes nil nil org-texinfo-classes) (:texinfo-format-headline-function nil nil org-texinfo-format-headline-function) (:texinfo-node-description-column nil nil org-texinfo-node-description-column) (:texinfo-active-timestamp-format nil nil org-texinfo-active-timestamp-format) (:texinfo-inactive-timestamp-format nil nil org-texinfo-inactive-timestamp-format) (:texinfo-diary-timestamp-format nil nil org-texinfo-diary-timestamp-format) (:texinfo-link-with-unknown-path-format nil nil org-texinfo-link-with-unknown-path-format) (:texinfo-tables-verbatim nil nil org-texinfo-tables-verbatim) (:texinfo-table-scientific-notation nil nil org-texinfo-table-scientific-notation) (:texinfo-table-default-markup nil nil org-texinfo-table-default-markup) (:texinfo-text-markup-alist nil nil org-texinfo-text-markup-alist) (:texinfo-format-drawer-function nil nil org-texinfo-format-drawer-function) (:texinfo-format-inlinetask-function nil nil org-texinfo-format-inlinetask-function)) custom-declare-group org-export-texinfo nil "Options for exporting Org mode files to Texinfo." :tag "Org Export Texinfo" :version "24.4" :package-version (Org . "8.0") :group org-export custom-declare-variable org-texinfo-coding-system funcall function #[0 "\300\207" [nil] 1] "Default document encoding for Texinfo output.\n\nIf nil it will default to `buffer-file-coding-system'." :type coding-system org-texinfo-default-class #[0 "\300\207" [#1="info"] 1 #1#] "The default Texinfo class." (string :tag "Texinfo class") org-texinfo-classes #[0 "\300\207" [(("info" "@documentencoding AUTO\n@documentlanguage AUTO" ("@chapter %s" "@unnumbered %s" "@appendix %s") ("@section %s" "@unnumberedsec %s" "@appendixsec %s") ("@subsection %s" "@unnumberedsubsec %s" "@appendixsubsec %s") ("@subsubsection %s" "@unnumberedsubsubsec %s" "@appendixsubsubsec %s")))] 1] "Alist of Texinfo classes and associated header and structure.\nIf #+TEXINFO_CLASS is set in the buffer, use its value and the\nassociated information. Here is the structure of a class\ndefinition:\n\n (class-name\n header-string\n (numbered-1 unnumbered-1 appendix-1)\n (numbered-2 unnumbered-2 appendix-2)\n ...)\n\n\nThe header string\n-----------------\n\nThe header string is inserted in the header of the generated\ndocument, right after \"@setfilename\" and \"@settitle\"\ncommands.\n\nIf it contains the special string\n\n \"@documentencoding AUTO\"\n\n\"AUTO\" will be replaced with an appropriate coding system. See\n`org-texinfo-coding-system' for more information. Likewise, if\nthe string contains the special string\n\n \"@documentlanguage AUTO\"\n\n\"AUTO\" will be replaced with the language defined in the\nbuffer, through #+LANGUAGE keyword, or globally, with\n`org-export-default-language', which see.\n\n\nThe sectioning structure\n------------------------\n\nThe sectioning structure of the class is given by the elements\nfollowing the header string. For each sectioning level, a number\nof strings is specified. A %s formatter is mandatory in each\nsection string and will be replaced by the title of the section." "26.1" (Org . "9.1") (repeat (list (string :tag "Texinfo class") (string :tag "Texinfo header") (repeat :tag "Levels" :inline t (choice (list :tag "Heading" (string :tag " numbered") (string :tag "unnumbered") (string :tag " appendix")))))) org-texinfo-format-headline-function #[0 "\300\207" [org-texinfo-format-headline-default-function] 1] "Function to format headline text.\n\nThis function will be called with 5 arguments:\nTODO the todo keyword (string or nil).\nTODO-TYPE the type of todo (symbol: `todo', `done', nil)\nPRIORITY the priority of the headline (integer or nil)\nTEXT the main headline text (string).\nTAGS the tags as a list of strings (list of strings or nil).\n\nThe function result will be used in the section format string." (Org . "8.3") org-texinfo-node-description-column #[0 "\300\207" [32] 1] "Column at which to start the description in the node listings.\nIf a node title is greater than this length, the description will\nbe placed after the end of the title." integer org-texinfo-active-timestamp-format #[0 "\300\207" [#2="@emph{%s}"] 1 #2#] "A printf format string to be applied to active timestamps." string org-texinfo-inactive-timestamp-format #[0 "\300\207" [#3="@emph{%s}"] 1 #3#] "A printf format string to be applied to inactive timestamps." org-texinfo-diary-timestamp-format #[0 "\300\207" [#4="@emph{%s}"] 1 #4#] "A printf format string to be applied to diary timestamps." org-texinfo-link-with-unknown-path-format #[0 "\300\207" [#5="@indicateurl{%s}"] 1 #5#] "Format string for links with unknown path type." org-texinfo-tables-verbatim #[0 "\300\207" [nil] 1] "When non-nil, tables are exported verbatim." boolean org-texinfo-table-scientific-notation #[0 "\300\207" [#6="%s\\,(%s)"] 1 #6#] "Format string to display numbers in scientific notation.\n\nThe format should have \"%s\" twice, for mantissa and exponent\n(i.e. \"%s\\\\times10^{%s}\").\n\nWhen nil, no transformation is made." (choice (string :tag "Format string") (const :tag "No formatting" nil)) org-texinfo-table-default-markup #[0 "\300\207" [#7="@asis"] 1 #7#] "Default markup for first column in two-column tables.\n\nThis should an indicating command, e.g., \"@code\", \"@kbd\" or\n\"@samp\".\n\nIt can be overridden locally using the \":indic\" attribute." (Org . "9.1") :safe stringp org-texinfo-text-markup-alist #[0 "\300\207" [((bold . "@strong{%s}") (code . code) (italic . "@emph{%s}") (verbatim . samp))] 1] "Alist of Texinfo expressions to convert text markup.\n\nThe key must be a symbol among `bold', `code', `italic',\n`strike-through', `underscore' and `verbatim'. The value is\na formatting string to wrap fontified text with.\n\nValue can also be set to the following symbols: `verb', `samp'\nand `code'. With the first one, Org uses \"@verb\" to create\na format string and selects a delimiter character that isn't in\nthe string. For the other two, Org uses \"@samp\" or \"@code\"\nto typeset and protects special characters.\n\nWhen no association is found for a given markup, text is returned\nas-is." (Org . "9.1") alist :options (bold code italic strike-through underscore verbatim) org-texinfo-format-drawer-function #[0 "\300\207" [#[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"]] 1] "Function called to format a drawer in Texinfo code.\n\nThe function must accept two parameters:\n NAME the drawer name, like \"LOGBOOK\"\n CONTENTS the contents of the drawer.\n\nThe function should return the string to be exported.\n\nThe default function simply returns the value of CONTENTS." (Org . "8.2") org-texinfo-format-inlinetask-function #[0 "\300\207" [org-texinfo-format-inlinetask-default-function] 1] "Function called to format an inlinetask in Texinfo code.\n\nThe function must accept six parameters:\n TODO the todo keyword, as a string\n TODO-TYPE the todo type, a symbol among `todo', `done' and nil.\n PRIORITY the inlinetask priority, as a string\n NAME the inlinetask name, as a string.\n TAGS the inlinetask tags, as a list of strings.\n CONTENTS the contents of the inlinetask, as a string.\n\nThe function should return the string to be exported." org-texinfo-info-process #[0 "\300\207" [("makeinfo --no-split %f")] 1] "Commands to process a Texinfo file to an INFO file.\n\nThis is a list of strings, each of them will be given to the\nshell as a command. %f in the command will be replaced by the\nrelative file name, %F by the absolute file name, %b by the file\nbase name (i.e. without directory and extension parts), %o by the\nbase directory of the file and %O by the absolute file name of\nthe output file." (Org . "9.1") (repeat :tag "Shell command sequence" (string :tag "Shell command")) org-texinfo-logfiles-extensions #[0 "\300\207" [("aux" "toc" "cp" "fn" "ky" "pg" "tp" "vr")] 1] "The list of file extensions to consider as Texinfo logfiles.\nThe logfiles will be remove if `org-texinfo-remove-logfiles' is\nnon-nil." (repeat (string :tag "Extension")) org-texinfo-remove-logfiles #[0 "\300\207" [t] 1] "Non-nil means remove the logfiles produced by compiling a Texinfo file.\nBy default, logfiles are files with these extensions: .aux, .toc,\n.cp, .fn, .ky, .pg and .tp. To define the set of logfiles to remove,\nset `org-texinfo-logfiles-extensions'." org-export-latex] 14)
|
#@187 Maximum depth for creation of detailed menu listings.
|
Beyond this depth, Texinfo will not recognize the nodes and will
|
cause errors. Left as a constant in case this value ever
|
changes.
|
(defconst org-texinfo-max-toc-depth 4 (#$ . 12811))
|
#@243 List of coding systems supported by Texinfo, as strings.
|
Specified coding system will be matched against these strings.
|
If two strings share the same prefix (e.g. "ISO-8859-1" and
|
"ISO-8859-15"), the most specific one has to be listed first.
|
(defconst org-texinfo-supported-coding-systems '("US-ASCII" "UTF-8" "ISO-8859-15" "ISO-8859-1" "ISO-8859-2" "koi8-r" "koi8-u") (#$ . 13056))
|
#@55 Rules characterizing image files that can be inlined.
|
(defconst org-texinfo-inline-image-rules (byte-code "\300\301BC\207" ["file" "\\(?:eps\\|gif\\|jp\\(?:e?g\\)\\|p\\(?:df\\|ng\\)\\|svg\\)"] 2) (#$ . 13445))
|
#@57 Remove TAB characters in string S.
|
|
(fn S BACKEND INFO)
|
(defalias 'org-texinfo--untabify #[771 "\301\302\303\304\"#\207" [tab-width replace-regexp-in-string " " make-string 32] 8 (#$ . 13661)])
|
#@87 Filter controlling number of blank lines after a section.
|
|
(fn HEADLINE BACKEND INFO)
|
(defalias 'org-texinfo--filter-section-blank-lines #[771 "\300\301\302#\207" [replace-regexp-in-string "\n\\(?:\n[ ]*\\)*\\'" "\n\n"] 7 (#$ . 13863)])
|
#@341 Normalize headlines in TREE.
|
|
BACK-END is the symbol specifying back-end used for export. INFO
|
is a plist used as a communication channel.
|
|
Make sure every headline in TREE contains a section, since those
|
are required to install a menu. Also put exactly one blank line
|
at the end of each section.
|
|
Return new tree.
|
|
(fn TREE BACKEND INFO)
|
(defalias 'org-texinfo--normalize-headlines #[771 "\300\301\302\303\304\305\306!\307\"\310\311%$\210\207" [org-element-map headline make-byte-code 257 "\211\301\302;\203 \303\304$\210\202 A\305A@#\240\210\266\211\211:\204) \304\2026 \211@9\2035 \211AA\2026 \211\262\211\205p \306\307\310\300\311%\211\211:\204R \211;\205Z \312\202Z \211@9\205Z \211@\262\313=?\205n \314\315\313\316DDB#\262\207" vconcat vector [:post-blank 1 org-add-props nil plist-put org-element-map (headline section) identity t plain-text section apply org-element-set-contents :parent] 9 "\n\n(fn HL)"] 12 (#$ . 14109)])
|
#@112 Return a character not used in string S.
|
This is used to choose a separator for constructs like \verb.
|
|
(fn S)
|
(defalias 'org-texinfo--find-verb-separator #[257 "\300\211\301\302\303\302T\211\262GW\2032 H\262\304\305\306!!\"\204. \306!\262\302\211\262\202/ \303\204 \266\204\207" ["~,./?;':\"|!@#%^&-_=+abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ<>()[]{}" -1 nil t string-match regexp-quote char-to-string] 11 (#$ . 15073)])
|
#@168 Format TEXT depending on MARKUP text markup.
|
INFO is a plist used as a communication channel. See
|
`org-texinfo-text-markup-alist' for details.
|
|
(fn TEXT MARKUP INFO)
|
(defalias 'org-texinfo--text-markup #[771 "\236A\211\204\f \202I \211\301=\203 \302\303\304!\"\202I \211\305=\203, \302\306\304!\"\202I \211\307=\203A \310!\302\311$\262\202I \211\302\"\262\207" [org-texinfo-text-markup-alist code format "@code{%s}" org-texinfo--sanitize-content samp "@samp{%s}" verb org-texinfo--find-verb-separator "@verb{%s%s%s}"] 10 (#$ . 15527)])
|
#@202 Return node or anchor associated to DATUM.
|
DATUM is an element or object. INFO is a plist used as
|
a communication channel. The function guarantees the node or
|
anchor name is unique.
|
|
(fn DATUM INFO)
|
(defalias 'org-texinfo--get-node #[514 "\300\301\"\236A\206g \302\303\211:\204 \211;\205$ \304\202$ \211@9\205$ \211@\262\305=\2037 \306\307\"\"\202; \310\"!\211\211\311\232\204J \312\"\203Y \313\314T\211\262\"P\262\202= \315\301BB#\210\266\202\207" [plist-get :texinfo-node-cache 0 org-texinfo--sanitize-node plain-text headline org-texinfo--sanitize-title org-export-get-alt-title org-export-get-reference "Top" rassoc format " %d" plist-put] 11 (#$ . 16089)])
|
#@275 Bend string TITLE to node line requirements.
|
Trim string and collapse multiple whitespace characters as they
|
are not significant. Replace leading left parenthesis, when
|
followed by a right parenthesis, with a square bracket. Remove
|
periods, commas and colons.
|
|
(fn TITLE)
|
(defalias 'org-texinfo--sanitize-node #[257 "\300\301\302\300\303\304\300\305\306 ###\307\300\203 \310\202 \311\304\300\312\304##\207" [replace-regexp-in-string "[ ]+" " " "[:,.]" "" "\\`(\\(.*?)\\)" "[\\1" nil "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "[ \n ]+\\'"] 11 (#$ . 16785)])
|
#@145 Make TITLE suitable as a section name.
|
TITLE is a string or a secondary string. INFO is the current
|
export state, as a plist.
|
|
(fn TITLE INFO)
|
(defalias 'org-texinfo--sanitize-title #[514 "\300\301\302\303\304\305\303\211\211\211&#\207" [org-export-data-with-backend record org-export-backend nil texinfo ((footnote-reference . ignore) (link lambda (l c i) (or c (org-export-data (org-element-property :raw-link l) i))) (radio-target lambda (_r c _i) c) (target . ignore))] 13 (#$ . 17351)])
|
#@84 Escape special characters in string TEXT.
|
Special characters are: @ { }
|
|
(fn TEXT)
|
(defalias 'org-texinfo--sanitize-content #[257 "\300\301\302#\207" [replace-regexp-in-string "[@{}]" "@\\&"] 5 (#$ . 17853)])
|
#@394 Wrap string VALUE within a @float command.
|
INFO is the current export state, as a plist. TYPE is float
|
type, as a string. LABEL is the cross reference label for the
|
float, as a string. CAPTION and SHORT are, respectively, the
|
caption and shortcaption used for the float, as secondary
|
strings (e.g., returned by `org-export-get-caption').
|
|
(fn VALUE INFO &optional TYPE LABEL CAPTION SHORT)
|
(defalias 'org-texinfo--wrap-float #[1538 "\300\301\302\303\304\302\211\211\211&\300\301\302\303\305\302\211\211\211&\203* \203* \306\307\310#\"\202+ \311\2043 \203P \306\312\310\206= \311\232\203G \202I \f#\"\202Q \311\306\313 \203a \314\nP\202b \311 &\207" [record org-export-backend nil texinfo ((link lambda (l c i) (or c (org-export-data (org-element-property :raw-link l) i))) (radio-target lambda (_r c _i) c) (target . ignore)) ((footnote-reference . ignore) (inline-src-block . ignore) (link lambda (l c i) (or c (org-export-data (org-element-property :raw-link l) i))) (radio-target lambda (_r c _i) c) (target . ignore) (verbatim . ignore)) format "@shortcaption{%s}\n" org-export-data-with-backend "" "@caption{%s}\n" "@float %s%s\n%s\n%s%s@end float" ","] 17 (#$ . 18070)])
|
#@164 Return complete document string after Texinfo conversion.
|
CONTENTS is the transcoded contents string. INFO is a plist
|
holding export options.
|
|
(fn CONTENTS INFO)
|
(defalias 'org-texinfo-template #[514 "\306\307\310\"\"\311\307\312\"\313\314\315%\316\317\307\320\"\206) \307\321\"\211\205' \322!\323P\262\211\2051 \324\325\"\262\324\326\"\327\330\307 \331\"\"A@\3322} \315\333 \206N \n!\f\211\203v \211@\334!\335\315\336#)\266\203\203o \337\332\"\210A\266\202\202R \340\262)\266\2020\307\n\341\"\335\342\343\342\344\315\335\345&\315\335\345&)\266\203!\307\346\"\211\205\246 \327!\262\347\307\n\350\"\211\205\265 \327!\262\205\307 \324\351\327\306\f\"!\"\307\f\352\"\307 \353\"\211\205\343 \336\354\"\205\343 \324\355\356\345\"\"\262\205\"\211\205\"\357\360\361\307\362\"\211\204\376 \335\202\f\363\364\"\203 \211\202\f\211\364P\262\211\203\324\365#\202\262\360\366\260\266\202\367\370\307\371\"\205S\324\372\307\373\"\206>\206>\374\"\307\375\"\211\205P\324\376\306\"\"\262P\307\377\"\205\307\201@ \306\307\201A \"\"!\307\201B \"\205\203\201@ \306\307\201C \"\"!\203\225\211\203\225\324\201D #\202\254\203\242\324\201E \"\202\254\211\205\254\324\201F \"\266\202\307\201G \"\211\205\304\327\342\201H \201I #!\262P\205\317\201J \201K \307\201L \"\205\337\201M \201N \201O \324\201P \"\311\307\312\"\201Q \201R \315\201S &\306\211:\204\335\202\211@9\203\211AA\202\211\262\"\201@ !\205(\360P\266\202\201T \201U \307\312\"\201V #\360\360\307\201W \"\205R\307\201X \"\360P\201Y \260\207" [org-texinfo-classes org-texinfo-coding-system buffer-file-coding-system case-fold-search org-texinfo-supported-coding-systems inhibit-changing-match-data org-export-data plist-get :title org-element-map :parse-tree headline #[257 "\300\301\211;\203 \302\303#\202 \304A@\"\266\202!\2055 \211\211:\204& |