%PDF- %PDF-
Direktori : /usr/local/share/emacs/27.2/lisp/org/ |
Current File : //usr/local/share/emacs/27.2/lisp/org/ox-texinfo.elc |
;ELC ;;; Compiled ;;; in Emacs version 27.2 ;;; 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\201A DD\201B \326\315\336\201C &\210\330\201D \332\333\201E DD\201F \326\315\336\201G &\210\330\201H \332\333\201I DD\201J \326\315\336\366\322\355\324\201K \201L \201M & \210\330\201N \332\333\201O DD\201P \326\315\322\355\324\201Q \336\201R \201S \201T & \210\330\201U \332\333\201V DD\201W \326\315\322\323\324\201X \336\333&\210\330\201Y \332\333\201Z DD\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\201b DD\201c \326\315\336\201d &\210\330\201e \332\333\201f DD\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\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 (#$ . 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 \202= \211\301\267\2025 \302\303\304!\"\202= \302\305\304!\"\202= \306!\302\307$\262\202= \211\302\"\262\207" [org-texinfo-text-markup-alist #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (code 18 samp 28 verb 38)) format "@code{%s}" org-texinfo--sanitize-content "@samp{%s}" 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\345 \302\303\211:\204 \211;\205&