mirror of https://github.com/Chizi123/.emacs.d.git

Chizi123
2018-11-18 76bbd07de7add0f9d13c6914f158d19630fe2f62
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
;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\201DDD\201E\326\315\336\201F&\210\330\201G\332\333\201HDD\201I\326\315\336\365\322\347\324\201J\201K\201L& \210\330\201M\332\333\201NDD\201O\326\315\322\347\324\201P\336\201Q\201R\201S& \210\330\201T\332\333\201UDD\201V\326\315\322\323\324\201W\336\333& \210\330\201X\332\333\201YDD\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\201aDD\201b\326\315\336\201c&\210\330\201d\332\333\201eDD\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\202A\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\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 (#$ . 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&\305\2023\211@9\2032\211AA\2023\211\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" :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 (#$ . 19285)])
#@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 (#$ . 22571)])
#@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 "\207" [] 4 (#$ . 22828)])
#@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#\202!\304A@\"\266\202!\312\211;\2034\310\311#\202:\304A@\"\266\202\211\205D\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 (#$ . 23084)])
#@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#\202\304A@\"\266\202\305#\207" [org-texinfo--text-markup :value get-text-property 0 plist-get code] 10 (#$ . 23635)])
#@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#\202\303A@\"\266\202\303\304\"\"\207" [:drawer-name get-text-property 0 plist-get :texinfo-format-drawer-function] 9 (#$ . 23968)])
#@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 (#$ . 24344)])
#@76 Transcode an ENTITY object from Org to Texinfo.
 
(fn ENTITY CONTENTS INFO)
(defalias 'org-texinfo-entity #[771 "\300\211;\203\301\302#\202\303A@\"\266\202\211\304\232\203!\305\202\230\211\306\232\203+\307\202\230\211\310\235\2035\311\202\230\211\312\232\203?\313\202\230\211\314\232\203I\315\202\230\211\316\235\203S\317\202\230\211\320\232\203]\321\202\230\211\322\235\203g\323\202\230\211\324\235\203q\325\202\230\211\326\232\203{\327\202\230\211\330\232\203\205\331\202\230\211\332\232\203\217\333\202\230\211\334\232\203\231\335\202\230\211\336\232\203\243\337\202\230\211\340\235\203\255\341\202\230\211\342\232\203\267\343\202\230\211\344\232\203\301\345\202\230\211\346\232\203\313\347\202\230\211\350\232\203\325\351\202\230\211\352\232\203\337\353\202\230\211\354\232\203\351\355\202\230\211\356\232\203\363\357\202\230\211\360\232\203\375\361\202\230\211\362\232\203\363\202\230\211\364\232\203\365\202\230\211\366\232\203\367\202\230\211\370\235\203%\371\202\230\211\372\232\203/\373\202\230\211\374\235\2039\375\202\230\211\376\232\203C\377\202\230\211\201@\232\203Q\201A\202\230\211\201B\232\203_\201C\202\230\201D\201E\"\203\211\201F\201G\201H\201IO\"\262\202\230\201J\211;\203\220\301\302#\202\226\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 (#$ . 24601)])
#@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 (#$ . 26755)])
#@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#\202\303A@\"\266\202\304\230\2055\305\306\211;\203,\301\302#\2022\303A@\"\266\202!\207" [:type get-text-property 0 plist-get "TEXINFO" org-remove-indentation :value] 10 (#$ . 27106)])
#@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#\202\305A@\"\266\202\207" [org-export-snippet-backend texinfo :value get-text-property 0 plist-get] 9 (#$ . 27532)])
#@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#\202\307A@\"\266\202!!\"\207" [format "@example\n%s@end example" org-remove-indentation org-texinfo--sanitize-content :value get-text-property 0 plist-get] 13 (#$ . 27905)])
#@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\305\203\306\202\307\310\305\311\310##\266\202\"\207" [org-export-get-footnote-definition format "@footnote{%s}" org-export-data nil replace-regexp-in-string "\\`\\([     ]*\n\\)+" "\\`[     \n ]+" "" "[     \n ]+\\'"] 15 (#$ . 28327)])
#@235 Return Texinfo structuring command string for HEADLINE element.
Return nil if HEADLINE is to be ignored, `plain-list' if it
should be exported as a plain-list item.  INFO is a plist holding
contextual information.
 
(fn HEADLINE INFO)
(defalias 'org-texinfo--structuring-command #[514 "\300\211;\203\301\302#\202\303A@\"\266\202\203\304\207\305\306\307\310#!\203(\304\207\311\"\2031\312\207\303\313\"\314\303\315\"\"\211:\203\345\211A\211:\203\334\211A\211\316\"S8\211:\203\306\211@A\211:\203\274\211@A\211:\203\262\211@A\211\204\250\305\306\317\310#!\203\206\202\243\305\306\320\310#!\203\225\202\243\321\"\203\242\211\202\243\266\203\202\255\322\323 \"\266\202\202\267\322\323 \"\266\202\202\301\322\323    \"\266\202\202\323\211\204\316\312\202\323\322\323\"\262\262\262\202\340\322\323\"\262\202\351\322\323\"\262\207" [:footnote-section-p get-text-property 0 plist-get nil org-not-nil org-export-get-node-property :COPYING t org-export-low-level-p plain-list :texinfo-class assoc :texinfo-classes org-export-get-relative-level :APPENDIX :INDEX org-export-numbered-headline-p user-error "Invalid Texinfo class specification: %S"] 22 (#$ . 28821)])
#@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\205,\301\302\"\2050\303\211;\203\304\305#\202$\301A@\"\266\202\211\205.\306\"\262\211\205K\307\211;\203C\304\305#\202I\301A@\"\266\202\301\310\"\205W\311\"\301\312\"\205v\313\211;\203n\304\305#\202t\301A@\"\266\202\314\315    \211;\203\207\304\305#\202\215\301A@\"\266\202\"\301\316\"%\317\320\n!\203\255\317\nP\202\256\321\322\f\211;\203\276\304\305#\202\304\301A@\"\266\202\211\323\235\205\320\324\325\"\262Q\326\267\202\327 \n\"\330\f \"\205\365\324\331\203\363\332\202\364\333\"\334\317\335\"\203\324\336\203 \332\202\333\"\202\317\260\262\202*\324\337\340 \f\"\"\324    \"Q\266\207\207" [org-texinfo--structuring-command plist-get :with-todo-keywords :todo-keyword get-text-property 0 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 "" :INDEX ("cp" "fn" "ky" "pg" "tp" "vr") format "\n@printindex %s\n" #s(hash-table size 1 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (plain-list 218)) org-export-numbered-headline-p org-export-first-sibling-p "@%s\n" enumerate itemize "@item\n" org-export-last-sibling-p "@end %s" "@node %s\n" org-texinfo--get-node] 20 (#$ . 30050)])
#@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\300\303\304\305\306#\"R\207" [format "@strong{%s} " "@emph{#%s} " " :%s:" mapconcat identity ":"] 14 (#$ . 31600)])
#@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#\202\306A@\"\266\202!\"\207" [format "@code{%s}" org-texinfo--sanitize-content :value get-text-property 0 plist-get] 12 (#$ . 31971)])
#@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#\202\304A@\"\266\202\"\304\305\"\205B\306\211;\2030\302\303#\2026\304A@\"\266\202\211\205@\300\"\262\307\211;\203Q\302\303#\202W\304A@\"\266\202\304\310\"\205e\311\"\304\312\"\205\204\313\211;\203|\302\303#\202\202\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 (#$ . 32390)])
#@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 \300\303\304\305\306#\"R\300\307#\207" [format "@strong{%s} " "#%c " ":%s:" mapconcat identity ":" "@center %s\n\n%s\n"] 15 (#$ . 33154)])
#@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 (#$ . 33565)])
#@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#\202\303A@\"\266\202\304\305\306\307\211;\203*\301\302#\2020\303A@\"\266\202\310#!\205P\311\"\203L\312\313!\314\315$\202N\211C\262\316\317\204Z\320\202\204:\203\203@A\211\204p\321P\262\202~\211\321\322\323\324\322#R\266\202\266\202\202\204\325\206\212\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 (#$ . 33832)])
#@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#\202\304A@\"\266\202\305\211;\203&\302\303#\202,\304A@\"\266\202\211\306\267\202\230\202\231\307\310\"\202\231\307\311\"\202\231\307\312\"\202\231\307\313\"\202\231\307\314\"\202\231\307\315\"\202\231\316\317\320\321#)\266\203\203}\322\323\324\325#P\202\231\326\317\320\321#)\266\203\205\231\322\323\327\325#P\202\231\317\262\207" [inhibit-changing-match-data :value get-text-property 0 plist-get :key #s(hash-table size 8 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("TEXINFO" 52 "CINDEX" 56 "FINDEX" 63 "KINDEX" 70 "PINDEX" 77 "TINDEX" 84 "VINDEX" 91 "TOC" 98)) format "@cindex %s" "@findex %s" "@kindex %s" "@pindex %s" "@tindex %s" "@vindex %s" "\\<tables\\>" nil t string-match "@listoffloats " org-export-translate "Table" :utf-8 "\\<listings\\>" "Listing"] 12 (#$ . 34647)])
#@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 (#$ . 35712)])
#@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 (#$ . 35944)])
#@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#\202\305A@\"\266\202\306\211;\203&\303\304#\202,\305A@\"\266\202\307\230?\2056\310\235\203C\311Q\202P\312\230\203O\313!\202P\314\315#\206x\316\"\203j\317\"\202x\320\232\203\211\321\"\211\204~\202\204\322#\262\202x\323\235\203>\324\232\203\236\325\"\202\244\326\"\211\211:\204\263\211;\205\273\327\202\273\211@9\205\273\211@\262\330\204\314\331    \332!\"\2027\327=\203\346\203\337\331\333#\2027\331\334\"\2027\335=\204&\336=\2030\337\211;\203\303\304#\202\305A@\"\266\202\211:\204\211;\205\327\202\211@9\205\211@\262\335=\2030\211#\2027\322\n#\266\202\262\202x\340\230\203U\331\341\332!\205P\342PP\"\202x\211\203e\203e\331\343#\202x\211\203p\331\344\"\202x\331\305\345\"\"\207" [org-texinfo-inline-image-rules org-texinfo-link-with-unknown-path-format :type get-text-property 0 plist-get :path "" ("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 org-texinfo--sanitize-content "@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 (#$ . 36366)])
#@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#\202\304A@\"\266\202\205!\305\"\306!\306\307\"\310\211;\2038\302\303#\202>\304A@\"\266\202\311\312!\203M\313!\202N!\314!\315\316\"\304\317\"\206_\320\304\321\"\206g\320\304\322\"\206o\320\323\324\n&    \204\205\203\232\325\326\327\330#&\202\251\n\203\250\331 \332R\202\251\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-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 (#$ . 38215)])
#@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 (#$ . 39193)])
#@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 (#$ . 39902)])
#@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;\2030\315\316#\2026\317A@\"\266\202\211\204@\202H\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 (#$ . 40694)])
#@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\202/\310\311\312\313\314\n#\"#\207" [plist-get :texinfo-entries-cache plist-put make-hash-table :test eq gethash no-cache puthash cl-remove-if #[257 "\300\301\302\303#!\207" [org-not-nil org-export-get-node-property :COPYING t] 6 "\n\n(fn H)"] org-export-collect-headlines 1] 12 (#$ . 41508)])
#@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#\202\305A@\"\266\202\306\211;\203)\303\304#\202/\305A@\"\266\202\211\203;\307P\202<\310\262#\207" [format "%s:%s" :key get-text-property 0 plist-get :value " " ""] 12 (#$ . 42102)])
#@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 (#$ . 42541)])
#@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;\2033\311\312#\2029\302A@\"\266\202\211\313=\203E\314\202Z\211\315=\203O\316\202Z\317\235\203Y\202Z\320\321\322\323=\203j\324Q\202k    $\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 "enumerate" unordered "itemize" ("ftable" "vtable") "table" format "@%s\n%s@end %s" descriptive " "] 13 (#$ . 42804)])
#@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\211\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"] 10 (#$ . 43556)])
#@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#\202\313A@\"\266\202\211\2050\314\315\"\314\313    \316\"\317!\"P\262\320    \211;\203B\311\312#\202H\313A@\"\266\202\211\205]\314\315    \"\314\313\n\321\"\317!\"P\262\322\n\211;\203o\311\312#\202u\313A@\"\266\202\211\205\212\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 (#$ . 44209)])
#@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 (#$ . 45055)])
#@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\211;\203\301\302#\202\303A@\"\266\202\304\205 \305\306\"P\305\307#\207" [:name get-text-property 0 plist-get "@quotation" format " %s" "%s\n%s@end quotation"] 9 (#$ . 45394)])
#@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 (#$ . 45815)])
#@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\"Q\303\304\203\305\202\306\307\304\310\307##\266\202\207" [org-export-get-parent-headline "\n" org-texinfo-make-menu nil replace-regexp-in-string "\\`\\([     ]*\n\\)+" "\\`[     \n ]+" "" "[     \n ]+\\'"] 13 (#$ . 46116)])
#@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#\202\306A@\"\266\202\307\310\203)\311P\202*\312\2060\312%\207" [org-export-read-attribute :attr_texinfo :options :type get-text-property 0 plist-get format "@%s%s\n%s@end %s" " " ""] 11 (#$ . 46582)])
#@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#\202\305A@\"\266\202\306\307\310#)\266\203\311\312\"!\313\2032\314\2023\315\"\316!\316\307\"\204J\211\204J\202`\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 (#$ . 47069)])
#@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#\202\303A@\"\207" [:value get-text-property 0 plist-get] 9 (#$ . 47834)])
#@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 (#$ . 48156)])
#@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 (#$ . 48463)])
#@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 (#$ . 48735)])
#@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#\202\303A@\"\266\202\304=\203:\305\306\307\310\211;\203/\301\302#\2025\303A@\"\266\202!\"\207\311\312\313#\211\203J\305\314\"\202N\315\"\316!\316\317\"\305\320#\204h\204h\211\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 (#$ . 49013)])
#@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#\202\305A@\"\266\202\306\211;\203&\303\304#\202,\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 (#$ . 49882)])
#@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 (#$ . 50823)])
#@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#\202\303A@\"\266\202\304=\2059\305\"\306U\2032\307\310!\"\2032\311\2023\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 (#$ . 51302)])
#@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 (#$ . 51830)])
#@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#\202\305A@\"\266\202\211\306>\203-\307\305\310\"\"\202D\211\311>\203=\307\305\312\"\"\202D\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 (#$ . 52100)])
#@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 (#$ . 52722)])
#@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#\202\304A@\"\266\202\305#\207" [org-texinfo--text-markup :value get-text-property 0 plist-get verbatim] 10 (#$ . 53004)])
#@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 (#$ . 53353)])
#@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 (#$ . 53639) 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 (#$ . 54779) 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 (#$ . 56075)])
#@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 (#$ . 56443) 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 (#$ . 56796)])
(provide 'ox-texinfo)