ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/org/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/org/ox-ascii.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.1
;;; with all optimizations.
;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
(< (aref emacs-version (1- (length emacs-version))) ?A)
(string-lessp emacs-version "23")
(error "`%s' was compiled for Emacs 23 or later" #$))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310\311\312\313\314\315&\n\210\316\317\320\321\322\323\324\325&\210\326\327\330\331\324\317\332\333\334\335\336\337& \210\326\340\341\342\324\317\332\333\334\343\336\337& \210\326\344\345\346\324\317\332\333\334\347\336\337& \210\326\350\351\352\324\317\332\333\334\353\336\337& \210\326\354\355\356\324\317\332\333\334\357\336\337& \210\326\360\361\362\324\317\332\333\334\363\336\364& \210\326\365\366\367\324\317\332\333\334\370\336\371& \210\326\372\373\374\324\317\332\333\334\375\336\376& \210\326\377\201@ \201A \324\317\332\333\334\201B \336\201C & \210\326\201D \201E \201F \324\317\332\333\334\201G \336\201H & \210\326\201I \201J \201K \324\317\332\333\334\201L \336\201M & \210\326\201N \201O \201P \324\317\332\333\334\201Q \336\201R & \210\326\201S \320\201T \324\317\332\333\334\201U \336\201R & \210\326\201V \201O \201W \324\317\332\333\334\201X \336\201R & \210\326\201Y \320\201Z \324\317\332\333\334\201[ \336\201R & \210\326\201\\ \320\201] \324\317\332\333\334\201^ \336\201R & \210\326\201_ \201` \201a \324\317\332\333\334\201b \336\201c & \210\326\201d \201e \201f \324\317\332\333\334\201g \336\201h & \210\326\201i \201j \201k \324\317\332\333\334\201l \336\201h & \207" [require ox ox-publish org-export-define-backend ascii ((bold . org-ascii-bold) (center-block . org-ascii-center-block) (clock . org-ascii-clock) (code . org-ascii-code) (comment lambda (&rest args) #1="") (comment-block lambda (&rest args) #1#) (drawer . org-ascii-drawer) (dynamic-block . org-ascii-dynamic-block) (entity . org-ascii-entity) (example-block . org-ascii-example-block) (export-block . org-ascii-export-block) (export-snippet . org-ascii-export-snippet) (fixed-width . org-ascii-fixed-width) (footnote-reference . org-ascii-footnote-reference) (headline . org-ascii-headline) (horizontal-rule . org-ascii-horizontal-rule) (inline-src-block . org-ascii-inline-src-block) (inlinetask . org-ascii-inlinetask) (inner-template . org-ascii-inner-template) (italic . org-ascii-italic) (item . org-ascii-item) (keyword . org-ascii-keyword) (latex-environment . org-ascii-latex-environment) (latex-fragment . org-ascii-latex-fragment) (line-break . org-ascii-line-break) (link . org-ascii-link) (paragraph . org-ascii-paragraph) (plain-list . org-ascii-plain-list) (plain-text . org-ascii-plain-text) (planning . org-ascii-planning) (quote-block . org-ascii-quote-block) (quote-section . org-ascii-quote-section) (radio-target . org-ascii-radio-target) (section . org-ascii-section) (special-block . org-ascii-special-block) (src-block . org-ascii-src-block) (statistics-cookie . org-ascii-statistics-cookie) (strike-through . org-ascii-strike-through) (subscript . org-ascii-subscript) (superscript . org-ascii-superscript) (table . org-ascii-table) (table-cell . org-ascii-table-cell) (table-row . org-ascii-table-row) (target . org-ascii-target) (template . org-ascii-template) (timestamp . org-ascii-timestamp) (underline . org-ascii-underline) (verbatim . org-ascii-verbatim) (verse-block . org-ascii-verse-block)) :export-block "ASCII" :menu-entry (116 "Export to Plain Text" ((65 "As ASCII buffer" (lambda (a s v b) (org-ascii-export-as-ascii a s v b '(:ascii-charset ascii)))) (97 "As ASCII file" (lambda (a s v b) (org-ascii-export-to-ascii a s v b '(:ascii-charset ascii)))) (76 "As Latin1 buffer" (lambda (a s v b) (org-ascii-export-as-ascii a s v b '(:ascii-charset latin1)))) (108 "As Latin1 file" (lambda (a s v b) (org-ascii-export-to-ascii a s v b '(:ascii-charset latin1)))) (85 "As UTF-8 buffer" (lambda (a s v b) (org-ascii-export-as-ascii a s v b '(:ascii-charset utf-8)))) (117 "As UTF-8 file" (lambda (a s v b) (org-ascii-export-to-ascii a s v b '(:ascii-charset utf-8)))))) :filters-alist ((:filter-headline . org-ascii-filter-headline-blank-lines) (:filter-parse-tree org-ascii-filter-paragraph-spacing org-ascii-filter-comment-spacing) (:filter-section . org-ascii-filter-headline-blank-lines)) :options-alist ((:ascii-charset nil nil org-ascii-charset)) custom-declare-group org-export-ascii nil "Options for exporting Org mode files to ASCII." :tag "Org Export ASCII" :group org-export custom-declare-variable org-ascii-text-width 72 "Maximum width of exported text.\nThis number includes margin size, as set in\n`org-ascii-global-margin'." :version "24.4" :package-version (Org . "8.0") :type integer org-ascii-global-margin 0 "Width of the left margin, in number of characters." (Org . "8.0") org-ascii-inner-margin 2 "Width of the inner margin, in number of characters.\nInner margin is applied between each headline." (Org . "8.0") org-ascii-quote-margin 6 "Width of margin used for quoting text, in characters.\nThis margin is applied on both sides of the text." (Org . "8.0") org-ascii-inlinetask-width 30 "Width of inline tasks, in number of characters.\nThis number ignores any margin." (Org . "8.0") org-ascii-headline-spacing '(1 . 2) "Number of blank lines inserted around headlines.\n\nThis variable can be set to a cons cell. In that case, its car\nrepresents the number of blank lines present before headline\ncontents whereas its cdr reflects the number of blank lines after\ncontents.\n\nA nil value replicates the number of blank lines found in the\noriginal Org buffer at the same place." (Org . "8.0") (choice (const :tag "Replicate original spacing" nil) (cons :tag "Set a uniform spacing" (integer :tag "Number of blank lines before contents") (integer :tag "Number of blank lines after contents"))) org-ascii-indented-line-width 'auto "Additional indentation width for the first line in a paragraph.\nIf the value is an integer, indent the first line of each\nparagraph by this width, unless it is located at the beginning of\na section, in which case indentation is removed from that line.\nIf it is the symbol `auto' preserve indentation from original\ndocument." (Org . "8.0") (choice (integer :tag "Number of white spaces characters") (const :tag "Preserve original width" auto)) org-ascii-paragraph-spacing 'auto "Number of white lines between paragraphs.\nIf the value is an integer, add this number of blank lines\nbetween contiguous paragraphs. If is it the symbol `auto', keep\nthe same number of blank lines as in the original document." (Org . "8.0") (choice (integer :tag "Number of blank lines") (const :tag "Preserve original spacing" auto)) org-ascii-charset 'ascii "The charset allowed to represent various elements and objects.\nPossible values are:\n`ascii' Only use plain ASCII characters\n`latin1' Include Latin-1 characters\n`utf-8' Use all UTF-8 characters" (Org . "8.0") (choice (const :tag "ASCII" ascii) (const :tag "Latin-1" latin1) (const :tag "UTF-8" utf-8)) org-ascii-underline '((ascii 61 126 45) (latin1 61 126 45) (utf-8 9552 9472 9548 9476 9480)) "Characters for underlining headings in ASCII export.\n\nAlist whose key is a symbol among `ascii', `latin1' and `utf-8'\nand whose value is a list of characters.\n\nFor each supported charset, this variable associates a sequence\nof underline characters. In a sequence, the characters will be\nused in order for headlines level 1, 2, ... If no character is\navailable for a given level, the headline won't be underlined." (Org . "8.0") (list (cons :tag "Underline characters sequence" (const :tag "ASCII charset" ascii) (repeat character)) (cons :tag "Underline characters sequence" (const :tag "Latin-1 charset" latin1) (repeat character)) (cons :tag "Underline characters sequence" (const :tag "UTF-8 charset" utf-8) (repeat character))) org-ascii-bullets '((ascii 42 43 45) (latin1 167 182) (utf-8 9674)) "Bullet characters for headlines converted to lists in ASCII export.\n\nAlist whose key is a symbol among `ascii', `latin1' and `utf-8'\nand whose value is a list of characters.\n\nThe first character is used for the first level considered as low\nlevel, and so on. If there are more levels than characters given\nhere, the list will be repeated.\n\nNote that this variable doesn't affect plain lists\nrepresentation." (Org . "8.0") (list (cons :tag "Bullet characters for low level headlines" (const :tag "ASCII charset" ascii) (repeat character)) (cons :tag "Bullet characters for low level headlines" (const :tag "Latin-1 charset" latin1) (repeat character)) (cons :tag "Bullet characters for low level headlines" (const :tag "UTF-8 charset" utf-8) (repeat character))) org-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\nbecomes long in this way, it will be wrapped." (Org . "8.0") boolean org-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 . "8.0") org-ascii-table-widen-columns "Non-nil means widen narrowed columns for export.\nWhen nil, narrowed columns will look in ASCII export just like in\nOrg mode, i.e. with \"=>\" as ellipsis." (Org . "8.0") org-ascii-table-use-ascii-art "Non-nil means table.el tables are turned into ascii-art.\n\nIt only makes sense when export charset is `utf-8'. It is nil by\ndefault since it requires ascii-art-to-unicode.el package. You\ncan download it here:\n\n http://gnuvola.org/software/j/aa2u/ascii-art-to-unicode.el." (Org . "8.0") org-ascii-caption-above "When non-nil, place caption string before the element.\nOtherwise, place it right after it." (Org . "8.0") org-ascii-verbatim-format "`%s'" "Format string used for verbatim text and inline code." (Org . "8.0") string org-ascii-format-drawer-function (lambda (name contents width) contents) "Function called to format a drawer in ASCII.\n\nThe function must accept three parameters:\n NAME the drawer name, like \"LOGBOOK\"\n CONTENTS the contents of the drawer.\n WIDTH the text width within the drawer.\n\nThe function should return either the string to be exported or\nnil to ignore the drawer.\n\nThe default value simply returns the value of CONTENTS." (Org . "8.0") function org-ascii-format-inlinetask-function 'org-ascii-format-inlinetask-default "Function called to format an inlinetask in ASCII.\n\nThe function must accept nine 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 WIDTH the width of the inlinetask, as a number.\n INLINETASK the inlinetask itself.\n INFO the info channel.\n\nThe function should return either the string to be exported or\nnil to ignore the inline task." (Org . "8.3")] 12)
#@466 Fill a string with specified text-width and return it.
S is the string being filled. TEXT-WIDTH is an integer
specifying maximum length of a line. INFO is the plist used as
a communication channel.
Optional argument JUSTIFY can specify any type of justification
among `left', `center', `right' or `full'. A nil value is
equivalent to `left'. For a justification that doesn't also fill
string, see `org-ascii--justify-string'.
Return nil if S isn't a string.
(defalias 'org-ascii--fill-string #[(s text-width info &optional justify) ";\2057 \306\307!r q\210\310\216\f\311\n \312\313\"\203) \314\315#\202* c\210\316ed#\210+\317 ,\207" [s sentence-end-double-space double-space-p #1=#:temp-buffer text-width use-hard-newlines generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] t plist-get :preserve-breaks replace-regexp-in-string "\n" fill-region buffer-string fill-column info hard-newline justify] 4 (#$ . 11206)])
#@170 Justify string S.
TEXT-WIDTH is an integer specifying maximum length of a line.
HOW determines the type of justification: it can be `left',
`right', `full' or `center'.
(defalias 'org-ascii--justify-string #[(s text-width how) "\306\307!rq\210\310\216 c\210eb\210\n\311 `dW\203$ \312
!\210\311y\210\202 *\313 +\207" [#1=#:temp-buffer s text-width adaptive-fill-mode fill-column how generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] nil justify-current-line buffer-string] 2 (#$ . 12193)])
#@70 Indent string S by WIDTH white spaces.
Empty lines are not indented.
(defalias 'org-ascii--indent-string #[(s width) ";\205 \302\303\304 \305\"\306\211\307&\207" [s width replace-regexp-in-string "\\(^\\)[ ]*\\S-" make-string 32 nil 1] 7 (#$ . 12736)])
#@98 Return string S with a partial box to its left.
INFO is a plist used as a communication channel.
(defalias 'org-ascii--box-string #[(s info) "\303\304\"\305=\306 \203 \307\202 \310\311\312 \203 \313\202 \314\311\315\316\n##\")\207" [info utf8p s plist-get :ascii-charset utf-8 format "┌────\n%s\n└────" ",----\n%s\n`----" replace-regexp-in-string "^" "│ " "| " "\n[ ]*\\'" ""] 9 (#$ . 13000)])
#@100 Return maximum text width for ELEMENT's contents.
INFO is a plist used as a communication channel.
(defalias 'org-ascii--current-text-width #[(element info) "\211:\204 ;\205 \306\202 @9\205 @)\307 \310\"\203% \n\202O\307 \311\"\203C \312\f\"\211 \203<
\313_\202> )Z\202O\314!B\211 ! \"\315 #\316 $\315 %\":\203\217 \"@\211#\211:\204q ;\205y \306\202y @9\205y @)\310=\211%?\211$\203\217 \"A\211\"\202X %,\203\231 \n\202\277 \317 \320!\211 #\204\252 \321\202\275 \312#\f\"\211 \203\272
\313_\202\274 &))#\211 '\322! (\315 #\321 )(:\203 (@\211#\211:\204\350 ;\205\360 \306\202\360 @9\205\360 @)\323>\203 #\203 )T)(A\211(\202\317 )+*\313#\211:\204 ;\205(\306\202(@9\205(@)\324=\2032\202\203! +\315 #\316 ,\315 -+:\203\200+@\211#\211:\204Z;\205b\306\202b@9\205b@)\324=\203s#-\315\211,\202t\316\203\200+A\211+\202A-,\211 .\204\215\321\202K\325. /;\203\241\326\321/#\202\250\327A@/\"*\330. /;\203\275\326\321/#\202\304\327A@/\"* 0 1\33101 1 \3321 1 2\211 321\2368-\3331!1 1 \3321 1 2\211 321\2368-Z\334\335.\f\"\206
\336!\33401 1 \3371 1 2\211 321\2368-\206H01 1 \3131 1 2\211 321\2368-!#*)\\Z*)\207" [element #1=#:temp org-ascii-inlinetask-width org-ascii-text-width info low-level-rank plain-text eql inlinetask headline org-export-low-level-p 2 org-export-get-genealogy nil t - org-export-get-parent-headline 0 * (quote-block quote-section verse-block) item :structure get-text-property plist-get :begin + 1 org-list-get-top-point string-width org-ascii--checkbox "" 5 org-ascii-global-margin genealogy #2=#:--cl-var-- parent #3=#:--cl-flag-- #4=#:--cl-var-- org-ascii-inner-margin total-width #5=#:--cl-var-- #6=#:--cl-var-- org-ascii-quote-margin #7=#:--cl-var-- #8=#:--cl-var-- #9=#:--cl-var-- parent-item property beg-item struct key n] 10 (#$ . 13430)])
#@539 Format ELEMENT title and return it.
ELEMENT is either an `headline' or `inlinetask' element. INFO is
a plist used as a communication channel. TEXT-WIDTH is an
integer representing the maximum length of a line.
When optional argument UNDERLINE is non-nil, underline title,
without the tags, according to `org-ascii-underline'
specifications.
If optional argument NOTAGS is non-nil, no tags will be added to
the title.
When optional argument TOC is non-nil, use optional title if
possible. It doesn't apply to `inlinetask' elements.
(defalias 'org-ascii--build-title #[(element info text-width &optional underline notags toc) "\211:\204 ;\205 \306\202 @9\205 @)\307=\211\2051 \310\n\"\2051 \311\312\313\n\"\314#\315P\316\317\f\203C \203C \320\n\"\202[ \321 ;\203T \322\323
#\202Z \324A@
\"*\n\"! '\324\n\325\"\205\215 \326 ;\203x \322\323
#\202~ \324A@
\"*\211 (\205\214 \317(\n\"\315P) ()?\205\260 \324\n\327\"\205\260 \330\n\"\211 *\205\257 \331\332\311\333*\334#\") +\324\n\335\"\205\335 \336 ;\203\312 \322\323
#\202\320 \324A@
\"*\211 ,\205\334 \331\337,\") - (-'R\211 .+\205\331\211\340/\341.!TZ\341+!]\"+\"0\2050 \2050\342\n\"S\324\n\343\"1\236A8\211 2\205/\344\345\341.!\3462!\2452\"P)Q.\207" [element headlinep info numbers toc property plain-text headline org-export-numbered-headline-p mapconcat number-to-string org-export-get-headline-number "." " " org-trim org-export-data org-export-get-alt-title :title get-text-property 0 plist-get :with-todo-keywords :todo-keyword :with-tags org-export-get-tags format ":%s:" identity ":" :with-priority :priority "(#%c) " " %%%ds" string-width org-export-get-relative-level :ascii-charset "\n" make-string char-width text todo notags tag-list tags char priority first-part text-width underline org-ascii-underline under-char] 8 (#$ . 15337)])
#@185 Non-nil when ELEMENT has a caption affiliated keyword.
INFO is a plist used as a communication channel. This function
is meant to be used as a predicate for `org-export-get-ordinal'.
(defalias 'org-ascii--has-caption-p #[(element info) "\302;\203 \303\304 #\202 \305A@ \"*\207" [element property :caption get-text-property 0 plist-get] 4 (#$ . 17201)])
#@250 Return caption string for ELEMENT, if applicable.
INFO is a plist used as a communication channel.
The caption string contains the sequence number of ELEMENT along
with its real caption. Return nil when ELEMENT has no affiliated
caption keyword.
(defalias 'org-ascii--build-caption #[(element info) "\306!\211\205S \307\n\310\311$\312\211:\204 ;\205' \313\202' @9\205' @)\314 \315\"\2034 \316\202< \314 \317\"\205< \320)\n\" \321\322\f
\"\323\324 \n\"Q\325\n\"\n#*)\207" [element caption info #1=#:temp title-fmt reference org-export-get-caption org-export-get-ordinal nil org-ascii--has-caption-p org-ascii--translate plain-text eql table "Table %d:" src-block "Listing %d:" org-ascii--fill-string format " " org-export-data org-ascii--current-text-width] 7 (#$ . 17570)])
#@290 Return a table of contents.
INFO is a plist used as a communication channel.
Optional argument N, when non-nil, is an integer specifying the
depth of the table.
Optional argument KEYWORD specifies the TOC keyword, if any, from
which the table of contents generation has been initiated.
(defalias 'org-ascii--build-toc #[(info &optional n keyword) "\306\307\"\211\310\311\312 !\313\314\"\315=\203 \316\202 \317\"\320\n\203& \321\n\"\202) \fZ \322\323\324\"\310#)\260)\207" [info title keyword org-ascii-text-width org-ascii-global-margin text-width org-ascii--translate "Table of Contents" "\n" make-string string-width plist-get :ascii-charset utf-8 9472 95 "\n\n" org-ascii--current-text-width mapconcat #[(headline) "\305 \"\211S\306_\211\307U?\205 \310 S\311\"\312P\313 \f Z\314\315 \316\"?\206- \315 \316\"\317=\320&P*\207" [headline info level indent text-width org-export-get-relative-level 3 0 make-string 46 " " org-ascii--build-title nil plist-get :with-tags not-in-toc toc] 10] org-export-collect-headlines n] 10 (#$ . 18366)])
#@150 Return a list of listings.
KEYWORD is the keyword that initiated the list of listings
generation. INFO is a plist used as a communication channel.
(defalias 'org-ascii--list-listings #[(keyword info) "\306\307\"\211\310\311\312 !\313\314\"\315=\203 \316\202 \317\"\320\n\203& \321\n\"\202) \fZ\322 \323\324\325!\310#*\260)\207" [info title keyword org-ascii-text-width org-ascii-global-margin count org-ascii--translate "List of Listings" "\n" make-string string-width plist-get :ascii-charset utf-8 9472 95 "\n\n" org-ascii--current-text-width 0 mapconcat #[(src-block) "\306\307\310\" T\211\"\311\n!\n\312\313\314\315\316\f\317\"\206 \316\f! \320
\") Z# \"!Q*\207" [info count initial-text initial-width src-block caption format org-ascii--translate "Listing %d:" string-width " " org-trim org-ascii--indent-string org-ascii--fill-string org-export-get-caption t org-export-data text-width] 8] org-export-collect-listings text-width] 9 (#$ . 19431)])
#@146 Return a list of tables.
KEYWORD is the keyword that initiated the list of tables
generation. INFO is a plist used as a communication channel.
(defalias 'org-ascii--list-tables #[(keyword info) "\306\307\"\211\310\311\312 !\313\314\"\315=\203 \316\202 \317\"\320\n\203& \321\n\"\202) \fZ\322 \323\324\325!\310#*\260)\207" [info title keyword org-ascii-text-width org-ascii-global-margin count org-ascii--translate "List of Tables" "\n" make-string string-width plist-get :ascii-charset utf-8 9472 95 "\n\n" org-ascii--current-text-width 0 mapconcat #[(table) "\306\307\310\" T\211\"\311\n!\n\312\313\314\315\316\f\317\"\206 \316\f! \320
\") Z# \"!Q*\207" [info count initial-text initial-width table caption format org-ascii--translate "Table %d:" string-width " " org-trim org-ascii--indent-string org-ascii--fill-string org-export-get-caption t org-export-data text-width] 8] org-export-collect-tables text-width] 9 (#$ . 20413)])
#@162 Return a list of unique link references in ELEMENT.
ELEMENT is either a headline element or a section element. INFO
is a plist used as a communication channel.
(defalias 'org-ascii--unique-links #[(element info) "\305\306\n\211:\204 \n;\205 \307\202 \n@9\205 \n@)\303=\203& \n\202- \310\n!\206- \n\311 \312\313\f\305\211\314&+\207" [seen unique-link-p element headline info nil #[(link) "\306 ;\203 \307\310\n #\202 \311 A@\n\"*\211:\204# \312\2020 @9\203/ AA\2020 )\211\205? \313\314\315\316\317 !!#)B \320\321\311
\322\"\"!\205] \f\235?\205] \fB)\207" [link element property contents footprint info :raw-link get-text-property 0 plist-get nil replace-regexp-in-string "[
\n]+" " " org-trim org-element-interpret-data org-string-nw-p gethash :exported-data seen] 8] plain-text org-export-get-parent-headline org-element-map link #[(l) " !\207" [unique-link-p l] 2] t] 9 (#$ . 21375)])
#@232 Return a string describing a list of links.
LINKS is a list of link type objects, as returned by
`org-ascii--unique-links'. WIDTH is the text width allowed for
the output string. INFO is a plist used as a communication
channel.
(defalias 'org-ascii--describe-links #[(links width info) "\301\302\303#\207" [links mapconcat #[(link) "\306 ;\203 \307\310\n #\202 \311 A@\n\"*\211:\204# \312\2020 @9\203/ AA\2020 )\211\203= \313 \f\"\202U \314 ;\203N \307\310\n #\202T \311 A@\n\"*) \211 \315\235\203c \312\202\335 \316\235\203\232 \317\f\" \320\321\322
\204\200 \323\324\f\"\202\217 \321\323\325\f\"\326\327\330 \f\"\331#\"# \f#\332P)\202\335 \211:\204\245 \312\202\262 @9\203\261 AA\202\262 )\204\272 \312\202\335 \320\321\322
\314 ;\203\317 \307\310\n #\202\325 \311 A@\n\"*# \f#\332P*\207" [link element property desc info anchor :type get-text-property 0 plist-get nil org-export-data :raw-link ("coderef" "radio" "fuzzy") ("custom-id" "id") org-export-resolve-id-link org-ascii--fill-string format "[%s] %s" org-ascii--translate "Unknown reference" "See section %s" mapconcat number-to-string org-export-get-headline-number "." "\n\n" type dest width] 12] ""] 4 (#$ . 22300)])
#@90 Return checkbox string for ITEM or nil.
INFO is a plist used as a communication channel.
(defalias 'org-ascii--checkbox #[(item info) "\306\307\"\310=\311\n ;\203 \312\313\f #\202 \306 A@\f\"* \314
\315\"\2033 \203/ \316\202V \317\202V \314
\320\"\203F \203B \321\202V \322\202V \314
\323\"\205V \203U \324\202V \325*\207" [info utf8p item element property #1=#:temp plist-get :ascii-charset utf-8 :checkbox get-text-property 0 eql on "☑ " "[X] " off "☐ " "[ ] " trans "☒ " "[-] "] 4 (#$ . 23522)])
#@86 Return document title, as a string.
INFO is a plist used as a communication channel.
(defalias 'org-ascii-template--document-title #[(info) "\306\307\310 \311\" \" \310 \312\"\205! \310 \313\"\211 \205 \307
\") #\310 \314\"\2051 \307\310 \315\" \" $\310 \316\"\205@ \307\317 ! \" %\f\320\230\203\344 \321%!\203y \321#!\203y #\322\323 \324%!\324#!#\325\"%\321$!\205s \326$P\327\260\202\223\321%!\203\236 \321$!\203\236 $\322\323 \324%!\324$!#\325\"%\327R\202\223\321%!\203\260 \330% \331#\327P\202\223\321#!\203\310 \321$!\203\310 #\326$\327R\202\223\321#!\203\326 #\327P\202\223\321$!\205\223$\327P\202\223\310 \332\"\333= &\fG \334_\335\245^ '\336\f' # (\322'\324#\206\320!]\324$\206\320!]\334\\ ^&\203 \337\202!\340\" )\330)\326&?\205/\326(\226\321#!\203S\321$!\203S&\203I\327\202J\341#\326$R\202~\321#!\203j&\203c\327\202d\341#P\202~\321$!\205~&\203z\327\202{\341$P\326)\321%!\205\214\327%P\327\260 \342#,.\207" [org-ascii-text-width text-width org-ascii-links-to-notes info title auth nil org-export-data plist-get :title :with-author :author :with-email :email :with-date org-export-get-date "" org-string-nw-p make-string - string-width 32 "\n" "\n\n\n" org-ascii--justify-string right :ascii-charset utf-8 2 3 org-ascii--fill-string 9473 95 "\n\n" center author email date utf8p title-len formatted-title line] 11 (#$ . 24042)])
#@142 Return complete document string after ASCII conversion.
CONTENTS is the transcoded contents string. INFO is a plist
holding export options.
(defalias 'org-ascii-inner-template #[(contents info) "\306\307\310\311 \312\" \"\313\211\205< \314\315\316 \"\211 \317\320\321\f!\311 \322\"\323=\203* \324\202+ \325\"Q)\326
Z \327\330 \326#)R*P\"!\207" [contents info org-ascii-links-to-notes definitions title org-ascii-text-width org-element-normalize-string org-ascii--indent-string org-export-collect-footnote-definitions plist-get :parse-tree nil "\n\n\n" org-ascii--translate "Footnotes" "\n" make-string string-width :ascii-charset utf-8 9472 95 "\n\n" mapconcat #[(ref) "\306\307@\"\310\3118\211\211:\204 ;\205# \312\202# @9\205# @)\313=\203} \n\211:\2044 \314\202A @9\203@ AA\202A )@\211 \211:\204T ;\205\\ \312\202\\ @9\205\\ @)\315=\204l \316\317\n
\"Q\202y \fA \fAAB\241\210\317\n
\")\202\210 \320 \317\n
\"P
#)!)\207" [ref id def element first info format "[%s] " org-trim 2 plain-text org-data nil paragraph "\n" org-export-data org-ascii--fill-string text-width] 7] org-ascii-global-margin text-width] 12 (#$ . 25466)])
#@142 Return complete document string after ASCII conversion.
CONTENTS is the transcoded contents string. INFO is a plist
holding export options.
(defalias 'org-ascii-template #[(contents info) "\306\307!\310\311\"\211\205 \312\313 !\205 \"\314P)P\n\" \306\310\315\"\f\nZ \211 ?\2062 \316=?\205A \314\317\310\320\"
\321$P*\n\"Q\207" [info depth org-ascii-global-margin contents org-ascii-text-width text-width org-ascii--indent-string org-ascii-template--document-title plist-get :with-toc org-ascii--build-toc wholenump "\n\n\n" :with-creator comment org-ascii--fill-string :creator right creator-info] 10 (#$ . 26628)])
#@114 Translate string S according to specified language and charset.
INFO is a plist used as a communication channel.
(defalias 'org-ascii--translate #[(s info) "\303\304\305\306\307\"\"!\310\n #)\207" [info charset s intern format ":%s" plist-get :ascii-charset org-export-translate] 6 (#$ . 27265)])
#@123 Transcode BOLD from Org to ASCII.
CONTENTS is the text with bold markup. INFO is a plist holding
contextual information.
(defalias 'org-ascii-bold #[(bold contents info) "\301\302\"\207" [contents format "*%s*"] 3 (#$ . 27572)])
#@144 Transcode a CENTER-BLOCK element from Org to ASCII.
CONTENTS holds the contents of the block. INFO is a plist
holding contextual information.
(defalias 'org-ascii-center-block #[(center-block contents info) "\303\304 \n\"\305#\207" [contents center-block info org-ascii--justify-string org-ascii--current-text-width center] 5 (#$ . 27810)])
#@111 Transcode a CLOCK object from Org to ASCII.
CONTENTS is nil. INFO is a plist holding contextual
information.
(defalias 'org-ascii-clock #[(clock contents info) "\305\306\307\310 \n;\203 \311\312 \n#\202 \313\nA@ \"*\n;\203+ \311\312 \n#\2021 \313\nA@ \"*!\314 \n;\203D \311\312 \n#\202J \313\nA@ \"*\211 \205Z \315\316\317\320\321\f\322\"#P)R\207" [org-clock-string clock element property time " " org-translate-time :raw-value :value get-text-property 0 plist-get :duration " => " apply format "%2s:%02s" org-split-string ":"] 11 (#$ . 28160)])
#@107 Return a CODE object from Org to ASCII.
CONTENTS is nil. INFO is a plist holding contextual
information.
(defalias 'org-ascii-code #[(code contents info) "\304\305 \n;\203 \306\307 \n#\202 \310\nA@ \"*\"\207" [org-ascii-verbatim-format code element property format :value get-text-property 0 plist-get] 6 (#$ . 28723)])
#@138 Transcode a DRAWER element from Org to ASCII.
CONTENTS holds the contents of the block. INFO is a plist
holding contextual information.
(defalias 'org-ascii-drawer #[(drawer contents info) "\306 ;\203 \307\310\n #\202 \311 A@\n\"*\312 \"
\f\f#*\207" [drawer element property info width name :drawer-name get-text-property 0 plist-get org-ascii--current-text-width org-ascii-format-drawer-function contents] 4 (#$ . 29056)])
#@145 Transcode a DYNAMIC-BLOCK element from Org to ASCII.
CONTENTS holds the contents of the block. INFO is a plist
holding contextual information.
(defalias 'org-ascii-dynamic-block #[(dynamic-block contents info) "\207" [contents] 1 (#$ . 29499)])
#@132 Transcode an ENTITY object from Org to ASCII.
CONTENTS are the definition itself. INFO is a plist holding
contextual information.
(defalias 'org-ascii-entity #[(entity contents info) "\304\305\306\307\310\"!P! \n;\203 \311\312 \n#\202 \307\nA@ \"*\207" [info entity element property intern ":" symbol-name plist-get :ascii-charset get-text-property 0] 6 (#$ . 29753)])
#@120 Transcode a EXAMPLE-BLOCK element from Org to ASCII.
CONTENTS is nil. INFO is a plist holding contextual information.
(defalias 'org-ascii-example-block #[(example-block contents info) "\302\303 \" \"\207" [example-block info org-ascii--box-string org-export-format-code-default] 4 (#$ . 30135)])
#@120 Transcode a EXPORT-SNIPPET object from Org to ASCII.
CONTENTS is nil. INFO is a plist holding contextual information.
(defalias 'org-ascii-export-snippet #[(export-snippet contents info) "\303!\304=\205 \305 ;\203 \306\307\n #\202 \310 A@\n\"*\207" [export-snippet element property org-export-snippet-backend ascii :value get-text-property 0 plist-get] 4 (#$ . 30441)])
#@119 Transcode a EXPORT-BLOCK element from Org to ASCII.
CONTENTS is nil. INFO is a plist holding contextual information.
(defalias 'org-ascii-export-block #[(export-block contents info) "\303 ;\203 \304\305\n #\202 \306 A@\n\"*\307\230\2057 \310\311 ;\203/ \304\305\n #\2025 \306 A@\n\"*!\207" [export-block element property :type get-text-property 0 plist-get "ASCII" org-remove-indentation :value] 5 (#$ . 30826)])
#@118 Transcode a FIXED-WIDTH element from Org to ASCII.
CONTENTS is nil. INFO is a plist holding contextual information.
(defalias 'org-ascii-fixed-width #[(fixed-width contents info) "\304\305\306 ;\203 \307\310\n #\202 \311 A@\n\"*! \"\207" [fixed-width element property info org-ascii--box-string org-remove-indentation :value get-text-property 0 plist-get] 6 (#$ . 31255)])
#@125 Transcode a FOOTNOTE-REFERENCE element from Org to ASCII.
CONTENTS is nil. INFO is a plist holding contextual information.
(defalias 'org-ascii-footnote-reference #[(footnote-reference contents info) "\302\303\304 \"\"\207" [footnote-reference info format "[%s]" org-export-get-footnote-number] 5 (#$ . 31641)])
#@143 Transcode a HEADLINE element from Org to ASCII.
CONTENTS holds the contents of the headline. INFO is a plist
holding contextual information.
(defalias 'org-ascii-headline #[(headline contents info) "\306 ;\203 \307\310\n #\202 \311 A@\n\"*?\205\353 \312 \" \313 \" \314 \2032 @\202J \315 ;\203C \307\310\n #\202I \311 A@\n\"*\316\" \211:\204Y \317\202f @9\203e AA\202f )@@\320=?\205\230 \321 ;\203\200 \307\310\n #\202\206 \311 A@\n\"*\211 !:\205\227 \322\323! \"
#) \"\f\203\324 \311 \324\"#\236A $\325\326\fS$G\"$8!)\327\330
#\331 \332%\333\"!\205\314 \334\"PP\335\"\260\202\352 \330
\336$\331 \333\"!\205\346 \"%PR,\207" [headline element property info low-level-rank width :footnote-section-p get-text-property 0 plist-get org-export-low-level-p org-ascii--current-text-width make-string :pre-blank 10 nil section :title org-ascii--describe-links org-ascii--unique-links :ascii-charset char-to-string mod " " org-ascii--build-title "\n" org-ascii--indent-string org-string-nw-p "\n\n" 2 underline org-ascii-headline-spacing pre-blanks title links org-ascii-bullets bullets contents] 10 (#$ . 31962)])
#@122 Transcode an HORIZONTAL-RULE object from Org to ASCII.
CONTENTS is nil. INFO is a plist holding contextual
information.
(defalias 'org-ascii-horizontal-rule #[(horizontal-rule contents info) "\304 \"\305\306\307#\310\311\n\203 \312\313\n\"\203 \314\n!\202 \315 \316\"\317=\203, \320\202- \321\" \322#*\207" [horizontal-rule info spec-width text-width org-ascii--current-text-width org-export-read-attribute :attr_ascii :width org-ascii--justify-string make-string string-match "^[0-9]+$" string-to-number plist-get :ascii-charset utf-8 8213 45 center] 6 (#$ . 33115)])
#@148 Transcode an INLINE-SRC-BLOCK element from Org to ASCII.
CONTENTS holds the contents of the item. INFO is a plist holding
contextual information.
(defalias 'org-ascii-inline-src-block #[(inline-src-block contents info) "\304\305 \n;\203 \306\307 \n#\202 \310\nA@ \"*\"\207" [org-ascii-verbatim-format inline-src-block element property format :value get-text-property 0 plist-get] 6 (#$ . 33700)])
#@129 Format an inline task element for ASCII export.
See `org-ascii-format-inlinetask-function' for a description
of the parameters.
(defalias 'org-ascii-format-inlinetask-default #[(todo type priority name tags contents width inlinetask info) "\306\307\"\310=\n\206\f \311\312\n \203 \313\202 \314\"\315 ?\205& \312\n\316\"\315P\317\f\n# \320
!\nX\2038
\202= \321
\n#)\315\322!\205V \312\n \203P \323\202Q \324\"\315Q\312\n \203` \313\202a \314\"\260\325\326\f!\204s \327\202u \330\f\"$\"*\207" [info utf8p width org-ascii-inlinetask-width inlinetask title plist-get :ascii-charset utf-8 org-ascii--indent-string make-string 9473 95 "\n" 32 org-ascii--build-title string-width org-ascii--fill-string org-string-nw-p 9472 45 - org-export-get-parent-headline 0 org-ascii--current-text-width contents org-ascii-text-width org-ascii-global-margin org-ascii-inner-margin] 10 (#$ . 34110)])
#@143 Transcode an INLINETASK element from Org to ASCII.
CONTENTS holds the contents of the block. INFO is a plist
holding contextual information.
(defalias 'org-ascii-inlinetask #[(inlinetask contents info) "\306 \" \307 \310\"\2051 \311 \f;\203 \312\313
\f#\202$ \307\fA@
\"*\211 \2050 \314 \")\315 \f;\203B \312\313
\f#\202H \307\fA@
\"*\307 \316\"\205h \317 \f;\203a \312\313
\f#\202g \307\fA@
\"*\314\320 \f;\203z \312\313
\f#\202\200 \307\fA@
\"* \"\307 \321\"\205\242 \322 \f;\203\233 \312\313
\f#\202\241 \307\fA@
\"*\n & )\207" [inlinetask info width org-ascii-format-inlinetask-function element property org-ascii--current-text-width plist-get :with-todo-keywords :todo-keyword get-text-property 0 org-export-data :todo-type :with-priority :priority :title :with-tags :tags todo contents] 11 (#$ . 35019)])
#@127 Transcode italic from Org to ASCII.
CONTENTS is the text with italic markup. INFO is a plist holding
contextual information.
(defalias 'org-ascii-italic #[(italic contents info) "\301\302\"\207" [contents format "/%s/"] 3 (#$ . 35857)])
#@136 Transcode an ITEM element from Org to ASCII.
CONTENTS holds the contents of the item. INFO is a plist holding
contextual information.
(defalias 'org-ascii-item #[(item contents info) "\306\307\"\310=\311\n\"\312\n \313\f 3
;\203\" \314\3153
#\202) \306
A@3\"+ 3
;\203; \314\3153
#\202B \306
A@3\"* 4\3164\317\"\203q \320\321\n 3
;\203b \314\3153
#\202i \306
A@3\"*\"\322Q\202!\3164\323\"\203\354 \324\n 3
;\203\214 \314\3153
#\202\223 \306
A@3\"* 5\325\n 3
;\203\251 \314\3153
#\202\260 \306
A@3\"* 6\326\327\330\331\n 3
;\203\311 \314\3153
#\202\320 \306
A@3\"*5\3325!\3335!$!@! 7\334\33576#+\202!\325\n 3
;\203\377 \314\3153
#\202\306
A@3\"* 6 \2046\202 \334\336\337\334\340\341\334\342\3436###) 8\344 9\345\216:\203;\346:8\"\203;\347\202<\350 ;\346\3518\"\203R\352;\353\2118\354%\202T8,\211 84\317=?\205a \355<\3568!\" <\n\211 :\204v\353\202\203
@9\203\202
AA\202\203
)@\211 :\204\224
;\205\234\357\202\234
@9\205\234
@)\360=\203\251\361<!\202\255\362<P)Q,\207" [info utf8p item checkbox blob element plist-get :ascii-charset utf-8 org-ascii--checkbox :type :parent get-text-property 0 eql descriptive org-export-data :tag ": " ordered :structure :bullet number-to-string last org-list-get-item-number :begin org-list-prevs-alist org-list-parents-alist replace-regexp-in-string "[0-9]+" "-" "•" "+" "⁃" "*" "‣" match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] string-match " " " " "\\S-+\\([ ]*\\)" replace-match nil 1 org-ascii--indent-string string-width plain-text paragraph org-trim "\n" property list-type struct bul num bullet save-match-data-internal org-list-two-spaces-after-bullet-regexp spaces contents] 11 (#$ . 36103)])
#@114 Transcode a KEYWORD element from Org to ASCII.
CONTENTS is nil. INFO is a plist holding contextual
information.
(defalias 'org-ascii-keyword #[(keyword contents info) "\306 ;\203 \307\310\n #\202 \311 A@\n\"*\312 ;\203) \307\310\n #\202/ \311 A@\n\"*\211 \313\230\203< \202\213 \f\314\230\205\213 \227\315\316 \"\203s \315\317 \"\203\\ \320\321\310 \"!\206` \311
\322\" \323
\324!\205m #)\202\212 \325\230\203\200 \326
\"\202\212 \327\230\205\212 \330
\")*\207" [keyword element property value key info :key get-text-property 0 plist-get :value "ASCII" "TOC" string-match "\\<headlines\\>" "[0-9]+" string-to-number match-string :with-toc org-ascii--build-toc wholenump "tables" org-ascii--list-tables "listings" org-ascii--list-listings depth] 6 (#$ . 37868)])
#@124 Transcode a LATEX-ENVIRONMENT element from Org to ASCII.
CONTENTS is nil. INFO is a plist holding contextual
information.
(defalias 'org-ascii-latex-environment #[(latex-environment contents info) "\304\305\"\205! \306\307 \n;\203 \310\311 \n#\202 \304\nA@ \"*!\207" [info latex-environment element property plist-get :with-latex org-remove-indentation :value get-text-property 0] 5 (#$ . 38660)])
#@120 Transcode a LATEX-FRAGMENT object from Org to ASCII.
CONTENTS is nil. INFO is a plist holding contextual
information.
(defalias 'org-ascii-latex-fragment #[(latex-fragment contents info) "\304\305\"\205 \306 \n;\203 \307\310 \n#\202 \304\nA@ \"*\207" [info latex-fragment element property plist-get :with-latex :value get-text-property 0] 4 (#$ . 39071)])
#@118 Transcode a LINE-BREAK object from Org to ASCII.
CONTENTS is nil. INFO is a plist holding contextual
information.
(defalias 'org-ascii-line-break #[(line-break contents info) "\207" [hard-newline] 1 (#$ . 39441)])
#@156 Transcode a LINK object from Org to ASCII.
DESC is the description part of the link, or the empty string.
INFO is a plist holding contextual information.
(defalias 'org-ascii-link #[(link desc info) "\306 ;\203 \307\310\n #\202 \311 A@\n\"*\312 ;\203) \307\310\n #\202/ \311 A@\n\"* \313\230\203a \314 ;\203I \307\310\n #\202O \311 A@\n\"* \315\316
\"\317
\"\")\202\316 \320\230\203l \202\316 \321\230\203\260 \322 \" \323 !\203\205 \202\254 \205\254 \324 \325\326$\211 \205\253 :\204\245 \327 !\202\253 \330\327 \331#))\202\316 \323 !\204\276 \315\332\f\"\202\316 \315\332 \" ?\205\315 \315\333\f\"P*\207" [link element property type raw-link ref :raw-link get-text-property 0 plist-get :type "coderef" :path format org-export-get-coderef-format org-export-resolve-coderef "radio" "fuzzy" org-export-resolve-fuzzy-link org-string-nw-p org-export-get-ordinal nil org-ascii--has-caption-p number-to-string mapconcat "." "[%s]" " (%s)" desc info destination number org-ascii-links-to-notes] 6 (#$ . 39666)])
#@158 Transcode a PARAGRAPH element from Org to ASCII.
CONTENTS is the contents of the paragraph, as a string. INFO is
the plist used as a communication channel.
(defalias 'org-ascii-paragraph #[(paragraph contents info) "\306\307!\204 \202X \310\n \"?\205J \n \311\f
;\203( \312\313
#\202/ \314
A@\"+\211 :\204?
;\205G \315\202G
@9\205G
@)\316=?\205R \317\320\"\321\322\323 #P\324\n \" #\207" [org-ascii-indented-line-width contents paragraph info blob element org-ascii--fill-string wholenump org-export-get-previous-element :parent get-text-property 0 plist-get plain-text section make-string 32 replace-regexp-in-string "\\`[ ]+" "" org-ascii--current-text-width property] 7 (#$ . 40720)])
#@138 Transcode a PLAIN-LIST element from Org to ASCII.
CONTENTS is the contents of the list. INFO is a plist holding
contextual information.
(defalias 'org-ascii-plain-list #[(plain-list contents info) "\207" [contents] 1 (#$ . 41431)])
#@93 Transcode a TEXT string from Org to ASCII.
INFO is a plist used as a communication channel.
(defalias 'org-ascii-plain-text #[(text info) "\303\304\"\305=\211\203 \303\306\"\203 \307\n\310#\303\311\"\204# \n\202> \312\313\314\n# \2041 \n\202> \312\315\316\312\317\320\312\321\322\n###)\207" [info utf8p text plist-get :ascii-charset utf-8 :with-smart-quotes org-export-activate-smart-quotes :utf-8 :with-special-strings replace-regexp-in-string "\\\\-" "" "\\.\\.\\." "…" "--" "–" "---" "—"] 11 (#$ . 41671)])
#@116 Transcode a PLANNING element from Org to ASCII.
CONTENTS is nil. INFO is a plist used as a communication
channel.
(defalias 'org-ascii-planning #[(planning contents info) "\306\307\310\311\312 ;\203 \313\314\n #\202 \315 A@\n\"*\211\205> \f\316\317\320 ;\2035 \313\314\n #\202; \315 A@\n\"*!Q)\321 ;\203P \313\314\n #\202V \315 A@\n\"*\211 \205z \316\317\320
;\203q \313\314\n #\202w \315 A@\n\"*!Q)\322 ;\203\214 \313\314\n #\202\222 \315 A@\n\"*\211 \205\270 \316\317\320 ;\203\257 \313\314\n #\202\265 \315 A@\n\"*!Q)E\"\316#\207" [planning element property closed org-closed-string deadline mapconcat identity delq nil :closed get-text-property 0 plist-get " " org-translate-time :raw-value :deadline :scheduled org-deadline-string scheduled org-scheduled-string] 14 (#$ . 42203)])
#@143 Transcode a QUOTE-BLOCK element from Org to ASCII.
CONTENTS holds the contents of the block. INFO is a plist
holding contextual information.
(defalias 'org-ascii-quote-block #[(quote-block contents info) "\302 \"\207" [contents org-ascii-quote-margin org-ascii--indent-string] 3 (#$ . 43024)])
#@120 Transcode a QUOTE-SECTION element from Org to ASCII.
CONTENTS is nil. INFO is a plist holding contextual information.
(defalias 'org-ascii-quote-section #[(quote-section contents info) "\306 \"\307\310\311\n;\203 \312\313 \n#\202 \314\nA@ \"*! \" \315\f\316! \317 \"\2038 \313\202: )\\\"*\207" [quote-section info element property value width org-ascii--current-text-width org-export-data org-remove-indentation :value get-text-property 0 plist-get org-ascii--indent-string org-export-get-parent-headline org-export-low-level-p org-ascii-quote-margin headline org-ascii-inner-margin] 7 (#$ . 43327)])
#@141 Transcode a RADIO-TARGET object from Org to ASCII.
CONTENTS is the contents of the target. INFO is a plist holding
contextual information.
(defalias 'org-ascii-radio-target #[(radio-target contents info) "\207" [contents] 1 (#$ . 43951)])
#@138 Transcode a SECTION element from Org to ASCII.
CONTENTS is the contents of the section. INFO is a plist holding
contextual information.
(defalias 'org-ascii-section #[(section contents info) "\306 \205 \307\310\n \"\311\n \" # \312\f!\205 \313\fP)P\314\n!\211 \203, \315
\"\2030 \316\2022 )\"\207" [contents org-ascii-links-to-notes section info links headline org-ascii--indent-string org-ascii--describe-links org-ascii--unique-links org-ascii--current-text-width org-string-nw-p "\n\n" org-export-get-parent-headline org-export-low-level-p 0 org-ascii-inner-margin] 8 (#$ . 44199)])
#@145 Transcode a SPECIAL-BLOCK element from Org to ASCII.
CONTENTS holds the contents of the block. INFO is a plist
holding contextual information.
(defalias 'org-ascii-special-block #[(special-block contents info) "\207" [contents] 1 (#$ . 44799)])
#@140 Transcode a SRC-BLOCK element from Org to ASCII.
CONTENTS holds the contents of the item. INFO is a plist holding
contextual information.
(defalias 'org-ascii-src-block #[(src-block contents info) "\305 \"\306 \"\n\307\232\203 \307\2020 \205 \f\205 \310P\311\n \" \205/ \f?\205/ \310 PQ*\207" [src-block info code caption org-ascii-caption-above org-ascii--build-caption org-export-format-code-default "" "\n" org-ascii--box-string] 4 (#$ . 45053)])
#@123 Transcode a STATISTICS-COOKIE object from Org to ASCII.
CONTENTS is nil. INFO is a plist holding contextual information.
(defalias 'org-ascii-statistics-cookie #[(statistics-cookie contents info) "\303 ;\203 \304\305\n #\202 \306 A@\n\"*\207" [statistics-cookie element property :value get-text-property 0 plist-get] 4 (#$ . 45520)])
#@138 Transcode a SUBSCRIPT object from Org to ASCII.
CONTENTS is the contents of the object. INFO is a plist holding
contextual information.
(defalias 'org-ascii-subscript #[(subscript contents info) "\304 ;\203 \305\306\n #\202 \307 A@\n\"*\203 \310\311 \"\207\310\312 \"\207" [subscript element property contents :use-brackets-p get-text-property 0 plist-get format "_{%s}" "_%s"] 4 (#$ . 45867)])
#@140 Transcode a SUPERSCRIPT object from Org to ASCII.
CONTENTS is the contents of the object. INFO is a plist holding
contextual information.
(defalias 'org-ascii-superscript #[(superscript contents info) "\304 ;\203 \305\306\n #\202 \307 A@\n\"*\203 \310\311 \"\207\310\312 \"\207" [superscript element property contents :use-brackets-p get-text-property 0 plist-get format "^{%s}" "^%s"] 4 (#$ . 46276)])
#@139 Transcode STRIKE-THROUGH from Org to ASCII.
CONTENTS is text with strike-through markup. INFO is a plist
holding contextual information.
(defalias 'org-ascii-strike-through #[(strike-through contents info) "\301\302\"\207" [contents format "+%s+"] 3 (#$ . 46693)])
#@134 Transcode a TABLE element from Org to ASCII.
CONTENTS is the contents of the table. INFO is a plist holding
contextual information.
(defalias 'org-ascii-table #[(table contents info) "\306 \"\211\205 \205 \n\307P\310 \f;\203! \311\312
\f#\202' \313\fA@
\"*\314=\2032 \202\236 \203\204 \313 \315\"\316=\203\204 \317\320\321\322#\203\204 \323\324! r q\210\325\216\326\327 \f;\203f \311\312
\f#\202l \313\fA@
\"*!c\210eb\210\330 \210db\210\331\321x\210e`{+\202\236 \326\327 \f;\203\226 \311\312
\f#\202\234 \313\fA@
\"*! ?\205\244 \nQ)\207" [table info caption org-ascii-caption-above element property org-ascii--build-caption "\n" :type get-text-property 0 plist-get org :ascii-charset utf-8 require ascii-art-to-unicode nil t generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] org-remove-indentation :value aa2u "
\n" contents org-ascii-table-use-ascii-art #1#] 7 (#$ . 46967)])
#@292 Return width of TABLE-CELL.
INFO is a plist used as a communication channel.
Width of a cell is determined either by a width cookie in the
same column as the cell, or by the maximum cell's length in that
column.
When `org-ascii-table-widen-columns' is non-nil, width cookies
are ignored.
(defalias 'org-ascii--table-cell-width #[(table-cell info) "\306 \n;\203 \307\310 \n#\202 \311\nA@ \"+\211 \306 \n;\203. \307\310 \n#\2024 \311\nA@ \"+ \f\211:\204A \312\202N \n@9\203M \nAA\202N \n)\211 G>GZ) \311\313\"\206s \311\314\313\315\316\317\"#\211\313\"
B \320\"\206\306 \321\322\" \204\230 \206\302 \310 \323
\324\325$\210 ) \204\262 \202\301 \203\277 ]\202\301 ))#-\207" [table-cell blob element property row table :parent get-text-property 0 plist-get nil :ascii-table-cell-width-cache plist-put make-hash-table :test equal gethash puthash org-export-table-cell-width org-element-map table-row #[(row) "\305\306\211:\204
\307\202 @9\203 AA\202 )\n\234\211:\204' \307\2024 @9\2033 AA\2024 ) \"!\f]\211\207" [row element col info max-width string-width org-export-data nil] 5] cells col info cache key cookie-width org-ascii-table-widen-columns max-width contents-width] 8 (#$ . 47928)])
#@131 Transcode a TABLE-CELL object from Org to ASCII.
CONTENTS is the cell contents. INFO is a plist used as
a communication channel.
(defalias 'org-ascii-table-cell #[(table-cell contents info) "\306 \" \204 \307\f\206 \310!\nX\204 \f\311\n\312ZO\313P\314 \f\205, \315\f\n\316 \"#\211 \317\n\307\2068 \310!Z\320\"P*\321\322\f\"\323\324 \">\205Z \325 \326\"\327=\203Y \330\202Z \331P)\207" [table-cell info width org-ascii-table-widen-columns contents indent-tabs-mode org-ascii--table-cell-width string-width "" 0 2 "=>" nil org-ascii--justify-string org-export-table-cell-alignment make-string 32 format " %s " right org-export-table-cell-borders plist-get :ascii-charset utf-8 "│" "|" data] 7 (#$ . 49197)])
#@130 Transcode a TABLE-ROW element from Org to ASCII.
CONTENTS is the row contents. INFO is a plist used as
a communication channel.
(defalias 'org-ascii-table-row #[(table-row contents info) "\306 ;\203 \307\310\n #\202 \311 A@\n\"*\312=\205\257 \313\311 \314\"\315=\316\317\320\321 \322% \" (\323\f>\203Z
\204B \324\f>\203Z
\203P (\325\326\327\330$\202u (\331\332\331\211$\202u \324\f>\205u
\203n (\333\334\335\336$\202u (\331\332\331\211$\337\f>\205\204
\203\203 \340\202\204 \341)\342\343\f>\205\254
\204\227 \344\f>\205\254
\203\245 (\345\326\346\347$\202\254 (\331\332\331\211$\260+\207" [table-row element property info borders utf8p :type get-text-property 0 plist-get standard #[(lcorner horiz vert rcorner) "\302\303\304\305\306 $\"\307P\207" [table-row info apply concat org-element-map table-cell #[(cell) "\306 \"\307 \"\310\n>\205 \311\f\312\313 \314%=\205
\315\316 \\\317!\"\320\n>\2040 \321\202\\ \322\f\211 :\204= \321\202M @9\203K AA\202M )!@=\203Z \202\\ Q*\207" [cell info borders width table-row lcorner org-ascii--table-cell-width org-export-table-cell-borders left org-element-map table-cell identity t make-string 2 string-to-char right nil last horiz element rcorner vert] 7] "\n"] 7] :ascii-charset utf-8 org-export-table-cell-borders org-element-map table-cell identity t top above "┍" "━" "┯" "┑" "+" "-" "├" "─" "┼" "┤" left "│" "|" "\n" bottom below "┕" "┷" "┙" build-hline contents] 9 (#$ . 49925)])
#@115 Transcode a TIMESTAMP object from Org to ASCII.
CONTENTS is nil. INFO is a plist holding contextual information.
(defalias 'org-ascii-timestamp #[(timestamp contents info) "\302\303! \"\207" [timestamp info org-ascii-plain-text org-timestamp-translate] 3 (#$ . 51428)])
#@133 Transcode UNDERLINE from Org to ASCII.
CONTENTS is the text with underline markup. INFO is a plist
holding contextual information.
(defalias 'org-ascii-underline #[(underline contents info) "\301\302\"\207" [contents format "_%s_"] 3 (#$ . 51707)])
#@111 Return a VERBATIM object from Org to ASCII.
CONTENTS is nil. INFO is a plist holding contextual information.
(defalias 'org-ascii-verbatim #[(verbatim contents info) "\304\305 \n;\203 \306\307 \n#\202 \310\nA@ \"*\"\207" [org-ascii-verbatim-format verbatim element property format :value get-text-property 0 plist-get] 6 (#$ . 51965)])
#@135 Transcode a VERSE-BLOCK element from Org to ASCII.
CONTENTS is verse block contents. INFO is a plist holding
contextual information.
(defalias 'org-ascii-verse-block #[(verse-block contents info) "\305 \"\306\307 \n\310#\f\")\207" [verse-block info verse-width contents org-ascii-quote-margin org-ascii--current-text-width org-ascii--indent-string org-ascii--justify-string left] 5 (#$ . 52314)])
#@327 Filter controlling number of blank lines after a headline.
HEADLINE is a string representing a transcoded headline.
BACK-END is symbol specifying back-end used for export. INFO is
plist containing the communication channel.
This function only applies to `ascii' back-end. See
`org-ascii-headline-spacing' for information.
(defalias 'org-ascii-filter-headline-blank-lines #[(headline back-end info) "\204 \207\303AT\304\"\305\306\n #)\207" [org-ascii-headline-spacing headline blanks make-string 10 replace-regexp-in-string "\n\\(?:\n[ ]*\\)*\\'"] 4 (#$ . 52721)])
#@250 Filter controlling number of blank lines between paragraphs.
TREE is the parse tree. BACK-END is the symbol specifying
back-end used for export. INFO is a plist used as
a communication channel.
See `org-ascii-paragraph-spacing' for information.
(defalias 'org-ascii-filter-paragraph-spacing #[(tree back-end info) "\302!\203\f \303 \304\305#\210 \207" [org-ascii-paragraph-spacing tree wholenump org-element-map paragraph #[(p) "\306 \"\211:\204 \n;\205 \307\202 \n@9\205 \n@)\310=\205B \311 \211;\2035 \312\n\313
\f$\202A \nA\314\nA@
\f#\240\210\n+\207" [p info element org-ascii-paragraph-spacing value property org-export-get-next-element plain-text paragraph :post-blank org-add-props nil plist-put] 6]] 4 (#$ . 53302)])
#@182 Filter removing blank lines between comments.
TREE is the parse tree. BACK-END is the symbol specifying
back-end used for export. INFO is a plist used as
a communication channel.
(defalias 'org-ascii-filter-comment-spacing #[(tree backend info) "\301\302\303#\210\207" [tree org-element-map (comment comment-block) #[(c) "\305 \"\211:\204 \n;\205 \306\202 \n@9\205 \n@)\307>\205B \310\311 \211;\2035 \312\n\313\f $\202A \nA\314\nA@\f #\240\210\n+\207" [c info element value property org-export-get-next-element plain-text (comment comment-block) :post-blank 0 org-add-props nil plist-put] 6]] 4 (#$ . 54049)])
#@935 Export current buffer to a text buffer.
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 buffer 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, strip title and
table of contents from output.
EXT-PLIST, when provided, is a property list with external
parameters overriding Org default settings, but still inferior to
file-local settings.
Export is done in a buffer named "*Org ASCII Export*", which
will be displayed when `org-export-show-temporary-export-buffer'
is non-nil.
(defalias 'org-ascii-export-as-ascii #[(&optional async subtreep visible-only body-only ext-plist) "\305\306\307 \n \f\310&\207" [async subtreep visible-only body-only ext-plist org-export-to-buffer ascii "*Org ASCII Export*" #[nil "\300 \207" [text-mode] 1]] 9 (#$ . 54679) nil])
#@820 Export current buffer to a text 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, strip title and
table of contents from output.
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.
(defalias 'org-ascii-export-to-ascii #[(&optional async subtreep visible-only body-only ext-plist) "\306\307\"\310\311 \n \f
&)\207" [subtreep file async visible-only body-only ext-plist org-export-output-file-name ".txt" org-export-to-file ascii] 8 (#$ . 55903) nil])
#@205 Publish an Org file to ASCII.
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.
(defalias 'org-ascii-publish-to-ascii #[(plist filename pub-dir) "\303\304\305\306\304 BB\n%\207" [filename plist pub-dir org-publish-org-to ascii ".txt" :ascii-charset] 7 (#$ . 57002)])
#@207 Publish an Org file to Latin-1.
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.
(defalias 'org-ascii-publish-to-latin1 #[(plist filename pub-dir) "\303\304\305\306\307 BB\n%\207" [filename plist pub-dir org-publish-org-to ascii ".txt" :ascii-charset latin1] 7 (#$ . 57401)])
#@205 Publish an org file to UTF-8.
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.
(defalias 'org-ascii-publish-to-utf8 #[(plist filename pub-dir) "\303\304\305\306\307 BB\n%\207" [filename plist pub-dir org-publish-org-to ascii ".txt" :ascii-charset utf-8] 7 (#$ . 57810)])
(provide 'ox-ascii)
Kontol Shell Bypass