WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/org
Viewing File: /usr/share/emacs/24.3/lisp/org/org-ascii.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:49:17 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/org-ascii.el
;;; in Emacs version 24.3.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\302\303\304\305\306\307\310\311&\210\312\313\314\315\310\303\316\317&\210\312\320\321\322\310\303\316\323&\210\312\324\325\326\310\303\316\327&\210\312\330\304\331\310\303\316\327&\210\312\332\325\333\310\303\316\327&\207" [require org-exp custom-declare-group org-export-ascii nil "Options specific for ASCII export of Org-mode files." :tag "Org Export ASCII" :group org-export custom-declare-variable org-export-ascii-underline '(61 45 126 67108896 46 35 36) "Characters for underlining headings in ASCII export.\nIn the given sequence, these characters will be used for level 1, 2, ..." :type (repeat character) org-export-ascii-bullets '(42 43 45) "Bullet characters for headlines converted to lists in ASCII export.\nThe first character is used for the first lest level generated in this\nway, and so on.  If there are more levels than characters given here,\nthe list will be repeated.\nNote that plain lists will keep the same bullets as the have in the\nOrg-mode file." (repeat character) org-export-ascii-links-to-notes t "Non-nil means convert links to notes before the next headline.\nWhen nil, the link will be exported in place.  If the line becomes long\nin this way, it will be wrapped." boolean org-export-ascii-table-keep-all-vertical-lines "Non-nil means keep all vertical lines in ASCII tables.\nWhen nil, vertical lines will be removed except for those needed\nfor column grouping." org-export-ascii-table-widen-columns "Non-nil means widen narrowed columns for export.\nWhen nil, narrowed columns will look in ASCII export just like in org-mode,\ni.e. with \"=>\" as ellipsis."] 8)
#@193 The ascii representation to be used during ascii export.
Possible values are:

