;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; 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\355\324\356& \210\330\357\332\333\360DD\361\326\315\336\362&\210\330\363\332\333\364DD\365\326\315\336\366&\210\330\367\332\333\370DD\371\326\315\336\366&\210\330\372\332\333\373DD\374\326\315\336\366&\210\330\375\332\333\376DD\377\326\315\336\366&\210\330\201@\332\333\201ADD\201B\326\315\336\201C&\210\330\201D\332\333\201EDD\201F\326\315\336\201G&\210\330\201H\332\333\201IDD\201J\326\315\336\366\322\355\324\201K\201L\201M& \210\330\201N\332\333\201ODD\201P\326\315\322\355\324\201Q\336\201R\201S\201T& \210\330\201U\332\333\201VDD\201W\326\315\322\323\324\201X\336\333& \210\330\201Y\332\333\201ZDD\201[\326\315\336\333&\210\330\201\\\332\333\201]DD\201^\326\315\322\355\324\201_\336\201`& \210\330\201a\332\333\201bDD\201c\326\315\336\201d&\210\330\201e\332\333\201fDD\201g\326\201h\336\201C&\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" "@chapheading %s" "@appendix %s") ("@section %s" "@unnumberedsec %s" "@heading %s" "@appendixsec %s") ("@subsection %s" "@unnumberedsubsec %s" "@subheading %s" "@appendixsubsec %s") ("@subsubsection %s" "@unnumberedsubsubsec %s" "@subsubheading %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 unnumbered-no-toc-1 appendix-1)\n (numbered-2 unnumbered-2 unnumbered-no-toc-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." "27.1" (Org . "9.2") (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 "unnumbered-no-toc") (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." "26.1" (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" [nil] 1] "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" [#6="@asis"] 1 #6#] "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 (#$ . 12969)) #@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") (#$ . 13214)) #@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) (#$ . 13603)) #@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 (#$ . 13819)]) #@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 (#$ . 14021)]) #@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$\266\203\202!A\305A@#\240\210\266\203\210\211\211:\204.\304\262\2029\211@9\2039\211AA\262\211\205s\306\307\310\300\311%\211\211:\204U\211;\205]\312\262\202_\211@9\205]\211@\262\313=?\205q\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 (#$ . 14267)]) #@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\2032H\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 (#$ . 15243)]) #@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 (#$ . 15697)]) #@220 Return node or anchor associated to DATUM. DATUM is a headline, a radio-target or a target. 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\206\363\302\303\211:\204\211;\205&\304\262\202(\211@9\205&\211@\262\211\305=\203;\306\307\"\"\202\246\211\310=\203`\311\211:\204O\312\262\202Z\211@9\203Z\211AA\262\"\202\246\211\313=\203\203\314\211;\203x\315\302#\266\202\202\246\300A@\"\266\202\202\246\316\211;\203\225\315\302#\266\202\202\235\300A@\"\266\202\206\246\317\"\262!\211\320\321\"\211\203\306\211\236\204\306\322\"\210\300\301\"\262\210\323!\324\230\204\326\325\"\203\345\326\327T\211\262\"P\262\202\307\330\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 radio-target org-export-data nil target :value get-text-property :name org-export-get-reference org-element-lineage (headline) org-texinfo--get-node capitalize "Top" rassoc format " (%d)" plist-put] 12 (#$ . 16259)]) #@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 (#$ . 17469)]) #@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!#\207" [org-export-data-with-backend org-export-toc-entry-backend texinfo] 6 (#$ . 18035)]) #@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 (#$ . 18338)]) #@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\303B\"\300\301\304\305#\203\203\306\307\310 #\"\202 \311\204(\203E\306\312\310\2062\311\232\203<\202>\f#\"\202F\311\306\313  \203V\314\nP\202W\311 &\207" [org-export-toc-entry-backend texinfo footnote-reference #[771 "\300\301$\207" [org-export-with-backend texinfo] 8 "\n\n(fn F C I)"] (inline-src-block . 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 (#$ . 18555)]) #@102 Return sectioning structure used in the document. INFO is a plist holding export options. (fn INFO) (defalias 'org-texinfo--sectioning-structure #[257 "\300\301\"\302\300\303\"\"\211:\203+\211A\211:\203\"\211A\211\211\262\262\202&\304\305\"\262\202/\304\305\"\262\207" [plist-get :texinfo-class assoc :texinfo-classes user-error "Unknown Texinfo class: %S"] 7 (#$ . 19521)]) #@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\320\307\321\"!\206,\307\322\"\211\205*\323!\324P\262\211\2054\325\326\"\262\325\327\"\330\331\307 \332\"\"A@\3332\200\315\334 \206Q\n!\f\211\203y\211@\335!\336\315\337#)\266\203\203r\340\333\"\210A\266\202\202U\341\262)\266\2020\307\n\342\"\336\343\344\343\345\315\336\346&\315\336\346&)\266\203!\307\347\"\211\205\251\330!\262\350\307\n\351\"\211\205\270\330!\262\205\312\325\352\330\306\f\"!\"\307\f\353\"\307 \354\"\211\205\346\337\355\"\205\346\325\356\357\346\"\"\262\205%\211\205%\360\361\362\307\363\"\211\204\336\202\364\365\"\203\f\211\202\211\365P\262\211\203\325\366#\202\262\361\367\260\266\202\370\371\307\372\"\205V\325\373\307\374\"\206A\206A\375\"\307\376\"\211\205S\325\377\306\"\"\262P\307\201@\"\205\314\201A\306\307\201B\"\"!\307\201C\"\205\210\201A\306\307\201D\"\"!\203\232\211\203\232\325\201E#\202\261\203\247\325\201F\"\202\261\211\205\261\325\201G\"\266\202\307\201H\"\211\205\311\330\343\201I\201J#!\262P\205\324\201K\201L\307\201M\"\205\344\201N\201O\201P\325\201Q\"\311\307\312\"\201R\201S\315\201T&\306\211:\204\336\262\202\211@9\203\211AA\262\"\201A!\205+\361P\266\202\201U\201V\307\312\"\201W#\361\361\307\201X\"\205U\307\201Y\"\361P\201Z\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#\266\202\202\304A@\"\266\202!\2051\211\211:\204&\305\207\211@9\2031\211AA\262\207" [org-not-nil :COPYING get-text-property 0 plist-get nil] 8 "\n\n(fn HL)"] t "\\input texinfo @c -*- texinfo -*-\n" "@c %**start of header\n" org-strip-quotes :texinfo-filename :output-file file-name-sans-extension ".info" format "@setfilename %s\n" "@settitle %s\n" org-element-normalize-string assoc :texinfo-class coding-system symbol-name regexp-quote nil string-match throw "UTF-8" :language replace-regexp-in-string "^@documentencoding \\(AUTO\\)$" "^@documentlanguage \\(AUTO\\)$" 1 :texinfo-header "@c %**end of header\n\n" :texinfo-post-header "@copying\n%s@end copying\n\n" :texinfo-dircat :texinfo-dirtitle "^\\(?:\\* \\)?\\(.*?\\)\\(\\.\\)?$" "* %s." match-string "@dircategory " "\n" "@direntry\n" :texinfo-dirdesc string-suffix-p "." "%-23s %s" "@end direntry\n\n" "@finalout\n" "@titlepage\n" :with-title "@title %s\n" :texinfo-printed-title "" :subtitle "@subtitle %s\n" :with-author org-string-nw-p :author :with-email :email "@author %s (@email{%s})\n" "@author %s\n" "@author @email{%s}\n" :subauthor "^" "@author " "@page\n@vskip 0pt plus 1filll\n@insertcopying\n" "@end titlepage\n\n" :with-toc "@contents\n\n" "@ifnottex\n" "@node Top\n" "@top %s\n" section identity (headline) "@end ifnottex\n\n" org-texinfo-make-menu master :with-creator :creator "@bye"] 33 (#$ . 19917)]) #@150 Transcode BOLD from Org to Texinfo. CONTENTS is the text with bold markup. INFO is a plist holding contextual information. (fn BOLD CONTENTS INFO) (defalias 'org-texinfo-bold #[771 "\300\301#\207" [org-texinfo--text-markup bold] 7 (#$ . 23216)]) #@180 Transcode a CENTER-BLOCK element from Org to Texinfo. CONTENTS holds the contents of the block. INFO is a plist used as a communication channel. (fn CENTER-BLOCK CONTENTS INFO) (defalias 'org-texinfo-center-block #[771 "\300\301\302\303\211\304&\207" [replace-regexp-in-string "\\(^\\).*?\\S-" "@center " nil 1] 10 (#$ . 23473)]) #@140 Transcode a CLOCK element from Org to Texinfo. CONTENTS is nil. INFO is a plist holding contextual information. (fn CLOCK CONTENTS INFO) (defalias 'org-texinfo-clock #[771 "\301\302\303\"\302\304\305\"\306\307\211;\203\310\311#\266\202\202%\304A@\"\266\202!\312\211;\2038\310\311#\266\202\202@\304A@\"\266\202\211\205H\302\313\"\262P\"\314R\207" [org-clock-string "@noindent" format "@strong{%s} " plist-get :texinfo-inactive-timestamp-format org-timestamp-translate :value get-text-property 0 :duration " (%s)" "@*"] 14 (#$ . 23814)]) #@138 Transcode a CODE object from Org to Texinfo. CONTENTS is nil. INFO is a plist used as a communication channel. (fn CODE CONTENTS INFO) (defalias 'org-texinfo-code #[771 "\300\301\211;\203\302\303#\266\202\202\304A@\"\266\202\305#\207" [org-texinfo--text-markup :value get-text-property 0 plist-get code] 10 (#$ . 24381)]) #@167 Transcode a DRAWER element from Org to Texinfo. CONTENTS holds the contents of the block. INFO is a plist holding contextual information. (fn DRAWER CONTENTS INFO) (defalias 'org-texinfo-drawer #[771 "\300\211;\203\301\302#\266\202\202\303A@\"\266\202\303\304\"\"\207" [:drawer-name get-text-property 0 plist-get :texinfo-format-drawer-function] 9 (#$ . 24722)]) #@181 Transcode a DYNAMIC-BLOCK element from Org to Texinfo. CONTENTS holds the contents of the block. INFO is a plist holding contextual information. (fn DYNAMIC-BLOCK CONTENTS INFO) (defalias 'org-texinfo-dynamic-block #[771 "\207" [] 4 (#$ . 25106)]) #@76 Transcode an ENTITY object from Org to Texinfo. (fn ENTITY CONTENTS INFO) (defalias 'org-texinfo-entity #[771 "\300\211;\203\301\302#\266\202\202\303A@\"\266\202\211\304\232\203#\305\202\234\211\306\232\203-\307\202\234\211\310\235\2037\311\202\234\211\312\232\203A\313\202\234\211\314\232\203K\315\202\234\211\316\235\203U\317\202\234\211\320\232\203_\321\202\234\211\322\235\203i\323\202\234\211\324\235\203s\325\202\234\211\326\232\203}\327\202\234\211\330\232\203\207\331\202\234\211\332\232\203\221\333\202\234\211\334\232\203\233\335\202\234\211\336\232\203\245\337\202\234\211\340\235\203\257\341\202\234\211\342\232\203\271\343\202\234\211\344\232\203\303\345\202\234\211\346\232\203\315\347\202\234\211\350\232\203\327\351\202\234\211\352\232\203\341\353\202\234\211\354\232\203\353\355\202\234\211\356\232\203\365\357\202\234\211\360\232\203\377\361\202\234\211\362\232\203 \363\202\234\211\364\232\203\365\202\234\211\366\232\203\367\202\234\211\370\235\203'\371\202\234\211\372\232\2031\373\202\234\211\374\235\203;\375\202\234\211\376\232\203E\377\202\234\211\201@\232\203S\201A\202\234\211\201B\232\203a\201C\202\234\201D\201E\"\203\201\211\201F\201G\201H\201IO\"\262\202\234\201J\211;\203\224\301\302#\266\202\202\234\303A@\"\266\202\207" [:name get-text-property 0 plist-get "AElig" "@AE{}" "aelig" "@ae{}" ("bullet" "bull") "@bullet{}" "copy" "@copyright{}" "deg" "@textdegree{}" ("hellip" "dots") "@dots{}" "equiv" "@equiv{}" ("EUR" "euro") "@euro{}" ("geq" "ge") "@geq{}" "laquo" "@guillemetleft{}" "iexcl" "@exclamdown{}" "imath" "@dotless{i}" "iquest" "@questiondown{}" "jmath" "@dotless{j}" ("leq" "le") "@leq{}" "lsaquo" "@guilsinglleft{}" "mdash" "---" "minus" "@minus{}" "nbsp" "@tie{}" "ndash" "--" "OElig" "@OE{}" "oelig" "@oe{}" "ordf" "@ordf{}" "ordm" "@ordm{}" "pound" "@pound{}" "raquo" "@guillemetright{}" ("Rightarrow" "rArr") "@result{}" "reg" "@registeredsymbol{}" ("rarr" "to" "rightarrow") "@arrow{}" "rsaquo" "@guilsinglright{}" "thorn" "@th{}" "THORN" "@TH{}" string-prefix-p "_" format "@w{%s}" 1 nil :utf-8] 10 (#$ . 25363)]) #@157 Transcode an EXAMPLE-BLOCK element from Org to Texinfo. CONTENTS is nil. INFO is a plist holding contextual information. (fn EXAMPLE-BLOCK CONTENTS INFO) (defalias 'org-texinfo-example-block #[771 "\300\301\302\303\"!\"\207" [format "@example\n%s@end example" org-texinfo--sanitize-content org-export-format-code-default] 9 (#$ . 27536)]) #@154 Transcode a EXPORT-BLOCK element from Org to Texinfo. CONTENTS is nil. INFO is a plist holding contextual information. (fn EXPORT-BLOCK CONTENTS INFO) (defalias 'org-texinfo-export-block #[771 "\300\211;\203\301\302#\266\202\202\303A@\"\266\202\304\230\2059\305\306\211;\2030\301\302#\266\202\2028\303A@\"\266\202!\207" [:type get-text-property 0 plist-get "TEXINFO" org-remove-indentation :value] 10 (#$ . 27887)]) #@157 Transcode a EXPORT-SNIPPET object from Org to Texinfo. CONTENTS is nil. INFO is a plist holding contextual information. (fn EXPORT-SNIPPET CONTENTS INFO) (defalias 'org-texinfo-export-snippet #[771 "\300!\301=\205\302\211;\203\303\304#\207\305A@\"\266\202\207" [org-export-snippet-backend texinfo :value get-text-property 0 plist-get] 9 (#$ . 28329)]) #@152 Transcode a FIXED-WIDTH element from Org to Texinfo. CONTENTS is nil. INFO is a plist holding contextual information. (fn FIXED-WIDTH CONTENTS INFO) (defalias 'org-texinfo-fixed-width #[771 "\300\301\302\303\304\211;\203\305\306#\266\202\202\307A@\"\266\202!!\"\207" [format "@example\n%s\n@end example" org-remove-indentation org-texinfo--sanitize-content :value get-text-property 0 plist-get] 13 (#$ . 28700)]) #@176 Create a footnote reference for FOOTNOTE. FOOTNOTE is the footnote to define. CONTENTS is nil. INFO is a plist holding contextual information. (fn FOOTNOTE CONTENTS INFO) (defalias 'org-texinfo-footnote-reference #[771 "\300\"\301\"\302\303\304!@\262\211:\204!\211;\205)\305\262\202+\211@9\205)\211@\262\306=\203I\307\310\203;\311\202<\312\313\310\314\313##\266\202\202J\"\207" [org-export-get-footnote-definition org-export-data format "@footnote{%s}" last plain-text paragraph nil replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "" "[ \n ]+\\'"] 16 (#$ . 29132)]) #@174 Transcode a HEADLINE element from Org to Texinfo. CONTENTS holds the contents of the headline. INFO is a plist holding contextual information. (fn HEADLINE CONTENTS INFO) (defalias 'org-texinfo-headline #[771 "\300\211;\203\301\302#\266\202\202\303A@\"\266\202\203\304\207\305\306\307\310#!\203*\304\207\306\311\310#\211\312\235\2056\211\262\313\"\314\"\315\"?\205\355\316!\317\"S8\320:\203\335@A\211:\203\324\211@A\211:\203\313\211@A\211:\203\301\211@A\211\204\264\n\305\306\321\310#!\203\223\202\257\203\234\211\202\257\203\245\202\257\203\256\202\257\266\204\202\274\322\323\303\324\"\"\266\202\202\306 !\266\202\202\317 !\266\202\202\330 !\266\202\202\351\204\345\304\202\351\211!\266\202\262\303\325\"\205\326\211;\203\301\302#\266\202\202\303A@\"\266\202\211\205\327\"\262\211\2057\330\211;\203/\301\302#\266\202\2027\303A@\"\266\202\303\331\"\205E\332 \"\303\333\"\205g\334\n\211;\203_\301\302#\266\202\202g\303A@\"\266\202\335\336\f\211;\203z\301\302#\266\202\202\202\303A@\"\266\202\n\"\303\n\337\"%\340\341 !\203\240\340 P\202\241\342 \205\253\343\344 \"Q\345 \"\204\362\346\"\205\315\343\347\f\203\313\350\202\314\351\"\343\352#\353\"\203\355\343\354\203\350\350\202\351\351\"\202\356\340R\202\343\n\203\374\355\202\375\356\"\343\n\"Q\207" [:footnote-section-p get-text-property 0 plist-get nil org-not-nil org-export-get-node-property :COPYING t :INDEX ("cp" "fn" "ky" "pg" "tp" "vr") org-export-numbered-headline-p org-export-excluded-from-toc-p org-export-low-level-p org-texinfo--sectioning-structure org-export-get-relative-level #[257 "\300\301\302\303\"\"\207" [user-error #1="Invalid Texinfo class specification: %S" plist-get :texinfo-class] 6 "\n\n(fn INFO)"] :APPENDIX user-error #1# :texinfo-class :with-todo-keywords :todo-keyword org-export-data :todo-type :with-tags org-export-get-tags :with-priority :priority org-texinfo--sanitize-title :title :texinfo-format-headline-function "\n" org-string-nw-p "" format "\n@printindex %s\n" org-texinfo--get-node org-export-first-sibling-p "@%s\n" enumerate itemize "@item\n@anchor{%s}%s\n" org-export-last-sibling-p "@end %s" "@anchor{%s}\n" "@node %s\n"] 26 (#$ . 29743)]) #@137 Default format function for a headline. See `org-texinfo-format-headline-function' for details. (fn TODO TODO-TYPE PRIORITY TEXT TAGS) (defalias 'org-texinfo-format-headline-default-function #[1285 "\205 \300\301\"\205\300\302\"\205\303\304!PR\207" [format "@strong{%s} " "@emph{#%s} " " " org-make-tag-string] 11 (#$ . 32085)]) #@187 Transcode an INLINE-SRC-BLOCK element from Org to Texinfo. CONTENTS holds the contents of the item. INFO is a plist holding contextual information. (fn INLINE-SRC-BLOCK CONTENTS INFO) (defalias 'org-texinfo-inline-src-block #[771 "\300\301\302\303\211;\203\304\305#\266\202\202\306A@\"\266\202!\"\207" [format "@code{%s}" org-texinfo--sanitize-content :value get-text-property 0 plist-get] 12 (#$ . 32435)]) #@176 Transcode an INLINETASK element from Org to Texinfo. CONTENTS holds the contents of the block. INFO is a plist holding contextual information. (fn INLINETASK CONTENTS INFO) (defalias 'org-texinfo-inlinetask #[771 "\300\301\211;\203\302\303#\266\202\202\304A@\"\266\202\"\304\305\"\205F\306\211;\2034\302\303#\266\202\202<\304A@\"\266\202\211\205D\300\"\262\307\211;\203W\302\303#\266\202\202_\304A@\"\266\202\304\310\"\205k\311\"\304\312\"\205\214\313\211;\203\204\302\303#\266\202\202\214\304A@\"\266\202\304\314\"\f&\207" [org-export-data :title get-text-property 0 plist-get :with-todo-keywords :todo-keyword :todo-type :with-tags org-export-get-tags :with-priority :priority :texinfo-format-inlinetask-function] 15 (#$ . 32862)]) #@150 Default format function for inlinetasks. See `org-texinfo-format-inlinetask-function' for details. (fn TODO TODO-TYPE PRIORITY TITLE TAGS CONTENTS) (defalias 'org-texinfo-format-inlinetask-default-function #[1542 "\205 \300\301\"\205\300\302\"\205\303!R\300\304#\207" [format "@strong{%s} " "#%c " org-make-tag-string "@center %s\n\n%s\n"] 11 (#$ . 33661)]) #@156 Transcode ITALIC from Org to Texinfo. CONTENTS is the text with italic markup. INFO is a plist holding contextual information. (fn ITALIC CONTENTS INFO) (defalias 'org-texinfo-italic #[771 "\300\301#\207" [org-texinfo--text-markup italic] 7 (#$ . 34043)]) #@163 Transcode an ITEM element from Org to Texinfo. CONTENTS holds the contents of the item. INFO is a plist holding contextual information. (fn ITEM CONTENTS INFO) (defalias 'org-texinfo-item #[771 "\300\211;\203\301\302#\266\202\202\303A@\"\266\202\304\305\306\307\211;\203.\301\302#\266\202\2026\303A@\"\266\202\310#!\205T\311\"\203P\312\313!\314\315$\202R\211C\262\316\317\204^\320\202\210:\203\207@A\211\204t\321P\262\202\202\211\321\322\323\324\322#R\266\202\266\202\202\210\325\206\216\326#\207" [:tag get-text-property 0 plist-get org-string-nw-p org-export-read-attribute :attr_texinfo :parent :sep org-export-data split-string regexp-quote t "[ \n]+" format "%s\n%s" "@item" "@item " "\n" mapconcat #[257 "\300P\207" ["@itemx "] 3 "\n\n(fn I)"] nil ""] 19 (#$ . 34310)]) #@144 Transcode a KEYWORD element from Org to Texinfo. CONTENTS is nil. INFO is a plist holding contextual information. (fn KEYWORD CONTENTS INFO) (defalias 'org-texinfo-keyword #[771 "\301\211;\203\302\303#\266\202\202\304A@\"\266\202\305\211;\203*\302\303#\266\202\2022\304A@\"\266\202\211\306\232\203<\202\307\211\307\232\203I\310\311\"\202\307\211\312\232\203V\310\313\"\202\307\211\314\232\203c\310\315\"\202\307\211\316\232\203p\310\317\"\202\307\211\320\232\203}\310\321\"\202\307\211\322\232\203\212\310\323\"\202\307\211\324\232\203\306\325\326\327\330#)\266\203\203\253\331\332\333\334#P\202\307\335\326\327\330#)\266\203\205\307\331\332\336\334#P\202\307\326\262\207" [inhibit-changing-match-data :value get-text-property 0 plist-get :key "TEXINFO" "CINDEX" format "@cindex %s" "FINDEX" "@findex %s" "KINDEX" "@kindex %s" "PINDEX" "@pindex %s" "TINDEX" "@tindex %s" "VINDEX" "@vindex %s" "TOC" "\\" nil t string-match "@listoffloats " org-export-translate "Table" :utf-8 "\\" "Listing"] 12 (#$ . 35144)]) #@149 Transcode a LINE-BREAK object from Org to Texinfo. CONTENTS is nil. INFO is a plist holding contextual information. (fn LINE-BREAK CONTENTS INFO) (defalias 'org-texinfo-line-break #[771 "\300\207" ["@*\n"] 4 (#$ . 36242)]) #@148 Return @ref command for element or object DATUM. DESCRIPTION is the printed name of the section, as a string, or nil. (fn DATUM DESCRIPTION INFO) (defalias 'org-texinfo--@ref #[771 "\300\"\205\301\302\303\301\304\305##\211\203\211\232\203#\306\307\"\202(\306\310#\207" [org-texinfo--get-node replace-regexp-in-string "[ ]*:+" "" "," "@comma{}" format "@ref{%s}" "@ref{%s, , %s}"] 11 (#$ . 36474)]) #@202 Transcode a LINK object from Org to Texinfo. DESC is the description part of the link, or the empty string. INFO is a plist holding contextual information. See `org-export-data'. (fn LINK DESC INFO) (defalias 'org-texinfo-link #[771 "\302\211;\203\303\304#\266\202\202\305A@\"\266\202\306\211;\203*\303\304#\266\202\2022\305A@\"\266\202\307\230?\205:\310\311\235\203H\312Q\202U\313\230\203T\314!\202U!\315\316$\206\201\317\"\203r\320\"\202\201\321\232\203\221\322\"\211\204\206\202\214\323#\262\202\201\324\235\203I\325\232\203\246\326\"\202\254\327\"\211\211:\204\275\211;\205\305\330\262\202\307\211@9\205\305\211@\262\331\204\323\332 \"\202B\330=\203\355\203\346\332\333#\202B\332\334\"\202B\335=\2041\336=\203;\337\211;\203\n\303\304#\266\202\202\305A@\"\266\202\211:\204\"\211;\205*\330\262\202,\211@9\205*\211@\262\335=\203;\211#\202B\323\n#\266\202\262\202\201\340\230\203^\332\341\205Y\342PP\"\202\201\211\203n\203n\332\343#\202\201\211\203y\332\344\"\202\201\332\305\345\"\"\207" [org-texinfo-inline-image-rules org-texinfo-link-with-unknown-path-format :type get-text-property 0 plist-get :path "" org-texinfo--sanitize-content ("http" "https" "ftp") ":" "file" org-export-file-uri org-export-custom-protocol-maybe texinfo org-export-inline-image-p org-texinfo--inline-image "radio" org-export-resolve-radio-link org-texinfo--@ref ("custom-id" "id" "fuzzy") "fuzzy" org-export-resolve-fuzzy-link org-export-resolve-id-link plain-text #[771 "\300\301\302#\303#\207" [org-element-lineage (headline) t org-texinfo--@ref] 8 "\n\n(fn INFO DESC DESTINATION)"] format "@uref{file://%s,%s}" "@uref{file://%s}" headline target :parent "mailto" "@email{%s}" ", " "@uref{%s, %s}" "@uref{%s}" :texinfo-link-with-unknown-path-format] 16 (#$ . 36896)]) #@159 Return Texinfo code for an inline image. LINK is the link pointing to the inline image. INFO is the current state of the export, as a plist. (fn LINK INFO) (defalias 'org-texinfo--inline-image #[514 "\300!\301\211;\203\302\303#\266\202\202\304A@\"\266\202\205#\305\"\306!\306\307\"\310\211;\203<\302\303#\266\202\202D\304A@\"\266\202\311\312!\203Q\313!\202T\314!!\315!\316\317\"\304\320\"\206e\321\304\322\"\206m\321\304\323\"\206u\321\324\325\n& \204\213\203\240\326\327\330\331#&\202\257\n\203\256\332 \333R\202\257\211\207" [org-export-get-parent-element :name get-text-property 0 plist-get org-texinfo--get-node org-export-get-caption t :path file-name-sans-extension file-name-absolute-p expand-file-name file-relative-name file-name-extension org-export-read-attribute :attr_texinfo :height "" :width :alt format "@image{%s,%s,%s,%s,%s}" org-texinfo--wrap-float org-export-translate "Figure" :utf-8 "@anchor{" "}\n"] 21 (#$ . 38801)]) #@281 Create the menu for inclusion in the Texinfo document. SCOPE is a headline or a full parse tree. INFO is the communication channel, as a plist. When optional argument MASTER is non-nil, generate a master menu, including detailed node listing. (fn SCOPE INFO &optional MASTER) (defalias 'org-texinfo-make-menu #[770 "\301\"\302!\205:\303\304\305\2057\301\306\n\307\"\310!\203&\211\202'\262#\302!\2055\311\312\313R\262P\"!\207" [org-texinfo-max-toc-depth org-texinfo--build-menu org-string-nw-p org-element-normalize-string format "@menu\n%s@end menu" plist-get :with-toc wholenump "\n@detailmenu\n" "--- The Detailed Node Listing ---\n\n" "@end detailmenu\n"] 14 (#$ . 39819)]) #@258 Build menu for entries within SCOPE. SCOPE is a headline or a full parse tree. INFO is a plist containing contextual information. When optional argument LEVEL is an integer, build the menu recursively, down to this depth. (fn SCOPE INFO &optional LEVEL) (defalias 'org-texinfo--build-menu #[770 "\211\204\f\300\301\"\"\207\211\302U\203\303\207\304\305\306\307\310\311\"\312\"\313\314%\301\"\315#\207" [org-texinfo--format-entries org-texinfo--menu-entries 0 "\n" mapconcat make-byte-code 257 "\302\300\"\211\205\303\304\305\306\300\"\300\"\307\300\"#\310\300\301S#P\207" vconcat vector [org-texinfo--menu-entries format "%s\n\n%s\n" org-export-data org-export-get-alt-title org-texinfo--format-entries org-texinfo--build-menu] 8 "\n\n(fn H)" ""] 11 (#$ . 40528)]) #@177 Format all direct menu entries in SCOPE, as a string. SCOPE is either a headline or a full Org document. INFO is a plist containing contextual information. (fn ENTRIES INFO) (defalias 'org-texinfo--format-entries #[514 "\300\301\302\303\304\305\306!\307\"\310\311%\312#!\207" [org-element-normalize-string mapconcat make-byte-code 257 "\302\303\304\305\306\300\"\300\"#\307\300\"\310\311\230\203\311\202 \312\313QR\314\211;\2032\315\316#\266\202\202:\317A@\"\266\202\211\204B\202J\320\211\321 \"#\207" vconcat vector [org-texinfo-node-description-column replace-regexp-in-string "[ ]*:+" "" org-texinfo--sanitize-title org-export-get-alt-title org-texinfo--get-node "* " ":" " " ". " :DESCRIPTION get-text-property 0 plist-get format "%%-%ds %%s"] 10 "\n\n(fn H)" "\n"] 10 (#$ . 41320)]) #@161 List direct children in SCOPE needing a menu entry. SCOPE is a headline or a full parse tree. INFO is a plist holding contextual information. (fn SCOPE INFO) (defalias 'org-texinfo--menu-entries #[514 "\300\301\"\206\300\302\301\303\304\305\"#\301\"\306\307#\211\307=\204!\211\202B\310!\311\312\313\314\315\316\317  \"\320\"\321\322%\323\324 #\"#\262\207" [plist-get :texinfo-entries-cache plist-put make-hash-table :test eq gethash no-cache org-texinfo--sectioning-structure puthash cl-remove-if make-byte-code 257 "\302\303\304\305#!\206\306\300\"\301GY\207" vconcat vector [org-not-nil org-export-get-node-property :COPYING t org-export-get-relative-level] 6 "\n\n(fn H)" org-export-collect-headlines 1] 15 (#$ . 42142)]) #@156 Transcode a NODE-PROPERTY element from Org to Texinfo. CONTENTS is nil. INFO is a plist holding contextual information. (fn NODE-PROPERTY CONTENTS INFO) (defalias 'org-texinfo-node-property #[771 "\300\301\302\211;\203\303\304#\266\202\202\305A@\"\266\202\306\211;\203-\303\304#\266\202\2025\305A@\"\266\202\211\203?\307P\202@\310\262#\207" [format "%s:%s" :key get-text-property 0 plist-get :value " " ""] 12 (#$ . 42897)]) #@190 Transcode a PARAGRAPH element from Org to Texinfo. CONTENTS is the contents of the paragraph, as a string. INFO is the plist used as a communication channel. (fn PARAGRAPH CONTENTS INFO) (defalias 'org-texinfo-paragraph #[771 "\207" [] 4 (#$ . 43352)]) #@171 Transcode a PLAIN-LIST element from Org to Texinfo. CONTENTS is the contents of the list. INFO is a plist holding contextual information. (fn PLAIN-LIST CONTENTS INFO) (defalias 'org-texinfo-plain-list #[771 "\300\301\"\302\303\"\206\302\304\"\305\306\"\203\211\202\306P\262\302\307\"\310\211;\2035\311\312#\266\202\202=\302A@\"\266\202\211\313=\204G\314\202\211\315\316\"\203U\302\316\"\202\211\211:\204b\314\262\202m\211@9\203m\211AA\262@\317\211;\203\311\312#\266\202\202\207\302A@\"\266\202\262\313=\203\223\320\202\250\321=\203\235\322\202\250\323\235\203\247\202\250\324\325\326\327=\203\270\330Q\202\306\203\305\325\331#\202\306\n$\207" [org-export-read-attribute :attr_texinfo plist-get :indic :texinfo-table-default-markup string-prefix-p "@" :table-type :type get-text-property 0 ordered nil plist-member :enum :counter "enumerate" unordered "itemize" ("ftable" "vtable") "table" format "@%s\n%s@end %s" descriptive " " "%s %s"] 15 (#$ . 43615)]) #@144 Transcode a TEXT string from Org to Texinfo. TEXT is the string to transcode. INFO is a plist holding contextual information. (fn TEXT INFO) (defalias 'org-texinfo-plain-text #[514 "\301!\302\303\"\203\304\305$\262\306\307\310\311#\262)\302\312\"\2030\307\313\314\307\315\316##\262\302\317\"\203>\307\320\321#\262\306\307\322\323\306\211\324&)\207" [case-fold-search org-texinfo--sanitize-content plist-get :with-smart-quotes org-export-activate-smart-quotes :texinfo nil replace-regexp-in-string "\\(?:La\\)?TeX" "@\\&{}" :with-special-strings "\\.\\.\\." "@dots{}" "\\\\-" "@-" :preserve-breaks "\\(\\\\\\\\\\)?[ ]*\n" " @*\n" "[A-Z]\\([.?!]\\)\\(?:[])]\\|'\\{1,2\\}\\)?\\(?: \\|$\\)" "@\\1" 1] 10 (#$ . 44649)]) #@146 Transcode a PLANNING element from Org to Texinfo. CONTENTS is nil. INFO is a plist holding contextual information. (fn PLANNING CONTENTS INFO) (defalias 'org-texinfo-planning #[771 "\303\304\305\306\307\310\211;\203\311\312#\266\202\202\313A@\"\266\202\211\2052\314\315\"\314\313 \316\"\317!\"P\262\320 \211;\203F\311\312#\266\202\202N\313A@\"\266\202\211\205a\314\315 \"\314\313\n\321\"\317!\"P\262\322\n\211;\203u\311\312#\266\202\202}\313A@\"\266\202\211\205\220\314\315\n\"\314\313 \321\"\317!\"P\262E\"\323#\324Q\207" [org-closed-string org-deadline-string org-scheduled-string "@noindent" mapconcat identity delq nil :closed get-text-property 0 plist-get format "@strong{%s} " :texinfo-inactive-timestamp-format org-timestamp-translate :deadline :texinfo-active-timestamp-format :scheduled " " "@*"] 16 (#$ . 45398)]) #@186 Transcode a PROPERTY-DRAWER element from Org to Texinfo. CONTENTS holds the contents of the drawer. INFO is a plist holding contextual information. (fn PROPERTY-DRAWER CONTENTS INFO) (defalias 'org-texinfo-property-drawer #[771 "\300!\205\n\301\302\"\207" [org-string-nw-p format "@verbatim\n%s@end verbatim"] 6 (#$ . 46268)]) #@177 Transcode a QUOTE-BLOCK element from Org to Texinfo. CONTENTS holds the contents of the block. INFO is a plist holding contextual information. (fn QUOTE-BLOCK CONTENTS INFO) (defalias 'org-texinfo-quote-block #[771 "\300\301\302#\300\301\303#\304\305\203\306P\202\307\203#\310P\202$\307$\207" [org-export-read-attribute :attr_texinfo :tag :author format "@quotation%s\n%s%s\n@end quotation" " " "" "\n@author "] 11 (#$ . 46607)]) #@164 Transcode a RADIO-TARGET object from Org to Texinfo. TEXT is the text of the target. INFO is a plist holding contextual information. (fn RADIO-TARGET TEXT INFO) (defalias 'org-texinfo-radio-target #[771 "\300\301\302\"#\207" [format "@anchor{%s}%s" org-texinfo--get-node] 8 (#$ . 47060)]) #@171 Transcode a SECTION element from Org to Texinfo. CONTENTS holds the contents of the section. INFO is a plist holding contextual information. (fn SECTION CONTENTS INFO) (defalias 'org-texinfo-section #[771 "\300!\211\205+\301\302\"?\205\303\"Q\304\305\203 \306\202!\307\310\305\311\310##\266\202\207" [org-export-get-parent-headline "\n" org-export-excluded-from-toc-p org-texinfo-make-menu nil replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "" "[ \n ]+\\'"] 13 (#$ . 47361)]) #@182 Transcode a SPECIAL-BLOCK element from Org to Texinfo. CONTENTS holds the contents of the block. INFO is a plist used as a communication channel. (fn SPECIAL-BLOCK CONTENTS INFO) (defalias 'org-texinfo-special-block #[771 "\300\301\302#\303\211;\203\304\305#\266\202\202\306A@\"\266\202\307\310\203+\311P\202,\312\2062\312%\207" [org-export-read-attribute :attr_texinfo :options :type get-text-property 0 plist-get format "@%s%s\n%s@end %s" " " ""] 11 (#$ . 47873)]) #@172 Transcode a SRC-BLOCK element from Org to Texinfo. CONTENTS holds the contents of the item. INFO is a plist holding contextual information. (fn SRC-BLOCK CONTENTS INFO) (defalias 'org-texinfo-src-block #[771 "\301\302\211;\203\303\304#\266\202\202\305A@\"\266\202\306\307\310#)\266\203\311\312\"!\313\2034\314\2025\315\"\316!\316\307\"\204L\211\204L\202b\317\320\321\322 #\323\f \"&\207" [inhibit-changing-match-data "lisp" :language get-text-property 0 plist-get nil t string-match org-texinfo--sanitize-content org-export-format-code-default format "@lisp\n%s@end lisp" "@example\n%s@end example" org-export-get-caption org-texinfo--wrap-float org-export-translate "Listing" :utf-8 org-texinfo--get-node] 15 (#$ . 48368)]) #@163 Transcode a STATISTICS-COOKIE object from Org to Texinfo. CONTENTS is nil. INFO is a plist holding contextual information. (fn STATISTICS-COOKIE CONTENTS INFO) (defalias 'org-texinfo-statistics-cookie #[771 "\300\211;\203 \301\302#\207\303A@\"\207" [:value get-text-property 0 plist-get] 9 (#$ . 49141)]) #@180 Transcode STRIKE-THROUGH from Org to Texinfo. CONTENTS is the text with strike-through markup. INFO is a plist holding contextual information. (fn STRIKE-THROUGH CONTENTS INFO) (defalias 'org-texinfo-strike-through #[771 "\300\301#\207" [org-texinfo--text-markup strike-through] 7 (#$ . 49461)]) #@170 Transcode a SUBSCRIPT object from Org to Texinfo. CONTENTS is the contents of the object. INFO is a plist holding contextual information. (fn SUBSCRIPT CONTENTS INFO) (defalias 'org-texinfo-subscript #[771 "\300\301\"\207" [format "@math{_%s}"] 6 (#$ . 49768)]) #@174 Transcode a SUPERSCRIPT object from Org to Texinfo. CONTENTS is the contents of the object. INFO is a plist holding contextual information. (fn SUPERSCRIPT CONTENTS INFO) (defalias 'org-texinfo-superscript #[771 "\300\301\"\207" [format "@math{^%s}"] 6 (#$ . 50040)]) #@162 Transcode a TABLE element from Org to Texinfo. CONTENTS is the contents of the table. INFO is a plist holding contextual information. (fn TABLE CONTENTS INFO) (defalias 'org-texinfo-table #[771 "\300\211;\203\301\302#\266\202\202\303A@\"\266\202\304=\203>\305\306\307\310\211;\2033\301\302#\266\202\202;\303A@\"\266\202!\"\207\311\312\313#\211\203N\305\314\"\202R\315\"\316!\316\317\"\305\320#\204l\204l\211\202\202\321\322\323\324 #\325\f \"&\207" [:type get-text-property 0 plist-get table\.el format "@verbatim\n%s@end verbatim" org-element-normalize-string :value org-export-read-attribute :attr_texinfo :columns "@columnfractions %s" org-texinfo-table-column-widths org-export-get-caption t "@multitable %s\n%s@end multitable" org-texinfo--wrap-float org-export-translate "Table" :utf-8 org-texinfo--get-node] 15 (#$ . 50318)]) #@179 Determine the largest table cell in each column to process alignment. TABLE is the table element to transcode. INFO is a plist used as a communication channel. (fn TABLE INFO) (defalias 'org-texinfo-table-column-widths #[514 "\300\301\"A\302\"\303\304\305\306\307\310\311  \"\312\"\313\314%$\210\315\316\317\320\321#\"\207" [make-vector org-export-table-dimensions 0 org-element-map table-row make-byte-code 257 "\302C\303\304\305\306\307\310\311\301 \"\312\"\313\314%\300$\207" vconcat vector [0 org-element-map table-cell make-byte-code 257 "\302\211;\203\303\304#\266\202\202\305A@\"\266\202\306\211;\203*\303\304#\266\202\2022\305A@\"\266\202Z\300\301\242\300\301\242H]I\266\301\211\242T\240\207" vconcat vector [:contents-end get-text-property 0 plist-get :contents-begin] 8 "\n\n(fn CELL)"] 12 "\n\n(fn ROW)" format "{%s}" mapconcat #[257 "\300\301\"\207" [make-string 97] 4 "\n\n(fn W)"] "} {"] 13 (#$ . 51206)]) #@165 Transcode a TABLE-CELL element from Org to Texinfo. CONTENTS is the cell contents. INFO is a plist used as a communication channel. (fn TABLE-CELL CONTENTS INFO) (defalias 'org-texinfo-table-cell #[771 "\301\302\"\203#\211\203#\303\"\203#\304\305\306\"\305\307\"#\202$\262\310\"\205.\311P\207" [orgtbl-exp-regexp plist-get :texinfo-table-scientific-notation string-match format match-string 1 2 org-export-get-next-element "\n@tab "] 10 (#$ . 52163)]) #@169 Transcode a TABLE-ROW element from Org to Texinfo. CONTENTS is the contents of the row. INFO is a plist used as a communication channel. (fn TABLE-ROW CONTENTS INFO) (defalias 'org-texinfo-table-row #[771 "\300\211;\203\301\302#\266\202\202\303A@\"\266\202\304=\205;\305\"\306U\2034\307\310!\"\2034\311\2025\312\211\313Q\262\207" [:type get-text-property 0 plist-get standard org-export-table-row-group 1 org-export-table-has-header-p org-export-get-parent-table "@headitem " "@item " "\n"] 9 (#$ . 52642)]) #@141 Transcode a TARGET object from Org to Texinfo. CONTENTS is nil. INFO is a plist holding contextual information. (fn TARGET CONTENTS INFO) (defalias 'org-texinfo-target #[771 "\300\301\302\"\"\207" [format "@anchor{%s}" org-texinfo--get-node] 8 (#$ . 53178)]) #@147 Transcode a TIMESTAMP object from Org to Texinfo. CONTENTS is nil. INFO is a plist holding contextual information. (fn TIMESTAMP CONTENTS INFO) (defalias 'org-texinfo-timestamp #[771 "\300\301!\"\302\211;\203\303\304#\266\202\202\305A@\"\266\202\211\306>\203/\307\305\310\"\"\202F\211\311>\203?\307\305\312\"\"\202F\307\305\313\"\"\262\207" [org-texinfo-plain-text org-timestamp-translate :type get-text-property 0 plist-get (active-range active) format :texinfo-active-timestamp-format (inactive-range inactive) :texinfo-inactive-timestamp-format :texinfo-diary-timestamp-format] 10 (#$ . 53448)]) #@165 Transcode UNDERLINE from Org to Texinfo. CONTENTS is the text with underline markup. INFO is a plist holding contextual information. (fn UNDERLINE CONTENTS INFO) (defalias 'org-texinfo-underline #[771 "\300\301#\207" [org-texinfo--text-markup underline] 7 (#$ . 54078)]) #@146 Transcode a VERBATIM object from Org to Texinfo. CONTENTS is nil. INFO is a plist used as a communication channel. (fn VERBATIM CONTENTS INFO) (defalias 'org-texinfo-verbatim #[771 "\300\301\211;\203\302\303#\266\202\202\304A@\"\266\202\305#\207" [org-texinfo--text-markup :value get-text-property 0 plist-get verbatim] 10 (#$ . 54360)]) #@168 Transcode a VERSE-BLOCK element from Org to Texinfo. CONTENTS is verse block contents. INFO is a plist holding contextual information. (fn VERSE-BLOCK CONTENTS INFO) (defalias 'org-texinfo-verse-block #[771 "\300\301\"\207" [format "@display\n%s@end display"] 6 (#$ . 54717)]) #@905 Export current buffer to a Texinfo file. If narrowing is active in the current buffer, only export its narrowed part. If a region is active, export that region. A non-nil optional argument ASYNC means the process should happen asynchronously. The resulting file should be accessible through the `org-export-stack' interface. When optional argument SUBTREEP is non-nil, export the sub-tree at point, extracting information from the headline properties first. When optional argument VISIBLE-ONLY is non-nil, don't export contents of hidden elements. When optional argument BODY-ONLY is non-nil, only write code between "\begin{document}" and "\end{document}". EXT-PLIST, when provided, is a property list with external parameters overriding Org default settings, but still inferior to file-local settings. Return output file's name. (fn &optional ASYNC SUBTREEP VISIBLE-ONLY BODY-ONLY EXT-PLIST) (defalias 'org-texinfo-export-to-texinfo #[1280 "\302\303\"\304\305&)\207" [org-texinfo-coding-system org-export-coding-system org-export-output-file-name ".texi" org-export-to-file texinfo] 14 (#$ . 55003) nil]) #@1001 Export current buffer to Texinfo then process through to INFO. If narrowing is active in the current buffer, only export its narrowed part. If a region is active, export that region. A non-nil optional argument ASYNC means the process should happen asynchronously. The resulting file should be accessible through the `org-export-stack' interface. When optional argument SUBTREEP is non-nil, export the sub-tree at point, extracting information from the headline properties first. When optional argument VISIBLE-ONLY is non-nil, don't export contents of hidden elements. When optional argument BODY-ONLY is non-nil, only write code between "\begin{document}" and "\end{document}". EXT-PLIST, when provided, is a property list with external parameters overriding Org default settings, but still inferior to file-local settings. When optional argument PUB-DIR is set, use it as the publishing directory. Return INFO file's name. (fn &optional ASYNC SUBTREEP VISIBLE-ONLY BODY-ONLY EXT-PLIST) (defalias 'org-texinfo-export-to-info #[1280 "\302\303\"\304\305\306&)\207" [org-texinfo-coding-system org-export-coding-system org-export-output-file-name ".texi" org-export-to-file texinfo #[257 "\300!\207" [org-texinfo-compile] 3 "\n\n(fn FILE)"]] 15 (#$ . 56143) nil]) #@236 Publish an org file to Texinfo. FILENAME is the filename of the Org file to be published. PLIST is the property list for the given project. PUB-DIR is the publishing directory. Return output file name. (fn PLIST FILENAME PUB-DIR) (defalias 'org-texinfo-publish-to-texinfo #[771 "\300\301\302%\207" [org-publish-org-to texinfo ".texi"] 9 (#$ . 57439)]) #@218 Assume the current region has Org syntax, and convert it to Texinfo. This can be used in any buffer. For example, you can write an itemized list in Org syntax in an Texinfo buffer and use this command to convert it. (defalias 'org-texinfo-convert-region-to-texinfo #[0 "\300\301!\207" [org-export-replace-region-by texinfo] 2 (#$ . 57807) nil]) #@298 Compile a texinfo file. FILE is the name of the file being compiled. Processing is done through the command specified in `org-texinfo-info-process', which see. Output is redirected to "*Org INFO Texinfo Output*" buffer. Return INFO file name or an error if it couldn't be produced. (fn FILE) (defalias 'org-texinfo-compile #[257 "\303\304\"\210\305\306!\307\310\311\312\"% \203:\313!\n\211\2038\211@\314Q\315!\2030\316!\210\210A\266\202\202\266\303\317!\210\207" [org-texinfo-info-process org-texinfo-remove-logfiles org-texinfo-logfiles-extensions message "Processing Texinfo file %s..." "*Org INFO Texinfo Output*" get-buffer-create org-compile-file "info" format "See %S for details" file-name-sans-extension "." file-exists-p delete-file "Process completed."] 10 (#$ . 58160)]) (provide 'ox-texinfo)