;ELC ;;; Compiled ;;; in Emacs version 24.5.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\341\355\324\317\332\356\334\357\336\337& \210\326\360\361\362\324\317\332\333\334\363\336\337& \210\326\364\365\366\324\317\332\333\334\367\336\370& \210\326\371\372\373\324\317\332\333\334\374\336\375& \210\326\376\377\201@\324\317\332\333\334\201A\336\201B& \210\326\201C\201D\201E\324\317\332\333\334\201F\336\201G& \210\326\201H\201I\201J\324\317\332\333\334\201K\336\201L& \210\326\201M\201N\201O\324\317\332\333\334\201P\336\201Q& \210\326\201R\201S\201T\324\317\332\333\334\201U\336\201V& \210\326\201W\320\201X\324\317\332\333\334\201Y\336\201V& \210\326\201Z\201S\201[\324\317\332\333\334\201\\\336\201V& \210\326\201]\320\201^\324\317\332\333\334\201_\336\201V& \210\326\201`\320\201a\324\317\332\333\334\201b\336\201V& \210\326\201c\201d\201e\324\317\332\333\334\201f\336\201g& \210\326\201h\201i\201j\324\317\332\333\334\201k\336\201l& \210\326\201m\201n\201o\324\317\332\333\334\201p\336\201l& \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) (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) (node-property . org-ascii-node-property) (paragraph . org-ascii-paragraph) (plain-list . org-ascii-plain-list) (plain-text . org-ascii-plain-text) (planning . org-ascii-planning) (property-drawer . org-ascii-property-drawer) (quote-block . org-ascii-quote-block) (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 ((:subtitle "SUBTITLE" nil nil parse) (:ascii-bullets nil nil org-ascii-bullets) (:ascii-caption-above nil nil org-ascii-caption-above) (:ascii-charset nil nil org-ascii-charset) (:ascii-global-margin nil nil org-ascii-global-margin) (:ascii-format-drawer-function nil nil org-ascii-format-drawer-function) (:ascii-format-inlinetask-function nil nil org-ascii-format-inlinetask-function) (:ascii-headline-spacing nil nil org-ascii-headline-spacing) (:ascii-indented-line-width nil nil org-ascii-indented-line-width) (:ascii-inlinetask-width nil nil org-ascii-inlinetask-width) (:ascii-inner-margin nil nil org-ascii-inner-margin) (:ascii-links-to-notes nil nil org-ascii-links-to-notes) (:ascii-list-margin nil nil org-ascii-list-margin) (:ascii-paragraph-spacing nil nil org-ascii-paragraph-spacing) (:ascii-quote-margin nil nil org-ascii-quote-margin) (:ascii-table-keep-all-vertical-lines nil nil org-ascii-table-keep-all-vertical-lines) (:ascii-table-use-ascii-art nil nil org-ascii-table-use-ascii-art) (:ascii-table-widen-columns nil nil org-ascii-table-widen-columns) (:ascii-text-width nil nil org-ascii-text-width) (:ascii-underline nil nil org-ascii-underline) (:ascii-verbatim-format nil nil org-ascii-verbatim-format)) 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-list-margin "Width of margin used for plain lists, in characters.\nThis margin applies to top level list only, not to its\nsub-lists." "25.1" (Org . "8.3") 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) #@496 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-lines' and `org-ascii--justify-block'. 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*" ((byte-code "\301!\203\n\302!\210\301\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 (#$ . 12590)]) #@183 Justify all lines in 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-lines #[(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*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) nil justify-current-line buffer-string] 2 (#$ . 13623)]) #@280 Justify CONTENTS of ELEMENT. INFO is a plist used as a communication channel. Justification is done according to the type of element. More accurately, paragraphs are filled and other elements are justified as blocks, that is according to the widest non blank line in CONTENTS. (defalias 'org-ascii--justify-element #[(contents element info) "\306!\204\207\307 \n\"\310 ! \211:\204! ;\205)\311\202) @9\205) @)\312=\2038\313\f\n $\202V \314=\203B\202V\315\316!r q\210\317\216c\210eb\210\320\321\215+*\207" [contents element info how text-width #1=#:temp-buffer org-string-nw-p org-ascii--current-text-width org-ascii--current-justification plain-text paragraph org-ascii--fill-string left generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) exit (byte-code "\306\212m\2045\307\310\311!)\262\204/\312\210i\211 Y\203&\313\314\f\"\210\202.\nV\203.\n)\312y\210\202) Z \315=\203C\316\202D\317\245\320!\203V\313\314\f\"\210\202qm\204q\307\310\311!)\262\204k\321!\210\312y\210\202V*\322 \207" [max-width inhibit-changing-match-data column text-width contents how 0 "[ ]*$" t looking-at nil throw exit right 1 2 zerop org-indent-to-column buffer-string offset] 4)] 6 (#$ . 14195)]) #@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 (#$ . 15485)]) #@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 (#$ . 15749)]) #@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(\311\n\312\"\202\360\307 \313\"\203K\311\n\314\"\315\n\"\211\203B \316_\202F\311\n\317\")Z\202\360\320\321\322#\211\321*\322+\321, :\203\221 @\211*\211:\204u;\205}\306\202}@9\205}@)\310=\211,?\211+\203\221 A\211\202],,\203\236\311\n\312\"\202\313\323\311\n\314\"\311\n\317\"\324!\211*\204\264\325\202\311\315*\n\"\211\203\304 \316_\202\310\311\n\326\"))#\211-\327\330\f.\321*\325/.:\203.@\211*\211:\204\364;\205\374\306\202\374@9\205\374@)\331>\203\f*\203\f/T/.A\211.\202\333/+\311\n\332\"\316#\3250\f\3211\2112\203\2312@\2111\211:\204@;\205H\306\202H@9\205H@)\333=\203\22013\33434;\203f\335\3254#\202m\311A@4\"+\211:\204};\205\205\306\202\205@9\205\205@)\336=\204\2200T02A\2112\204+\32110+\311\n\337\"_\211:\204\264;\205\274\306\202\274@9\205\274@)\336=\203\306\202\f5\321*\3226\32175:\2035@\211*\211:\204\355;\205\365\306\202\365@9\205\365@)\336=\203*7\321\2116\202\322\2035A\2115\202\3247,\211\204 \325\202\354\3404;\2034\335\3254#\202;\311A@4\"*\3414;\203P\335\3254#\202W\311A@4\"*89\327899\34299:\211;:9\2368-\3439!99\34299:\211;:9\2368-Z\344\345\n\"\206\240\346!\344\3474;\203\266\335\3254#\202\275\311A@4\"*\211<\203\314\350<\n\"\202\350\3514;\203\340\335\3254#\202\347\311A@4\"*)!#*)#Z*)\207" [element #1=#:--cl-var-- info low-level-rank genealogy #2=#:--cl-var-- plain-text eql inlinetask plist-get :ascii-inlinetask-width headline :ascii-text-width org-export-low-level-p 2 :ascii-global-margin org-element-lineage nil t - org-export-get-parent-headline 0 :ascii-inner-margin + * (quote-block verse-block) :ascii-quote-margin plain-list :parent get-text-property item :ascii-list-margin :structure :begin 1 org-list-get-top-point string-width org-ascii--checkbox "" :tag org-export-data :bullet parent #3=#:--cl-flag-- #4=#:--cl-var-- total-width #5=#:--cl-var-- #6=#:--cl-var-- count e --dolist-tail-- blob property #7=#:--cl-var-- #8=#:--cl-var-- #9=#:--cl-var-- beg-item struct key n tag] 13 (#$ . 16179)]) #@124 Return expected justification for ELEMENT's contents. Return value is a symbol among `left', `center', `right' and `full'. (defalias 'org-ascii--current-justification #[(element) "\305\204\201\306  ;\203\307\310\n #\202\311 A@\n\"*\211\203\201 \211:\2043 ;\205;\312\202; @9\205; @)\313 \314\"\203I\315\202}\313 \316\"\203}\317  ;\203a\307\310\n #\202g\311 A@\n\"*\211\320\230\203t\321\202|\f\322\230\203|\323))\202\206\206\323)\207" [justification element property #1=#:--cl-var-- name nil :parent get-text-property 0 plist-get plain-text eql center-block center special-block :type "JUSTIFYRIGHT" right "JUSTIFYLEFT" left] 5 (#$ . 18559)]) #@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\f\203B \203B\317\n\"\202Z\320;\203S\321\322 #\202Y\323A@ \"*\n\"+\324\325\326\324\327\326+##),\323\n\330\"\205\230\331;\203\203\321\322 #\202\211\323A@ \"*\211-\205\227\316-\n\"\315P)-.?\205\273\323\n\332\"\205\273\333\n\"\211/\205\272\334\335\311\336/\337#\")0\323\n\340\"\205\350\341;\203\325\321\322 #\202\333\323A@ \"*\2111\205\347\334\3421\")2 -2,R\21130\205\334\211\3434\3443!TZ\3440!]\"0\"5\205= \205=\345\n\"S\323\n\346\"\323\n\347\"\236A8\2116\205<\350\351\3443!\3526!\2456\"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-export-data org-export-get-alt-title :title get-text-property 0 plist-get replace-regexp-in-string "\\`[ \n ]+" "" "[ \n ]+\\'" :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 :ascii-underline "\n" make-string char-width s text todo notags tag-list tags char priority first-part text-width underline under-char] 8 (#$ . 19242)]) #@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 (#$ . 21194)]) #@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=#:--cl-var-- 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 (#$ . 21563)]) #@393 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. When optional argument LOCAL is non-nil, build a table of contents according to the current headline. (defalias 'org-ascii--build-toc #[(info &optional n keyword local) "?\205\"\306\307 \"\211\310\311\312\n!\313 \314\"\315=\203\316\202\317\"\320R) \203-\321 \"\2026\313 \322\"\313 \323\"Z\324\325\326 \205A #\310#)P\207" [local info title keyword text-width n 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 :ascii-text-width :ascii-global-margin mapconcat #[(headline) "\305 \"\211S\306_\307 !?\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 zerop make-string 46 " " org-ascii--build-title nil plist-get :with-tags not-in-toc toc] 10] org-export-collect-headlines] 8 (#$ . 22365)]) #@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) "\305\306\"\211\307\310\311 !\312\313\"\314=\203\315\202\316\"\317\n\203&\320\n\"\202/\312\321\"\312\322\"Z\323\324\325\326!\307#*\260)\207" [info title keyword count text-width 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 :ascii-text-width :ascii-global-margin 0 mapconcat #[(src-block) "\306\307\310\" T\211\"\311\n!\n\312\313\314\315\f\316\"\206\315\f!\317 \") Z# \"\320\321\322\320\323\322##)Q*\207" [info count initial-text initial-width src-block caption format org-ascii--translate "Listing %d:" string-width " " org-ascii--indent-string org-ascii--fill-string org-export-get-caption t org-export-data replace-regexp-in-string "\\`[ \n ]+" "" "[ \n ]+\\'" text-width s] 9] org-export-collect-listings] 9 (#$ . 23569)]) #@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) "\305\306\"\211\307\310\311 !\312\313\"\314=\203\315\202\316\"\317\n\203&\320\n\"\202/\312\321\"\312\322\"Z\323\324\325\326!\307#*\260)\207" [info title keyword count text-width 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 :ascii-text-width :ascii-global-margin 0 mapconcat #[(table) "\306\307\310\" T\211\"\311\n!\n\312\313\314\315\f\316\"\206\315\f!\317 \") Z# \"\320\321\322\320\323\322##)Q*\207" [info count initial-text initial-width table caption format org-ascii--translate "Table %d:" string-width " " org-ascii--indent-string org-ascii--fill-string org-export-get-caption t org-export-data replace-regexp-in-string "\\`[ \n ]+" "" "[ \n ]+\\'" text-width s] 9] org-export-collect-tables] 9 (#$ . 24638)]) #@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\205H\313\314\315\316 !\313\317\320\313\321\320\f##)#)B\322\323\311\324\"\"!\205g \235?\205g B)\207" [link element property contents s footprint :raw-link get-text-property 0 plist-get nil replace-regexp-in-string "[ \n]+" " " org-element-interpret-data "\\`[ \n ]+" "" "[ \n ]+\\'" org-string-nw-p gethash :exported-data info seen] 12] plain-text org-export-get-parent-headline org-element-map link #[(l) " !\207" [unique-link-p l] 2] t] 9 (#$ . 25687)]) #@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@#\316\235\203\301\317\f\"$\320\321\322 $\204\200\323\324\f\"\202\266\321\323\325\f\"\326$\f\"\203\231\327\330\331$\f\"\332#\202\265\313\333$ ;\203\254\307\310\n #\202\262\311 A@\n\"*\f\"\"#%\f#\334P)\202@\211:\204\314\312\202\331 @9\203\330 AA\202\331 )\204\341\312\202@\335\336#&\"8\337 ;\203\372\307\310\n #\202\311 A@\n\"*'(\340(!\205(\341'! \342#*\203\312\202@\320\321\322 \314 ;\2032\307\310\n #\2028\311 A@\n\"*#%\f#\334P*\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" org-export-numbered-headline-p mapconcat number-to-string org-export-get-headline-number "." :title "\n\n" 2 assoc :path functionp org-link-unescape ascii type dest width org-link-protocols path protocol] 12] ""] 4 (#$ . 26661)]) #@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=#:--cl-var-- plist-get :ascii-charset utf-8 :checkbox get-text-property 0 eql on "☑ " "[X] " off "☐ " "[ ] " trans "☒ " "[-] "] 4 (#$ . 28187)]) #@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\"\306\312\"\313\n\205\306\314\"\"\313\n\205$\306\315\"\"\306\316\"\205<\306\317\"\211\205;\313 \"),\306\320\"\205L\313\306\321\"\"-\306\322\"\205[\313\323!\". \324\230\203\377\325.!\203\224\325,!\203\224,\326\327 \330.!\330,!#\331\".\325-!\205\216\332-P\333\260\202\265\325.!\203\271\325-!\203\271-\326\327 \330.!\330-!#\331\".\333R\202\265\325.!\203\313\334. \335#\333P\202\265\325,!\203\343\325-!\203\343,\332-\333R\202\265\325,!\203\361,\333P\202\265\325-!\205\265-\333P\202\265\306\336\"\337=/\340\341\342\343\344 \332\fQ\332\"\"\" \345_\346\245^0\347 0#1\325\f!\2050\347\f0#2\3260\330,\206<\324!]\330-\206E\324!]\345\\ ^/\203T\350\202U\351\"3\3343\332/?\205c\3321\2262\205o\3322P\325,!\203\207\325-!\203\207\352,\332-R\202\240\325,!\203\225\352,P\202\240\325-!\205\240\352-P\3323\325.!\205\256\333.P\333\260\n \353#-.\207" [info text-width with-title title subtitle auth plist-get :ascii-text-width org-combine-plists (:ascii-links-to-notes nil) :with-title org-export-data :title :subtitle :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-lines right :ascii-charset utf-8 apply max mapcar length org-split-string 2 3 org-ascii--fill-string 9473 95 "\n\n" center author email date utf8p title-len formatted-title formatted-subtitle line] 12 (#$ . 28713)]) #@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\n\312!\313\314\"\211\205A\315\316\317\"\211\320\321\322\f!\307\323\"\324=\203.\325\202/\326\"Q)\327\307\330\" Z\331\332 \327#)R*P \")!\207" [info global-margin contents definitions title text-width org-element-normalize-string plist-get :ascii-global-margin org-ascii--indent-string org-export-collect-footnote-definitions org-combine-plists (:ascii-links-to-notes nil) "\n\n\n" org-ascii--translate "Footnotes" "\n" make-string string-width :ascii-charset utf-8 9472 95 "\n\n" :ascii-text-width mapconcat #[(ref) "\306\307@\"\3108\211\211:\204 ;\205\"\311\202\" @9\205\" @)\312=\203|\n\211:\2043\313\202@ @9\203? AA\202@ )@\211\211:\204S ;\205[\311\202[ @9\205[ @)\314=\204k \315\316\n \"Q\202x\fA \fAAB\241\210\316\n \")\202\207\317 \316\n \"P #)\320\321\322\320\323\322##*\207" [ref id def element first info format "[%s] " 2 plain-text org-data nil paragraph "\n" org-export-data org-ascii--fill-string replace-regexp-in-string "\\`[ \n ]+" "" "[ \n ]+\\'" text-width s] 8]] 12 (#$ . 30364)]) #@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) "\305\306\"\307\310!\305\311\"\211\205\312\313\n!\205\n\"\314P)P \" \305\315\"\205@\307\305\316\" Z\314\317\305\320\"\f\321$P) \"Q)\207" [info global-margin depth contents text-width plist-get :ascii-global-margin org-ascii--indent-string org-ascii-template--document-title :with-toc org-ascii--build-toc wholenump "\n\n\n" :with-creator :ascii-text-width org-ascii--fill-string :creator right] 10 (#$ . 31630)]) #@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 (#$ . 32255)]) #@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 (#$ . 32562)]) #@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) "\207" [contents] 1 (#$ . 32800)]) #@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) "\306\307\310\311 \n;\203\312\313 \n#\202\314\nA@ \"*!\315 \n;\203.\312\313 \n#\2024\314\nA@ \"*\211\205D\316\317\320\321\322\f\323\"#P)R #\207" [org-clock-string clock element property time info org-ascii--justify-element " " org-timestamp-translate :value get-text-property 0 plist-get :duration " => " apply format "%2s:%02s" org-split-string ":"] 12 (#$ . 33051)]) #@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\306\"\307 \n;\203\310\311 \n#\202\305\nA@ \"*\"\207" [info code element property format plist-get :ascii-verbatim-format :value get-text-property 0] 6 (#$ . 33602)]) #@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 \"\311 \313\" \f\f#*\207" [drawer element property info width name :drawer-name get-text-property 0 plist-get org-ascii--current-text-width :ascii-format-drawer-function contents] 4 (#$ . 33947)]) #@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 (#$ . 34396)]) #@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 (#$ . 34650)]) #@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\304 \" \" #\207" [example-block info org-ascii--justify-element org-ascii--box-string org-export-format-code-default] 5 (#$ . 35032)]) #@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 (#$ . 35372)]) #@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) "\304 ;\203\305\306\n #\202\307 A@\n\"*\310\230\2059\311\312 ;\203/\305\306\n #\2025\307 A@\n\"* #\207" [export-block element property info :type get-text-property 0 plist-get "ASCII" org-ascii--justify-element :value] 5 (#$ . 35757)]) #@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\307 ;\203\310\311\n #\202\312 A@\n\"*! \" #\207" [fixed-width element property info org-ascii--justify-element org-ascii--box-string org-remove-indentation :value get-text-property 0 plist-get] 7 (#$ . 36197)]) #@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 (#$ . 36617)]) #@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\355\312 \"\313 \"\314\311 \315\"@\206G\316 ;\203@\307\310\n #\202F\311 A@\n\"*\317\"!\211:\204V\320\202c @9\203b AA\202c )\211@@\262\321=?\205\230\322 ;\203\200\307\310\n #\202\206\311 A@\n\"*\211\":\205\227\323\324\" \" #)#\f\203\326\311 \325\"\311 \326\"\236A$\327\330\fS$G\"$8!)\331\332 #\333!\334%\335#!\205\316\336#PP\337\"\260\202\354\332 \340$\333!\335#!\205\350#%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 :ascii-headline-spacing :pre-blank 10 nil section :title org-ascii--describe-links org-ascii--unique-links :ascii-charset :ascii-bullets char-to-string mod " " org-ascii--build-title "\n" org-ascii--indent-string org-string-nw-p "\n\n" 2 underline pre-blanks title links bullets contents] 10 (#$ . 36938)]) #@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-lines make-string string-match "^[0-9]+$" string-to-number plist-get :ascii-charset utf-8 8213 45 center] 6 (#$ . 38101)]) #@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\306\"\307 \n;\203\310\311 \n#\202\305\nA@ \"*\"\207" [info inline-src-block element property format plist-get :ascii-verbatim-format :value get-text-property 0] 6 (#$ . 38685)]) #@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\306\311\"\312\313\n \203\314\202\315\"\316 ?\205)\313\n\317\"\316P\320 \n#\321\f!\nX\203;\f\202@\322\f\n#)\316\323 !\205W\313\n \203R\324\202S\325\"\316 Q\313\n \203a\314\202b\315\"\260\326\306\327\"\306\330\"\331 !\204x\332\202|\306\333\"\334 \"$\"*\207" [info utf8p width inlinetask title contents plist-get :ascii-charset utf-8 :ascii-inlinetask-width 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 - :ascii-text-width :ascii-global-margin org-export-get-parent-headline 0 :ascii-inner-margin org-ascii--current-text-width] 10 (#$ . 39107)]) #@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\"\307 \311\"\2052\312 ;\203!\313\314\f #\202'\307 A@\f\"*\211\2051\315 \")\316 ;\203C\313\314\f #\202I\307 A@\f\"*\307 \317\"\205i\320 ;\203b\313\314\f #\202h\307 A@\f\"*\315\321 ;\203{\313\314\f #\202\201\307 A@\f\"* \"\307 \322\"\205\243\323 ;\203\234\313\314\f #\202\242\307 A@\f\"*\n & )\207" [inlinetask info width element property todo org-ascii--current-text-width plist-get :ascii-format-inlinetask-function :with-todo-keywords :todo-keyword get-text-property 0 org-export-data :todo-type :with-priority :priority :title :with-tags :tags contents] 11 (#$ . 40038)]) #@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 (#$ . 40876)]) #@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\f5 ;\203\"\314\3155 #\202)\306 A@5\"+5 ;\203;\314\3155 #\202B\306 A@5\"*6\3166\317\"\203q \320\321\n5 ;\203b\314\3155 #\202i\306 A@5\"*\"\322Q\202!\3166\323\"\203\354\324\n5 ;\203\214\314\3155 #\202\223\306 A@5\"*7\325\n5 ;\203\251\314\3155 #\202\260\306 A@5\"*8\326\327\330\331\n5 ;\203\311\314\3155 #\202\320\306 A@5\"*7\3327!\3337!$!@!9\334\33598#+\202!\325\n5 ;\203\377\314\3155 #\202\306 A@5\"*8 \2048\202 \334\336\337\334\340\341\334\342\3438###):\344 ;\345\216<\203;\346<:\"\203;\347\202<\350=\346\351:\"\203R\352=\353\211:\354%\202T:,\211:6\317=?\205a \355>\356:!\">\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\264>?\334\361\362\334\363\362?##)\202\270\364>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 ((byte-code "\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 "\\`[ \n ]+" "" "[ \n ]+\\'" "\n" property list-type struct bul num bullet save-match-data-internal org-list-two-spaces-after-bullet-regexp spaces contents s] 11 (#$ . 41122)]) #@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@\314  #\202\267\f\315\230\205\267\314\316\317 \320\316\321#)\266\203\203\206\321\322 \"\205h\323\324\310 \"!\325 \320\316\321#)\266\203\326 $*\202\263\327 \320\316\321#)\266\203\203\236\330 \"\202\263\331 \320\316\321#)\266\203\205\263\332 \") #*\207" [keyword element property value key info :key get-text-property 0 plist-get :value "ASCII" org-ascii--justify-element "TOC" t "\\" nil string-match "\\<[0-9]+\\>" string-to-number match-string "\\" org-ascii--build-toc "\\" org-ascii--list-tables "\\" org-ascii--list-listings case-fold-search inhibit-changing-match-data localp depth] 10 (#$ . 42944)]) #@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\310 \n;\203\311\312 \n#\202 \304\nA@ \"*! #\207" [info latex-environment element property plist-get :with-latex org-ascii--justify-element org-remove-indentation :value get-text-property 0] 6 (#$ . 43923)]) #@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 (#$ . 44368)]) #@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 (#$ . 44738)]) #@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\f\313#\206 \314\230\203O\315 ;\2038\307\310\n #\202>\311 A@\n\"*\316\317 \f\"\320 #\"\")\202 \321\230\203Y\f\202 \322\230\203\335\323#\"$\324\f!\203p\f\202\331$\205\331\325$#\326\327$\211%\203\231%:\204\220\330%!\202\330\331\330%\332#\202\330$\211:\204\252 ;\205\262\333\202\262 @9\205\262 @)\334=\205\330\316\335\336\337$ ;\203\315\307\310\n #\202\323\311 A@\n\"*#\"\"))\202\340 ;\203\356\307\310\n #\202\364\311 A@\n\"*&\324\f!\204\316\335&\"\202\316\335\f\"\311#\341\"?\205\316\342&\"P))\207" [link element property type desc ref :type get-text-property 0 plist-get org-export-custom-protocol-maybe ascii "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 "." plain-text headline "[%s]" org-export-data :title :raw-link :ascii-links-to-notes " (%s)" info destination number raw-link] 8 (#$ . 44963)]) #@120 Transcode a NODE-PROPERTY element from Org to ASCII. CONTENTS is nil. INFO is a plist holding contextual information. (defalias 'org-ascii-node-property #[(node-property contents info) "\304\305\306 ;\203\307\310\n #\202\311 A@\n\"*\312 ;\203+\307\310\n #\2021\311 A@\n\"*\211\203=\313 P\202>\314)#\207" [node-property element property value format "%s:%s" :key get-text-property 0 plist-get :value " " ""] 8 (#$ . 46260)]) #@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\310\"\311 !\204\n\202]\312 \"?\205O \313\f ;\203-\314\315 #\2024\307 A@\"+\211:\204D ;\205L\316\202L @9\205L @)\317=?\205W\320 \321\"\322\323\324\n#P) #\207" [info indented-line-width contents paragraph blob element org-ascii--justify-element plist-get :ascii-indented-line-width wholenump org-export-get-previous-element :parent get-text-property 0 plain-text section make-string 32 replace-regexp-in-string "\\`[ ]+" "" property] 7 (#$ . 46707)]) #@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) "\306\307\"\211\310W\204B\n\311 \f;\203\312\313 \f#\202$\306\fA@ \"+\211:\2044\f;\205<\314\202<\f@9\205<\f@)\315=\203G\202L\316 \")\207" [info margin plain-list blob element property plist-get :ascii-list-margin 1 :parent get-text-property 0 plain-text item org-ascii--indent-string contents] 5 (#$ . 47414)]) #@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 (#$ . 47948)]) #@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\313 ;\203\314\315\n #\202\316 A@\n\"*\211\205(\f\317\320 !Q)\321 ;\203:\314\315\n #\202@\316 A@\n\"*\211\205M\317\320 !Q)\322 ;\203_\314\315\n #\202e\316 A@\n\"*\211\205t\317\320!Q)E\"\317##\207" [planning element property closed org-closed-string deadline org-ascii--justify-element mapconcat identity delq nil :closed get-text-property 0 plist-get " " org-timestamp-translate :deadline :scheduled org-deadline-string scheduled org-scheduled-string info] 12 (#$ . 48480)]) #@148 Transcode a PROPERTY-DRAWER element from Org to ASCII. CONTENTS holds the contents of the drawer. INFO is a plist holding contextual information. (defalias 'org-ascii-property-drawer #[(property-drawer contents info) "\303!\205 \304 \n#\207" [contents property-drawer info org-string-nw-p org-ascii--justify-element] 4 (#$ . 49188)]) #@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\303 \304\"\"\207" [contents info org-ascii--indent-string plist-get :ascii-quote-margin] 5 (#$ . 49533)]) #@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 (#$ . 49858)]) #@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) "\305\306 \307\"\205\310\311\n \"\312\n \" #\313 !\205\314 P)P\315\n!\211\203/\316\f \"\2033\317\2027\306 \320\")\"\207" [contents info section links headline org-ascii--indent-string plist-get :ascii-links-to-notes 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 :ascii-inner-margin] 8 (#$ . 50106)]) #@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 (#$ . 50728)]) #@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 \307\"\310 \"\n\311\232\203\311\2029\312\f\205% \205%\f\313P\314\n \"\f\2055 ?\2055\313\fPQ #+\207" [src-block info code caption-above-p caption org-ascii--build-caption plist-get :ascii-caption-above org-export-format-code-default "" org-ascii--justify-element "\n" org-ascii--box-string] 5 (#$ . 50982)]) #@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 (#$ . 51520)]) #@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 (#$ . 51867)]) #@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 (#$ . 52276)]) #@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 (#$ . 52693)]) #@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 \"\307 \310\"\311 \205\n\205 \312P\313\f;\203'\314\315 \f#\202-\307\fA@ \"*\316=\2038\202\246\307 \317\"\203\214\307 \320\"\321=\203\214\322\323\324\325#\203\214\326\327!rq\210\330\216\331\332\f;\203n\314\315 \f#\202t\307\fA@ \"*!c\210eb\210\333 \210db\210\334\324x\210e`{+\202\246\331\332\f;\203\236\314\315 \f#\202\244\307\fA@ \"*!\n?\205\254 Q #*\207" [table info caption-above-p caption element property org-ascii--build-caption plist-get :ascii-caption-above org-ascii--justify-element "\n" :type get-text-property 0 org :ascii-table-use-ascii-art :ascii-charset utf-8 require ascii-art-to-unicode nil t generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) org-remove-indentation :value aa2u " \n" contents #1#] 7 (#$ . 52967)]) #@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)\211G>GZ)\311\313\"\206s\311\314\313\315\316\317\"#\211\313\" B\311\320\"\321\"\206\315\322\323\"\204\237\206\311\310\324 \325\326$\210)\204\271\202\310\203\306]\202\310))#.\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 :ascii-table-widen-columns 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 widenp cookie-width max-width contents-width] 8 (#$ . 54006)]) #@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 \"\307 \310\"\204!\311 \206\312!\nX\204! \313\n\314ZO\315P\316 \205/\317 \n\320 \"#\211\321\n\311 \2069\312!Z\322\"P*\323\324 \"\325\326 \">\205[\307 \327\"\330=\203Z\331\202[\332P)\207" [table-cell info width contents indent-tabs-mode data org-ascii--table-cell-width plist-get :ascii-table-widen-columns string-width "" 0 2 "=>" nil org-ascii--justify-lines org-export-table-cell-alignment make-string 32 format " %s " right org-export-table-cell-borders :ascii-charset utf-8 "│" "|"] 7 (#$ . 55294)]) #@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\203KAA\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 (#$ . 56021)]) #@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 (#$ . 57524)]) #@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 (#$ . 57803)]) #@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\306\"\307 \n;\203\310\311 \n#\202\305\nA@ \"*\"\207" [info verbatim element property format plist-get :ascii-verbatim-format :value get-text-property 0] 6 (#$ . 58061)]) #@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) "\304 \"\305\306  #\307 \310\"\")\207" [verse-block info verse-width contents org-ascii--current-text-width org-ascii--indent-string org-ascii--justify-element plist-get :ascii-quote-margin] 5 (#$ . 58422)]) #@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) "\304\305\"\211\204 \n\202\306 AT\307\"\310\311 \n#))\207" [info headline-spacing headline blanks plist-get :ascii-headline-spacing make-string 10 replace-regexp-in-string "\n\\(?:\n[ ]*\\)*\\'"] 5 (#$ . 58837)]) #@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) "\303\304\"\305 !\203\306\n\307\310#\210)\n\207" [info paragraph-spacing tree plist-get :ascii-paragraph-spacing 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 paragraph-spacing value property org-export-get-next-element plain-text paragraph :post-blank org-add-props nil plist-put] 6]] 4 (#$ . 59466)]) #@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 (#$ . 60247)]) #@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 (#$ . 60877) 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 (#$ . 62101) 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 (#$ . 63200)]) #@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 (#$ . 63599)]) #@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 (#$ . 64008)]) (provide 'ox-ascii)