ascii     Only use plain ASCII characters
latin1    Include Latin-1 character
utf8      Use all UTF-8 characters
(defvar org-export-ascii-entities 'ascii (#$ . 2192))
#@57 Hook run at the end of ASCII export, in the new buffer.
(defvar org-export-ascii-final-hook nil (#$ . 2444))
(defvar org-ascii-current-indentation nil)
#@70 Like `org-export-as-ascii', use latin1 encoding for special symbols.
(defalias 'org-export-as-latin1 #[(&rest args) "\301\302\303\304!\305$\207" [args org-export-as-encoding org-export-as-ascii called-interactively-p any latin1] 5 (#$ . 2602) nil])
#@72 Like `org-export-as-ascii-to-buffer', use latin1 encoding for symbols.
(defalias 'org-export-as-latin1-to-buffer #[(&rest args) "\301\302\303\304!\305$\207" [args org-export-as-encoding org-export-as-ascii-to-buffer called-interactively-p any latin1] 5 (#$ . 2858) nil])
#@63 Like `org-export-as-ascii', use encoding for special symbols.
(defalias 'org-export-as-utf8 #[(&rest args) "\301\302\303\304!\305$\207" [args org-export-as-encoding org-export-as-ascii called-interactively-p any utf8] 5 (#$ . 3136) nil])
#@70 Like `org-export-as-ascii-to-buffer', use utf8 encoding for symbols.
(defalias 'org-export-as-utf8-to-buffer #[(&rest args) "\301\302\303\304!\305$\207" [args org-export-as-encoding org-export-as-ascii-to-buffer called-interactively-p any utf8] 5 (#$ . 3381) nil])
(defalias 'org-export-as-encoding #[(command interactivep encoding &rest args) "\n\203\f\305!\202\306\f\")\207" [encoding org-export-ascii-entities interactivep command args call-interactively apply] 3])
#@143 Call `org-export-as-ascii` with output to a temporary buffer.
No file is created.  The prefix ARG is passed through to `org-export-as-ascii'.
(defalias 'org-export-as-ascii-to-buffer #[(arg) "\302\303\304#\210	\205
\305\304!\207" [arg org-export-show-temporary-export-buffer org-export-as-ascii nil "*Org ASCII Export*" switch-to-buffer-other-window] 4 (#$ . 3865) "P"])
#@235 Assume the current region has org-mode syntax, and convert it to plain ASCII.
This can be used in any buffer.  For example, you could write an
itemized list in org-mode syntax in a Mail buffer and then use this
command to convert it.
(defalias 'org-replace-region-by-ascii #[(beg end) "\306\211\211\211\307 \310\216\311\312!\203\313
\314\315$\202@
{\316\317!r	q\210\320 \210c\210\312 \210\313ed\314\315$)\321	!\210*
|\210\nc,\207" [pop-up-frames buf ascii reg #1=#:wconfig beg nil current-window-configuration ((set-window-configuration #1#)) derived-mode-p org-mode org-export-region-as-ascii t string get-buffer-create "*Org tmp*" erase-buffer kill-buffer end] 5 (#$ . 4245) "r"])
#@702 Convert region from BEG to END in org-mode buffer to plain ASCII.
If prefix arg BODY-ONLY is set, omit file header, footer, and table of
contents, and only produce the region of converted text, useful for
cut-and-paste operations.
If BUFFER is a buffer or a string, use/create that buffer as a target
of the converted ASCII.  If BUFFER is the symbol `string', return the
produced ASCII as a string and leave not buffer behind.  For example,
a Lisp program could call this function in the following way:

  (setq ascii (org-export-region-as-ascii beg end t 'string))

When called interactively, the output buffer is selected, and shown
in a window.  A non-interactive call will only return the buffer.
(defalias 'org-export-region-as-ascii #[(beg end &optional body-only buffer) "\306\307!\203\310\311\211\312\211\313\n\314\311#
b\210\315`!\210b\210\316\312\n $\317\320!\203\265\312!\f\204;!\205\263\"\321=\203I\f\242\321=\202K\"\203\206\322 \203\206\323 \203\206#\203i\324\325#\"\210\312#\202\206\326 \327 U\204\206\330\325!\204}\331\325!\204\206\324\325\326 \327 {\"\210!\204\243\f\332=\204\235\f\242\321=\203\243\fA\204\243\312\211\202\263\f\242\321=\203\255\fA\312$\333\334!)\210\306\307!\203\307\335	!\203\307\336	!\202\310	,\207" [buffer rtn ext-plist zmacs-regions transient-mark-mode end called-interactively-p any "*Org ASCII Export*" t nil plist-put :ignore-subtree-p set-mark org-export-as-ascii fboundp deactivate-mark only region-active-p display-selections-p x-set-selection PRIMARY region-beginning region-end x-selection-owner-p x-selection-exists-p lambda run-hooks deactivate-mark-hook bufferp switch-to-buffer-other-window beg body-only force select-active-regions saved-region-selection mark-active] 5 (#$ . 4954) "r\nP"])
#@715 Export the outline as a pretty ASCII file.
If there is an active region, export only the region.
The prefix ARG specifies how many levels of the outline should become
underlined headlines, default is 3.    Lower levels will become bulleted
lists.  EXT-PLIST is a property list with external parameters overriding
org-mode's default settings, but still inferior to file-local
settings.  When TO-BUFFER is non-nil, create a buffer with that
name and export to that buffer.  If TO-BUFFER is the symbol
`string', don't leave any buffer behind but just return the
resulting ASCII as a string.  When BODY-ONLY is set, don't produce
the file header and footer.  When PUB-DIR is set, use this as the
publishing directory.
(defalias 'org-export-as-ascii #[(arg &optional ext-plist to-buffer body-only pub-dir) "\306\307!\210\310\300\"\210\311\312 	\313 #\314 \211\205\315 \205!\316 \317\n\320\"?\205>\205>\212\fb\210\321 \205=\322\323\211\"
Y)\211@\203Z\212\fb\210A B\203T\324\202U\325\\)\202[\325C@\203i\326\n\f\"\202j\n\211DE\206w\327\330\n\"FGHI\331J\325K\332\211LM\332\211NO\332P\333\334 \206\235p!QR?\205\307\335E\206\260\327\336\n\"!\337@\203\300\340\315 \341\323#\206\304\342Q!!\343Q\211S\205\342\344S!\344Q!\232\203\340S\343P\202\342SSR\203\375R\345=\203\366\346\347!\202\346R!\202\350S!T\351U\332\"VBW\317\n\352\"X\317\n\353\"Y@\203$\354 \206F\317\n\355\"\206F\317\n\356\"\2047\357 \206F\333 \203E\337\342Q!!\206F\360Z\317\n\361\"[\317\n\362\"\\\363]\364Q^\332\211_`\314 \203k\315 \202le\314 \203v\316 \202wd{a\332b\365\366!c\367\370a\371\372\356\317\n\356\"\373\317\n\373\"\374\317\n\374\"\375\317\n\375\"\376\317\n\376\"\377\317\n\377\"\201\215\317\n\201\215\"\201\216\317\n\201\216\"\201\217\323\201\220\317\n\201\220\"\201\221\317\n\201\221\"\201\222\317\n\201\222\"\201\223\317\n\201\224\"&\201\225\"d\332\211ef\332\211gh\332\211ij\332\211kl\332\211mn\332\211op\332\211qr\323s\201\226\201\227 \323\211tu\201\230ed\201\231#\210*!\210)\201\232dC\"\211vw\201\233 \210\201\234\\x\"\206V\201\234\201\235x\"`Tq\210\201\236 \210\201\237 \210\201\240 \210\201\241\201\242y\"\210\201BWz{\201\243{!zL\210*|\203\227\201\244|!\202\231}N~\250\203\251~N^\202\253NO\204iZ\203\317Z\201\245\230\204\317\201\246Z\201\247\"\210\201\225c\210Y\204\331[\203\200\203`A@\201\250Y\206\355\201\245\201\203[\203\201\251\201\252[\"\203\201\253[\201\254Q\202\201\245\201\225\260c\210X\2035\201\251\201\255X\"\2035\201\256X!X\202CX\204C\201\256\201\257!XX\203^\202\203^\201\260`8\201\250X\201\225Rc\210`eU\204i\201\261c\210~\203\260\204\260\201\262`8\201\225PeBe\201\263\201\264\201\262`8!\201\247\"\201\225PeBe\201\241\201\265d\"\210f\205\256e\237e\201\233 \210d\211Ad@\211L\2033j\203\335\201\251\203L\"\203\335\201\266j\237!\210\332j\332q\201\267L!L\201\251\204L\"\203\201\270\201\262L\"m\201\270\324L\"mPk\201\270\201\260L\"l\201\270\201\271L\"o\201\272\201\273\201\274o#\211o\2064kn\201\272\201\273\201\274n#nkG\201\275V\203\210k\325\201\275O\201\276\232\203\210\201\277\201\300\201\301k\201\275\332On\"\201\234k\201\275\332O\205\"A\"\323\211L$L\202\350\201\302n\201\303Qp\201\304\201\260\201\234l\206\"8\211r!\203\312\201\305 \207\201\306\216r\201\307m!o\372#*\206\305pp\202o\203ok\232\204\210\203\351okBjBj\202p\201\310k\201\311Rp\201\312LG\201\270\325L\"G[nG#q\201\277p\323\211L$L\202\350I\203'\201\313L!L\201\251\201\314L\"\203fg\2069`g\201\315\201\316\324\225\324\224C#!K\201\270\201\260L\"M\201\317KMNd$\210\202\265\211\203\274\201\251\201\320L\"\203\274h\204\202\323h\332iLiBid\203\233\201\251\201\320d@\"\204\265\332hi\237i\201\321\201\322\201\323i!\201\225#\201\225\261\210\202\265\201\251\201\324L\"\203\325\201\277\201\325\323\332L$L\201\326LJ\"L\201\251\201\327L\"\203\370\201\277\201\245\323\211L$L\212\203\201\251\201\330L\"\203\201\277\201\331\332\211L$L\202(q\203(\201\332Lq\"LL\201\225\261\210\202\265\201\266j\237!\210\201\333 \210e\203\200eb\210\201\334\201\335\332\323#\203c\325\224b\210\201\277\201\245!\210\202ggb\210\201\241\201\336e\"\210\201\337\201\340!\204\200\201\261c\210eb\210\332\211\213\214\201\341`\201\342\"\211\214\203\275\201\341\214\201\342\"\213\214b\210\214\213|\210\201\263\213\214Z\201\343\"c\210\202\211*\332\211\213\214eb\210\201\341`\201\344\"\211\214\203\362\201\341\214\201\344\"\213\214\213|\210\214b\210\201\345c\210\202\307eb\210\201\341`\201\346\"\211\214\203\201\341\214\201\346\"\213\214\213|\210\214b\210\202\365*\306\201\347!\210R\204,\201\350 \210eb\210\201\351\201\352!\204A\201\353\201\354!\210R\345=\203Ted{\201\355p!\210\202Up.1\207" [org-todo-line-regexp ext-plist opt-plist region-p rbeg rend run-hooks org-export-first-hook set-default org-combine-plists org-default-export-plist org-infile-export-plist org-region-active-p region-beginning region-end plist-get :ignore-subtree-p org-at-heading-p org-end-of-subtree t 1 0 org-export-add-subtree-options org-export-directory :html (0 . 0) nil buffer-file-name buffer-base-buffer file-name-as-directory :ascii file-name-sans-extension org-entry-get "EXPORT_FILE_NAME" file-name-nondirectory ".txt" file-truename string get-buffer-create "*Org ASCII Export*" find-file-noselect make-vector :date :author org-export-get-title-from-subtree :title :skip-before-1st-heading org-export-grab-title-from-buffer "UNTITLED" :email :language "^\\(" "\\)\\( +\\|[ 	]*$\\)" org-footnote-all-labels with-defs org-split-string org-export-preprocess-string :for-backend ascii :drawers :tags :priority :footnotes :timestamps subtree-p outline-level org-odd-levels-only level-offset org-export-opt-plist pub-dir org-current-export-dir org-current-export-file org-display-custom-times custom-times org-ascii-current-indentation level line txt umax umax-toc case-fold-search bfname to-buffer filename buffer org-level-max org-levels-open odd date author title email language org-quote-string quote-re0 todo lang-words region org-export-footnotes-seen org-export-footnotes-data lines thetoc have-headings first-heading-pos table-open table-buffer link-buffer link type path desc desc0 rpl wrap fnc inhibit-read-only inhibit-modification-hooks buffer-undo-list org-min-level org-last-level org-export-language-setup org-export-plist-vars value var arg org-export-headline-levels org-export-with-toc body-only org-export-author-info org-export-email-info org-export-time-stamp-file org-outline-regexp-bol org-bracket-link-analytic-regexp++ org-export-code-refs org-link-protocols save-match-data-internal org-export-ascii-links-to-notes org-export-with-tables org-export-with-fixed-width end beg :todo-keywords :tasks :verbatim-multiline :select-tags :exclude-tags :archived-trees :add-text :text "\n" set-buffer-modified-p buffer-modified-p remove-text-properties (:org-license-to-kill t) org-get-min-level org-init-section-numbers assoc "en" erase-buffer fundamental-mode org-install-letbind mapc #[(x) "\302\3038!\304	@\"L\207" [x opt-plist make-local-variable 2 plist-get] 4] make-local-variable prefix-numeric-value #1="" org-insert-centered 61 ": " string-match "\\S-" " <" ">" "%" format-time-string "%Y-%m-%d %T %Z" 2 "\n\n" 3 make-string string-width #[(line) "\306	\"\205\277\307\310\311\225\311\224#\312\f!\313\314	\"\203/\315\224\203/\313\315	\"\235?\206A\205A\fU\205A\316	 \f#!\317
!\306\"
\"\203e\320\313\315\225\203Z\314\202[\311
\"\307\211
$\202G#\321>\203z\306\322
\"\203z\320\323\307\211
$\306$
\"\203\212\320\323\307\211
\311%%\203\226\324\f!\325
Q\fX\205\277\326\327\f&Z]\330_\331\"\332!\203\262\333\202\263\334
\"P'B'\f\211(\207" [org-todo-line-regexp line have-headings level-offset level txt string-match t - 1 org-tr-level match-string 3 2 org-search-todo-below org-html-expand-for-ascii replace-match (not-in-toc nil) "[ 	]+:[[:alnum:]_@#%:]+:[ 	]*$" #1# org-section-number " " make-string 0 4 32 format "%s (*)\n" "%s\n" org-export-mark-todo-in-toc org-done-keywords umax-toc lines todo org-bracket-link-regexp org-export-with-tags quote-re0 org-export-with-section-numbers org-min-level thetoc org-last-level] 6] org-export-ascii-push-links org-html-expand-for-ascii match-string 5 replace-regexp-in-string "\\\\_" "_" 8 "coderef:" replace-match format org-export-get-coderef-format "[" "]" functionp match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-link-unescape " (" ")" + org-translate-time "^\\(\\*+\\)[ 	]+\\(.*\\)" org-tr-level - org-ascii-level-start "^\\([ 	]*\\)\\(|\\|\\+-+\\+\\)" mapconcat #[(x) "\302	\"\207" [x org-ascii-current-indentation org-fix-indentation] 3] org-format-table-ascii "^\\([ 	]*\\)\\([-+*][ 	]+\\)\\(.*?\\)\\( ::\\)" "\\1\\3:" org-fix-indentation "\\\\\\\\[ 	]*$" "^\\([ 	]*\\)\\(:\\( \\|$\\)\\)" "\\1" org-export-ascii-wrap normal-mode re-search-forward "^[ 	]*\\[TABLE-OF-CONTENTS\\][ 	]*$" insert looking-at "[ 	]*\n[ 	]*\n" next-single-property-change org-whitespace 32 display "=>" org-cwidth org-export-ascii-final-hook save-buffer org-export-push-to-kill-ring "ASCII" message "Exporting... done" kill-buffer] 34 (#$ . 6749) "P"])
#@33 Do extra work for ASCII export.
(defalias 'org-export-ascii-preprocess #[(parameters) "\203\303eb\210\304 \210eb\210\305\306\307\"\210)eb\210\310\n\303\311#\203E\312\313\224\314\"\204\315\225b\210\316\317!\210\320c\210\315\224b\210\321\317!\210\322c\210\315\225b\210\202eb\210\310\323\303\311#\203_\312\317\224\314\"\204H\324\325!\210\202Heb\210\326\327\303\311#\203q\324\330!\210\202b\331ed\332#\207" [org-export-ascii-table-widen-columns org-table-do-narrow org-verbatim-re nil org-ascii-replace-entities org-table-map-tables #[nil "\300`\301\"?\205\n\302 \207" [get-text-property org-protected org-table-align] 3] quietly re-search-forward t get-text-property 4 org-protected 2 backward-delete-char 1 "'" delete-char "`" "<<<?\\([^<>]*\\)>>>?\\([ 	]*\\)" replace-match "\\1\\2" org-list-search-forward "\\[@\\(?:start:\\)?\\([0-9]+\\|[A-Za-z]\\)\\][ 	]*" "" remove-text-properties (face nil font-lock-fontified nil font-lock-multiline nil line-prefix nil wrap-prefix nil)] 4 (#$ . 16300)])
#@38 Handle quoted HTML for ASCII export.
(defalias 'org-html-expand-for-ascii #[(line) "\203\302\303	\"\203\304\305\306\211	$\202	\207" [org-export-html-expand line string-match "@<[^<>\n]*>" replace-match "" nil] 5 (#$ . 17314)])
#@49 Replace entities with the ASCII representation.
(defalias 'org-ascii-replace-entities #[nil "\302\303\304\302\305#\205&\306\307\224\310\"\204\311\312\307!	\"\211\203\313\305\211#\210\202)\207" [e org-export-ascii-entities nil re-search-forward "\\\\\\([a-zA-Z]+[0-9]*\\)\\({}\\)?" t get-text-property 1 org-protected org-entity-get-representation match-string replace-match] 5 (#$ . 17555)])
#@31 Wrap LINE at or before WHERE.
(defalias 'org-export-ascii-wrap #[(line where) "\303!\304\305\306\215\210	\203 \307	O\310\311\n\312\"	T\304OR\202!*\207" [line pos ind org-get-indentation nil found (byte-code "\305\245	\nY\203&	H\306\232\203	\211\203\307\310\311\"\210	S\211\202*\305\207" [where i #1=#:--cl-var-- line pos 2 32 throw found t] 4) 0 "\n" make-string 32] 6 (#$ . 17963)])
#@31 Push out links in the buffer.
(defalias 'org-export-ascii-push-links #[(link-buffer) "\2052\304c\210\305\306 \307\216\212\310\311\312Q\313\314#)\203)\315\316!\206(\317\315\320!G\321\"*\322\323\"\210)\304c\207" [link-buffer ind save-match-data-internal org-outline-regexp "\n" "" match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) re-search-backward "^\\(\\([ 	]*\\)\\|\\(" "\\)\\)[^ 	\n]" nil t match-string 2 make-string 3 32 mapc #[(x) "\302	@\303	A\304\261\207" [ind x "[" "]: " "\n"] 6]] 4 (#$ . 18375)])
#@37 Insert a new level in ASCII export.
(defalias 'org-ascii-level-start #[(level title umax &optional lines) "\306\307	\310#\311	V\2035\312\313_\314\"\315
G\246
8!\316\317\261\210\320\321\215\210T\313_\nB\211\202\215`Sf\322\232\203F`SSf\322\232\204I\317c\210S8\206V\323!@\204m\324\325\"\203m\326\327\330\211$ \203{\331!\316Q\317\312\332!\f\"\317\261\210\333\211+\207" [level umax ind n char org-export-ascii-bullets nil - 1 0 make-string 2 32 char-to-string " " "\n" stop (byte-code "\203,\302\303@\"\203\304\305\306\"\210\302\307@\"\203#\304\305\310@!\211\"\210\211A@\210\202\306\207" [lines ind string-match "^\\* " throw stop nil "^\\([ 	]*\\)\\S-" org-get-indentation] 4) 10 last string-match "[ 	]+\\(:[[:alnum:]_@#%:]+:\\)[ 	]*$" replace-match "" t org-section-number string-width (0 . 0) title org-ascii-current-indentation org-export-ascii-underline org-export-with-tags org-export-with-section-numbers] 5 (#$ . 18947)])
#@73 Insert the string S centered and underline it with character UNDERLINE.
(defalias 'org-insert-centered #[(s &optional underline) "\304	!Z\305\245\306]\307\n\310\"	\311\261\210\205$\307\n\310\"\307\304	!\"\311\261)\207" [fill-column s ind underline string-width 2 0 make-string 32 "\n"] 4 (#$ . 19940)])
(defvar org-table-colgroup-info nil)
#@34 Format a table for ascii export.
(defalias 'org-format-table-ascii #[(lines) ";\203\n\306\307\"\310\311@\"\204\207\310\312@\"\203A\237\310\312@\"\203-A\237	\2038\313!\n\203>\207\314!\315\211\211\211\211A@\211\203\244\310\"\203u\310\316\"\203\232\317\320\321\315$\202\232\322\310\323\f#\203\232\322\225
\211A@\204z\317\324\321\211$\202zB\202M\237-\207" [lines org-export-table-remove-special-lines org-export-ascii-table-keep-all-vertical-lines org-table-colgroup-info start vl1 org-split-string "\n" string-match "^[ 	]*|" "^[ 	]*|-" org-table-clean-before-export org-colgroup-info-to-vline-list nil "|\\(.*\\)|" replace-match " \\1" t 0 "|" " " line rtn vl org-table-hline-regexp] 5 (#$ . 20293)])
(defalias 'org-colgroup-info-to-vline-list #[(info) "\304\211\211\203,	\211A@\305>\204	\306>\203%\307\nB\202\304\nB\202\n\237\211\2037\n\304\240\210\n+\207" [last new vl info nil (:end :startend) (:start :startend) t] 4])
(provide 'org-ascii)
F1l3 Manager
