| commit | author | age | ||
| 76bbd0 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (byte-code "\300\301!\210\300\302!\210\300\303!\207" [require org avl-tree cl-lib] 2) | |
| 16 | #@228 Regexp to separate paragraphs in an Org buffer. | |
| 17 | In the case of lines starting with "#" and ":", this regexp | |
| 18 | is not sufficient to know if point is at a paragraph ending. See | |
| 19 | `org-element-paragraph-parser' for more information. | |
| 20 | (defvar org-element-paragraph-separate nil (#$ . 495)) | |
| 21 | #@282 Regexp possibly matching the beginning of an object. | |
| 22 | This regexp allows false positives. Dedicated parser (e.g., | |
| 23 | `org-export-bold-parser') will take care of further filtering. | |
| 24 | Radio links are not matched by this regexp, as they are treated | |
| 25 | specially in `org-element--object-lex'. | |
| 26 | (defvar org-element--object-regexp nil (#$ . 784)) | |
| 27 | #@32 Build variable syntax regexps. | |
| 28 | (defalias 'org-element--set-regexps #[0 "\306\307\310\307\311\307\312\313\307\314\307\315\307\316\317\307\320\307\321\307\322\307\323\307\324 !\307\n\325\267\202+ \326\202, \327\202, \330 \2051 \331\332\333\333\334\260\266\202\335\260 \336\337\340\341 !\342\343\344\345\346 8\"P\347\350Q\351\352\353\354\333Q\355\356\357\257\n\262\307#\2110\207" [org-outline-regexp org-clock-string org-plain-list-ordered-item-terminator org-list-allow-alphabetical org-element-paragraph-separate org-emphasis-regexp-components "^\\(?:" "\\|" "\\[fn:[-_[:word:]]+\\]" "%%(" "[ ]*\\(?:" "$" "|" "\\+\\(?:-+\\+\\)+[ ]*$" "#\\(?: \\|$\\|\\+\\(?:" "BEGIN_\\S-+" "\\S-+\\(?:\\[.*\\]\\)?:[ ]*\\)\\)" ":\\(?: \\|$\\|[-_[:word:]]+:[ ]*$\\)" "-\\{5,\\}[ ]*$" "\\\\begin{\\([A-Za-z0-9*]+\\)}" regexp-quote #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (41 35 46 39)) ")" "\\." "[.)]" "\\|[A-Za-z]" "\\(?:[-+*]\\|\\(?:[0-9]+" "\\)" "\\(?:[ ]\\|$\\)" "\\)\\)" mapconcat identity regexp-opt org-link-types "\\(?:[_^][-{(*+.,[:alnum:]]\\)" "[*~=+_/]" format "[^%s]" 2 "\\<" ":" "\\[\\(?:fn:\\|\\[\\|[0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}\\|[0-9]*\\(?:%\\|/[0-9]*\\)\\]\\)" "@@" "{{{" "<\\(?:%%\\|<\\|[0-9]\\|" "\\$" "\\\\\\(?:[a-zA-Z[(]\\|\\\\[ ]*$\\|_ +\\)" "\\(?:call\\|src\\)_" org-element--object-regexp] 35 (#$ . 1122)]) | |
| 29 | (org-element--set-regexps) | |
| 30 | #@26 Update parser internals. | |
| 31 | (defalias 'org-element-update-syntax #[0 "\300 \210\301\302!\207" [org-element--set-regexps org-element-cache-reset all] 2 (#$ . 2538) nil]) | |
| 32 | #@33 Complete list of element types. | |
| 33 | (defconst org-element-all-elements '(babel-call center-block clock comment comment-block diary-sexp drawer dynamic-block example-block export-block fixed-width footnote-definition headline horizontal-rule inlinetask item keyword latex-environment node-property paragraph plain-list planning property-drawer quote-block section special-block src-block table table-row verse-block) (#$ . 2710)) | |
| 34 | #@55 List of recursive element types aka Greater Elements. | |
| 35 | (defconst org-element-greater-elements '(center-block drawer dynamic-block footnote-definition headline inlinetask item plain-list property-drawer quote-block section special-block table) (#$ . 3141)) | |
| 36 | #@32 Complete list of object types. | |
| 37 | (defconst org-element-all-objects '(bold code entity export-snippet footnote-reference inline-babel-call inline-src-block italic line-break latex-fragment link macro radio-target statistics-cookie strike-through subscript superscript table-cell target timestamp underline verbatim) (#$ . 3402)) | |
| 38 | #@33 List of recursive object types. | |
| 39 | (defconst org-element-recursive-objects '(bold footnote-reference italic link subscript radio-target strike-through superscript table-cell underline) (#$ . 3734)) | |
| 40 | #@68 List of object or element types that can directly contain objects. | |
| 41 | (defconst org-element-object-containers (append org-element-recursive-objects '(paragraph table-row verse-block)) (#$ . 3935)) | |
| 42 | #@163 List of affiliated keywords as strings. | |
| 43 | By default, all keywords setting attributes (e.g., "ATTR_LATEX") | |
| 44 | are affiliated keywords and need not to be in this list. | |
| 45 | (defconst org-element-affiliated-keywords '("CAPTION" "DATA" "HEADER" "HEADERS" "LABEL" "NAME" "PLOT" "RESNAME" "RESULT" "RESULTS" "SOURCE" "SRCNAME" "TBLNAME") (#$ . 4136)) | |
| 46 | #@169 Alist of usual translations for keywords. | |
| 47 | The key is the old name and the value the new one. The property | |
| 48 | holding their value will be named after the translated name. | |
| 49 | (defconst org-element-keyword-translation-alist '(("DATA" . "NAME") ("LABEL" . "NAME") ("RESNAME" . "NAME") ("SOURCE" . "NAME") ("SRCNAME" . "NAME") ("TBLNAME" . "NAME") ("RESULT" . "RESULTS") ("HEADERS" . "HEADER")) (#$ . 4479)) | |
| 50 | #@411 List of affiliated keywords that can occur more than once in an element. | |
| 51 | ||
| 52 | Their value will be consed into a list of strings, which will be | |
| 53 | returned as the value of the property. | |
| 54 | ||
| 55 | This list is checked after translations have been applied. See | |
| 56 | `org-element-keyword-translation-alist'. | |
| 57 | ||
| 58 | By default, all keywords setting attributes (e.g., "ATTR_LATEX") | |
| 59 | allow multiple occurrences and need not to be in this list. | |
| 60 | (defconst org-element-multiple-keywords '("CAPTION" "HEADER") (#$ . 4884)) | |
| 61 | #@244 List of affiliated keywords whose value can be parsed. | |
| 62 | ||
| 63 | Their value will be stored as a secondary string: a list of | |
| 64 | strings and objects. | |
| 65 | ||
| 66 | This list is checked after translations have been applied. See | |
| 67 | `org-element-keyword-translation-alist'. | |
| 68 | (defconst org-element-parsed-keywords '("CAPTION") (#$ . 5376)) | |
| 69 | #@118 Alist of parsed keywords and associated properties. | |
| 70 | This is generated from `org-element-parsed-keywords', which | |
| 71 | see. | |
| 72 | (defconst org-element--parsed-properties-alist (mapcar #[257 "\211\300\301\227P!B\207" [intern ":"] 5 "\n\n(fn K)"] org-element-parsed-keywords) (#$ . 5690)) | |
| 73 | #@377 List of affiliated keywords which can have a secondary value. | |
| 74 | ||
| 75 | In Org syntax, they can be written with optional square brackets | |
| 76 | before the colons. For example, RESULTS keyword can be | |
| 77 | associated to a hash value with the following: | |
| 78 | ||
| 79 | #+RESULTS[hash-string]: some-source | |
| 80 | ||
| 81 | This list is checked after translations have been applied. See | |
| 82 | `org-element-keyword-translation-alist'. | |
| 83 | (defconst org-element-dual-keywords '("CAPTION" "RESULTS") (#$ . 5973)) | |
| 84 | #@244 Regexp matching any affiliated keyword. | |
| 85 | ||
| 86 | Keyword name is put in match group 1. Moreover, if keyword | |
| 87 | belongs to `org-element-dual-keywords', put the dual value in | |
| 88 | match group 2. | |
| 89 | ||
| 90 | Don't modify it, set `org-element-affiliated-keywords' instead. | |
| 91 | (defconst org-element--affiliated-re (byte-code "\302\303\302\304\305!\"\306\302\307\305\310\311 \"!\"\306\312\260\"\207" [org-element-dual-keywords org-element-affiliated-keywords format "[ ]*#\\+\\(?:%s\\):[ ]*" "\\(?1:%s\\)\\(?:\\[\\(.*\\)\\]\\)?" regexp-opt "\\|" "\\(?1:%s\\)" cl-remove-if #[257 "\211\235\207" [org-element-dual-keywords] 3 "\n\n(fn K)"] "\\(?1:ATTR_[-_A-Za-z0-9]+\\)"] 10) (#$ . 6428)) | |
| 92 | #@494 Alist of objects restrictions. | |
| 93 | ||
| 94 | key is an element or object type containing objects and value is | |
| 95 | a list of types that can be contained within an element or object | |
| 96 | of such type. | |
| 97 | ||
| 98 | For example, in a `radio-target' object, one can only find | |
| 99 | entities, latex-fragments, subscript, superscript and text | |
| 100 | markup. | |
| 101 | ||
| 102 | This alist also applies to secondary string. For example, an | |
| 103 | `headline' type element doesn't directly contain objects, but | |
| 104 | still has an entry since one of its properties (`:title') does. | |
| 105 | (defconst org-element-object-restrictions (byte-code "\301\302\"\301\303\"\304B\305B\306B\307B\310B\311B\312\301\305\n\"B\313\314\nB\315\316\fB\317 B\320B\321\322\323B\324B\257\207" [org-element-all-objects remq table-cell line-break bold footnote-reference headline inlinetask italic item keyword (link bold code entity export-snippet inline-babel-call inline-src-block italic latex-fragment macro statistics-cookie strike-through subscript superscript underline verbatim) paragraph (radio-target bold code entity italic latex-fragment strike-through subscript superscript underline superscript) strike-through subscript superscript (table-cell bold code entity export-snippet footnote-reference italic latex-fragment link macro radio-target strike-through subscript superscript target timestamp underline verbatim) (table-row table-cell) underline verse-block] 20) (#$ . 7092)) | |
| 106 | #@64 Alist between element types and locations of secondary values. | |
| 107 | (defconst org-element-secondary-value-alist '((headline :title) (inlinetask :title) (item :tag)) (#$ . 8492)) | |
| 108 | #@90 Table used internally to pair only round brackets. | |
| 109 | Other brackets are treated as spaces. | |
| 110 | (defconst org-element--pair-round-table (byte-code "\300 \301\302\303#\210\301\304\305#\210\306\211\203\" \211@\301\307#\210A\266\202\202 \262\207" [make-syntax-table modify-syntax-entry 40 "()" 41 ")(" (123 125 91 93 60 62) " "] 7) (#$ . 8671)) | |
| 111 | #@91 Table used internally to pair only square brackets. | |
| 112 | Other brackets are treated as spaces. | |
| 113 | (defconst org-element--pair-square-table (byte-code "\300 \301\302\303#\210\301\304\305#\210\306\211\203\" \211@\301\307#\210A\266\202\202 \262\207" [make-syntax-table modify-syntax-entry 91 "(]" 93 ")[" (123 125 40 41 60 62) " "] 7) (#$ . 9020)) | |
| 114 | #@90 Table used internally to pair only curly brackets. | |
| 115 | Other brackets are treated as spaces. | |
| 116 | (defconst org-element--pair-curly-table (byte-code "\300 \301\302\303#\210\301\304\305#\210\306\211\203\" \211@\301\307#\210A\266\202\202 \262\207" [make-syntax-table modify-syntax-entry 123 "(}" 125 "){" (91 93 40 41 60 62) " "] 7) (#$ . 9371)) | |
| 117 | #@193 Parse paired brackets at point. | |
| 118 | CHAR is the opening bracket to consider, as a character. Return | |
| 119 | contents between brackets, as a string, or nil. Also move point | |
| 120 | past the brackets. | |
| 121 | ||
| 122 | (fn CHAR) | |
| 123 | (defalias 'org-element--parse-paired-brackets #[257 "\211\303f=\205X \211\304\267\202 \202 \202 \n\202 \303`\205V \305 p\306\307\310\311\312\"\313\"\314$\216\315!\210\3161B \317\320\307#0\202D \210\303\211\205Q \211b\210\321TS\"\262)\266\202\266\202\207" [org-element--pair-curly-table org-element--pair-square-table org-element--pair-round-table nil #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (123 13 91 17 40 21)) syntax-table make-byte-code 0 "r\301q\210\302\300!)\207" vconcat vector [set-syntax-table] 2 set-syntax-table (error) scan-lists 1 buffer-substring-no-properties] 12 (#$ . 9721)]) | |
| 124 | #@272 Return type of ELEMENT. | |
| 125 | ||
| 126 | The function returns the type of the element or object provided. | |
| 127 | It can also return the following special value: | |
| 128 | `plain-text' for a string | |
| 129 | `org-data' for a complete document | |
| 130 | nil in any other case. | |
| 131 | ||
| 132 | (fn ELEMENT) | |
| 133 | (defalias 'org-element-type #[257 "\211:\204\f \211;\205 \300\207\211@9\205 \211@\207" [plain-text] 2 (#$ . 10574)]) | |
| 134 | (put 'org-element-type 'byte-optimizer 'byte-compile-inline-expand) | |
| 135 | #@75 Extract the value from the PROPERTY of an ELEMENT. | |
| 136 | ||
| 137 | (fn PROPERTY ELEMENT) | |
| 138 | (defalias 'org-element-property #[514 "\211;\203 \300\301#\207\302A@\"\207" [get-text-property 0 plist-get] 6 (#$ . 11038)]) | |
| 139 | (put 'org-element-property 'byte-optimizer 'byte-compile-inline-expand) | |
| 140 | #@49 Extract contents from an ELEMENT. | |
| 141 | ||
| 142 | (fn ELEMENT) | |
| 143 | (defalias 'org-element-contents #[257 "\211:\204 \300\207\211@9\203 \211AA\207\207" [nil] 2 (#$ . 11320)]) | |
| 144 | (put 'org-element-contents 'byte-optimizer 'byte-compile-inline-expand) | |
| 145 | #@146 Return restriction associated to ELEMENT. | |
| 146 | ELEMENT can be an element, an object or a symbol representing an | |
| 147 | element or object type. | |
| 148 | ||
| 149 | (fn ELEMENT) | |
| 150 | (defalias 'org-element-restriction #[257 "\2119\203 \211\202$ \211\211:\204 \211;\205\" \301\262\202$ \211@9\205\" \211@\262\236A\207" [org-element-object-restrictions plain-text] 3 (#$ . 11556)]) | |
| 151 | (put 'org-element-restriction 'byte-optimizer 'byte-compile-inline-expand) | |
| 152 | #@89 In ELEMENT set PROPERTY to VALUE. | |
| 153 | Return modified element. | |
| 154 | ||
| 155 | (fn ELEMENT PROPERTY VALUE) | |
| 156 | (defalias 'org-element-put-property #[771 ";\203\f \300\301$\207A\302A@#\240\210\207" [org-add-props nil plist-put] 8 (#$ . 11984)]) | |
| 157 | (put 'org-element-put-property 'byte-optimizer 'byte-compile-inline-expand) | |
| 158 | #@82 Set ELEMENT's contents to CONTENTS. | |
| 159 | Return ELEMENT. | |
| 160 | ||
| 161 | (fn ELEMENT &rest CONTENTS) | |
| 162 | (defalias 'org-element-set-contents #[385 "\204 \207@9\204\f \207A\203 A\241\210\207\244\207" [] 4 (#$ . 12296)]) | |
| 163 | (put 'org-element-set-contents 'byte-optimizer 'byte-compile-inline-expand) | |
| 164 | #@131 Non-nil when OBJECT directly belongs to a secondary string. | |
| 165 | Return value is the property name, as a keyword, or nil. | |
| 166 | ||
| 167 | (fn OBJECT) | |
| 168 | (defalias 'org-element-secondary-p #[257 "\301\211;\203 \302\303#\266\202\202 \304A@\"\266\202\211\211:\204* \211;\2052 \305\262\2024 \211@9\2052 \211@\262\236A\3062o \211\211\205l \211@\211;\203T \302\303#\266\202\202\\ \304A@\"\266\202>\203e \307\306\"\210A\266\202\202< \2620\207" [org-element-secondary-value-alist :parent get-text-property 0 plist-get plain-text exit throw] 12 (#$ . 12584)]) | |
| 169 | #@232 Return class for ELEMENT, as a symbol. | |
| 170 | Class is either `element' or `object'. Optional argument PARENT | |
| 171 | is the element or object containing DATUM. It defaults to the | |
| 172 | value of DATUM `:parent' property. | |
| 173 | ||
| 174 | (fn DATUM &optional PARENT) | |
| 175 | (defalias 'org-element-class #[513 "\211:\204 \211;\205 \303\262\202 \211@9\205 \211@\262\2068 \304\211;\2030 \305\306#\266\202\2028 \307A@\"\266\202>\203B \310\202\252 >\203L \311\202\252 \312=\203V \311\202\252 \303=\203` \310\202\252 \204h \310\202\252 \211\204p \311\202\252 \211\211:\204\201 \211;\205\211 \303\262\202\213 \211@9\205\211 \211@\262\211\204\223 \310\202\250 \211\n>\203\235 \310\202\250 \313!\203\247 \310\202\250 \311\262\207" [org-element-all-objects org-element-all-elements org-element-object-containers plain-text :parent get-text-property 0 plist-get object element org-data org-element-secondary-p] 9 (#$ . 13139)]) | |
| 176 | (put 'org-element-class 'byte-optimizer 'byte-compile-inline-expand) | |
| 177 | #@253 Append elements to the contents of another element. | |
| 178 | ||
| 179 | PARENT is an element or object. CHILDREN can be elements, | |
| 180 | objects, or a strings. | |
| 181 | ||
| 182 | The function takes care of setting `:parent' property for CHILD. | |
| 183 | Return parent element. | |
| 184 | ||
| 185 | (fn PARENT &rest CHILDREN) | |
| 186 | (defalias 'org-element-adopt-elements #[385 "\211\204 \207\211\211\203: \211@\211\300\206 ;\203$ \301\302$\266\203\2022 A\303A@#\240\210\266\203\210A\266\202\202 \210\203] \304\305\211\211:\204N \302\262\202Y \211@9\203Y \211AA\262\244#\210\206b \211\207" [:parent org-add-props nil plist-put apply org-element-set-contents] 12 (#$ . 14113)]) | |
| 187 | (put 'org-element-adopt-elements 'byte-optimizer 'byte-compile-inline-expand) | |
| 188 | #@155 Extract ELEMENT from parse tree. | |
| 189 | Remove element from the parse tree by side-effect, and return it | |
| 190 | with its `:parent' property stripped out. | |
| 191 | ||
| 192 | (fn ELEMENT) | |
| 193 | (defalias 'org-element-extract-element #[257 "\300\211;\203 \301\302#\266\202\202 \303A@\"\266\202\304!\211\203a \305\211;\2036 \301\302#\266\202\202> \303A@\"\266\202\";\203O \306\307$\266\203\202] A\310A@#\240\210\266\203\210\202\202 \311\312\305\211:\204t \307\262\202 \211@9\203 \211AA\262\"#\210\300\307;\203\225 \306\307$\266\203\202\243 A\310A@#\240\210\266\203\207" [:parent get-text-property 0 plist-get org-element-secondary-p delq org-add-props nil plist-put apply org-element-set-contents] 13 (#$ . 14815)]) | |
| 194 | #@173 Insert ELEMENT before LOCATION in parse tree. | |
| 195 | LOCATION is an element, object or string within the parse tree. | |
| 196 | Parse tree is modified by side effect. | |
| 197 | ||
| 198 | (fn ELEMENT LOCATION) | |
| 199 | (defalias 'org-element-insert-before #[514 "\300\211;\203 \301\302#\266\202\202 \303A@\"\266\202\304!\211\203< \211\211;\2031 \301\302#\266\202\202S \303A@\"\266\202\202S \211:\204H \305\262\202S \211@9\203S \211AA\262?\205b \211=\205b @=\211\204\237 \203q @=\203y B\262\202\237 \204\206 C\244\210\202\237 \306\"\211\204\222 \307\310!\210\211S\233\211AB\241\266\211\203\261 \311!\241\210\240\210\202\340 \203\332 ;\203\310 \312\305$\266\203\202\326 A\313A@#\240\210\266\203\210\202\340 \314\315#\210\300;\203\363 \312\305$\266\203\202A\313A@#\240\210\266\203\207" [:parent get-text-property 0 plist-get org-element-secondary-p nil cl-position error "No location found to insert element" copy-sequence org-add-props plist-put apply org-element-set-contents] 14 (#$ . 15542)]) | |
| 200 | #@136 Replace element or object OLD with element or object NEW. | |
| 201 | The function takes care of setting `:parent' property for NEW. | |
| 202 | ||
| 203 | (fn OLD NEW) | |
| 204 | (defalias 'org-element-set-element #[514 "\211\300\211\211;\203 \301\302#\266\202\202 \303A@\"\266\202;\203+ \304\305$\266\203\2029 A\306A@#\240\210\266\203\210\211:\204K \211;\205S \307\262\202U \211@9\205S \211@\262\310>\204z \211\211:\204k \211;\205s \307\262\202u \211@9\205s \211@\262\311>\203\203 \312\"\210\313!\207\211\211:\204\217 \305\262\202\232 \211@9\203\232 \211AA\262\211\203\311 \211@\211\300;\203\263 \304\305$\266\203\202\301 A\306A@#\240\210\266\203\210A\266\202\202\232 \210\314\315\211:\204\331 \305\262\202\344 \211@9\203\344 \211AA\262#\210AA@\240\210@\240\207" [:parent get-text-property 0 plist-get org-add-props nil plist-put plain-text (plain-text nil) (plain-text nil) org-element-insert-before org-element-extract-element apply org-element-set-contents] 12 (#$ . 16566)]) | |
| 205 | #@215 Create a new element of type TYPE. | |
| 206 | Optional argument PROPS, when non-nil, is a plist defining the | |
| 207 | properties of the element. CHILDREN can be elements, objects or | |
| 208 | strings. | |
| 209 | ||
| 210 | (fn TYPE &optional PROPS &rest CHILDREN) | |
| 211 | (defalias 'org-element-create #[641 "\300\301D#\207" [apply org-element-adopt-elements] 7 (#$ . 17554)]) | |
| 212 | #@153 Return a copy of DATUM. | |
| 213 | DATUM is an element, object, string or nil. `:parent' property | |
| 214 | is cleared and contents are removed in the process. | |
| 215 | ||
| 216 | (fn DATUM) | |
| 217 | (defalias 'org-element-copy #[257 "\211\205N \211\211:\204 \211;\205 \300\262\202 \211@9\205 \211@\262\211\301=\203+ \301\302D\202L \211\300=\2037 \303!\202L \211\204A \304!\202L \211\305\304A@!\306\302#D\262\207" [plain-text org-data nil substring-no-properties copy-sequence plist-put :parent] 7 (#$ . 17883)]) | |
| 218 | #@467 Parse a center block. | |
| 219 | ||
| 220 | LIMIT bounds the search. AFFILIATED is a list of which CAR is | |
| 221 | the buffer position at the beginning of the first affiliated | |
| 222 | keyword and CDR is a plist of affiliated keywords along with | |
| 223 | their value. | |
| 224 | ||
| 225 | Return a list whose CAR is `center-block' and CDR is a plist | |
| 226 | containing `:begin', `:end', `:contents-begin', `:contents-end', | |
| 227 | `:post-blank' and `:post-affiliated' keywords. | |
| 228 | ||
| 229 | Assume point is at the beginning of the block. | |
| 230 | ||
| 231 | (fn LIMIT AFFILIATED) | |
| 232 | (defalias 'org-element-center-block-parser #[514 "\301\212\302\303\301#)\204 \304\"\202` \305\224@`\306y\210`W\205\" `\211\205' b\210\306y\210`\212\307w\210m\203< `\202> \310 )\311\312\313\314 \315\n\316\317\f\f\"\320\257\f A\244D\266\206\262)\207" [case-fold-search t re-search-forward "^[ ]*#\\+END_CENTER[ ]*$" org-element-paragraph-parser 0 nil " \n" line-beginning-position center-block :begin :end :contents-begin :contents-end :post-blank count-lines :post-affiliated] 22 (#$ . 18365)]) | |
| 233 | #@107 Interpret a center-block element as Org syntax. | |
| 234 | CONTENTS is the contents of the element. | |
| 235 | ||
| 236 | (fn _ CONTENTS) | |
| 237 | (defalias 'org-element-center-block-interpreter #[514 "\300\301\"\207" [format "#+BEGIN_CENTER\n%s#+END_CENTER"] 5 (#$ . 19358)]) | |
| 238 | #@464 Parse a drawer. | |
| 239 | ||
| 240 | LIMIT bounds the search. AFFILIATED is a list of which CAR is | |
| 241 | the buffer position at the beginning of the first affiliated | |
| 242 | keyword and CDR is a plist of affiliated keywords along with | |
| 243 | their value. | |
| 244 | ||
| 245 | Return a list whose CAR is `drawer' and CDR is a plist containing | |
| 246 | `:drawer-name', `:begin', `:end', `:contents-begin', | |
| 247 | `:contents-end', `:post-blank' and `:post-affiliated' keywords. | |
| 248 | ||
| 249 | Assume point is at beginning of drawer. | |
| 250 | ||
| 251 | (fn LIMIT AFFILIATED) | |
| 252 | (defalias 'org-element-drawer-parser #[514 "\302\212\303\304\302#)\204 \305\"\202h \212\306\224\307 !\210\310\311!@`\312y\210`W\205* `\211\205/ b\210\312y\210`\313 w\210m\203C `\202E \314 \315\316\317\320\f\321 \322\f\323\324\"\325\257\nA\244D\266\210))\207" [case-fold-search org-drawer-regexp t re-search-forward "^[ ]*:END:[ ]*$" org-element-paragraph-parser 0 looking-at match-string-no-properties 1 nil " \n" line-beginning-position drawer :begin :end :drawer-name :contents-begin :contents-end :post-blank count-lines :post-affiliated] 25 (#$ . 19602)]) | |
| 253 | #@104 Interpret DRAWER element as Org syntax. | |
| 254 | CONTENTS is the contents of the element. | |
| 255 | ||
| 256 | (fn DRAWER CONTENTS) | |
| 257 | (defalias 'org-element-drawer-interpreter #[514 "\300\301\302\211;\203 \303\304#\266\202\202 \305A@\"\266\202#\207" [format ":%s:\n%s:END:" :drawer-name get-text-property 0 plist-get] 10 (#$ . 20660)]) | |
| 258 | #@498 Parse a dynamic block. | |
| 259 | ||
| 260 | LIMIT bounds the search. AFFILIATED is a list of which CAR is | |
| 261 | the buffer position at the beginning of the first affiliated | |
| 262 | keyword and CDR is a plist of affiliated keywords along with | |
| 263 | their value. | |
| 264 | ||
| 265 | Return a list whose CAR is `dynamic-block' and CDR is a plist | |
| 266 | containing `:block-name', `:begin', `:end', `:contents-begin', | |
| 267 | `:contents-end', `:arguments', `:post-blank' and | |
| 268 | `:post-affiliated' keywords. | |
| 269 | ||
| 270 | Assume point is at beginning of dynamic block. | |
| 271 | ||
| 272 | (fn LIMIT AFFILIATED) | |
| 273 | (defalias 'org-element-dynamic-block-parser #[514 "\302\212\303\304\302#)\204 \305\"\202q \306\224\212\307 !\210\310\311!\310\312!@`\313y\210`W\205- `\211\2052 b\210\313y\210`\314\nw\210m\203G `\202I \315 \316\317\320\321 \322\323 \324\325\326\"\327\257 A\244D\266\210)\262)\207" [case-fold-search org-dblock-start-re t re-search-forward "^[ ]*#\\+END:?[ ]*$" org-element-paragraph-parser 0 looking-at match-string-no-properties 1 3 nil " \n" line-beginning-position dynamic-block :begin :end :block-name :arguments :contents-begin :contents-end :post-blank count-lines :post-affiliated] 28 (#$ . 20980)]) | |
| 274 | #@118 Interpret DYNAMIC-BLOCK element as Org syntax. | |
| 275 | CONTENTS is the contents of the element. | |
| 276 | ||
| 277 | (fn DYNAMIC-BLOCK CONTENTS) | |
| 278 | (defalias 'org-element-dynamic-block-interpreter #[514 "\300\301\302\211;\203 \303\304#\266\202\202 \305A@\"\266\202\306\211;\203, \303\304#\266\202\2024 \305A@\"\266\202\211\203> \307P\202? \310\262$\207" [format "#+BEGIN: %s%s\n%s#+END:" :block-name get-text-property 0 plist-get :arguments " " ""] 11 (#$ . 22123)]) | |
| 279 | #@49 Regexp used as a footnote definition separator. | |
| 280 | (defconst org-element--footnote-separator (concat org-outline-regexp-bol #1="\\|" org-footnote-definition-re #1# "^\\([ ]*\n\\)\\{2,\\}") (#$ . 22580)) | |
| 281 | #@504 Parse a footnote definition. | |
| 282 | ||
| 283 | LIMIT bounds the search. AFFILIATED is a list of which CAR is | |
| 284 | the buffer position at the beginning of the first affiliated | |
| 285 | keyword and CDR is a plist of affiliated keywords along with | |
| 286 | their value. | |
| 287 | ||
| 288 | Return a list whose CAR is `footnote-definition' and CDR is | |
| 289 | a plist containing `:label', `:begin' `:end', `:contents-begin', | |
| 290 | `:contents-end', `:post-blank' and `:post-affiliated' keywords. | |
| 291 | ||
| 292 | Assume point is at the beginning of the footnote definition. | |
| 293 | ||
| 294 | (fn LIMIT AFFILIATED) | |
| 295 | (defalias 'org-element-footnote-definition-parser #[514 "\212\304!\210\305\306!@`\212\307\210\310 \311#\204 \202b \312\224f\313=\203E \314y\210`V\203? \n\311\304!)\262\203? \314y\210\202' \315\316!\202b \312\224f\317=\203R \312\224\202b \320w\210`U\203` \202b \315 )\321\322!\210\320w\210`U\203u \307\202\202 \315 U\203\200 `\202\202 \315 b\210\320\307x\210\315\316!\323\324\325\326\327 \330 \205\241 \n\331\332 \"\333\257A\244D\266\206)\207" [org-footnote-definition-re org-element--footnote-separator org-element--affiliated-re inhibit-changing-match-data looking-at match-string-no-properties 1 nil re-search-forward t 0 91 -1 line-beginning-position 2 42 " \n" search-forward "]" footnote-definition :label :begin :end :contents-begin :contents-end :post-blank count-lines :post-affiliated] 23 (#$ . 22788)]) | |
| 296 | #@142 Interpret FOOTNOTE-DEFINITION element as Org syntax. | |
| 297 | CONTENTS is the contents of the footnote-definition. | |
| 298 | ||
| 299 | (fn FOOTNOTE-DEFINITION CONTENTS) | |
| 300 | (defalias 'org-element-footnote-definition-interpreter #[514 "\300\301\302\211;\203 \303\304#\266\202\202 \305A@\"\266\202\"\306Q\207" [format "[fn:%s]" :label get-text-property 0 plist-get " "] 10 (#$ . 24148)]) | |
| 301 | #@243 Return node properties associated to headline at point. | |
| 302 | Upcase property names. It avoids confusion between properties | |
| 303 | obtained through property drawer and default properties from the | |
| 304 | parser (e.g. `:end' and :END:). Return value is a plist. | |
| 305 | (defalias 'org-element--get-node-properties #[0 "\212\304y\210\305\306!)\262\203 \304y\210\306\n!\205E \304y\210\307\225\304\310 W\203C \306 !\210\311\312!B\262\313\314\315\316!\226P!B\262\304y\210\202 \262)\207" [org-planning-line-re inhibit-changing-match-data org-property-drawer-re org-property-re nil t looking-at 0 line-end-position match-string-no-properties 3 intern ":" match-string 2] 6 (#$ . 24517)]) | |
| 306 | #@82 Return time properties associated to headline at point. | |
| 307 | Return value is a plist. | |
| 308 | (defalias 'org-element--get-time-properties #[0 "\212\304y\210\305!\205P \306 \304\307 \310#\203N \311\225b\210\312\304w\210\313\311!\314 \n\232\2032 \315\316#\262\202I \232\203B \315\317#\262\202I \315\320#\262\266\202 \262)\207" [org-planning-line-re org-keyword-time-not-clock-regexp org-scheduled-string org-deadline-string nil looking-at line-end-position re-search-forward t 1 " " match-string org-element-timestamp-parser plist-put :scheduled :deadline :closed] 8 (#$ . 25189)]) | |
| 309 | #@790 Parse a headline. | |
| 310 | ||
| 311 | Return a list whose CAR is `headline' and CDR is a plist | |
| 312 | containing `:raw-value', `:title', `:begin', `:end', | |
| 313 | `:pre-blank', `:contents-begin' and `:contents-end', `:level', | |
| 314 | `:priority', `:tags', `:todo-keyword',`:todo-type', `:scheduled', | |
| 315 | `:deadline', `:closed', `:archivedp', `:commentedp' | |
| 316 | `:footnote-section-p', `:post-blank' and `:post-affiliated' | |
| 317 | keywords. | |
| 318 | ||
| 319 | The plist also contains any property set in the property drawer, | |
| 320 | with its name in upper cases and colons added at the | |
| 321 | beginning (e.g., `:CUSTOM_ID'). | |
| 322 | ||
| 323 | LIMIT is a buffer position bounding the search. | |
| 324 | ||
| 325 | When RAW-SECONDARY-P is non-nil, headline's title will not be | |
| 326 | parsed as a secondary string, but as a plain string instead. | |
| 327 | ||
| 328 | Assume point is at beginning of the headline. | |
| 329 | ||
| 330 | (fn LIMIT &optional RAW-SECONDARY-P) | |
| 331 | (defalias 'org-element-headline-parser #[513 "\212`\306\307\310w!\311\310w\210\205% \310\312\313P!)\205% \314\225b\210\311\310w\210\315\316!\211\2054 \211\n\235\2033 \317\2024 \320\312\321!\205C \314\225b\210\315\314!\322H\310\312 !)\205O \314\225b`\323\324\325 \326#\205c \314\224b\210\327\315\316!\330\"`\331\"\310\332\203r \333\202s \334\335\332\336\335##\266\202\f\235 \205\207 \230\337 \340 \212\341\342\211\")^\212\310y\210\343w\210`U?\205\245 \344 )\211\205\264 b\210\343\310x\210\344\322!\345\346 \347\350\351 \204\310 \314\202\317 \352 \"S\353 \354\f\355 \356 \357\360\"\361#\362\203\363 \352 \"\202\372 \352) \"S\363 \364\"\365)\3660\257 \244\244D\211\367\203\n\202\\\370b\210\311\310w\210` b\210\311\310x\210`\310\345\2119\2038\211\202S\211\211:\204I\211;\205Q\371\262\202S\211@9\205Q\211@\262<\236A\262%;\203l\372\310$\266\203\202zA\373A@#\240\210\266\203\262\266\221)\207" [org-todo-regexp case-fold-search org-done-keywords org-comment-string org-archive-tag org-footnote-section org-reduced-level "*" nil " " looking-at " " 0 match-string 1 done todo "\\[#.\\][ ]*" 2 re-search-forward "[ ]+\\(:[[:alnum:]_@#%:]+:\\)[ ]*$" line-end-position move org-split-string ":" buffer-substring-no-properties replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "" "[ \n ]+\\'" org-element--get-node-properties org-element--get-time-properties org-end-of-subtree t " \n" line-beginning-position headline :raw-value :begin :end :pre-blank count-lines :contents-begin :contents-end :level :priority :tags :todo-keyword :todo-type :post-blank :footnote-section-p :archivedp :commentedp :post-affiliated :title org-element--parse-objects plain-text org-add-props plist-put org-element-object-restrictions] 52 (#$ . 25781)]) | |
| 332 | #@108 Interpret HEADLINE element as Org syntax. | |
| 333 | CONTENTS is the contents of the element. | |
| 334 | ||
| 335 | (fn HEADLINE CONTENTS) | |
| 336 | (defalias 'org-element-headline-interpreter #[514 "\304\211;\203 \305\306#\266\202\202 \307A@\"\266\202\310\211;\203* \305\306#\266\202\2022 \307A@\"\266\202\311\211;\203C \305\306#\266\202\202K \307A@\"\266\202\312\313\211;\203^ \305\306#\266\202\202f \307A@\"\266\202!\314\211;\203y \305\306#\266\202\202\201 \307A@\"\266\202\211\205\215 \315\316\317\320\321#\"\262\322\211;\203\241 \305\306#\266\202\202\251 \307A@\"\266\202\323\211;\203\273 \305\306#\266\202\202\303 \307A@\"\266\202\206\307 \306\324\203\324 \325_S\202\326 \326\"\205\341 \327P\205\350 \327 P\205\362 \315\330 \"\327\n\203\331\211;\203 \305\306#\266\202\202\307A@\"\266\202\203\n\202\260\211\205S \306U\203/\315\332\"\202S \306W\203H\324\333 GG#[\334]\335\"P\202S\324 GZ\334]\335\"P\324T\336\" R\207" [org-odd-levels-only org-comment-string org-footnote-section org-tags-column :level get-text-property 0 plist-get :todo-keyword :priority org-element-interpret-data :title :tags format ":%s:" mapconcat identity ":" :commentedp :pre-blank make-string 2 42 " " " [#%c]" :footnote-section-p " %s" + 1 32 10] 20 (#$ . 28395)]) | |
| 337 | #@721 Parse an inline task. | |
| 338 | ||
| 339 | Return a list whose CAR is `inlinetask' and CDR is a plist | |
| 340 | containing `:title', `:begin', `:end', `:pre-blank', | |
| 341 | `:contents-begin' and `:contents-end', `:level', `:priority', | |
| 342 | `:raw-value', `:tags', `:todo-keyword', `:todo-type', | |
| 343 | `:scheduled', `:deadline', `:closed', `:post-blank' and | |
| 344 | `:post-affiliated' keywords. | |
| 345 | ||
| 346 | The plist also contains any property set in the property drawer, | |
| 347 | with its name in upper cases and colons added at the | |
| 348 | beginning (e.g., `:CUSTOM_ID'). | |
| 349 | ||
| 350 | When optional argument RAW-SECONDARY-P is non-nil, inline-task's | |
| 351 | title will not be parsed as a secondary string, but as a plain | |
| 352 | string instead. | |
| 353 | ||
| 354 | Assume point is at beginning of the inline task. | |
| 355 | ||
| 356 | (fn LIMIT &optional RAW-SECONDARY-P) | |
| 357 | (defalias 'org-element-inlinetask-parser #[513 "\212`\306\307\310w!\311\310w\210\205# \310\312!)\205# \313\225b\210\311\310w\210\314\313!\211\2052 \211\n\235\2031 \315\2022 \316\312\317!\205A \313\225b\210\314\313!\320H`\321\322\323 \324#\205U \313\224b\210\325\314\326!\327\"`\330\"\310\331\203d \332\202e \333\334\331\335\334##\266\202\212\310\210\321 \f\336#\205\212 \337\336 \312!)\262\205\212 \340 )\211\205\221 \341 \205\227 \342 \205\252 `W\205\252 \310y\210\343\310w\210\340 \211\205\257 \203\266 b\210\310y\210\344w\210m\203\306 `\202\310 \340 \345\346\347\350\351\n\204\334 \313\202\343 \352\f\"S\353\f\354 \355\356\357\360 \361!\362\352 \206'\"S\363(\257\244\244D\211\364\203 \202]\365 b\210\311\310w\210`\fb\210\311\310x\210`\310\345\2119\203:\211\202U\211\211:\204K\211;\205S\366\262\202U\211@9\205S\211@\262 \236A\262%;\203m\367\310$\266\203\202{A\370A@#\240\210\266\203\266\220)\207" [org-todo-regexp case-fold-search org-done-keywords org-outline-regexp-bol inhibit-changing-match-data org-element-object-restrictions org-reduced-level "*" nil " " looking-at 0 match-string done todo "\\[#.\\][ ]*" 2 re-search-forward "[ ]+\\(:[[:alnum:]_@#%:]+:\\)[ ]*$" line-end-position move org-split-string 1 ":" buffer-substring-no-properties replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "" "[ \n ]+\\'" t "[ ]*END[ ]*$" line-beginning-position org-element--get-node-properties org-element--get-time-properties " \n" " \n" inlinetask :raw-value :begin :end :pre-blank count-lines :contents-begin :contents-end :level :priority :tags :todo-keyword :todo-type :post-blank :post-affiliated :title org-element--parse-objects plain-text org-add-props plist-put] 44 (#$ . 29694)]) | |
| 358 | #@111 Interpret INLINETASK element as Org syntax. | |
| 359 | CONTENTS is the contents of inlinetask. | |
| 360 | ||
| 361 | (fn INLINETASK CONTENTS) | |
| 362 | (defalias 'org-element-inlinetask-interpreter #[514 "\301\211;\203 \302\303#\266\202\202 \304A@\"\266\202\305\211;\203* \302\303#\266\202\2022 \304A@\"\266\202\306\211;\203C \302\303#\266\202\202K \304A@\"\266\202\307\310\211;\203^ \302\303#\266\202\202f \304A@\"\266\202!\311\211;\203y \302\303#\266\202\202\201 \304A@\"\266\202\211\205\215 \312\313\314\315\316#\"\262\317\320\"\205\232 \321P\205\243 \312\322\"\205\252 \321PR\211\205\341 \303U\203\275 \312\323\"\202\341 \303W\203\326 \317\324GG#[\325]\326\"P\202\341 \317GZ\325]\326\"P\205\360 \327 \317\n\320\"\330RQ\207" [org-tags-column :level get-text-property 0 plist-get :todo-keyword :priority org-element-interpret-data :title :tags format ":%s:" mapconcat identity ":" make-string 42 " " " [#%c]" " %s" + 1 32 "\n" " END"] 15 (#$ . 32207)]) | |
| 363 | #@517 Parse an item. | |
| 364 | ||
| 365 | STRUCT is the structure of the plain list. | |
| 366 | ||
| 367 | Return a list whose CAR is `item' and CDR is a plist containing | |
| 368 | `:bullet', `:begin', `:end', `:contents-begin', `:contents-end', | |
| 369 | `:checkbox', `:counter', `:tag', `:structure', `:post-blank' and | |
| 370 | `:post-affiliated' keywords. | |
| 371 | ||
| 372 | When optional argument RAW-SECONDARY-P is non-nil, item's tag, if | |
| 373 | any, will not be parsed as a secondary string, but as a plain | |
| 374 | string instead. | |
| 375 | ||
| 376 | Assume point is at the beginning of the item. | |
| 377 | ||
| 378 | (fn _ STRUCT &optional RAW-SECONDARY-P) | |
| 379 | (defalias 'org-element-item-parser #[770 "\212\302 \210\303!\210`\304\305!\306\307!\211\310\267\202! \311\202\" \312\202\" \313\202\" \314\262\306\315!\316 \317\320\321\322\323!\324\"\307$\216\204= \314\202] \325\326\"\203P \327\306\320\"\226!\330Z\202] \325\331\"\205] \332\306\320\"!)\262\262\333`\2368b\210n\203r `\202u \334\315!\335\224\203\230 \316 \317\320\321\322\323!\336\"\307$\216\325\337\")\262\203\230 \335\224\202\232 \320\225b\210\340w\210`U\203\252 \314\202\267 \334 U\203\265 `\202\267 \334 \211\205\305 b\210\340\314x\210\334\315!\341\342\343\n\344\345 \346\n\347\350\351\352\353\206\347 \"\354\257D\211\355 \f\356\2368\266\203\266\202\211\205B \203\211\202B\357\335\224\335\225\314\341\2119\203 \211\202:\211\211:\2040\211;\2058\360\262\202:\211@9\2058\211@\262 \236A\262%\262;\203T\361\314$\266\203\202bA\362A@#\240\210\266\203\266\210)\207" [org-list-full-item-re org-element-object-restrictions beginning-of-line looking-at match-string-no-properties 1 match-string 3 #s(hash-table size 3 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("[ ]" 21 "[X]" 25 "[-]" 29)) off on trans nil 2 match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] string-match "[A-Za-z]" string-to-char 64 "[0-9]+" string-to-number 6 line-beginning-position 4 [set-match-data evaporate] "[.)]" " \n" item :bullet :begin :end :contents-begin :contents-end :checkbox :counter :structure :post-blank count-lines :post-affiliated :tag 5 org-element--parse-objects plain-text org-add-props plist-put] 31 (#$ . 33182)]) | |
| 380 | #@100 Interpret ITEM element as Org syntax. | |
| 381 | CONTENTS is the contents of the element. | |
| 382 | ||
| 383 | (fn ITEM CONTENTS) | |
| 384 | (defalias 'org-element-item-interpreter #[514 "\302\211;\203 \303\304#\266\202\202 \305A@\"\266\202\306\307\"\204$ \310\202/ \311=\203. \312\202/ \313\314 \315\304\316\317\320!\321\"\322$\216 \203L \306 \"\203L \323\202M \324\306\325\"\203_ \326\327\211\330%\202` \262)\262\262\262\331\211;\203z \303\304#\266\202\202\202 \305A@\"\266\202\332\211;\203\223 \303\304#\266\202\202\233 \305A@\"\266\202\333\211;\203\254 \303\304#\266\202\202\264 \305A@\"\266\202\211\205\273 \334!\262\335G\336\"\211:\204\317 \327\262\202\332 \211@9\203\332 \211AA\262@\211:\204\353 \211;\205\363 \337\262\202\365 \211@9\205\363 \211@\262\340=\205\341\342\"\343\267\202\344\202\345\202\346\202\327\205 \341\347\"\n\205P\350\351 \327\211\330&\203K\211\327\350\203=\352\202>\353\354\350\355\354##\266\202\202N\356P\262\260\207" [org-plain-list-ordered-item-terminator org-list-two-spaces-after-bullet-regexp :bullet get-text-property 0 plist-get string-match "[0-9a-zA-Z]" "- " 41 "1)" "1." match-data make-byte-code "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 " " " " "\\S-+\\([ ]*\\)" replace-match nil 1 :checkbox :counter :tag org-element-interpret-data make-string 32 plain-text paragraph format "[@%d] " #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (on 264 off 268 trans 272)) "[X] " "[ ] " "[-] " "%s :: " replace-regexp-in-string "\\(^\\)[ ]*\\S-" "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "" "[ \n ]+\\'" "\n"] 22 (#$ . 35351)]) | |
| 385 | #@14 | |
| 386 | ||
| 387 | (fn LIMIT) | |
| 388 | (defalias 'org-element--list-struct #[257 "\305\306 \307\310!\205 \311\312\211\212\3132}`Y\203E \314\312x\210\315\316!\211\2036 \211@\317\233\240\210A\266\202\202# \266\320\313\321\244\322\"\"\210\202 \323 !\203m \211\203_ \211@\317\233`\240\210A\266\202\202L \210\320\313\321\244\322\"\"\210\202 \323!\203\335 \212\324\312w\210i)^\262\203\241 \211@A@X\203\241 \211A\262\242\317\233`\240\210\211B\262\210\202 \323\n!\210\325\326!`\325\316!\325\327!\330 \331\332\333\334\335!\336\"\327$\216\337\340\")\262\205\315 \325\341!\312\257\262B\262\210\312y\210\202 \323\342!\203\351 \312y\210\202 \203\323!\203\312y\210`\343 \305#\203\344\305\323!)\262\203\312y\210\202\211b\210\210\202 \212\324\312w\210i)\212\314\312x\210\315\316!)@A@X\203T\211A\262\242\317\233\240\210\211B\262\204P\320\313\321\322\"\"\210\210\202)\266\323\345!\203j\343\346\347\350\326!\"\305#\204w\323\f!\203w\343\351\305#\210\312y\210\202 *\207" [case-fold-search org-list-end-re org-list-full-item-re inhibit-changing-match-data org-drawer-regexp t org-item-re featurep org-inlinetask "^\\*+ " nil :exit " \n" line-beginning-position 2 6 throw sort car-less-than-car looking-at " " match-string-no-properties 1 3 match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] string-match "[-+*]" 4 "^[ ]*$" re-search-forward "END[ ]*$" "[ ]*#\\+BEGIN\\(:\\|_\\S-+\\)" format "^[ ]*#\\+END%s[ ]*$" match-string "^[ ]*:END:[ ]*$"] 21 (#$ . 37009)]) | |
| 389 | #@558 Parse a plain list. | |
| 390 | ||
| 391 | LIMIT bounds the search. AFFILIATED is a list of which CAR is | |
| 392 | the buffer position at the beginning of the first affiliated | |
| 393 | keyword and CDR is a plist of affiliated keywords along with | |
| 394 | their value. STRUCTURE is the structure of the plain list being | |
| 395 | parsed. | |
| 396 | ||
| 397 | Return a list whose CAR is `plain-list' and CDR is a plist | |
| 398 | containing `:type', `:begin', `:end', `:contents-begin' and | |
| 399 | `:contents-end', `:structure', `:post-blank' and | |
| 400 | `:post-affiliated' keywords. | |
| 401 | ||
| 402 | Assume point is at the beginning of the list. | |
| 403 | ||
| 404 | (fn LIMIT AFFILIATED STRUCTURE) | |
| 405 | (defalias 'org-element-plain-list-parser #[771 "\212\211\206 \301!\302\303\304!)\262\203 \305\202% \306`\2368\203$ \307\202% \310`@\236\211A@\3118\211\236\211\262\203K A@U\203K \3118\262\2021 \266\202\211b\210\312w\210`U\203a \202c \313 \314\315\316\317\320 \321 \322\323\324\"\325\257 A\244D\266\206)\207" [inhibit-changing-match-data org-element--list-struct "[ ]*[A-Za-z0-9]" t looking-at ordered 5 descriptive unordered 6 " \n" line-beginning-position plain-list :type :begin :end :contents-begin :contents-end :structure :post-blank count-lines :post-affiliated] 26 (#$ . 38567)]) | |
| 406 | #@103 Interpret plain-list element as Org syntax. | |
| 407 | CONTENTS is the contents of the element. | |
| 408 | ||
| 409 | (fn _ CONTENTS) | |
| 410 | (defalias 'org-element-plain-list-interpreter #[514 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216c\210eb\210\311 \210\312 *\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 org-list-repair buffer-string] 9 (#$ . 39762)]) | |
| 411 | #@299 Parse a property drawer. | |
| 412 | ||
| 413 | LIMIT bounds the search. | |
| 414 | ||
| 415 | Return a list whose car is `property-drawer' and cdr is a plist | |
| 416 | containing `:begin', `:end', `:contents-begin', `:contents-end', | |
| 417 | `:post-blank' and `:post-affiliated' keywords. | |
| 418 | ||
| 419 | Assume point is at the beginning of the property drawer. | |
| 420 | ||
| 421 | (fn LIMIT) | |
| 422 | (defalias 'org-element-property-drawer-parser #[257 "\212\301`\302\303!\304\305\301#\210\306\224V\205 \306\224\307y\210`\310w\210m\203( `\202* \302 \311\312\313\314\2058 \315\n\316\317\f\f\"\320\257\fD\266\203)\266\203)\207" [case-fold-search t line-beginning-position 2 re-search-forward "^[ ]*:END:[ ]*$" 0 nil " \n" property-drawer :begin :end :contents-begin :contents-end :post-blank count-lines :post-affiliated] 20 (#$ . 40183)]) | |
| 423 | #@113 Interpret property-drawer element as Org syntax. | |
| 424 | CONTENTS is the properties within the drawer. | |
| 425 | ||
| 426 | (fn _ CONTENTS) | |
| 427 | (defalias 'org-element-property-drawer-interpreter #[514 "\300\301\"\207" [format ":PROPERTIES:\n%s:END:"] 5 (#$ . 40948)]) | |
| 428 | #@465 Parse a quote block. | |
| 429 | ||
| 430 | LIMIT bounds the search. AFFILIATED is a list of which CAR is | |
| 431 | the buffer position at the beginning of the first affiliated | |
| 432 | keyword and CDR is a plist of affiliated keywords along with | |
| 433 | their value. | |
| 434 | ||
| 435 | Return a list whose CAR is `quote-block' and CDR is a plist | |
| 436 | containing `:begin', `:end', `:contents-begin', `:contents-end', | |
| 437 | `:post-blank' and `:post-affiliated' keywords. | |
| 438 | ||
| 439 | Assume point is at the beginning of the block. | |
| 440 | ||
| 441 | (fn LIMIT AFFILIATED) | |
| 442 | (defalias 'org-element-quote-block-parser #[514 "\301\212\302\303\301#)\204 \304\"\202` \305\224\212@`\306y\210`W\205# `\211\205( b\210\306y\210`\307w\210m\203< `\202> \310 \311\312\313\314 \315\n\316\317\f\f\"\320\257\f A\244D\266\206)\262)\207" [case-fold-search t re-search-forward "^[ ]*#\\+END_QUOTE[ ]*$" org-element-paragraph-parser 0 nil " \n" line-beginning-position quote-block :begin :end :contents-begin :contents-end :post-blank count-lines :post-affiliated] 22 (#$ . 41192)]) | |
| 443 | #@104 Interpret quote-block element as Org syntax. | |
| 444 | CONTENTS is the contents of the element. | |
| 445 | ||
| 446 | (fn _ CONTENTS) | |
| 447 | (defalias 'org-element-quote-block-interpreter #[514 "\300\301\"\207" [format "#+BEGIN_QUOTE\n%s#+END_QUOTE"] 5 (#$ . 42179)]) | |
| 448 | #@194 Parse a section. | |
| 449 | ||
| 450 | Return a list whose CAR is `section' and CDR is a plist | |
| 451 | containing `:begin', `:end', `:contents-begin', `contents-end', | |
| 452 | `:post-blank' and `:post-affiliated' keywords. | |
| 453 | ||
| 454 | (fn _) | |
| 455 | (defalias 'org-element-section-parser #[257 "\212`\304\305 \211\306 P\307 \210,`\310\311x\210\312\313!\314\315\316\317\320\321\322 \"\323\257\fD\266\203)\207" [org-called-with-limited-levels org-outline-regexp outline-regexp org-outline-regexp-bol t org-get-limited-outline-regexp "^" outline-next-heading " \n" nil line-beginning-position 2 section :begin :end :contents-begin :contents-end :post-blank count-lines :post-affiliated] 18 (#$ . 42417)]) | |
| 456 | #@100 Interpret section element as Org syntax. | |
| 457 | CONTENTS is the contents of the element. | |
| 458 | ||
| 459 | (fn _ CONTENTS) | |
| 460 | (defalias 'org-element-section-interpreter #[514 "\207" [] 3 (#$ . 43086)]) | |
| 461 | #@478 Parse a special block. | |
| 462 | ||
| 463 | LIMIT bounds the search. AFFILIATED is a list of which CAR is | |
| 464 | the buffer position at the beginning of the first affiliated | |
| 465 | keyword and CDR is a plist of affiliated keywords along with | |
| 466 | their value. | |
| 467 | ||
| 468 | Return a list whose CAR is `special-block' and CDR is a plist | |
| 469 | containing `:type', `:begin', `:end', `:contents-begin', | |
| 470 | `:contents-end', `:post-blank' and `:post-affiliated' keywords. | |
| 471 | ||
| 472 | Assume point is at the beginning of the block. | |
| 473 | ||
| 474 | (fn LIMIT AFFILIATED) | |
| 475 | (defalias 'org-element-special-block-parser #[514 "\301\302\303!\210\304\305!\212\306\307\310\311!\"\301#)\204 \312\"\202p \313\224\212@`\314y\210`W\205/ `\211\2054 b\210\314y\210`\315 w\210m\203H `\202J \316 \317\320 \321 \322\323 \324\f\325\326\"\327\257\nA\244D\266\206)\262)\207" [case-fold-search t looking-at "[ ]*#\\+BEGIN_\\(\\S-+\\)" match-string-no-properties 1 re-search-forward format "^[ ]*#\\+END_%s[ ]*$" regexp-quote org-element-paragraph-parser 0 nil " \n" line-beginning-position special-block :type :begin :end :contents-begin :contents-end :post-blank count-lines :post-affiliated] 25 (#$ . 43268)]) | |
| 476 | #@118 Interpret SPECIAL-BLOCK element as Org syntax. | |
| 477 | CONTENTS is the contents of the element. | |
| 478 | ||
| 479 | (fn SPECIAL-BLOCK CONTENTS) | |
| 480 | (defalias 'org-element-special-block-interpreter #[514 "\300\211;\203 \301\302#\266\202\202 \303A@\"\266\202\304\305$\207" [:type get-text-property 0 plist-get format "#+BEGIN_%s\n%s#+END_%s"] 8 (#$ . 44403)]) | |
| 481 | #@448 Parse a babel call. | |
| 482 | ||
| 483 | LIMIT bounds the search. AFFILIATED is a list of which car is | |
| 484 | the buffer position at the beginning of the first affiliated | |
| 485 | keyword and cdr is a plist of affiliated keywords along with | |
| 486 | their value. | |
| 487 | ||
| 488 | Return a list whose car is `babel-call' and cdr is a plist | |
| 489 | containing `:call', `:inside-header', `:arguments', | |
| 490 | `:end-header', `:begin', `:end', `:value', `:post-blank' and | |
| 491 | `:post-affiliated' as keywords. | |
| 492 | ||
| 493 | (fn LIMIT AFFILIATED) | |
| 494 | (defalias 'org-element-babel-call-parser #[514 "\212\211@`\300\301!\302\303\304#\210\305\306w\210\307`\310 \"\306\311\203 \312\202! \313\314\311\315\314##\266\202\316\307`\317w\210`\"!\320\321!\316\320\322!!\316\307`\310 \"\306\311\203M \312\202N \313\314\311\315\314##\266\202!\306y\210\323\nw\210m\203i `\202k \300 \324\325\326\327\330 \331\332\f\333\334\335\"\336\257 A\244D\266\211)\207" [line-beginning-position 2 search-forward ":" t " " nil buffer-substring-no-properties line-end-position replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "" "[ \n ]+\\'" org-string-nw-p "^[]()" org-element--parse-paired-brackets 91 40 " \n" babel-call :call :inside-header :arguments :end-header :begin :end :value :post-blank count-lines :post-affiliated] 30 (#$ . 44747)]) | |
| 495 | #@64 Interpret BABEL-CALL element as Org syntax. | |
| 496 | ||
| 497 | (fn BABEL-CALL _) | |
| 498 | (defalias 'org-element-babel-call-interpreter #[514 "\300\301\211;\203 \302\303#\266\202\202 \304A@\"\266\202\305\211;\203+ \302\303#\266\202\2023 \304A@\"\266\202\211\205; \306\307\"\262\310\311\211;\203P \302\303#\266\202\202X \304A@\"\266\202\312Q\313\211;\203l \302\303#\266\202\202t \304A@\"\266\202\211\205{ \314P\262\260\207" ["#+CALL: " :call get-text-property 0 plist-get :inside-header format "[%s]" "(" :arguments ")" :end-header " "] 12 (#$ . 46011)]) | |
| 499 | #@218 Parse a clock. | |
| 500 | ||
| 501 | LIMIT bounds the search. | |
| 502 | ||
| 503 | Return a list whose CAR is `clock' and CDR is a plist containing | |
| 504 | `:status', `:value', `:time', `:begin', `:end', `:post-blank' and | |
| 505 | `:post-affiliated' as keywords. | |
| 506 | ||
| 507 | (fn LIMIT) | |
| 508 | (defalias 'org-element-clock-parser #[257 "\212\302`\303 \304 \305#\210\306\302w\210\307 \303\310\304 \305#\205' \306\302w\210\311\312!\205' \313\314!\211\203/ \315\2020 \316\302y\210`\317w\210\306\302x\210n\204D \302\210\320`\"\262`\321\322\323\324 \325 \326\n\327 \330\257)D\266\206)\207" [case-fold-search org-clock-string nil search-forward line-end-position t " " org-element-timestamp-parser " => " looking-at "\\(\\S-+\\)[ ]*$" match-string-no-properties 1 closed running " \n" count-lines clock :status :value :duration :begin :end :post-blank :post-affiliated] 22 (#$ . 46574)]) | |
| 509 | #@54 Interpret CLOCK element as Org syntax. | |
| 510 | ||
| 511 | (fn CLOCK _) | |
| 512 | (defalias 'org-element-clock-interpreter #[514 "\301\302\303\211;\203 \304\305#\266\202\202 \306A@\"\266\202\307\"\310\211;\203/ \304\305#\266\202\2027 \306A@\"\266\202\211\205E \311\312\313\314\315\316\"#P\262R\207" [org-clock-string " " org-element-timestamp-interpreter :value get-text-property 0 plist-get nil :duration " => " apply format "%2s:%02s" org-split-string ":"] 13 (#$ . 47405)]) | |
| 513 | #@419 Parse a comment. | |
| 514 | ||
| 515 | LIMIT bounds the search. AFFILIATED is a list of which CAR is | |
| 516 | the buffer position at the beginning of the first affiliated | |
| 517 | keyword and CDR is a plist of affiliated keywords along with | |
| 518 | their value. | |
| 519 | ||
| 520 | Return a list whose CAR is `comment' and CDR is a plist | |
| 521 | containing `:begin', `:end', `:value', `:post-blank', | |
| 522 | `:post-affiliated' keywords. | |
| 523 | ||
| 524 | Assume point is at comment beginning. | |
| 525 | ||
| 526 | (fn LIMIT AFFILIATED) | |
| 527 | (defalias 'org-element-comment-parser #[514 "\212\211@`\300\301!\210\302\303\225\304 \"\305y\210`W\203. \300\306!\203. \211\307\302\303\225\304 \"Q\262\305y\210\202 `\211b\210\310w\210m\203? `\202A \311 \312\313\314\315\316\317\n\n\"\320 \257\nA\244D\266\205)\207" [looking-at "[ ]*# ?" buffer-substring-no-properties 0 line-end-position nil "[ ]*#\\( \\|$\\)" "\n" " \n" line-beginning-position comment :begin :end :value :post-blank count-lines :post-affiliated] 18 (#$ . 47875)]) | |
| 528 | #@75 Interpret COMMENT element as Org syntax. | |
| 529 | CONTENTS is nil. | |
| 530 | ||
| 531 | (fn COMMENT _) | |
| 532 | (defalias 'org-element-comment-interpreter #[514 "\300\301\302\303\211;\203 \304\305#\266\202\202 \306A@\"\266\202#\207" [replace-regexp-in-string "^" "# " :value get-text-property 0 plist-get] 11 (#$ . 48801)]) | |
| 533 | #@440 Parse an export block. | |
| 534 | ||
| 535 | LIMIT bounds the search. AFFILIATED is a list of which CAR is | |
| 536 | the buffer position at the beginning of the first affiliated | |
| 537 | keyword and CDR is a plist of affiliated keywords along with | |
| 538 | their value. | |
| 539 | ||
| 540 | Return a list whose CAR is `comment-block' and CDR is a plist | |
| 541 | containing `:begin', `:end', `:value', `:post-blank' and | |
| 542 | `:post-affiliated' keywords. | |
| 543 | ||
| 544 | Assume point is at comment block beginning. | |
| 545 | ||
| 546 | (fn LIMIT AFFILIATED) | |
| 547 | (defalias 'org-element-comment-block-parser #[514 "\301\212\302\303\301#)\204 \304\"\202W \305\224\212@`\306y\210`b\210\306y\210`\307w\210m\2031 `\2023 \310 \311\"\312\313\314\315\316\317 \"\320\257\n A\244D\266\206)\262)\207" [case-fold-search t re-search-forward "^[ ]*#\\+END_COMMENT[ ]*$" org-element-paragraph-parser 0 nil " \n" line-beginning-position buffer-substring-no-properties comment-block :begin :end :value :post-blank count-lines :post-affiliated] 20 (#$ . 49101)]) | |
| 548 | #@70 Interpret COMMENT-BLOCK element as Org syntax. | |
| 549 | ||
| 550 | (fn COMMENT-BLOCK _) | |
| 551 | (defalias 'org-element-comment-block-interpreter #[514 "\300\301\302\303\304\211;\203 \305\306#\266\202\202 \307A@\"\266\202!!\"\207" [format "#+BEGIN_COMMENT\n%s#+END_COMMENT" org-element-normalize-string org-remove-indentation :value get-text-property 0 plist-get] 12 (#$ . 50056)]) | |
| 552 | #@389 Parse a diary sexp. | |
| 553 | ||
| 554 | LIMIT bounds the search. AFFILIATED is a list of which CAR is | |
| 555 | the buffer position at the beginning of the first affiliated | |
| 556 | keyword and CDR is a plist of affiliated keywords along with | |
| 557 | their value. | |
| 558 | ||
| 559 | Return a list whose CAR is `diary-sexp' and CDR is a plist | |
| 560 | containing `:begin', `:end', `:value', `:post-blank' and | |
| 561 | `:post-affiliated' keywords. | |
| 562 | ||
| 563 | (fn LIMIT AFFILIATED) | |
| 564 | (defalias 'org-element-diary-sexp-parser #[514 "\212\211@`\300\301!\210\302\303!\304y\210`\305w\210m\203 `\202 \306 \307\310\311\312\313\314\n\n\"\315 \257\nA\244D\266\205)\207" [looking-at "\\(%%(.*\\)[ ]*$" match-string-no-properties 1 nil " \n" line-beginning-position diary-sexp :value :begin :end :post-blank count-lines :post-affiliated] 18 (#$ . 50425)]) | |
| 565 | #@56 Interpret DIARY-SEXP as Org syntax. | |
| 566 | ||
| 567 | (fn DIARY-SEXP _) | |
| 568 | (defalias 'org-element-diary-sexp-interpreter #[514 "\300\211;\203 \301\302#\207\303A@\"\207" [:value get-text-property 0 plist-get] 8 (#$ . 51198)]) | |
| 569 | #@493 Parse an example block. | |
| 570 | ||
| 571 | LIMIT bounds the search. AFFILIATED is a list of which CAR is | |
| 572 | the buffer position at the beginning of the first affiliated | |
| 573 | keyword and CDR is a plist of affiliated keywords along with | |
| 574 | their value. | |
| 575 | ||
| 576 | Return a list whose CAR is `example-block' and CDR is a plist | |
| 577 | containing `:begin', `:end', `:number-lines', `:preserve-indent', | |
| 578 | `:retain-labels', `:use-labels', `:label-fmt', `:switches', | |
| 579 | `:value', `:post-blank' and `:post-affiliated' keywords. | |
| 580 | ||
| 581 | (fn LIMIT AFFILIATED) | |
| 582 | (defalias 'org-element-example-block-parser #[514 "\301\212\302\303\301#)\204 \304\"\202\331 \305\224\212\306\307!\210\310\311!\211\205G \312\313\"\205G \314\311\"\315\232\2035 \316\2026 \317\320\225\204? \305\202F \321\314\320\"!SB\205O \312\322\"?\206d \312\323\"?\206d \205d \312\324\"?\206r \211\205r \312\324\"?\205\203 \312\325\"\205\203 \314\311\"@`\326\320!\327\330\f\"!\nb\210\331y\210`\332w\210m\203\246 `\202\250 \326 \333\334\335\336\337\340\341\342\343\344\345\346\"\347\257A\244D\266\214)\262)\207" [case-fold-search t re-search-forward "^[ ]*#\\+END_EXAMPLE[ ]*$" org-element-paragraph-parser 0 looking-at "^[ ]*#\\+BEGIN_EXAMPLE\\(?: +\\(.*\\)\\)?" match-string-no-properties 1 string-match "\\([-+]\\)n\\(?: *\\([0-9]+\\)\\)?\\>" match-string "-" new continued 2 string-to-number "-i\\>" "-r\\>" "-k\\>" "-l +\"\\([^\"\n]+\\)\"" line-beginning-position org-unescape-code-in-string buffer-substring-no-properties nil " \n" example-block :begin :end :value :switches :number-lines :preserve-indent :retain-labels :use-labels :label-fmt :post-blank count-lines :post-affiliated] 38 (#$ . 51416)]) | |
| 583 | #@70 Interpret EXAMPLE-BLOCK element as Org syntax. | |
| 584 | ||
| 585 | (fn EXAMPLE-BLOCK _) | |
| 586 | (defalias 'org-element-example-block-interpreter #[514 "\301\211;\203 \302\303#\266\202\202 \304A@\"\266\202\305\211;\203* \302\303#\266\202\2022 \304A@\"\266\202\306\205: \307P\310\311\312\204^ \313 \211;\203S \302\303#\266\202\202[ \304A@\"\266\202\203b \202f \314!!!\315\260\207" [org-src-preserve-indentation :switches get-text-property 0 plist-get :value "#+BEGIN_EXAMPLE" " " "\n" org-element-normalize-string org-escape-code-in-string :preserve-indent org-remove-indentation "#+END_EXAMPLE"] 15 (#$ . 53085)]) | |
| 587 | #@447 Parse an export block. | |
| 588 | ||
| 589 | LIMIT bounds the search. AFFILIATED is a list of which CAR is | |
| 590 | the buffer position at the beginning of the first affiliated | |
| 591 | keyword and CDR is a plist of affiliated keywords along with | |
| 592 | their value. | |
| 593 | ||
| 594 | Return a list whose CAR is `export-block' and CDR is a plist | |
| 595 | containing `:begin', `:end', `:type', `:value', `:post-blank' and | |
| 596 | `:post-affiliated' keywords. | |
| 597 | ||
| 598 | Assume point is at export-block beginning. | |
| 599 | ||
| 600 | (fn LIMIT AFFILIATED) | |
| 601 | (defalias 'org-element-export-block-parser #[514 "\301\212\302\303\301#)\204 \304\"\202h \212\305\224\306\307!\210\310\311!@`\312y\210`b\210\312y\210`\313w\210m\2038 `\202: \314 \315\316 \"!\317\320\205K \226\321 \322\323\324\325 \"\326\257\f\nA\244D\266\210))\207" [case-fold-search t re-search-forward "^[ ]*#\\+END_EXPORT[ ]*$" org-element-paragraph-parser 0 looking-at "[ ]*#\\+BEGIN_EXPORT\\(?:[ ]+\\(\\S-+\\)\\)?[ ]*$" match-string-no-properties 1 nil " \n" line-beginning-position org-unescape-code-in-string buffer-substring-no-properties export-block :type :begin :end :value :post-blank count-lines :post-affiliated] 23 (#$ . 53702)]) | |
| 602 | #@68 Interpret EXPORT-BLOCK element as Org syntax. | |
| 603 | ||
| 604 | (fn EXPORT-BLOCK _) | |
| 605 | (defalias 'org-element-export-block-interpreter #[514 "\300\301\302\211;\203 \303\304#\266\202\202 \305A@\"\266\202\306\211;\203, \303\304#\266\202\2024 \305A@\"\266\202#\207" [format "#+BEGIN_EXPORT %s\n%s#+END_EXPORT" :type get-text-property 0 plist-get :value] 11 (#$ . 54832)]) | |
| 606 | #@458 Parse a fixed-width section. | |
| 607 | ||
| 608 | LIMIT bounds the search. AFFILIATED is a list of which CAR is | |
| 609 | the buffer position at the beginning of the first affiliated | |
| 610 | keyword and CDR is a plist of affiliated keywords along with | |
| 611 | their value. | |
| 612 | ||
| 613 | Return a list whose CAR is `fixed-width' and CDR is a plist | |
| 614 | containing `:begin', `:end', `:value', `:post-blank' and | |
| 615 | `:post-affiliated' keywords. | |
| 616 | ||
| 617 | Assume point is at the beginning of the fixed-width area. | |
| 618 | ||
| 619 | (fn LIMIT AFFILIATED) | |
| 620 | (defalias 'org-element-fixed-width-parser #[514 "\212\211@`\300`W\203\" \301\302!\203\" \211\303\304\225\305 \"\306Q\262\300y\210\202 `\307w\210m\2030 `\2022 \310 \311\312\313\314\315\316\n\n\"\317 \257\nA\244D\266\205)\207" [nil looking-at "[ ]*:\\( \\|$\\)" buffer-substring-no-properties 0 point-at-eol "\n" " \n" line-beginning-position fixed-width :begin :end :value :post-blank count-lines :post-affiliated] 18 (#$ . 55200)]) | |
| 621 | #@66 Interpret FIXED-WIDTH element as Org syntax. | |
| 622 | ||
| 623 | (fn FIXED-WIDTH _) | |
| 624 | (defalias 'org-element-fixed-width-interpreter #[514 "\300\211;\203 \301\302#\266\202\202 \303A@\"\266\202\211\2050 \304\305\306\307\310\"\203. \302\311O\202/ #\207" [:value get-text-property 0 plist-get replace-regexp-in-string "^" ": " string-match "\n\\'" -1] 9 (#$ . 56113)]) | |
| 625 | #@390 Parse an horizontal rule. | |
| 626 | ||
| 627 | LIMIT bounds the search. AFFILIATED is a list of which CAR is | |
| 628 | the buffer position at the beginning of the first affiliated | |
| 629 | keyword and CDR is a plist of affiliated keywords along with | |
| 630 | their value. | |
| 631 | ||
| 632 | Return a list whose CAR is `horizontal-rule' and CDR is a plist | |
| 633 | containing `:begin', `:end', `:post-blank' and `:post-affiliated' | |
| 634 | keywords. | |
| 635 | ||
| 636 | (fn LIMIT AFFILIATED) | |
| 637 | (defalias 'org-element-horizontal-rule-parser #[514 "\212\211@`\300y\210`\301w\210m\203 `\202 \302 \303\304\305\306\307\"\310\n\257A\244D\266\204)\207" [nil " \n" line-beginning-position horizontal-rule :begin :end :post-blank count-lines :post-affiliated] 15 (#$ . 56475)]) | |
| 638 | #@64 Interpret HORIZONTAL-RULE element as Org syntax. | |
| 639 | ||
| 640 | (fn &rest _) | |
| 641 | (defalias 'org-element-horizontal-rule-interpreter #[128 "\300\207" ["-----"] 2 (#$ . 57160)]) | |
| 642 | #@400 Parse a keyword at point. | |
| 643 | ||
| 644 | LIMIT bounds the search. AFFILIATED is a list of which CAR is | |
| 645 | the buffer position at the beginning of the first affiliated | |
| 646 | keyword and CDR is a plist of affiliated keywords along with | |
| 647 | their value. | |
| 648 | ||
| 649 | Return a list whose CAR is `keyword' and CDR is a plist | |
| 650 | containing `:key', `:value', `:begin', `:end', `:post-blank' and | |
| 651 | `:post-affiliated' keywords. | |
| 652 | ||
| 653 | (fn LIMIT AFFILIATED) | |
| 654 | (defalias 'org-element-keyword-parser #[514 "\212\211@\206 ``\300\301!\210\302\303!\226\304\305\225\306 \"\307\310\203 \311\202! \312\313\310\314\313##\266\202\307y\210`\315w\210m\203< `\202> \316 \317\320\321\322 \323\324\325\f\f\"\326\257\fA\244D\266\206)\207" [looking-at "[ ]*#\\+\\(\\S-+*\\):" match-string-no-properties 1 buffer-substring-no-properties 0 point-at-eol nil replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "" "[ \n ]+\\'" " \n" line-beginning-position keyword :key :value :begin :end :post-blank count-lines :post-affiliated] 21 (#$ . 57325)]) | |
| 655 | #@58 Interpret KEYWORD element as Org syntax. | |
| 656 | ||
| 657 | (fn KEYWORD _) | |
| 658 | (defalias 'org-element-keyword-interpreter #[514 "\300\301\302\211;\203 \303\304#\266\202\202 \305A@\"\266\202\306\211;\203, \303\304#\266\202\2024 \305A@\"\266\202#\207" [format "#+%s: %s" :key get-text-property 0 plist-get :value] 11 (#$ . 58328)]) | |
| 659 | #@151 Regexp matching the beginning of a LaTeX environment. | |
| 660 | The environment is captured by the first group. | |
| 661 | ||
| 662 | See also `org-element--latex-end-environment'. | |
| 663 | (defconst org-element--latex-begin-environment "^[ ]*\\\\begin{\\([A-Za-z0-9*]+\\)}" (#$ . 58655)) | |
| 664 | #@108 Format string matching the ending of a LaTeX environment. | |
| 665 | See also `org-element--latex-begin-environment'. | |
| 666 | (defconst org-element--latex-end-environment "\\\\end{%s}[ ]*$" (#$ . 58912)) | |
| 667 | #@463 Parse a LaTeX environment. | |
| 668 | ||
| 669 | LIMIT bounds the search. AFFILIATED is a list of which CAR is | |
| 670 | the buffer position at the beginning of the first affiliated | |
| 671 | keyword and CDR is a plist of affiliated keywords along with | |
| 672 | their value. | |
| 673 | ||
| 674 | Return a list whose CAR is `latex-environment' and CDR is a plist | |
| 675 | containing `:begin', `:end', `:value', `:post-blank' and | |
| 676 | `:post-affiliated' keywords. | |
| 677 | ||
| 678 | Assume point is at the beginning of the latex environment. | |
| 679 | ||
| 680 | (fn LIMIT AFFILIATED) | |
| 681 | (defalias 'org-element-latex-environment-parser #[514 "\212\303`\304 !\210\305\306\n\307\310\311!!\"\303#\204 \312\"\202S \313y\210`@\314\"\315w\210m\2036 `\2028 \316 \317\320\321\322\323\324\f\n\"\325\257\nA\244D\266\204)\266\202)\207" [case-fold-search org-element--latex-begin-environment org-element--latex-end-environment t looking-at re-search-forward format regexp-quote match-string 1 org-element-paragraph-parser nil buffer-substring-no-properties " \n" line-beginning-position latex-environment :begin :end :value :post-blank count-lines :post-affiliated] 19 (#$ . 59105)]) | |
| 682 | #@78 Interpret LATEX-ENVIRONMENT element as Org syntax. | |
| 683 | ||
| 684 | (fn LATEX-ENVIRONMENT _) | |
| 685 | (defalias 'org-element-latex-environment-interpreter #[514 "\300\211;\203 \301\302#\207\303A@\"\207" [:value get-text-property 0 plist-get] 8 (#$ . 60180)]) | |
| 686 | #@228 Parse a node-property at point. | |
| 687 | ||
| 688 | LIMIT bounds the search. | |
| 689 | ||
| 690 | Return a list whose CAR is `node-property' and CDR is a plist | |
| 691 | containing `:key', `:value', `:begin', `:end', `:post-blank' and | |
| 692 | `:post-affiliated' keywords. | |
| 693 | ||
| 694 | (fn LIMIT) | |
| 695 | (defalias 'org-element-node-property-parser #[257 "\302!\210\303`\304\305!\304\306!\212\307\210\310\303#\203 \311 \202 )\312\313\314\315 \316\317\320\321\257\f)D\207" [org-property-re case-fold-search looking-at t match-string-no-properties 2 3 nil re-search-forward line-beginning-position node-property :key :value :begin :end :post-blank 0 :post-affiliated] 19 (#$ . 60427)]) | |
| 696 | #@70 Interpret NODE-PROPERTY element as Org syntax. | |
| 697 | ||
| 698 | (fn NODE-PROPERTY _) | |
| 699 | (defalias 'org-element-node-property-interpreter #[514 "\301\301\302\303\211;\203 \304\305#\266\202\202 \306A@\"\266\202\"\307\211;\2030 \304\305#\266\202\2028 \306A@\"\266\202\206< \310#\207" [org-property-format format ":%s:" :key get-text-property 0 plist-get :value ""] 12 (#$ . 61056)]) | |
| 700 | #@468 Parse a paragraph. | |
| 701 | ||
| 702 | LIMIT bounds the search. AFFILIATED is a list of which CAR is | |
| 703 | the buffer position at the beginning of the first affiliated | |
| 704 | keyword and CDR is a plist of affiliated keywords along with | |
| 705 | their value. | |
| 706 | ||
| 707 | Return a list whose CAR is `paragraph' and CDR is a plist | |
| 708 | containing `:begin', `:end', `:contents-begin' and | |
| 709 | `:contents-end', `:post-blank' and `:post-affiliated' keywords. | |
| 710 | ||
| 711 | Assume point is at the beginning of the paragraph. | |
| 712 | ||
| 713 | (fn LIMIT AFFILIATED) | |
| 714 | (defalias 'org-element-paragraph-parser #[514 "\212\211@`\306\307\210\310 \311#\203k \312 \210\313\n!\203$ \212\310\314\306#)\202b \313\315!\203; \212\310\316\317\320\321\322!!\"\306#)\202b \313 !\203R \212\310\316\f\320\321\322!!\"\306#)\202b \313\323!\203a \324\321\322! \"\202b \306\204k \307\210\202 `U\203u \202x \325 b)\212\326x\210\325\327!)\326w\210m\203\217 `\202\221 \325 \330\331\332\333 \334 \335\336 \f\"\337\257\fA\244D\266\205)\207" [case-fold-search org-element-paragraph-separate org-drawer-regexp org-element--latex-begin-environment org-element--latex-end-environment org-element-dual-keywords t nil re-search-forward move beginning-of-line looking-at "^[ ]*:END:[ ]*$" "[ ]*#\\+BEGIN_\\(\\S-+\\)" format "^[ ]*#\\+END_%s[ ]*$" regexp-quote match-string 1 "[ ]*#\\+\\(\\S-+\\)\\[.*\\]:" member-ignore-case line-beginning-position " \n" 2 paragraph :begin :end :contents-begin :contents-end :post-blank count-lines :post-affiliated] 20 (#$ . 61438)]) | |
| 715 | #@102 Interpret paragraph element as Org syntax. | |
| 716 | CONTENTS is the contents of the element. | |
| 717 | ||
| 718 | (fn _ CONTENTS) | |
| 719 | (defalias 'org-element-paragraph-interpreter #[514 "\207" [] 3 (#$ . 62913)]) | |
| 720 | #@229 Parse a planning. | |
| 721 | ||
| 722 | LIMIT bounds the search. | |
| 723 | ||
| 724 | Return a list whose CAR is `planning' and CDR is a plist | |
| 725 | containing `:closed', `:deadline', `:scheduled', `:begin', | |
| 726 | `:end', `:post-blank' and `:post-affiliated' keywords. | |
| 727 | ||
| 728 | (fn LIMIT) | |
| 729 | (defalias 'org-element-planning-parser #[257 "\212\304`\304y\210`\305w\210\306\304x\210n\204 \304\210\307`\"\262`\304\211\211b\210\310 \311#\203Y \312\225b\210\306w\210\313\312!\314 \n\232\203E \211\262\202T \232\203Q \211\262\202T \211\262\266\202$ \315\316\317\320\321 \322 \323\324\257)D\266\206)\207" [case-fold-search org-keyword-time-not-clock-regexp org-closed-string org-deadline-string nil " \n" " " count-lines re-search-forward t 1 match-string org-element-timestamp-parser planning :closed :deadline :scheduled :begin :end :post-blank :post-affiliated] 22 (#$ . 63099)]) | |
| 730 | #@60 Interpret PLANNING element as Org syntax. | |
| 731 | ||
| 732 | (fn PLANNING _) | |
| 733 | (defalias 'org-element-planning-interpreter #[514 "\303\304\305\306\307\211;\203 \310\311#\266\202\202 \312A@\"\266\202\211\205) \313\314\306\"Q\262\315\211;\203= \310\311#\266\202\202E \312A@\"\266\202\211\205P \313\314\306\"Q\262\316\211;\203d \310\311#\266\202\202l \312A@\"\266\202\211\205w \n\313\314\306\"Q\262E\"\313#\207" [org-deadline-string org-scheduled-string org-closed-string mapconcat identity delq nil :deadline get-text-property 0 plist-get " " org-element-timestamp-interpreter :scheduled :closed] 14 (#$ . 63946)]) | |
| 734 | #@560 Parse a src block. | |
| 735 | ||
| 736 | LIMIT bounds the search. AFFILIATED is a list of which CAR is | |
| 737 | the buffer position at the beginning of the first affiliated | |
| 738 | keyword and CDR is a plist of affiliated keywords along with | |
| 739 | their value. | |
| 740 | ||
| 741 | Return a list whose CAR is `src-block' and CDR is a plist | |
| 742 | containing `:language', `:switches', `:parameters', `:begin', | |
| 743 | `:end', `:number-lines', `:retain-labels', `:use-labels', | |
| 744 | `:label-fmt', `:preserve-indent', `:value', `:post-blank' and | |
| 745 | `:post-affiliated' keywords. | |
| 746 | ||
| 747 | Assume point is at the beginning of the block. | |
| 748 | ||
| 749 | (fn LIMIT AFFILIATED) | |
| 750 | (defalias 'org-element-src-block-parser #[514 "\301\212\302\303\301#)\204 \304\"\202 \305\224\212@`\306\307!\210\310\311!\310\312!\310\313!\205P \314\315\"\205P \316\311\"\317\232\203> \320\202? \321\312\225\204H \305\202O \322\316\312\"!SB\205X \314\323\"\205g \314\324\"\205g \316\311\"?\206~ \314\325\"?\206~ \205~ \314\326\"?\206\215 \211\205\215 \314\326\"?\327\330\331\312! \"! b\210\332y\210`\333w\210m\203\253 `\202\255 \331 \334\335\f\336\337!\205\320 \332\340\203\305 \341\202\306 \342\343\340\344\343##\266\202\345\337!\205\357 \332\340\203\344 \341\202\345 \342\343\340\344\343##\266\202\346\347\n\350\351\352\353\354\355\356\357\"\360%\257A\244D\266\215)\262)\207" [case-fold-search t re-search-forward "^[ ]*#\\+END_SRC[ ]*$" org-element-paragraph-parser 0 looking-at "^[ ]*#\\+BEGIN_SRC\\(?: +\\(\\S-+\\)\\)?\\(\\(?: +\\(?:-\\(?:l \".+\"\\|[ikr]\\)\\|[-+]n\\(?: *[0-9]+\\)?\\)\\)+\\)?\\(.*\\)[ ]*$" match-string-no-properties 1 2 3 string-match "\\([-+]\\)n\\(?: *\\([0-9]+\\)\\)?\\>" match-string "-" new continued string-to-number "-i\\>" "-l +\"\\([^\"\n]+\\)\"" "-r\\>" "-k\\>" org-unescape-code-in-string buffer-substring-no-properties line-beginning-position nil " \n" src-block :language :switches org-string-nw-p replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "" "[ \n ]+\\'" :parameters :begin :end :number-lines :preserve-indent :retain-labels :use-labels :label-fmt :value :post-blank count-lines :post-affiliated] 43 (#$ . 64574)]) | |
| 751 | #@62 Interpret SRC-BLOCK element as Org syntax. | |
| 752 | ||
| 753 | (fn SRC-BLOCK _) | |
| 754 | (defalias 'org-element-src-block-interpreter #[514 "\302\211;\203 \303\304#\266\202\202 \305A@\"\266\202\306\211;\203* \303\304#\266\202\2022 \305A@\"\266\202\307\211;\203C \303\304#\266\202\202K \305A@\"\266\202\310\211;\203\\ \303\304#\266\202\202d \305A@\"\266\202\204\205 \311\211;\203z \303\304#\266\202\202\202 \305A@\"\266\202\203\211 \211\202\242 \304U\203\225 \312!\202\242 \313 \314\"\315\316\312!#\262\262\317\320\205\256 \321P\205\266 \321P\205\276 \321PQ\"\322\323!!\324Q\207" [org-src-preserve-indentation org-edit-src-content-indentation :language get-text-property 0 plist-get :switches :parameters :value :preserve-indent org-remove-indentation make-string 32 replace-regexp-in-string "^" format "#+BEGIN_SRC%s\n" " " org-element-normalize-string org-escape-code-in-string "#+END_SRC"] 12 (#$ . 66685)]) | |
| 755 | #@491 Parse a table at point. | |
| 756 | ||
| 757 | LIMIT bounds the search. AFFILIATED is a list of which CAR is | |
| 758 | the buffer position at the beginning of the first affiliated | |
| 759 | keyword and CDR is a plist of affiliated keywords along with | |
| 760 | their value. | |
| 761 | ||
| 762 | Return a list whose CAR is `table' and CDR is a plist containing | |
| 763 | `:begin', `:end', `:tblfm', `:type', `:contents-begin', | |
| 764 | `:contents-end', `:value', `:post-blank' and `:post-affiliated' | |
| 765 | keywords. | |
| 766 | ||
| 767 | Assume point is at the beginning of the table. | |
| 768 | ||
| 769 | (fn LIMIT AFFILIATED) | |
| 770 | (defalias 'org-element-table-parser #[514 "\212\301`\302\303!\203 \304\202 \305\306\307\304=\203 \310\202 \311\"@\312\313#\203. \314\224b\202/ `\315\302\316!\203C \317\320!B\262\315y\210\2020 \211\262`\321 w\210m\203T `\202V \322 \323\324\325\326\f\327\n\330\304=\205l \331\304=\205v \332\305=\205\204 \333\"\334\335\"\336\257\nA\244)D\266\210)\207" [case-fold-search t looking-at "[ ]*|" org table\.el format "^[ ]*\\($\\|[^| %s]\\)" "" "+" re-search-forward move 0 nil "[ ]*#\\+TBLFM: +\\(.*\\)[ ]*$" match-string-no-properties 1 " \n" line-beginning-position table :begin :end :type :tblfm :contents-begin :contents-end :value buffer-substring-no-properties :post-blank count-lines :post-affiliated] 29 (#$ . 67619)]) | |
| 771 | #@117 Interpret TABLE element as Org syntax. | |
| 772 | CONTENTS is a string, if table's type is `org', or nil. | |
| 773 | ||
| 774 | (fn TABLE CONTENTS) | |
| 775 | (defalias 'org-element-table-interpreter #[514 "\300\211;\203 \301\302#\266\202\202 \303A@\"\266\202\304=\203: \305\306\211;\2030 \301\302#\266\202\2028 \303A@\"\266\202!\207\307\310!r\211q\210\311\302\312\313\314!\315\"\316$\216c\210\317 \210\320 *\262\321\322\323\324\211;\203m \301\302#\266\202\202u \303A@\"\266\202!\325#P\207" [:type get-text-property 0 plist-get table\.el org-remove-indentation :value generate-new-buffer " *temp*" make-byte-code "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 org-table-align buffer-string mapconcat #[257 "\300P\207" ["#+TBLFM: "] 3 "\n\n(fn FM)"] reverse :tblfm "\n"] 12 (#$ . 68885)]) | |
| 776 | #@215 Parse table row at point. | |
| 777 | ||
| 778 | Return a list whose CAR is `table-row' and CDR is a plist | |
| 779 | containing `:begin', `:end', `:contents-begin', `:contents-end', | |
| 780 | `:type', `:post-blank' and `:post-affiliated' keywords. | |
| 781 | ||
| 782 | (fn _) | |
| 783 | (defalias 'org-element-table-row-parser #[257 "\212\300\301!\203 \302\202\f \303`\303=\205 \304\305!\303=\205$ \306\210\307\306x\210`\310\311!\312\313\314\315\316\n\317 \320\321\322\257D\266\205)\207" [looking-at "^[ ]*|-" rule standard search-forward "|" nil " " line-beginning-position 2 table-row :type :begin :end :contents-begin :contents-end :post-blank 0 :post-affiliated] 21 (#$ . 69686)]) | |
| 784 | #@112 Interpret TABLE-ROW element as Org syntax. | |
| 785 | CONTENTS is the contents of the table row. | |
| 786 | ||
| 787 | (fn TABLE-ROW CONTENTS) | |
| 788 | (defalias 'org-element-table-row-interpreter #[514 "\300\211;\203 \301\302#\266\202\202 \303A@\"\266\202\304=\203 \305\207\306P\207" [:type get-text-property 0 plist-get rule "|-" "|"] 8 (#$ . 70323)]) | |
| 789 | #@461 Parse a verse block. | |
| 790 | ||
| 791 | LIMIT bounds the search. AFFILIATED is a list of which CAR is | |
| 792 | the buffer position at the beginning of the first affiliated | |
| 793 | keyword and CDR is a plist of affiliated keywords along with | |
| 794 | their value. | |
| 795 | ||
| 796 | Return a list whose CAR is `verse-block' and CDR is a plist | |
| 797 | containing `:begin', `:end', `:contents-begin', `:contents-end', | |
| 798 | `:post-blank' and `:post-affiliated' keywords. | |
| 799 | ||
| 800 | Assume point is at beginning of the block. | |
| 801 | ||
| 802 | (fn LIMIT AFFILIATED) | |
| 803 | (defalias 'org-element-verse-block-parser #[514 "\301\212\302\303\301#)\204 \304\"\202U \305\224\212@`\306y\210`b\210\306y\210`\307w\210m\2031 `\2023 \310 \311\312\313\314\315 \316\317\f\f\"\320\257\fA\244D\266\205)\262)\207" [case-fold-search t re-search-forward "^[ ]*#\\+END_VERSE[ ]*$" org-element-paragraph-parser 0 nil " \n" line-beginning-position verse-block :begin :end :contents-begin :contents-end :post-blank count-lines :post-affiliated] 21 (#$ . 70652)]) | |
| 804 | #@97 Interpret verse-block element as Org syntax. | |
| 805 | CONTENTS is verse block contents. | |
| 806 | ||
| 807 | (fn _ CONTENTS) | |
| 808 | (defalias 'org-element-verse-block-interpreter #[514 "\300\301\"\207" [format "#+BEGIN_VERSE\n%s#+END_VERSE"] 5 (#$ . 71613)]) | |
| 809 | #@270 Parse bold object at point, if any. | |
| 810 | ||
| 811 | When at a bold object, return a list whose car is `bold' and cdr | |
| 812 | is a plist with `:begin', `:end', `:contents-begin' and | |
| 813 | `:contents-end' and `:post-blank' keywords. Otherwise, return | |
| 814 | nil. | |
| 815 | ||
| 816 | Assume point is at the first star marker. | |
| 817 | (defalias 'org-element-bold-parser #[0 "\212n\204 \301u\210\302!\2050 \303\224\304\224\304\225\303\225b\210\305\306w`\307\310\311\312 \313\n\314 \257\nD\266\205)\207" [org-emph-re -1 looking-at 2 4 " " nil bold :begin :end :contents-begin :contents-end :post-blank] 16 (#$ . 71844)]) | |
| 818 | #@95 Interpret bold object as Org syntax. | |
| 819 | CONTENTS is the contents of the object. | |
| 820 | ||
| 821 | (fn _ CONTENTS) | |
| 822 | (defalias 'org-element-bold-interpreter #[514 "\300\301\"\207" [format "*%s*"] 5 (#$ . 72412)]) | |
| 823 | #@242 Parse code object at point, if any. | |
| 824 | ||
| 825 | When at a code object, return a list whose car is `code' and cdr | |
| 826 | is a plist with `:value', `:begin', `:end' and `:post-blank' | |
| 827 | keywords. Otherwise, return nil. | |
| 828 | ||
| 829 | Assume point is at the first tilde marker. | |
| 830 | (defalias 'org-element-code-parser #[0 "\212n\204 \301u\210\302!\205, \303\224\304\305!\303\225b\210\306\307w`\310\311\312\313\314 \257D\266\204)\207" [org-verbatim-re -1 looking-at 2 match-string-no-properties 4 " " nil code :value :begin :end :post-blank] 13 (#$ . 72610)]) | |
| 831 | #@51 Interpret CODE object as Org syntax. | |
| 832 | ||
| 833 | (fn CODE _) | |
| 834 | (defalias 'org-element-code-interpreter #[514 "\300\301\302\211;\203 \303\304#\266\202\202 \305A@\"\266\202\"\207" [format "~%s~" :value get-text-property 0 plist-get] 10 (#$ . 73143)]) | |
| 835 | #@316 Parse entity at point, if any. | |
| 836 | ||
| 837 | When at an entity, return a list whose car is `entity' and cdr | |
| 838 | a plist with `:begin', `:end', `:latex', `:latex-math-p', | |
| 839 | `:html', `:latin1', `:utf-8', `:ascii', `:use-brackets-p' and | |
| 840 | `:post-blank' as keywords. Otherwise, return nil. | |
| 841 | ||
| 842 | Assume point is at the beginning of the entity. | |
| 843 | (defalias 'org-element-entity-parser #[0 "\3022n \303\304!\205m \212\305\306!\307\"\206 \307 \"\262\206\" \310\302\311\"\312\224\305\313!\314\230\306\225b\210\211\2034 \313u\210\315\311w`\316\317@\320A@\321\313 8\322\323 8\324\3258\326\3278\330\3318\332\333\334\335\257D\266\205)0\207" [org-entities-user org-entities no-object looking-at "\\\\\\(?:\\(?1:_ +\\)\\|\\(?1:there4\\|sup[123]\\|frac[13][24]\\|[a-zA-Z]+\\)\\(?2:$\\|{}\\|[^[:alpha:]]\\)\\)" match-string 1 assoc throw nil 0 2 "{}" " " entity :name :latex :latex-math-p :html 3 :ascii 4 :latin1 5 :utf-8 6 :begin :end :use-brackets-p :post-blank] 28 (#$ . 73393)]) | |
| 844 | #@55 Interpret ENTITY object as Org syntax. | |
| 845 | ||
| 846 | (fn ENTITY _) | |
| 847 | (defalias 'org-element-entity-interpreter #[514 "\300\301\211;\203 \302\303#\266\202\202 \304A@\"\266\202\305\211;\203+ \302\303#\266\202\2023 \304A@\"\266\202\2057 \306Q\207" ["\\" :name get-text-property 0 plist-get :use-brackets-p "{}"] 10 (#$ . 74366)]) | |
| 848 | #@270 Parse export snippet at point. | |
| 849 | ||
| 850 | When at an export snippet, return a list whose car is | |
| 851 | `export-snippet' and cdr a plist with `:begin', `:end', | |
| 852 | `:back-end', `:value' and `:post-blank' as keywords. Otherwise, | |
| 853 | return nil. | |
| 854 | ||
| 855 | Assume point is at the beginning of the snippet. | |
| 856 | (defalias 'org-element-export-snippet-parser #[0 "\212\300\301\302!\205M \303 \304\305\306\307\310!\311\"\312$\216\305\225b\210\313\314\300\315#\210\305\224)\262\211\262\205M \305\224\316\317!\320\305\225\"\321\300w`\322\323\324\325\n\326\327 \257\nD\266\205\262)\207" [nil looking-at "@@\\([-A-Za-z0-9]+\\):" match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 re-search-forward "@@" t match-string-no-properties 1 buffer-substring-no-properties " " export-snippet :back-end :value :begin :end :post-blank] 17 (#$ . 74697)]) | |
| 857 | #@71 Interpret EXPORT-SNIPPET object as Org syntax. | |
| 858 | ||
| 859 | (fn EXPORT-SNIPPET _) | |
| 860 | (defalias 'org-element-export-snippet-interpreter #[514 "\300\301\302\211;\203 \303\304#\266\202\202 \305A@\"\266\202\306\211;\203, \303\304#\266\202\2024 \305A@\"\266\202#\207" [format "@@%s:%s@@" :back-end get-text-property 0 plist-get :value] 11 (#$ . 75552)]) | |
| 861 | #@270 Parse footnote reference at point, if any. | |
| 862 | ||
| 863 | When at a footnote reference, return a list whose car is | |
| 864 | `footnote-reference' and cdr a plist with `:label', `:type', | |
| 865 | `:begin', `:end', `:content-begin', `:contents-end' and | |
| 866 | `:post-blank' as keywords. Otherwise, return nil. | |
| 867 | (defalias 'org-element-footnote-reference-parser #[0 "\302!\205x \303 p\304\305\306\307\310\"\311\"\312$\216\313 !\210\3141) \315`\316\305#0\202+ \210\317)\266\202\211\205v \212`\320\316!\305\225S\312\225\203D \321\202E \322b\210\323\317w`\324\325\326\327\f\330\331\f\321=\205c \332\321=\205m \333\257D\266\207)\262\207" [org-footnote-re org-element--pair-square-table looking-at syntax-table make-byte-code 0 "r\301q\210\302\300!)\207" vconcat vector [set-syntax-table] 2 set-syntax-table (error) scan-lists 1 nil match-string-no-properties inline standard " " footnote-reference :label :type :begin :end :contents-begin :contents-end :post-blank] 23 (#$ . 75905)]) | |
| 868 | #@135 Interpret FOOTNOTE-REFERENCE object as Org syntax. | |
| 869 | CONTENTS is its definition, when inline, or nil. | |
| 870 | ||
| 871 | (fn FOOTNOTE-REFERENCE CONTENTS) | |
| 872 | (defalias 'org-element-footnote-reference-interpreter #[514 "\300\301\302\211;\203 \303\304#\266\202\202 \305A@\"\266\202\206 \306\203) \307P\202* \306#\207" [format "[fn:%s%s]" :label get-text-property 0 plist-get "" ":"] 10 (#$ . 76874)]) | |
| 873 | #@333 Parse inline babel call at point, if any. | |
| 874 | ||
| 875 | When at an inline babel call, return a list whose car is | |
| 876 | `inline-babel-call' and cdr a plist with `:call', | |
| 877 | `:inside-header', `:arguments', `:end-header', `:begin', `:end', | |
| 878 | `:value' and `:post-blank' as keywords. Otherwise, return nil. | |
| 879 | ||
| 880 | Assume point is at the beginning of the babel call. | |
| 881 | (defalias 'org-element-inline-babel-call-parser #[0 "\212\3012\224 \302\303\304!)\205\223 \305\225b\210\306\224\307\305!\310\311!\312!\205: \313\314\315\302\313\203. \316\202/ \317\320\313\321\320##\266\202#\262\312\310\322!\206G \323\301\302\"!\310\311!\312!\205k \313\314\315\302\313\203_ \316\202` \317\320\313\321\320##\266\202#\262\324`\"\325\302w`\326\327\330 \331\n\332 \333\334\f\335\336\257D\266\2100)\207" [case-fold-search :no-object nil looking-at "\\<call_\\([^ \n[(]+\\)[([]" 1 0 match-string-no-properties org-element--parse-paired-brackets 91 org-string-nw-p replace-regexp-in-string "\n[ ]*" " " "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "" "[ \n ]+\\'" 40 throw buffer-substring-no-properties " " inline-babel-call :call :inside-header :arguments :end-header :begin :end :value :post-blank] 25 (#$ . 77266)]) | |
| 882 | #@77 Interpret INLINE-BABEL-CALL object as Org syntax. | |
| 883 | ||
| 884 | (fn INLINE-BABEL-CALL _) | |
| 885 | (defalias 'org-element-inline-babel-call-interpreter #[514 "\300\301\211;\203 \302\303#\266\202\202 \304A@\"\266\202\305\211;\203+ \302\303#\266\202\2023 \304A@\"\266\202\211\205; \306\307\"\262\310\311\211;\203P \302\303#\266\202\202X \304A@\"\266\202\312\313\211;\203k \302\303#\266\202\202s \304A@\"\266\202\211\205{ \306\307\"\262\260\207" ["call_" :call get-text-property 0 plist-get :inside-header format "[%s]" "(" :arguments ")" :end-header] 14 (#$ . 78454)]) | |
| 886 | #@314 Parse inline source block at point, if any. | |
| 887 | ||
| 888 | When at an inline source block, return a list whose car is | |
| 889 | `inline-src-block' and cdr a plist with `:begin', `:end', | |
| 890 | `:language', `:value', `:parameters' and `:post-blank' as | |
| 891 | keywords. Otherwise, return nil. | |
| 892 | ||
| 893 | Assume point is at the beginning of the inline src block. | |
| 894 | (defalias 'org-element-inline-src-block-parser #[0 "\212\3012_ \302\303\304!)\205^ \305\225b\210\306\224\307\305!\310\311!\312!\205: \313\314\315\302\313\203. \316\202/ \317\320\313\321\320##\266\202#\262\310\322!\206F \323\301\302\"\324\302w\325\326\327\330\331\f\332`\333\f\257\fD\266\2050)\207" [case-fold-search :no-object nil looking-at "\\<src_\\([^ \n[{]+\\)[{[]" 1 0 match-string-no-properties org-element--parse-paired-brackets 91 org-string-nw-p replace-regexp-in-string "\n[ ]*" " " "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "" "[ \n ]+\\'" 123 throw " " inline-src-block :language :value :parameters :begin :end :post-blank] 18 (#$ . 79034)]) | |
| 895 | #@75 Interpret INLINE-SRC-BLOCK object as Org syntax. | |
| 896 | ||
| 897 | (fn INLINE-SRC-BLOCK _) | |
| 898 | (defalias 'org-element-inline-src-block-interpreter #[514 "\300\211;\203 \301\302#\266\202\202 \303A@\"\266\202\304\211;\203* \301\302#\266\202\2022 \303A@\"\266\202\305\211;\203C \301\302#\266\202\202K \303A@\"\266\202\306\307\203Z \306\310\"\202[ \311$\207" [:language get-text-property 0 plist-get :parameters :value format "src_%s%s{%s}" "[%s]" ""] 11 (#$ . 80017)]) | |
| 899 | #@278 Parse italic object at point, if any. | |
| 900 | ||
| 901 | When at an italic object, return a list whose car is `italic' and | |
| 902 | cdr is a plist with `:begin', `:end', `:contents-begin' and | |
| 903 | `:contents-end' and `:post-blank' keywords. Otherwise, return | |
| 904 | nil. | |
| 905 | ||
| 906 | Assume point is at the first slash marker. | |
| 907 | (defalias 'org-element-italic-parser #[0 "\212n\204 \301u\210\302!\2050 \303\224\304\224\304\225\303\225b\210\305\306w`\307\310\311\312 \313\n\314 \257\nD\266\205)\207" [org-emph-re -1 looking-at 2 4 " " nil italic :begin :end :contents-begin :contents-end :post-blank] 16 (#$ . 80491)]) | |
| 908 | #@97 Interpret italic object as Org syntax. | |
| 909 | CONTENTS is the contents of the object. | |
| 910 | ||
| 911 | (fn _ CONTENTS) | |
| 912 | (defalias 'org-element-italic-interpreter #[514 "\300\301\"\207" [format "/%s/"] 5 (#$ . 81071)]) | |
| 913 | #@272 Parse LaTeX fragment at point, if any. | |
| 914 | ||
| 915 | When at a LaTeX fragment, return a list whose car is | |
| 916 | `latex-fragment' and cdr a plist with `:value', `:begin', `:end', | |
| 917 | and `:post-blank' as keywords. Otherwise, return nil. | |
| 918 | ||
| 919 | Assume point is at the beginning of the LaTeX fragment. | |
| 920 | (defalias 'org-element-latex-fragment-parser #[0 "\3012\244 \212`\302f\303=\2043 `Tf\211\304\267\202& \305\306\302\307#\202. \305\310\302\307#\202. \311\312!\205. \313\225\262\202z `Tf\303=\203D \305\314\302\307\315$\202z `Sf\303=?\205z `Tf\316>?\205z \305\317\302\307\315$\205z \313\224\206e `Sf\320>?\205z \321\307\311!)\262\205z `\211\204\205 \322\301\302\"\202\213 \211b\210\323\302w`\324\325\326\"\327\330\331 \257D\266\204)0\207" [inhibit-changing-match-data no-object nil 36 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (40 22 91 30)) search-forward "\\)" t "\\]" looking-at "\\\\[a-zA-Z]+\\*?\\(\\(\\[[^][\n{}]*\\]\\)\\|\\({[^{}\n]*}\\)\\)*" 0 "$$" 2 (32 9 10 44 46 59) "$" (32 9 10 44 46) "\\(\\s.\\|\\s-\\|\\s(\\|\\s)\\|\\s\"\\|'\\|$\\)" throw " " latex-fragment :value buffer-substring-no-properties :begin :end :post-blank] 13 (#$ . 81273)]) | |
| 921 | #@71 Interpret LATEX-FRAGMENT object as Org syntax. | |
| 922 | ||
| 923 | (fn LATEX-FRAGMENT _) | |
| 924 | (defalias 'org-element-latex-fragment-interpreter #[514 "\300\211;\203 \301\302#\207\303A@\"\207" [:value get-text-property 0 plist-get] 8 (#$ . 82459)]) | |
| 925 | #@242 Parse line break at point, if any. | |
| 926 | ||
| 927 | When at a line break, return a list whose car is `line-break', | |
| 928 | and cdr a plist with `:begin', `:end' and `:post-blank' keywords. | |
| 929 | Otherwise, return nil. | |
| 930 | ||
| 931 | Assume point is at the beginning of the line break. | |
| 932 | (defalias 'org-element-line-break-parser #[0 "\301\302\303!)\262\205! `Sf\304=?\205! \305\306`\307\310\311!\312\313\257D\207" [inhibit-changing-match-data "\\\\\\\\[ ]*$" t looking-at 92 line-break :begin :end line-beginning-position 2 :post-blank 0] 7 (#$ . 82696)]) | |
| 933 | #@58 Interpret LINE-BREAK object as Org syntax. | |
| 934 | ||
| 935 | (fn &rest _) | |
| 936 | (defalias 'org-element-line-break-interpreter #[128 "\300\207" ["\\\\\n"] 2 (#$ . 83216)]) | |
| 937 | #@333 Parse link at point, if any. | |
| 938 | ||
| 939 | When at a link, return a list whose car is `link' and cdr a plist | |
| 940 | with `:type', `:path', `:format', `:raw-link', `:application', | |
| 941 | `:search-option', `:begin', `:end', `:contents-begin', | |
| 942 | `:contents-end' and `:post-blank' as keywords. Otherwise, return | |
| 943 | nil. | |
| 944 | ||
| 945 | Assume point is at the beginning of the link. | |
| 946 | (defalias 'org-element-link-parser #[0 "\3062\244`\307\211\211\211\211\211\211\211\211\211\211\203= \212n\204 \310u\210\311!)\203= \312\262\313\262\314\225\262\315\314!\262\314\224\262\n\314\225\262 \202 \311 !\203\323 \316\262\317\224\262\n\317\225\262 \320\225\262\321\322\323\324\315\314!#!\262\325!\204j \326\327\"\203s \330\262\262\202 \326\n\"\203\212 \331\314\"\262\320\225\307O\262\202 \332\307\333\326#)\266\203\203\266 \334\307\333\326#)\266\203\203\266 \335\262\314\310O\262\202 \336!\337U\203\312 \340\262\314\307O\262\202 \341\262\262\202 \311\f!\203\362 \313\262\315\320!\262\315\314!\262\320\225\262\315\342!\262\202 \311 !\203\343\262\315\314!\262\320\225\262\344\314\224\342\225\"\262\322\323\345\315\342!#\262\202 \346\306\307\"\210\212b\210\347\307w\262`\262 )\326\350\"\203]\331\314\"\262\330\262\326\351\"\203U\331\314\"\262\352\345\307\211 $\262\322\353\354#\262\355:!\205j:\"\211\203v\211@\262\211A\262\210\356\357\360 \361 \362\n\206\211 \363\n\364 \365\366\367\370 \371 \257D\266\2140\207" [org-target-link-regexp org-bracket-link-regexp org-link-types-re inhibit-changing-match-data org-plain-link-re org-angle-link-re no-object nil -1 looking-at "radio" plain 1 match-string-no-properties bracket 3 0 org-link-expand-abbrev replace-regexp-in-string "[ ]*\n[ ]*" " " file-name-absolute-p string-match "\\`\\.\\.?/" "file" match-string "\\`(" t ")\\'" "coderef" string-to-char 35 "custom-id" "fuzzy" 2 angle buffer-substring-no-properties "" throw " " "\\`file\\(?:\\+\\(.+\\)\\)?\\'" "::\\(.*\\)\\'" replace-match "\\`///*\\(.:\\)?/" "\\1/" functionp link :type :path :format :raw-link :application :search-option :begin :end :contents-begin :contents-end :post-blank org-link-translation-function] 35 (#$ . 83371)]) | |
| 947 | #@106 Interpret LINK object as Org syntax. | |
| 948 | CONTENTS is the contents of the object, or nil. | |
| 949 | ||
| 950 | (fn LINK CONTENTS) | |
| 951 | (defalias 'org-element-link-interpreter #[514 "\300\211;\203 \301\302#\266\202\202 \303A@\"\266\202\304\211;\203* \301\302#\266\202\2022 \303A@\"\266\202\305\230\203< \211\202\306\211;\203M \301\302#\266\202\202U \303A@\"\266\202\203e \307\310\311\312\313#\"\202\224 \211\314>\203o \315\202\224 \316\235\203y \315\202\224 \211\317=\203\203 \320\202\224 \211\321=\203\215 \322\202\224 \211\323\324\"\262\262\307\325\267\202\375 \307\326\"\202\327P\202\330\211;\203\275 \301\302#\266\202\202\305 \303A@\"\266\202\331\211;\203\327 \301\302#\266\202\202\337 \303A@\"\266\202\205\350 \332P\333\205\362 \334P\260\266\202\202\202\333Q\"\262\207" [:type get-text-property 0 plist-get :path "radio" :format format "[[%%s][%s]]" replace-regexp-in-string "%" "%%" (nil bracket) "[[%s]]" ("coderef" "custom-id" "fuzzy") angle "<%s>" plain "%s" error "Wrong `:format' value: %s" #s(hash-table size 4 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("coderef" 158 "custom-id" 165 "file" 171 "fuzzy" 249)) "(%s)" "#" :application :search-option "+" ":" "::"] 15 (#$ . 85565)]) | |
| 952 | #@235 Parse macro at point, if any. | |
| 953 | ||
| 954 | When at a macro, return a list whose car is `macro' and cdr | |
| 955 | a plist with `:key', `:args', `:begin', `:end', `:value' and | |
| 956 | `:post-blank' as keywords. Otherwise, return nil. | |
| 957 | ||
| 958 | Assume point is at the macro. | |
| 959 | (defalias 'org-element-macro-parser #[0 "\212\300\301!\205; `\302\303!\227\302\304!\304\225b\210\305\306w`\302\307!\211\205! \310!\262\311\312\313\314\315 \316 \317\257\fD\266\206)\207" [looking-at "{{{\\([a-zA-Z][-a-zA-Z0-9_]*\\)\\(([ \n]*\\([^ ]*?\\))\\)?}}}" match-string-no-properties 1 0 " " nil 3 org-macro-extract-arguments macro :key :value :args :begin :end :post-blank] 19 (#$ . 86822)]) | |
| 960 | #@53 Interpret MACRO object as Org syntax. | |
| 961 | ||
| 962 | (fn MACRO _) | |
| 963 | (defalias 'org-element-macro-interpreter #[514 "\300\211;\203 \301\302#\207\303A@\"\207" [:value get-text-property 0 plist-get] 8 (#$ . 87474)]) | |
| 964 | #@281 Parse radio target at point, if any. | |
| 965 | ||
| 966 | When at a radio target, return a list whose car is `radio-target' | |
| 967 | and cdr a plist with `:begin', `:end', `:contents-begin', | |
| 968 | `:contents-end', `:value' and `:post-blank' as keywords. | |
| 969 | Otherwise, return nil. | |
| 970 | ||
| 971 | Assume point is at the radio target. | |
| 972 | (defalias 'org-element-radio-target-parser #[0 "\212\301!\205. `\302\224\302\225\303\302!\304\225b\210\305\306w`\307\310\311\312\n\313 \314 \315\257\fD\266\206)\207" [org-radio-target-regexp looking-at 1 match-string-no-properties 0 " " nil radio-target :begin :end :contents-begin :contents-end :post-blank :value] 19 (#$ . 87684)]) | |
| 973 | #@97 Interpret target object as Org syntax. | |
| 974 | CONTENTS is the contents of the object. | |
| 975 | ||
| 976 | (fn _ CONTENTS) | |
| 977 | (defalias 'org-element-radio-target-interpreter #[514 "\300\301Q\207" ["<<<" ">>>"] 5 (#$ . 88314)]) | |
| 978 | #@281 Parse statistics cookie at point, if any. | |
| 979 | ||
| 980 | When at a statistics cookie, return a list whose car is | |
| 981 | `statistics-cookie', and cdr a plist with `:begin', `:end', | |
| 982 | `:value' and `:post-blank' keywords. Otherwise, return nil. | |
| 983 | ||
| 984 | Assume point is at the beginning of the statistics-cookie. | |
| 985 | (defalias 'org-element-statistics-cookie-parser #[0 "\212\300\301!\205& `\302\303\224\303\225\"\303\225b\210\304\305w`\306\307\310\311\312 \257D\266\204)\207" [looking-at "\\[[0-9]*\\(%\\|/[0-9]*\\)\\]" buffer-substring-no-properties 0 " " nil statistics-cookie :begin :end :value :post-blank] 13 (#$ . 88519)]) | |
| 986 | #@77 Interpret STATISTICS-COOKIE object as Org syntax. | |
| 987 | ||
| 988 | (fn STATISTICS-COOKIE _) | |
| 989 | (defalias 'org-element-statistics-cookie-interpreter #[514 "\300\211;\203 \301\302#\207\303A@\"\207" [:value get-text-property 0 plist-get] 8 (#$ . 89124)]) | |
| 990 | #@304 Parse strike-through object at point, if any. | |
| 991 | ||
| 992 | When at a strike-through object, return a list whose car is | |
| 993 | `strike-through' and cdr is a plist with `:begin', `:end', | |
| 994 | `:contents-begin' and `:contents-end' and `:post-blank' keywords. | |
| 995 | Otherwise, return nil. | |
| 996 | ||
| 997 | Assume point is at the first plus sign marker. | |
| 998 | (defalias 'org-element-strike-through-parser #[0 "\212n\204 \301u\210\302!\2050 \303\224\304\224\304\225\303\225b\210\305\306w`\307\310\311\312 \313\n\314 \257\nD\266\205)\207" [org-emph-re -1 looking-at 2 4 " " nil strike-through :begin :end :contents-begin :contents-end :post-blank] 16 (#$ . 89370)]) | |
| 999 | #@105 Interpret strike-through object as Org syntax. | |
| 1000 | CONTENTS is the contents of the object. | |
| 1001 | ||
| 1002 | (fn _ CONTENTS) | |
| 1003 | (defalias 'org-element-strike-through-interpreter #[514 "\300\301\"\207" [format "+%s+"] 5 (#$ . 89993)]) | |
| 1004 | #@287 Parse subscript at point, if any. | |
| 1005 | ||
| 1006 | When at a subscript object, return a list whose car is | |
| 1007 | `subscript' and cdr a plist with `:begin', `:end', | |
| 1008 | `:contents-begin', `:contents-end', `:use-brackets-p' and | |
| 1009 | `:post-blank' as keywords. Otherwise, return nil. | |
| 1010 | ||
| 1011 | Assume point is at the underscore. | |
| 1012 | (defalias 'org-element-subscript-parser #[0 "\212n\204 \301u\210\302!\205? \303\224\304\224\303\224\206 \305\224\303\225\206 \305\225\306\225b\210\307\310w`\311\312\313\314 \315 \316\f\317 \257\fD\266\206)\207" [org-match-substring-regexp -1 looking-at 4 2 3 0 " " nil subscript :begin :end :use-brackets-p :contents-begin :contents-end :post-blank] 19 (#$ . 90211)]) | |
| 1013 | #@108 Interpret SUBSCRIPT object as Org syntax. | |
| 1014 | CONTENTS is the contents of the object. | |
| 1015 | ||
| 1016 | (fn SUBSCRIPT CONTENTS) | |
| 1017 | (defalias 'org-element-subscript-interpreter #[514 "\300\301\211;\203 \302\303#\266\202\202 \304A@\"\266\202\203! \305\202\" \306\"\207" [format :use-brackets-p get-text-property 0 plist-get "_{%s}" "_%s"] 9 (#$ . 90884)]) | |
| 1018 | #@288 Parse superscript at point, if any. | |
| 1019 | ||
| 1020 | When at a superscript object, return a list whose car is | |
| 1021 | `superscript' and cdr a plist with `:begin', `:end', | |
| 1022 | `:contents-begin', `:contents-end', `:use-brackets-p' and | |
| 1023 | `:post-blank' as keywords. Otherwise, return nil. | |
| 1024 | ||
| 1025 | Assume point is at the caret. | |
| 1026 | (defalias 'org-element-superscript-parser #[0 "\212n\204 \301u\210\302!\205? \303\224\304\224\303\224\206 \305\224\303\225\206 \305\225\306\225b\210\307\310w`\311\312\313\314 \315 \316\f\317 \257\fD\266\206)\207" [org-match-substring-regexp -1 looking-at 4 2 3 0 " " nil superscript :begin :end :use-brackets-p :contents-begin :contents-end :post-blank] 19 (#$ . 91229)]) | |
| 1027 | #@112 Interpret SUPERSCRIPT object as Org syntax. | |
| 1028 | CONTENTS is the contents of the object. | |
| 1029 | ||
| 1030 | (fn SUPERSCRIPT CONTENTS) | |
| 1031 | (defalias 'org-element-superscript-interpreter #[514 "\300\301\211;\203 \302\303#\266\202\202 \304A@\"\266\202\203! \305\202\" \306\"\207" [format :use-brackets-p get-text-property 0 plist-get "^{%s}" "^%s"] 9 (#$ . 91907)]) | |
| 1032 | #@179 Parse table cell at point. | |
| 1033 | Return a list whose car is `table-cell' and cdr is a plist | |
| 1034 | containing `:begin', `:end', `:contents-begin', `:contents-end' | |
| 1035 | and `:post-blank' keywords. | |
| 1036 | (defalias 'org-element-table-cell-parser #[0 "\300\301!\210\302\224\302\225\303\224\303\225\304\305\306\307\310\311\302\257\nD\207" [looking-at "[ ]*\\(.*?\\)[ ]*\\(?:|\\|$\\)" 0 1 table-cell :begin :end :contents-begin :contents-end :post-blank] 15 (#$ . 92258)]) | |
| 1037 | #@108 Interpret table-cell element as Org syntax. | |
| 1038 | CONTENTS is the contents of the cell, or nil. | |
| 1039 | ||
| 1040 | (fn _ CONTENTS) | |
| 1041 | (defalias 'org-element-table-cell-interpreter #[514 "\300\301Q\207" [" " " |"] 5 (#$ . 92717)]) | |
| 1042 | #@222 Parse target at point, if any. | |
| 1043 | ||
| 1044 | When at a target, return a list whose car is `target' and cdr | |
| 1045 | a plist with `:begin', `:end', `:value' and `:post-blank' as | |
| 1046 | keywords. Otherwise, return nil. | |
| 1047 | ||
| 1048 | Assume point is at the target. | |
| 1049 | (defalias 'org-element-target-parser #[0 "\212\301!\205# `\302\303!\304\225b\210\305\306w`\307\310\311\312\313 \257D\266\204)\207" [org-target-regexp looking-at match-string-no-properties 1 0 " " nil target :begin :end :value :post-blank] 13 (#$ . 92928)]) | |
| 1050 | #@55 Interpret TARGET object as Org syntax. | |
| 1051 | ||
| 1052 | (fn TARGET _) | |
| 1053 | (defalias 'org-element-target-interpreter #[514 "\300\301\302\211;\203 \303\304#\266\202\202 \305A@\"\266\202\"\207" [format "<<%s>>" :value get-text-property 0 plist-get] 10 (#$ . 93420)]) | |
| 1054 | #@44 Regexp matching any timestamp type object. | |
| 1055 | (defconst org-element--timestamp-regexp (concat org-ts-regexp-both #1="\\|" "\\(?:<[0-9]+-[0-9]+-[0-9]+[^>\n]+?\\+[0-9]+[dwmy]>\\)" #1# "\\(?:<%%\\(?:([^>\n]+)\\)>\\)") (#$ . 93677)) | |
| 1056 | #@514 Parse time stamp at point, if any. | |
| 1057 | ||
| 1058 | When at a time stamp, return a list whose car is `timestamp', and | |
| 1059 | cdr a plist with `:type', `:raw-value', `:year-start', | |
| 1060 | `:month-start', `:day-start', `:hour-start', `:minute-start', | |
| 1061 | `:year-end', `:month-end', `:day-end', `:hour-end', | |
| 1062 | `:minute-end', `:repeater-type', `:repeater-value', | |
| 1063 | `:repeater-unit', `:warning-type', `:warning-value', | |
| 1064 | `:warning-unit', `:begin', `:end' and `:post-blank' keywords. | |
| 1065 | Otherwise, return nil. | |
| 1066 | ||
| 1067 | Assume point is at the beginning of the timestamp. | |
| 1068 | (defalias 'org-element-timestamp-parser #[0 "\302\303!)\262\205\276\212`\304f\305=\303\306!\210\307\310!\307\311!\312\313!\314\224\310\225b\210\315\304w`?\205E \316\317\"\205E \320\312\314\"!\320\312\313\"!B\203M \321\202t \203^ \204Z \211\203^ \322\202t \203g \323\202t \204o \211\203s \324\202t \325?\205\303 \316\326 \"\205\303 \327\312\311\n\"\211\330\267\202\225 \331\202\226 \332\202\226 \333\262\334\320\312\314 \"!\335\336\312\313\"!\211\337\267\202\276 \340\202\277 \341\202\277 \342\202\277 \343\202\277 \344\262\257?\205 \316\345\n\"\205 \346\312\311 \"\203\335 \347\202\336 \350\351\320\312\314\"!\352\336\312\313\"!\211\353\267\202\340\202\341\202\342\202\343\202\344\262\257\304\211\211\211\211\211\211\211\211\211\2047\354\302\"\3558\262 \3568\262\n\3138\262 \3148\262\211A@\262\210\204\204\205F\354\302\"\3558\206N\n\262\3568\206X \262\3138\206b\262\3148\206r@\206r\262\211A@\206\202A\206\202\266\202\357\360\361\362\363\364\365\366\367\370\371\372\373\374/\375*\376-\257 \244\f\244D\266\226)\207" [org-element--timestamp-regexp inhibit-changing-match-data t looking-at nil 60 "\\([<[]\\(%%\\)?.*?\\)[]>]\\(?:--\\([<[].*?[]>]\\)\\)?" match-string-no-properties 0 1 match-string 3 2 " " string-match "[012]?[0-9]:[0-5][0-9]\\(-\\([012]?[0-9]\\):\\([0-5][0-9]\\)\\)" string-to-number diary active-range active inactive-range inactive "\\([.+]?\\+\\)\\([0-9]+\\)\\([hdwmy]\\)" :repeater-type #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("++" 141 ".+" 145)) catch-up restart cumulate :repeater-value :repeater-unit string-to-char #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (104 174 100 178 119 182 109 186)) hour day week month year "\\(-\\)?-\\([0-9]+\\)\\([hdwmy]\\)" :warning-type first all :warning-value :warning-unit #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (104 244 100 248 119 252 109 256)) org-parse-time-string 5 4 timestamp :type :raw-value :year-start :month-start :day-start :hour-start :minute-start :year-end :month-end :day-end :hour-end :minute-end :begin :end :post-blank] 53 (#$ . 93910)]) | |
| 1069 | #@61 Interpret TIMESTAMP object as Org syntax. | |
| 1070 | ||
| 1071 | (fn TIMESTAMP _) | |
| 1072 | (defalias 'org-element-timestamp-interpreter #[514 "\300\211;\203 \301\302#\266\202\202 \303A@\"\266\202\211\304\267\202+ \305\202, \306\202, \307\202, \310\262\311\211;\203? \301\302#\266\202\202G \303A@\"\266\202\211\205N \312!\262\313\211;\203a \301\302#\266\202\202i \303A@\"\266\202\211\314\267\202\203 \315\202\204 \316\202\204 \317\202\204 \320\202\204 \321\202\204 \310\262Q\322\211;\203\230 \301\302#\266\202\202\240 \303A@\"\266\202\211\323\267\202\256 \324\202\257 \325\202\257 \310\262\326\211;\203\302 \301\302#\266\202\202\312 \303A@\"\266\202\211\205\321 \312!\262\327\211;\203\344 \301\302#\266\202\202\354 \303A@\"\266\202\211\330\267\202\315\202\316\202\317\202\320\202\321\202\310\262Q\331\332\333\334\335\"\336\"\337\340%\341\211;\203*\301\302#\266\202\2022\303A@\"\266\202\211\342>\2036\343\211;\203J\301\302#\266\202\202R\303A@\"\266\202\344\211;\203d\301\302#\266\202\202l\303A@\"\266\202\345\211;\203~\301\302#\266\202\202\206\303A@\"\266\202\346 \211;\203\230\301\302#\266\202\202\240\303A@\"\266\202\205\273\211\205\273\205\273\205\273U?\206\273U?\347\302\206\305\302\206\313\302\350\211;\203\335\301\302#\266\202\202\345\303A@\"\266\202\351\211;\203\367\301\302#\266\202\202\377\303A@\"\266\202\352\211;\203\301\302#\266\202\202\303A@\"\266\202&\353=\205%\205*\2050%\266\205\202\231\211\354>\203\343\211;\203N\301\302#\266\202\202V\303A@\"\266\202\344\211;\203h\301\302#\266\202\202p\303A@\"\266\202\345\211;\203\202\301\302#\266\202\202\212\303A@\"\266\202\346 \211;\203\234\301\302#\266\202\202\244\303A@\"\266\202\347\302\206\255\302\206\262\302\350\211;\203\304\301\302#\266\202\202\314\303A@\"\266\202\351\211;\203\336\301\302#\266\202\202\346\303A@\"\266\202\352\211;\203\370\301\302#\266\202\202 \303A@\"\266\202&\355=\205\f#\324\347\302\206\302\206 \302\356\211;\2030\301\302#\266\202\2028\303A@\"\266\202\357\211;\203J\301\302#\266\202\202R\303A@\"\266\202\360\211;\203d\301\302#\266\202\202l\303A@\"\266\202&\355=\205x#Q\266\204\202\231\361\211;\203\221\301\302#\266\202\202\231\303A@\"\266\202\207" [:repeater-type get-text-property 0 plist-get #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (cumulate 31 catch-up 35 restart 39)) "+" "++" ".+" nil :repeater-value number-to-string :repeater-unit #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (hour 111 day 115 week 119 month 123 year 127)) "h" "d" "w" "m" "y" :warning-type #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (first 166 all 170)) "--" "-" :warning-value :warning-unit #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (hour 242 day 246 week 250 month 254 year 258)) make-byte-code 1282 "\303\203 \304\202\n \305\n!\"\203( \203( \306\307\"\210\310\311\312#\313\211$\262\2045 \311\314\315\316O\"\262\300\301D\211\203X \211@\317!\203Q \320\316O\321\316\313OR\262A\266\202\2028 \210\211\207" vconcat vector [org-time-stamp-formats format-time-string cdr car string-match "[012]?[0-9]:[0-5][0-9]" replace-match format "\\&-%02d:%02d" nil "[%s]" 1 -1 org-string-nw-p 0 " "] 14 "\n\n(fn TIME ACTIVEP &optional WITH-TIME-P HOUR-END MINUTE-END)" :type (inactive active) :minute-start :minute-end :hour-start :hour-end encode-time :day-start :month-start :year-start active (inactive-range active-range) active-range :day-end :month-end :year-end :raw-value] 25 (#$ . 96706)]) | |
| 1073 | #@291 Parse underline object at point, if any. | |
| 1074 | ||
| 1075 | When at an underline object, return a list whose car is | |
| 1076 | `underline' and cdr is a plist with `:begin', `:end', | |
| 1077 | `:contents-begin' and `:contents-end' and `:post-blank' keywords. | |
| 1078 | Otherwise, return nil. | |
| 1079 | ||
| 1080 | Assume point is at the first underscore marker. | |
| 1081 | (defalias 'org-element-underline-parser #[0 "\212n\204 \301u\210\302!\2050 \303\224\304\224\304\225\303\225b\210\305\306w`\307\310\311\312 \313\n\314 \257\nD\266\205)\207" [org-emph-re -1 looking-at 2 4 " " nil underline :begin :end :contents-begin :contents-end :post-blank] 16 (#$ . 100485)]) | |
| 1082 | #@100 Interpret underline object as Org syntax. | |
| 1083 | CONTENTS is the contents of the object. | |
| 1084 | ||
| 1085 | (fn _ CONTENTS) | |
| 1086 | (defalias 'org-element-underline-interpreter #[514 "\300\301\"\207" [format "_%s_"] 5 (#$ . 101086)]) | |
| 1087 | #@259 Parse verbatim object at point, if any. | |
| 1088 | ||
| 1089 | When at a verbatim object, return a list whose car is `verbatim' | |
| 1090 | and cdr is a plist with `:value', `:begin', `:end' and | |
| 1091 | `:post-blank' keywords. Otherwise, return nil. | |
| 1092 | ||
| 1093 | Assume point is at the first equal sign marker. | |
| 1094 | (defalias 'org-element-verbatim-parser #[0 "\212n\204 \301u\210\302!\205, \303\224\304\305!\303\225b\210\306\307w`\310\311\312\313\314 \257D\266\204)\207" [org-verbatim-re -1 looking-at 2 match-string-no-properties 4 " " nil verbatim :value :begin :end :post-blank] 13 (#$ . 101295)]) | |
| 1095 | #@59 Interpret VERBATIM object as Org syntax. | |
| 1096 | ||
| 1097 | (fn VERBATIM _) | |
| 1098 | (defalias 'org-element-verbatim-interpreter #[514 "\300\301\302\211;\203 \303\304#\266\202\202 \305A@\"\266\202\"\207" [format "=%s=" :value get-text-property 0 plist-get] 10 (#$ . 101854)]) | |
| 1099 | #@873 Parse the element starting at point. | |
| 1100 | ||
| 1101 | Return value is a list like (TYPE PROPS) where TYPE is the type | |
| 1102 | of the element and PROPS a plist of properties associated to the | |
| 1103 | element. | |
| 1104 | ||
| 1105 | Possible types are defined in `org-element-all-elements'. | |
| 1106 | ||
| 1107 | LIMIT bounds the search. | |
| 1108 | ||
| 1109 | Optional argument GRANULARITY determines the depth of the | |
| 1110 | recursion. Allowed values are `headline', `greater-element', | |
| 1111 | `element', `object' or nil. When it is broader than `object' (or | |
| 1112 | nil), secondary values will not be parsed, since they only | |
| 1113 | contain objects. | |
| 1114 | ||
| 1115 | Optional argument MODE, when non-nil, can be either | |
| 1116 | `first-section', `section', `planning', `item', `node-property' | |
| 1117 | and `table-row'. | |
| 1118 | ||
| 1119 | If STRUCTURE isn't provided but MODE is set to `item', it will be | |
| 1120 | computed. | |
| 1121 | ||
| 1122 | This function assumes point is always at the beginning of the | |
| 1123 | element it has to parse. | |
| 1124 | ||
| 1125 | (fn LIMIT &optional GRANULARITY MODE STRUCTURE) | |
| 1126 | (defalias 'org-element--current-element #[1025 "\212\306\205\n \307=?\310=\203 \311#\202'\312=\203( \313!\202'\314=\2035 \315!\202'\306\316 \211\317\nP \320 ,\203N \321\"\202'\322=\203[ \323!\202'\324=\203z \323\212\306\316 \211\317\nP \325 -\206v !\202'\326=\203\226 \327\330!f\331=\203\226 \332 !\203\226 \333!\202'\334>\203\275 \327\326=\203\247 \330\202\250 \335!f\331=\203\275 \332@!\203\275 \336!\202'n\204\312 \337`C\"\202'\332A!\203\330 \340!\202'\320 \203\345 \341\"\202'\342!\211A\203`Y\203\211@b\210\343\344\"\202%\332B!\203\345\"\202%\332C!\203 \346\"\202%\332\347!\203-\350\"\202%\332\351!\203\277\330\225b\210\332\352!\203H\353 \210\354\"\202%\332\355!\203\201\353 \210\356\357!\226\211\360\267\202w\361\202x\362\202x\363\202x\364\202x\365\202x\366\202x\367\202x\370\262\"\202%\332\371!\203\222\353 \210\372\"\202%\332\373!\203\243\353 \210\374\"\202%\332\375!\203\264\353 \210\343\"\202%\353 \210\337\"\202%\332D!\203\316\376\"\202%\332\377!\203\336\201E \"\202%\332\201F !\203\360\201G \"\202%\332\201H !\203\201I \"\202%\332\201J !\203 \201K \206 \201L \n!#\202%\337\"\262)\266\202)\207" [case-fold-search org-called-with-limited-levels org-outline-regexp outline-regexp org-outline-regexp-bol org-planning-line-re t object item org-element-item-parser table-row org-element-table-row-parser node-property org-element-node-property-parser org-get-limited-outline-regexp "^" org-at-heading-p org-element-headline-parser section org-element-section-parser first-section outline-next-heading planning line-beginning-position 0 42 looking-at org-element-planning-parser (planning property-drawer) -1 org-element-property-drawer-parser org-element-paragraph-parser org-element-clock-parser org-element-inlinetask-parser org-element--collect-affiliated-keywords org-element-keyword-parser nil org-element-latex-environment-parser org-element-drawer-parser "[ ]*:\\( \\|$\\)" org-element-fixed-width-parser "[ ]*#" "\\(?: \\|$\\)" beginning-of-line org-element-comment-parser "\\+BEGIN_\\(\\S-+\\)" match-string 1 #s(hash-table size 7 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("CENTER" 347 "COMMENT" 351 "EXAMPLE" 355 "EXPORT" 359 "QUOTE" 363 "SRC" 367 "VERSE" 371)) org-element-center-block-parser org-element-comment-block-parser org-element-example-block-parser org-element-export-block-parser org-element-quote-block-parser org-element-src-block-parser org-element-verse-block-parser org-element-special-block-parser "\\+CALL:" org-element-babel-call-parser "\\+BEGIN:? " org-element-dynamic-block-parser "\\+\\S-+:" org-element-footnote-definition-parser "[ ]*-\\{5,\\}[ ]*$" org-property-drawer-re org-clock-line-re org-element--latex-begin-environment org-drawer-regexp org-footnote-definition-re org-element-horizontal-rule-parser "%%(" org-element-diary-sexp-parser "[ ]*\\(|\\|\\+\\(-+\\+\\)+[ ]*$\\)" org-element-table-parser org-item-re org-element-plain-list-parser org-element--list-struct] 13 (#$ . 102117)]) | |
| 1127 | #@391 Collect affiliated keywords from point down to LIMIT. | |
| 1128 | ||
| 1129 | Return a list whose CAR is the position at the first of them and | |
| 1130 | CDR a plist of keywords and values and move point to the | |
| 1131 | beginning of the first line after them. | |
| 1132 | ||
| 1133 | As a special case, if element doesn't start at the beginning of | |
| 1134 | the line (e.g., a paragraph starting an item), CAR is current | |
| 1135 | position of point and CDR is nil. | |
| 1136 | ||
| 1137 | (fn LIMIT) | |
| 1138 | (defalias 'org-element--collect-affiliated-keywords #[257 "n\204 `C\207\306`\307\2119\203 \211\202. \211\211:\204$ \211;\205, \310\262\202. \211@9\205, \211@\262\236A\262\311`W\203 \312\n!\203 \313\314!\226\315 \"A\206O \211\316 \317\320\321\322\323!\324\"\325$\216\326\320\225\327 \"\311\330\203m \331\202n \332\333\330\334\333##\266\202)\262\f\235 \235\211\205\260 \335\336!\211\203\220 \204\224 \211\202\256 \316 \317\320\321\322\323!\337\"\325$\216\340\336\224\336\225\311\f$)\262\262\205\273 \341\342\227P!\203\320 \340\320\225\311\210\343\311x\210`\311\f$\262\203\341 \204\334 \205\337 B\262)\235\204\360 \344\345\"\203\371 \346 \"B\262\347#\262\311y\266\2026 \312\350!\203b\210\311\262)B\207" [org-element-object-restrictions case-fold-search org-element--affiliated-re org-element-keyword-translation-alist org-element-parsed-keywords org-element-dual-keywords t keyword plain-text nil looking-at match-string 1 assoc match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 buffer-substring-no-properties line-end-position replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "" "[ \n ]+\\'" match-string-no-properties 2 [set-match-data evaporate] org-element--parse-objects intern ":" " " string-match "^ATTR_" plist-get plist-put "[ ]*$" org-element-multiple-keywords] 18 (#$ . 106124)]) | |
| 1139 | #@1876 Recursively parse the buffer and return structure. | |
| 1140 | If narrowing is in effect, only parse the visible part of the | |
| 1141 | buffer. | |
| 1142 | ||
| 1143 | Optional argument GRANULARITY determines the depth of the | |
| 1144 | recursion. It can be set to the following symbols: | |
| 1145 | ||
| 1146 | `headline' Only parse headlines. | |
| 1147 | `greater-element' Don't recurse into greater elements except | |
| 1148 | headlines and sections. Thus, elements | |
| 1149 | parsed are the top-level ones. | |
| 1150 | `element' Parse everything but objects and plain text. | |
| 1151 | `object' Parse the complete buffer (default). | |
| 1152 | ||
| 1153 | When VISIBLE-ONLY is non-nil, don't parse contents of hidden | |
| 1154 | elements. | |
| 1155 | ||
| 1156 | An element or object is represented as a list with the | |
| 1157 | pattern (TYPE PROPERTIES CONTENTS), where : | |
| 1158 | ||
| 1159 | TYPE is a symbol describing the element or object. See | |
| 1160 | `org-element-all-elements' and `org-element-all-objects' for an | |
| 1161 | exhaustive list of such symbols. One can retrieve it with | |
| 1162 | `org-element-type' function. | |
| 1163 | ||
| 1164 | PROPERTIES is the list of attributes attached to the element or | |
| 1165 | object, as a plist. Although most of them are specific to the | |
| 1166 | element or object type, all types share `:begin', `:end', | |
| 1167 | `:post-blank' and `:parent' properties, which respectively | |
| 1168 | refer to buffer position where the element or object starts, | |
| 1169 | ends, the number of white spaces or blank lines after it, and | |
| 1170 | the element or object containing it. Properties values can be | |
| 1171 | obtained by using `org-element-property' function. | |
| 1172 | ||
| 1173 | CONTENTS is a list of elements, objects or raw strings | |
| 1174 | contained in the current element or object, when applicable. | |
| 1175 | One can access them with `org-element-contents' function. | |
| 1176 | ||
| 1177 | The Org buffer has `org-data' as type and nil as properties. | |
| 1178 | `org-element-map' function can be used to find specific elements | |
| 1179 | or objects within the parse tree. | |
| 1180 | ||
| 1181 | This function assumes that current major mode is `org-mode'. | |
| 1182 | ||
| 1183 | (fn &optional GRANULARITY VISIBLE-ONLY) | |
| 1184 | (defalias 'org-element-parse-buffer #[512 "\212eb\210\300 \210\301\302 d\303\304\305\304D&)\207" [org-skip-whitespace org-element--parse-elements point-at-bol first-section nil org-data] 11 (#$ . 107924)]) | |
| 1185 | #@396 Recursively parse objects in STRING and return structure. | |
| 1186 | ||
| 1187 | RESTRICTION is a symbol limiting the object types that will be | |
| 1188 | looked after. | |
| 1189 | ||
| 1190 | Optional argument PARENT, when non-nil, is the element or object | |
| 1191 | containing the secondary string. It is used to set correctly | |
| 1192 | `:parent' property within the string. | |
| 1193 | ||
| 1194 | If STRING is the empty string or nil, return nil. | |
| 1195 | ||
| 1196 | (fn STRING RESTRICTION &optional PARENT) | |
| 1197 | (defalias 'org-element-parse-secondary-string #[770 "\204 \300\207\301\232\203 \300\207\302 \303\304!r\211q\210\305\306\307\310\311!\312\"\313$\216\211\203P \211@\3141D \2119\2039 \315!\202@ \316@!AL0\202H \210\202I \210A\266\202\202$ \210c\210\317\300!\210\320ed\300%*\262\207" [nil "" buffer-local-variables generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 (error) makunbound make-local-variable restore-buffer-modified-p org-element--parse-objects] 11 (#$ . 110017)]) | |
| 1198 | #@2362 Map a function on selected elements or objects. | |
| 1199 | ||
| 1200 | DATA is a parse tree, an element, an object, a string, or a list | |
| 1201 | of such constructs. TYPES is a symbol or list of symbols of | |
| 1202 | elements or objects types (see `org-element-all-elements' and | |
| 1203 | `org-element-all-objects' for a complete list of types). FUN is | |
| 1204 | the function called on the matching element or object. It has to | |
| 1205 | accept one argument: the element or object itself. | |
| 1206 | ||
| 1207 | When optional argument INFO is non-nil, it should be a plist | |
| 1208 | holding export options. In that case, parts of the parse tree | |
| 1209 | not exportable according to that property list will be skipped. | |
| 1210 | ||
| 1211 | When optional argument FIRST-MATCH is non-nil, stop at the first | |
| 1212 | match for which FUN doesn't return nil, and return that value. | |
| 1213 | ||
| 1214 | Optional argument NO-RECURSION is a symbol or a list of symbols | |
| 1215 | representing elements or objects types. `org-element-map' won't | |
| 1216 | enter any recursive element or object whose type belongs to that | |
| 1217 | list. Though, FUN can still be applied on them. | |
| 1218 | ||
| 1219 | When optional argument WITH-AFFILIATED is non-nil, FUN will also | |
| 1220 | apply to matching objects within parsed affiliated keywords (see | |
| 1221 | `org-element-parsed-keywords'). | |
| 1222 | ||
| 1223 | Nil values returned from FUN do not appear in the results. | |
| 1224 | ||
| 1225 | ||
| 1226 | Examples: | |
| 1227 | --------- | |
| 1228 | ||
| 1229 | Assuming TREE is a variable containing an Org buffer parse tree, | |
| 1230 | the following example will return a flat list of all `src-block' | |
| 1231 | and `example-block' elements in it: | |
| 1232 | ||
| 1233 | (org-element-map tree \='(example-block src-block) #\='identity) | |
| 1234 | ||
| 1235 | The following snippet will find the first headline with a level | |
| 1236 | of 1 and a "phone" tag, and will return its beginning position: | |
| 1237 | ||
| 1238 | (org-element-map tree \='headline | |
| 1239 | (lambda (hl) | |
| 1240 | (and (= (org-element-property :level hl) 1) | |
| 1241 | (member "phone" (org-element-property :tags hl)) | |
| 1242 | (org-element-property :begin hl))) | |
| 1243 | nil t) | |
| 1244 | ||
| 1245 | The next example will return a flat list of all `plain-list' type | |
| 1246 | elements in TREE that are not a sub-list themselves: | |
| 1247 | ||
| 1248 | (org-element-map tree \='plain-list #\='identity nil nil \='plain-list) | |
| 1249 | ||
| 1250 | Eventually, this example will return a flat list of all `bold' | |
| 1251 | type objects containing a `latex-snippet' type object, even | |
| 1252 | looking into captions: | |
| 1253 | ||
| 1254 | (org-element-map tree \='bold | |
| 1255 | (lambda (b) | |
| 1256 | (and (org-element-map b \='latex-snippet #\='identity nil t) b)) | |
| 1257 | nil nil nil t) | |
| 1258 | ||
| 1259 | (fn DATA TYPES FUN &optional INFO FIRST-MATCH NO-RECURSION WITH-AFFILIATED) | |
| 1260 | (defalias 'org-element-map #[1795 "<\203 \202 C<\203 \202 C\3022O \303\304B\211\203I \211@\211>\2033 \305\302\306\"\210\202B \211 >\204B \307=\204B \307\262A\266\202\202 \262\266\2020\310C\310C\211\311\312\313\314\315& \316\"\317\320%\240\210\3212\202 \211\242\f!\210\242\2370\262\207" [org-element-all-objects org-element-greater-elements :--found greater-elements plain-text throw objects elements nil make-byte-code 257 "\211\211:\204 \211;\205 \311\262\202 \211@9\205 \211@\262?\206\301\203- \312\301\313\">\206\211\2049 \314\310\242\"\202\211\315=\203] \314\310\242\211:\204N \316\262\202Y \211@9\203Y \211AA\262\"\202\211\304>\203~ \300!\211\203} \302\203v \317\320\"\210\202} \307\307\242B\240\210\210\306\321=\203\271 ;\204\271 \211\236A\211\203\270 \211@\310\242\211;\203\247 \322\323#\266\202\202\257 \312A@\"\266\202!\210A\266\202\202\216 \210\303\203\377\306\321=\203\377\316\211:\204\326 \211;\205\336 \311\262\202\340 \211@9\205\336 \211@\262\206\375 \324\211;\203\365 \322\323#\266\202\202\375 \312A@\"\266\202 >\203\325\202r >\203\326\202r\315=\203 \326\202r\311=\203'\325\202r\204/\325\202r\211\2047\326\202r\211\211:\204H\211;\205P\311\262\202R\211@9\205P\211@\262\211\204Z\325\202p\211 >\203e\325\202p\327!\203o\325\202p\326\262\266\204\326=\203\377 \211\203\376\211@\211@A\211;\203\225\322\323#\266\202\202\235\312A@\"\266\202\211\203\365 \235\203\336!\235\203\317\330!\211\203\313\211@\310\242A!\210\310\242@!\210A\266\202\202\262\210\202\365\310\242A!\210\310\242@!\210\202\365!\235\203\360\314\310\242\330!\"\210\202\365\310\242!\210\266A\266\202\202{\210\211\305>\206\211:\204\316\262\202 \211@9\203 \211AA\262?\206\306\331=\203.\211\">?\206\306\332=\203\352\316\211:\204G\211;\205O\311\262\202Q\211@9\205O\211@\262\206n\324\211;\203f\322\323#\266\202\202n\312A@\"\266\202 >\203y\325\202\343 >\203\204\326\202\343\315=\203\216\326\202\343\311=\203\230\325\202\343\204\240\325\202\343\211\204\250\326\202\343\211\211:\204\271\211;\205\301\311\262\202\303\211@9\205\301\211@\262\211\204\313\325\202\341\211 >\203\326\325\202\341\327!\203\340\325\202\341\326\262\266\204\325=\206\314\310\242\211:\204\371\316\262\202\211@9\203\211AA\262\"\207" vconcat vector [plain-text plist-get :ignore-list mapc org-data nil throw :--map-first-match objects get-text-property 0 :parent object element org-element-secondary-p reverse greater-elements elements org-element-secondary-value-alist org-element-all-objects org-element-all-elements org-element-object-containers org-element--parsed-properties-alist org-element-dual-keywords org-element-multiple-keywords org-element-greater-elements] 11 "\n\n(fn --DATA)" :--map-first-match] 27 (#$ . 110979)]) | |
| 1261 | (put 'org-element-map 'lisp-indent-function 2) | |
| 1262 | #@331 Return next special mode according to TYPE, or nil. | |
| 1263 | TYPE is a symbol representing the type of an element or object | |
| 1264 | containing next element if PARENTP is non-nil, or before it | |
| 1265 | otherwise. Modes can be either `first-section', `item', | |
| 1266 | `node-property', `planning', `property-drawer', `section', | |
| 1267 | `table-row' or nil. | |
| 1268 | ||
| 1269 | (fn TYPE PARENTP) | |
| 1270 | (defalias 'org-element--next-mode #[514 "\211\203 \300\267\202 \301\207\302\207\303\207\304\207\302\207\305\207\306\207\307\267\202& \303\207\304\207\310\207\305\207\306\207" [#s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (headline 10 inlinetask 12 plain-list 14 property-drawer 16 section 18 table 20)) section planning item node-property table-row nil #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (item 30 node-property 32 planning 34 table-row 36)) property-drawer] 4 (#$ . 116292)]) | |
| 1271 | (put 'org-element--next-mode 'byte-optimizer 'byte-compile-inline-expand) | |
| 1272 | #@543 Parse elements between BEG and END positions. | |
| 1273 | ||
| 1274 | MODE prioritizes some elements over the others. It can be set to | |
| 1275 | `first-section', `section', `planning', `item', `node-property' | |
| 1276 | or `table-row'. | |
| 1277 | ||
| 1278 | When value is `item', STRUCTURE will be used as the current list | |
| 1279 | structure. | |
| 1280 | ||
| 1281 | GRANULARITY determines the depth of the recursion. See | |
| 1282 | `org-element-parse-buffer' for more information. | |
| 1283 | ||
| 1284 | When VISIBLE-ONLY is non-nil, don't parse contents of hidden | |
| 1285 | elements. | |
| 1286 | ||
| 1287 | Elements are accumulated into ACC. | |
| 1288 | ||
| 1289 | (fn BEG END MODE STRUCTURE GRANULARITY VISIBLE-ONLY ACC) | |
| 1290 | (defalias 'org-element--parse-elements #[1799 "\212b\210\203 \306 \203 \307 T^b\210\310=\2030 \311 \2040 \312\313 \211\314 P\315 \210,\316`W\203\220\317$\211\211:\204R \211;\205Z \320\262\202\\ \211@9\205Z \211@\262\321\211;\203m \322\323#\266\202\202u \324A@\"\266\202\325\211;\203\206 \322\323#\266\202\202\216 \324A@\"\266\202b\210\203\241 \306 \203\241 \307 T\n^b\210\211\203_\f>\203\326>\204\305 \327=\203\277 \330=\204\305 \310=\203\331\332\211;\203\330 \322\323#\266\202\202\340 \324A@\"\266\202\333\312\"\334>\205\335\211;\203\374 \322\323#\266\202\202\324A@\"\266\202 &\210\202_\336>\203_\337\332\211;\203*\322\323#\266\202\2022\324A@\"\266\202\2119\203=\211\202X\211\211:\204N\211;\205V\320\262\202X\211@9\205V\211@\262 \236A\262$\210\340;\203s\341\316$\266\203\202\201A\342A@#\240\210\266\203B\262\333\316\"\262 \266\2021 \343\344\237#\262)\207" [org-called-with-limited-levels org-outline-regexp outline-regexp org-outline-regexp-bol org-element-greater-elements org-element-object-restrictions org-invisible-p2 org-find-visible headline org-at-heading-p t org-get-limited-outline-regexp "^" outline-next-heading nil org-element--current-element plain-text :contents-begin get-text-property 0 plist-get :end (element object nil) greater-element section org-element--parse-elements :contents-end #[514 "\211\203 \300\267\202 \301\207\302\207\303\207\304\207\302\207\305\207\306\207\307\267\202& \303\207\304\207\310\207\305\207\306\207" [#s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (headline 10 inlinetask 12 plain-list 14 property-drawer 16 section 18 table 20)) section planning item node-property table-row nil #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (item 30 node-property 32 planning 34 table-row 36)) property-drawer] 4 "Return next special mode according to TYPE, or nil.\nTYPE is a symbol representing the type of an element or object\ncontaining next element if PARENTP is non-nil, or before it\notherwise. Modes can be either `first-section', `item',\n`node-property', `planning', `property-drawer', `section',\n`table-row' or nil.\n\n(fn TYPE PARENTP)"] (item plain-list) :structure (object nil) org-element--parse-objects :parent org-add-props plist-put apply org-element-set-contents] 22 (#$ . 117273)]) | |
| 1291 | #@244 Return next object in current buffer or nil. | |
| 1292 | RESTRICTION is a list of object types, as symbols, that should be | |
| 1293 | looked after. This function assumes that the buffer is narrowed | |
| 1294 | to an appropriate container (e.g., a paragraph). | |
| 1295 | ||
| 1296 | (fn RESTRICTION) | |
| 1297 | (defalias 'org-element--object-lex #[257 "\302>\203 \303 \207`\212\204 \304\202P \305>\204 \304\202P n\204$ \306u\210\307\304\310#\2040 \304\202P \211\311 TU\203M \211\312\225U\203M \307\304\310#\205P \312\224T\202P \312\224T)\304\212\211\204\314\307 \313#\203\314\314\224b\210\315\314!\316\317\310#\203y \320>\205\277\321 \202\277\316\322\310#\203\214 \323>\205\277\324 \202\277\304f\211\325\267\202\264\326>\205\275\327 \202\275\330>\203\254 \331 \206\275\332>\205\275\333 \202\275\334>\205\275\335 \202\275\336>\205\275\337 \202\275\340>\205\275\341 \202\275\342>\205\275\343 \202\275\344>\205\275\345 \202\275\346>\205\275\347 \202\275\350>\205\275\351 \202\275\352>\205\275\353 \202\275\312H\354=\2038\355>\203,\356 \206\275\357>\205\275\360 \202\275\361>\203D\362 \206\275\305>\205\275\363 \202\275\312H\364=\203d\365>\205\275\366 \202\275\367>\203p\370 \206\275\352>\205\275\353 \202\275\312H\371=\203\220\305>\205\275\363 \202\275\372>\203\234\373 \206\275\361>\203\250\362 \206\275\374>\205\275\375 \202\275\305>\205\275\363 \262\262m\204\310\304u\210\210\202S \211\206\335\203\334\306u\210\363 \202\335\304)\207" [org-target-link-regexp org-element--object-regexp table-cell org-element-table-cell-parser nil link -1 re-search-forward t line-beginning-position 1 move 0 match-string string-prefix-p "call_" inline-babel-call org-element-inline-babel-call-parser "src_" inline-src-block org-element-inline-src-block-parser #s(hash-table size 13 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (94 148 95 160 42 184 47 196 126 208 61 220 43 232 64 244 123 256 36 268 60 280 92 336 91 380)) superscript org-element-superscript-parser subscript org-element-subscript-parser underline org-element-underline-parser bold org-element-bold-parser italic org-element-italic-parser code org-element-code-parser verbatim org-element-verbatim-parser strike-through org-element-strike-through-parser export-snippet org-element-export-snippet-parser macro org-element-macro-parser latex-fragment org-element-latex-fragment-parser 60 radio-target org-element-radio-target-parser target org-element-target-parser timestamp org-element-timestamp-parser org-element-link-parser 92 line-break org-element-line-break-parser entity org-element-entity-parser 91 footnote-reference org-element-footnote-reference-parser statistics-cookie org-element-statistics-cookie-parser] 9 (#$ . 120257)]) | |
| 1298 | #@519 Parse objects between BEG and END and return recursive structure. | |
| 1299 | ||
| 1300 | Objects are accumulated in ACC. RESTRICTION is a list of object | |
| 1301 | successors which are allowed in the current object. | |
| 1302 | ||
| 1303 | ACC becomes the parent for all parsed objects. However, if ACC | |
| 1304 | is nil (i.e., a secondary string is being parsed) and optional | |
| 1305 | argument PARENT is non-nil, use it as the parent for all objects. | |
| 1306 | Eventually, if both ACC and PARENT are nil, the common parent is | |
| 1307 | the list of objects itself. | |
| 1308 | ||
| 1309 | (fn BEG END ACC RESTRICTION &optional PARENT) | |
| 1310 | (defalias 'org-element--parse-objects #[1284 "\212\214}\210eb\210\301\211m\204\"\302!\211\262\203\"\303\211;\203) \304\305#\266\202\2021 \306A@\"\266\202`U\204k \307`\"\203e \211\310;\203T \311\301$\266\203\202f A\312A@#\240\210\266\203\202f \211B\262\210\210\313\211;\203} \304\305#\266\202\202\205 \306A@\"\266\202\314\211;\203\226 \304\305#\266\202\202\236 \306A@\"\266\202\203\306 \310;\203\267 \311\301$\266\203\202\305 A\312A@#\240\210\266\203\210\211\203\315\316\211;\203\336 \304\305#\266\202\202\346 \306A@\"\266\202\211\2119\203\362 \211\202 \211\211:\204\211;\205 \317\262\202 \211@9\205 \211@\262\236A\262$\202B\262b\266\202 m\204Y\307`\"\203T\211\310;\203C\311\301$\266\203\202UA\312A@#\240\210\266\203\202U\211B\266\202\203g\320\321\237#\202\243\211\237\206n\211\211\203\236\211@\211\310;\203\210\311\301$\266\203\202\226A\312A@#\240\210\266\203\210A\266\202\202o\262\266\202\266\202*\207" [org-element-object-restrictions nil org-element--object-lex :begin get-text-property 0 plist-get buffer-substring-no-properties :parent org-add-props plist-put :end :contents-begin org-element--parse-objects :contents-end plain-text apply org-element-set-contents] 19 (#$ . 123026)]) | |
| 1311 | #@154 Interpret DATA as Org syntax. | |
| 1312 | DATA is a parse tree, an element, an object or a secondary string | |
| 1313 | to interpret. Return Org syntax as a string. | |
| 1314 | ||
| 1315 | (fn DATA) | |
| 1316 | (defalias 'org-element-interpret-data #[257 "\300C\211\301\302\303\304\305!\306\"\307\310%\240\210\211\242\300\"\207" [nil make-byte-code 514 "\211:\204 \211;\205 \304\262\202 \211@9\205 \211@\262\305\306\307\"!\310!\203+ \211\202, \311\262\204G \312\313\314\315\316\317\300 \"\320\"\321\322%\323#\202 \324=\203x \312\313\314\315\316\317\300 \"\320\"\321\322%\211:\204h \325\262\202s \211@9\203s \211AA\262\323#\202 ;\203\201 \202 \211:\204\215 \325\262\202\230 \211@9\203\230 \211AA\262\204\242 \211\325\"\202 \211\312\313\314\315\316\317\300\f\"\320\"\321\326%\327>\204\276 \202\330\331=\205\211:\204\332 \211;\205\342 \304\262\202\344 \211@9\205\342 \211@\262\332>\205 \211:\204\370 \325\262\202\211@9\203\211AA\262@=\"\211:\204\325\262\202 \211@9\203 \211AA\262\323#\"\333>\203)\211\202\334\211;\203:\335\336#\266\202\202B\337A@\"\266\202\206F\336\211:\204Y\211;\205a\304\262\202c\211@9\205a\211@\262\206\200\340\211;\203x\335\336#\266\202\202\200\337A@\"\266\202 >\203\212\341\202\362\n>\203\224\342\202\362\324=\203\236\342\202\362\304=\203\250\341\202\362\204\260\341\202\362\211\204\270\342\202\362\211\211:\204\311\211;\205\321\304\262\202\323\211@9\205\321\211@\262\211\204\333\341\202\360\211 >\203\345\341\202\360\343!\203\357\341\202\360\342\262\266\204\341=\203\344\345\"P\202\346!\347!\344\350\"Q\262\207" vconcat vector [org-element-all-objects org-element-all-elements org-element-object-containers plain-text intern format "org-element-%s-interpreter" fboundp #[514 "\207" #1=[] 3 "\n\n(fn _ CONTENTS)"] mapconcat make-byte-code 257 "\300\242\301\"\207" vconcat vector #1# 4 "\n\n(fn OBJ)" "" org-data nil "\n\n(fn DATUM)" (paragraph verse-block) org-element-normalize-contents paragraph (footnote-definition item) (org-data plain-text nil) :post-blank get-text-property 0 plist-get :parent object element org-element-secondary-p make-string 32 org-element--interpret-affiliated-keywords org-element-normalize-string 10] 15 "\n\n(fn DATA PARENT)"] 9 (#$ . 124867)]) | |
| 1317 | #@127 Return ELEMENT's affiliated keywords as Org syntax. | |
| 1318 | If there is no affiliated keyword, return the empty string. | |
| 1319 | ||
| 1320 | (fn ELEMENT) | |
| 1321 | (defalias 'org-element--interpret-affiliated-keywords #[257 "\302\303\304\305\306\307\310\"\311\"\312\313%A@\314\211:\203J @\262\315!\316\314O\226\317\320\"\2068 \211\235\2058 \321 \"?\262\203B B\262AA\262\202 \211\237\266\203\322#\207" [org-element-affiliated-keywords org-element-keyword-translation-alist #[514 "\302\235\203 A\262@\262\303\205 \304\305\306!\"\307 \235\203* \306!\202+ \310\260\207" [org-element-dual-keywords org-element-parsed-keywords nil "#+" format "[%s]" org-element-interpret-data ": " "\n"] 9 "\n\n(fn KEY VALUE)"] mapconcat make-byte-code 257 "\211\300\211;\203 \303\304#\266\202\202 \305A@\"\266\202\306!\307\310O\226\205L \211\n\235\2041 \311\312\"\203H \313\314\315\316\317\320\301\"\321\"\322\323%\324!\325#\202L \301\"\207" vconcat vector [org-element-multiple-keywords get-text-property 0 plist-get symbol-name 1 nil string-match "^ATTR_" mapconcat make-byte-code 257 "\300\301\"\207" vconcat vector [] 4 "\n\n(fn LINE)" reverse #1=""] 11 "\n\n(fn PROP)" nil symbol-name 1 string-match "^ATTR_" assoc #1#] 11 (#$ . 127149)]) | |
| 1322 | #@219 Ensure string S ends with a single newline character. | |
| 1323 | ||
| 1324 | If S isn't a string return it unchanged. If S is the empty | |
| 1325 | string, return it. Otherwise, return a new string with a single | |
| 1326 | newline character at its end. | |
| 1327 | ||
| 1328 | (fn S) | |
| 1329 | (defalias 'org-element-normalize-string #[257 "\211;\204 \207\211\300\230\203 \300\207\301\302\"\205 \303\304\305\211$\207" ["" string-match "\\(\n[ ]*\\)*\\'" replace-match "\n" nil] 6 (#$ . 128392)]) | |
| 1330 | #@349 Normalize plain text in ELEMENT's contents. | |
| 1331 | ||
| 1332 | ELEMENT must only contain plain text and objects. | |
| 1333 | ||
| 1334 | If optional argument IGNORE-FIRST is non-nil, ignore first line's | |
| 1335 | indentation to compute maximal common indentation. | |
| 1336 | ||
| 1337 | Return the normalized element that is element with global | |
| 1338 | indentation removed from its contents. | |
| 1339 | ||
| 1340 | (fn ELEMENT &optional IGNORE-FIRST) | |
| 1341 | (defalias 'org-element-normalize-contents #[513 "\301C\301C\302\303\304\305\306!\307\"\310\311%\240\210\211\3122! \242?#0\240\210\211\242\313U\2041 \211\242U\2035 \202O \301C\211\302\314\315\305\306\"\316\"\317\320%\240\210\211\242!\262\207" [most-positive-fixnum nil make-byte-code 771 "\211:\204\f \302\262\202 \211@9\203 \211AA\262\211\203#\211@\203m \302\262\211;\2041 \303\304\305\"\210\202m \306\307\"\204@ \303\304\305\"\210\202m \310\311\"\312\232\203V \313\314\224\314\225\315\316%\210\202m \317\310\314\"!\313\314\224\314\225\315%\210\211^\262\210\211;\203\316 \305\306\320#\203\312 \314\225\262\310\314\"\321\232\203\231 \310\311\"\322\235\204s \303\304\305\"\210\202s \310\311\"\312\232\203\260 \313\314\224\314\225\315\316%\210\202s \317\310\314\"!\313\314\224\314\225\315%\210\211^\262\210\202s \210\202 \211\211:\204\337 \211;\205\347 \323\262\202\351 \211@9\205\347 \211@\262\324=\203\364 \325\262\202 \211\211:\204\211;\205 \323\262\202\211@9\205 \211@\262 >\203 \300\242#\262A\266\202\202 \207" vconcat vector [org-element-recursive-objects nil throw :zero 0 string-match "\\`\\([ ]+\\)\\([^ \n]\\|\n\\|\\'\\)" match-string 2 "\n" put-text-property 1 org-ind empty string-width "\n\\([ ]*\\)\\([^ \n]\\|\n\\|\\'\\)" #1="" (#1# "\n") plain-text line-break t] 13 "\n\n(fn BLOB FIRST-FLAG MIN-IND)" :zero 0 257 "\211A\302\303\304\305\306\307\300\301\"\310\"\311\312%\211:\204 \313\262\202' \211@9\203' \211AA\262\"\241\210\207" [mapcar make-byte-code 257 "\211;\203K \303\304!r\211q\210\305\306\307\310\311!\312\"\313$\216c\210e\314d\315\316$\211\262\203F \211b\210\317\315\"\320\316w\210`|\210\211\250\203B \211\300\242Zj\210\210\202 \210\321 *\207\211\211:\204\\ \211;\205d \322\262\202f \211@9\205d \211@\262\n>\203p \301\242!\207\207" vconcat vector [org-element-recursive-objects generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 text-property-not-all org-ind nil get-text-property " " buffer-string plain-text] 8 "\n\n(fn OBJECT)" nil] 10 "\n\n(fn DATUM)"] 13 (#$ . 128825)]) | |
| 1342 | #@214 Non-nil when Org parser should cache its results. | |
| 1343 | ||
| 1344 | WARNING: for the time being, using cache sometimes triggers | |
| 1345 | freezes. Therefore, it is disabled by default. Activate it if | |
| 1346 | you want to help debugging the issue. | |
| 1347 | (defvar org-element-use-cache nil (#$ . 131334)) | |
| 1348 | #@56 Length, in seconds, of idle time before syncing cache. | |
| 1349 | (defvar org-element-cache-sync-idle-time 0.6 (#$ . 131602)) | |
| 1350 | #@195 Maximum duration, as a time value, for a cache synchronization. | |
| 1351 | If the synchronization is not over after this delay, the process | |
| 1352 | pauses and resumes after `org-element-cache-sync-break' | |
| 1353 | seconds. | |
| 1354 | (defvar org-element-cache-sync-duration (seconds-to-time 0.04) (#$ . 131724)) | |
| 1355 | #@127 Duration, as a time value, of the pause between synchronizations. | |
| 1356 | See `org-element-cache-sync-duration' for more information. | |
| 1357 | (defvar org-element-cache-sync-break (seconds-to-time 0.3) (#$ . 132003)) | |
| 1358 | #@179 AVL tree used to cache elements. | |
| 1359 | Each node of the tree contains an element. Comparison is done | |
| 1360 | with `org-element--cache-compare'. This cache is used in | |
| 1361 | `org-element-at-point'. | |
| 1362 | (defvar org-element--cache nil (#$ . 132210)) | |
| 1363 | #@1184 List of pending synchronization requests. | |
| 1364 | ||
| 1365 | A request is a vector with the following pattern: | |
| 1366 | ||
| 1367 | [NEXT BEG END OFFSET PARENT PHASE] | |
| 1368 | ||
| 1369 | Processing a synchronization request consists of three phases: | |
| 1370 | ||
| 1371 | 0. Delete modified elements, | |
| 1372 | 1. Fill missing area in cache, | |
| 1373 | 2. Shift positions and re-parent elements after the changes. | |
| 1374 | ||
| 1375 | During phase 0, NEXT is the key of the first element to be | |
| 1376 | removed, BEG and END is buffer position delimiting the | |
| 1377 | modifications. Elements starting between them (inclusive) are | |
| 1378 | removed. So are elements whose parent is removed. PARENT, when | |
| 1379 | non-nil, is the parent of the first element to be removed. | |
| 1380 | ||
| 1381 | During phase 1, NEXT is the key of the next known element in | |
| 1382 | cache and BEG its beginning position. Parse buffer between that | |
| 1383 | element and the one before it in order to determine the parent of | |
| 1384 | the next element. Set PARENT to the element containing NEXT. | |
| 1385 | ||
| 1386 | During phase 2, NEXT is the key of the next element to shift in | |
| 1387 | the parse tree. All elements starting from this one have their | |
| 1388 | properties relatives to buffer positions shifted by integer | |
| 1389 | OFFSET and, if they belong to element PARENT, are adopted by it. | |
| 1390 | ||
| 1391 | PHASE specifies the phase number, as an integer. | |
| 1392 | (defvar org-element--cache-sync-requests nil (#$ . 132442)) | |
| 1393 | #@39 Timer used for cache synchronization. | |
| 1394 | (defvar org-element--cache-sync-timer nil (#$ . 133691)) | |
| 1395 | #@106 Hash table used to store keys during synchronization. | |
| 1396 | See `org-element--cache-key' for more information. | |
| 1397 | (defvar org-element--cache-sync-keys nil (#$ . 133793)) | |
| 1398 | #@741 Return a unique key for ELEMENT in cache tree. | |
| 1399 | ||
| 1400 | Keys are used to keep a total order among elements in the cache. | |
| 1401 | Comparison is done with `org-element--cache-key-less-p'. | |
| 1402 | ||
| 1403 | When no synchronization is taking place, a key is simply the | |
| 1404 | beginning position of the element, or that position plus one in | |
| 1405 | the case of an first item (respectively row) in | |
| 1406 | a list (respectively a table). | |
| 1407 | ||
| 1408 | During a synchronization, the key is the one the element had when | |
| 1409 | the cache was synchronized for the last time. Elements added to | |
| 1410 | cache during the synchronization get a new key generated with | |
| 1411 | `org-element--cache-generate-key'. | |
| 1412 | ||
| 1413 | Such keys are stored in `org-element--cache-sync-keys'. The hash | |
| 1414 | table is cleared once the synchronization is complete. | |
| 1415 | ||
| 1416 | (fn ELEMENT) | |
| 1417 | (defalias 'org-element--cache-key #[257 "\302\"\206U \303\211;\203 \304\305#\266\202\202 \306A@\"\266\202\211:\2041 \211;\2059 \307\262\202; \211@9\2059 \211@\262\310>\203E \211T\202F \211 \203R \311#\202S \211\266\202\207" [org-element--cache-sync-keys org-element--cache-sync-requests gethash :begin get-text-property 0 plist-get plain-text (item table-row) puthash] 7 (#$ . 133961)]) | |
| 1418 | (put 'org-element--cache-key 'byte-optimizer 'byte-compile-inline-expand) | |
| 1419 | #@1319 Generate a key between LOWER and UPPER. | |
| 1420 | ||
| 1421 | LOWER and UPPER are integers or lists, possibly empty. | |
| 1422 | ||
| 1423 | If LOWER and UPPER are equals, return LOWER. Otherwise, return | |
| 1424 | a unique key, as an integer or a list of integers, according to | |
| 1425 | the following rules: | |
| 1426 | ||
| 1427 | - LOWER and UPPER are compared level-wise until values differ. | |
| 1428 | ||
| 1429 | - If, at a given level, LOWER and UPPER differ from more than | |
| 1430 | 2, the new key shares all the levels above with LOWER and | |
| 1431 | gets a new level. Its value is the mean between LOWER and | |
| 1432 | UPPER: | |
| 1433 | ||
| 1434 | (1 2) + (1 4) --> (1 3) | |
| 1435 | ||
| 1436 | - If LOWER has no value to compare with, it is assumed that its | |
| 1437 | value is `most-negative-fixnum'. E.g., | |
| 1438 | ||
| 1439 | (1 1) + (1 1 2) | |
| 1440 | ||
| 1441 | is equivalent to | |
| 1442 | ||
| 1443 | (1 1 m) + (1 1 2) | |
| 1444 | ||
| 1445 | where m is `most-negative-fixnum'. Likewise, if UPPER is | |
| 1446 | short of levels, the current value is `most-positive-fixnum'. | |
| 1447 | ||
| 1448 | - If they differ from only one, the new key inherits from | |
| 1449 | current LOWER level and fork it at the next level. E.g., | |
| 1450 | ||
| 1451 | (2 1) + (3 3) | |
| 1452 | ||
| 1453 | is equivalent to | |
| 1454 | ||
| 1455 | (2 1) + (2 M) | |
| 1456 | ||
| 1457 | where M is `most-positive-fixnum'. | |
| 1458 | ||
| 1459 | - If the key is only one level long, it is returned as an | |
| 1460 | integer: | |
| 1461 | ||
| 1462 | (1 2) + (3 2) --> 2 | |
| 1463 | ||
| 1464 | When they are not equals, the function assumes that LOWER is | |
| 1465 | lesser than UPPER, per `org-element--cache-key-less-p'. | |
| 1466 | ||
| 1467 | (fn LOWER UPPER) | |
| 1468 | (defalias 'org-element--cache-generate-key #[514 "\232\203 \207\250\203 C\202 \250\203 C\202 \302\211\3032\202 @\206* \2032 \2028 @\2068 TW\203c \304\305\306\"\305\306\"\307\310##\311\303\203\\ B\237\202] \"\266\202} W\203p \204p \312\262B\262A\262A\262\266\202$ \207" [most-negative-fixnum most-positive-fixnum nil exit + ash -1 logand 1 throw t] 15 (#$ . 135185)]) | |
| 1469 | #@139 Non-nil if key A is less than key B. | |
| 1470 | A and B are either integers or lists of integers, as returned by | |
| 1471 | `org-element--cache-key'. | |
| 1472 | ||
| 1473 | (fn A B) | |
| 1474 | (defalias 'org-element--cache-key-less-p #[514 "\250\203 \211\250\203 W\207@X\207\211\250\203 @W\207\3002Y \203R \211\203R \301\"\2038 \302\300\303\"\210\202! \301\"\203G \302\300\304\"\210\202! A\262\211A\262\202! ?\205X \2110\207" [exit car-less-than-car throw t nil] 5 (#$ . 136921)]) | |
| 1475 | (put 'org-element--cache-key-less-p 'byte-optimizer 'byte-compile-inline-expand) | |
| 1476 | #@63 Non-nil when element A is located before element B. | |
| 1477 | ||
| 1478 | (fn A B) | |
| 1479 | (defalias 'org-element--cache-compare #[514 "\302\"\206V \303\211;\203 \304\305#\266\202\202! \306A@\"\266\202\211:\2042 \211;\205: \307\262\202< \211@9\205: \211@\262\310>\203F \211T\202G \211 \203S \311#\202T \211\266\202\262\302\"\206\256 \303\211;\203q \304\305#\266\202\202y \306A@\"\266\202\211:\204\212 \211;\205\222 \307\262\202\224 \211@9\205\222 \211@\262\310>\203\236 \211T\202\237 \211 \203\253 \311#\202\254 \211\266\202\262\250\203\303 \211\250\203\276 W\207@X\207\211\250\203\315 @W\207\3122 \203\211\203\313\"\203\350 \314\312\315\"\210\202\321 \313\"\203\367 \314\312\316\"\210\202\321 A\262\211A\262\202\321 ?\205\2110\207" [org-element--cache-sync-keys org-element--cache-sync-requests gethash :begin get-text-property 0 plist-get plain-text (item table-row) puthash exit car-less-than-car throw t nil] 10 (#$ . 137453)]) | |
| 1480 | #@93 Return root value in cache. | |
| 1481 | This function assumes `org-element--cache' is a valid AVL tree. | |
| 1482 | (defalias 'org-element--cache-root #[0 "\302! >\204 \303\304\305D\"\210\306H\307H\207" [org-element--cache cl-struct-avl-tree--tags type-of signal wrong-type-argument avl-tree- 1 0] 4 (#$ . 138416)]) | |
| 1483 | (put 'org-element--cache-root 'byte-optimizer 'byte-compile-inline-expand) | |
| 1484 | #@49 Non-nil when cache is active in current buffer. | |
| 1485 | (defalias 'org-element--cache-active-p #[0 "\205 \205 \302\303!\207" [org-element-use-cache org-element--cache derived-mode-p org-mode] 2 (#$ . 138793)]) | |
| 1486 | (put 'org-element--cache-active-p 'byte-optimizer 'byte-compile-inline-expand) | |
| 1487 | #@448 Find element in cache starting at POS or before. | |
| 1488 | ||
| 1489 | POS refers to a buffer position. | |
| 1490 | ||
| 1491 | When optional argument SIDE is non-nil, the function checks for | |
| 1492 | elements starting at or past POS instead. If SIDE is `both', the | |
| 1493 | function returns a cons cell where car is the first element | |
| 1494 | starting at or before POS and cdr the first element starting | |
| 1495 | after POS. | |
| 1496 | ||
| 1497 | The function can only find elements in the synchronized part of | |
| 1498 | the cache. | |
| 1499 | ||
| 1500 | (fn POS &optional SIDE) | |
| 1501 | (defalias 'org-element--cache-find #[513 "\205 @\304H\305 !\n>\204 \306\307\310 D\"\210 \311H\304H\312\211\203\320\313H\314\211;\2036 \315\304#\266\202\202> \316A@\"\266\202\203\317 \"\206\230 \314\211;\203[ \315\304#\266\202\202c \316A@\"\266\202\211:\204t \211;\205| \320\262\202~ \211@9\205| \211@\262\321>\203\210 \211T\202\211 \211\203\225 \322 #\202\226 \211\266\202\262\250\203\267 \211\250\203\256 W\266\202\202@X\266\202\202\211\250\203\305 @W\266\202\202\3232\203\372 \211\203\372 \324\"\203\340 \325\323\326\"\210\202\311 \324\"\203\357 \325\323\312\"\210\202\311 A\262\211A\262\202\311 ?\205 \2110\266\202\204\304H\262\202\313\211V\203 \262\304H\262\202\313\211W\2032\262\311H\262\202\313\327=\203D\262\311H\262\202\313\211:\204U\211;\205]\320\262\202_\211@9\205]\211@\262\330>\203\302\331\211;\203u\315\304#\266\202\202}\316A@\"\266\202\314\211;\203\216\315\304#\266\202\202\226\316A@\"\266\202\332\211;\203\247\315\304#\266\202\202\257\316A@\"\266\202U\205\275\312\262\211\262\211\211\262\262\204\313\312\262\262\262\266\202 \327=\203\334B\202\345\204\344\202\345\211\207" [org-element--cache-sync-requests org-element--cache cl-struct-avl-tree--tags org-element--cache-sync-keys 0 type-of signal wrong-type-argument avl-tree- 1 nil 2 :begin get-text-property plist-get gethash plain-text (item table-row) puthash exit car-less-than-car throw t both (item table-row) :parent :contents-begin] 16 (#$ . 139085)]) | |
| 1502 | #@68 Store ELEMENT in current buffer's cache, if allowed. | |
| 1503 | ||
| 1504 | (fn ELEMENT) | |
| 1505 | (defalias 'org-element--cache-put #[257 "\205 \205\304\305!\205\n\203\375 \306\307\211;\203$ \310\311#\266\202\202, \312A@\"\266\202\313\"\314\315@\205\217 @\316 \"\206\215 \307\211;\203P \310\311#\266\202\202X \312A@\"\266\202\211:\204i \211;\205q \317\262\202s \211@9\205q \211@\262\320>\203} \211T\202~ \211\n\203\212 \314 #\202\213 \211\266\202\262A\203\360 A\316 \"\206\353 \307\211;\203\256 \310\311#\266\202\202\266 \312A@\"\266\202\211:\204\307 \211;\205\317 \317\262\202\321 \211@9\205\317 \211@\262\320>\203\333 \211T\202\334 \211\n\203\350 \314 #\202\351 \211\266\202\262\202\370 \n\205\370 \n@\311H\" #\266\321 \"\207" [org-element-use-cache org-element--cache org-element--cache-sync-requests org-element--cache-sync-keys derived-mode-p org-mode org-element--cache-find :begin get-text-property 0 plist-get both puthash org-element--cache-generate-key gethash plain-text (item table-row) avl-tree-enter] 13 (#$ . 141099)]) | |
| 1506 | #@102 Remove ELEMENT from cache. | |
| 1507 | Assume ELEMENT belongs to cache and that a cache is active. | |
| 1508 | ||
| 1509 | (fn ELEMENT) | |
| 1510 | (defalias 'org-element--cache-remove #[257 "\301\"\207" [org-element--cache avl-tree-delete] 4 (#$ . 142152)]) | |
| 1511 | (put 'org-element--cache-remove 'byte-optimizer 'byte-compile-inline-expand) | |
| 1512 | #@66 Set idle timer for cache synchronization in BUFFER. | |
| 1513 | ||
| 1514 | (fn BUFFER) | |
| 1515 | (defalias 'org-element--cache-set-timer #[257 "\203 \303!\210\304\305 \211\203 \306 \"\202 \n\262\307\310$\211\207" [org-element--cache-sync-timer org-element-cache-sync-break org-element-cache-sync-idle-time cancel-timer run-with-idle-timer current-idle-time time-add nil org-element--cache-sync] 6 (#$ . 142449)]) | |
| 1516 | (put 'org-element--cache-set-timer 'byte-optimizer 'byte-compile-inline-expand) | |
| 1517 | #@113 Non-nil when synchronization process should be interrupted. | |
| 1518 | TIME-LIMIT is a time value or nil. | |
| 1519 | ||
| 1520 | (fn TIME-LIMIT) | |
| 1521 | (defalias 'org-element--cache-interrupt-p #[257 "\211\205 \300 \206 \301\302 \"\207" [input-pending-p time-less-p current-time] 4 (#$ . 142926)]) | |
| 1522 | (put 'org-element--cache-interrupt-p 'byte-optimizer 'byte-compile-inline-expand) | |
| 1523 | #@357 Shift ELEMENT properties relative to buffer positions by OFFSET. | |
| 1524 | ||
| 1525 | Properties containing buffer positions are `:begin', `:end', | |
| 1526 | `:contents-begin', `:contents-end' and `:structure'. When | |
| 1527 | optional argument PROPS is a list of keywords, only shift | |
| 1528 | properties provided in that list. | |
| 1529 | ||
| 1530 | Properties are modified by side-effect. | |
| 1531 | ||
| 1532 | (fn ELEMENT OFFSET &optional PROPS) | |
| 1533 | (defalias 'org-element--cache-shift-positions #[770 "A@\203 \300>\203x \211:\204 \211;\205& \301\262\202( \211@9\205& \211@\262\302=\203x \303\304\"\211:\204A \211;\205I \301\262\202K \211@9\205I \211@\262\305=\204x \303\300\"\211\203w \211@\211\211@\\\240\266\306\233\211@\\\240\266A\266\202\202T \210\307\211\205\242 \211@\203\211 \211>\205\215 \303\"\211\203\232 \310\\#\210\210A\266\202\202y \262\207" [:structure plain-text plain-list plist-get :parent item 6 (:begin :contents-begin :contents-end :end :post-affiliated) plist-put] 12 (#$ . 143276)]) | |
| 1534 | (put 'org-element--cache-shift-positions 'byte-optimizer 'byte-compile-inline-expand) | |
| 1535 | #@600 Synchronize cache with recent modification in BUFFER. | |
| 1536 | ||
| 1537 | When optional argument THRESHOLD is non-nil, do the | |
| 1538 | synchronization for all elements starting before or at threshold, | |
| 1539 | then exit. Otherwise, synchronize cache for as long as | |
| 1540 | `org-element-cache-sync-duration' or until Emacs leaves idle | |
| 1541 | state. | |
| 1542 | ||
| 1543 | FUTURE-CHANGE, when non-nil, is a buffer position where changes | |
| 1544 | not registered yet in the cache are going to happen. It is used | |
| 1545 | in `org-element--cache-submit-request', where cache is partially | |
| 1546 | updated before current modification are actually submitted. | |
| 1547 | ||
| 1548 | (fn BUFFER &optional THRESHOLD FUTURE-CHANGE) | |
| 1549 | (defalias 'org-element--cache-sync #[769 "\306!\205\224 rq\210\307\310\211 \203 \311 !\210\3122b \n\205a \n@\262\nA@\262\313\2051 \314H\211?\205= \315\316 \"%\210\211\203Y \211\211\317\317H\317H\\I\266\211\320\320HI\210\nA\211\204 \3100\210\n\203\214 \203p \311 !\210\321\322 \211\203~ \315\f\"\202 \262\310\323$\211\262\202\220 \324!)\266\203)\207" [inhibit-quit org-element--cache-sync-timer org-element--cache-sync-requests org-element-cache-sync-duration org-element-cache-sync-break org-element-cache-sync-idle-time buffer-live-p t nil cancel-timer interrupt org-element--cache-process-request 0 time-add current-time 3 2 run-with-idle-timer current-idle-time org-element--cache-sync clrhash org-element--cache-sync-keys] 14 (#$ . 144314)]) | |
| 1550 | #@728 Process synchronization REQUEST for all entries before NEXT. | |
| 1551 | ||
| 1552 | REQUEST is a vector, built by `org-element--cache-submit-request'. | |
| 1553 | ||
| 1554 | NEXT is a cache key, as returned by `org-element--cache-key'. | |
| 1555 | ||
| 1556 | When non-nil, THRESHOLD is a buffer position. Synchronization | |
| 1557 | stops as soon as a shifted element begins after it. | |
| 1558 | ||
| 1559 | When non-nil, TIME-LIMIT is a time value. Synchronization stops | |
| 1560 | after this time or when Emacs exits idle state. | |
| 1561 | ||
| 1562 | When non-nil, FUTURE-CHANGE is a buffer position where changes | |
| 1563 | not registered yet in the cache are going to happen. See | |
| 1564 | `org-element--cache-submit-request' for more information. | |
| 1565 | ||
| 1566 | Throw `interrupt' if the process stops before completing the | |
| 1567 | request. | |
| 1568 | ||
| 1569 | (fn REQUEST NEXT THRESHOLD TIME-LIMIT FUTURE-CHANGE) | |
| 1570 | (defalias 'org-element--cache-process-request #[1285 "\3042|\305H\306U\203\302\3072\301\211\205 \310 \206 \311\312 \"\262\203) \313\314\315\"\210\306H\316H\317! >\204> \320\321\322D\"\210\323H\306H\315\211\211\203\243\316H\211\324\n\"\206\243 \325\211;\203f \326\306#\266\202\202n \327A@\"\266\202\211:\204 \211;\205\207 \330\262\202\211 \211@9\205\207 \211@\262\331>\203\223 \211T\202\224 \211 \203\240 \332\n#\202\241 \211\266\202\262\211\250\203\303 \211\250\203\272 W\266\202\202@X\266\202\202\211\250\203\321 @W\266\202\202\3332 \203\211\203\334\"\203\354 \313\333\335\"\210\202\325 \334\"\203\373 \313\333\315\"\210\202\325 A\262\211A\262\202\325 ?\205\f\2110\266\202\203\323H\262\202\236\250\2038\211\250\203/W\266\202\202\204@X\266\202\202\204\211\250\203F@W\266\202\202\204\3332\202\203{\211\203{\334\"\203a\313\333\335\"\210\202J\334\"\203p\313\333\315\"\210\202JA\262\211A\262\202J?\205\201\2110\266\202\203\225\262\211\262\306H\262\202\236\262\211\262\315\262\266\202F \203\267\325\211;\203\270\326\306#\266\202\202\300\327A@\"\266\202\n\2032 \250\203\343\211\250\203\332W\266\202\202/@X\266\202\202/\211\250\203\361@W\266\202\202/\3332-\203&\211\203&\334\"\203\f\313\333\335\"\210\202\365\334\"\203\313\333\315\"\210\202\365A\262\211A\262\202\365?\205,\2110\266\202\2039\211X\202i\203\234\211\203f\211=\204f\336\211;\203Y\326\306#\266\202\202a\327A@\"\266\202\262\202>\211\262\203\234\204\222\337\211;\203\201\326\306#\266\202\202\211\327A@\"\266\202V\203\222\262\340\"\266\202\263 \306I\210 \323I\210 \305\323I\210\313\307\315\"\210\210\202\274\313\304\335\"\210\266\202 \210\305H\323U\203\227\306H\203X\211\250\203\356\211\250\203\345W\266\202\202:@X\266\202\202:\211\250\203\374@W\266\202\202:\33328\2031\211\2031\334\"\203\313\333\335\"\210\202 \334\"\203&\313\333\315\"\210\202 A\262\211A\262\202 ?\2057\2110\266\202\204X A@\211\306I\210\211\323\323HI\210\211\305\323I\266\313\304\335\"\210\210\323H\341H\\\203r\211V\203r\313\314\315\"\210\202\226\203\204\211Y\203\204\305\316I\210\202\226\342\335#\343I\210\305\316I\266\210\306H\341H\343H\317! >\204\260\320\321\322D\"\210\323H\306H\315C\335\315\204\310\306U\203\310\313\304\335\"\210\203x\316H\211\324\n\"\206%\325\211;\203\350\326\306#\266\202\202\360\327A@\"\266\202\211:\204\211;\205 \330\262\202 \211@9\205 \211@\262\331>\203\211T\202\211 \203\"\332\n#\202#\211\266\202\262\203\253\306H\203\253\211 \250\203O\211\250\203FW\266\202\202\233@X\266\202\202\233\211\250\203]@W\266\202\202\233\3332\231\203\222\211\203\222\334\"\203x\313\333\335\"\210\202a\334\"\203\207\313\333\315\"\210\202aA\262\211A\262\202a?\205\230\2110\266\202\204\253B\262\306H\262\202s\211 \250\203\311\211\250\203\300W\266\202\202@X\266\202\202\211\250\203\327@W\266\202\202\3332\203\f\211\203\f\334\"\203\362\313\333\335\"\210\202\333\334\"\203\313\333\315\"\210\202\333A\262\211A\262\202\333?\205\2110\266\202\204\\\211 \232\203$\313\304\335\"\210\204=\n\211\2058\310 \2068\311\312 \"\262\203O \306I\210 \343I\210\313\314\315\"\210\306U\204 \315A@\203g\344>\203\322\211:\204x\211;\205\200\330\262\202\202\211@9\205\200\211@\262\345=\203\322\327\336\"\211:\204\233\211;\205\243\330\262\202\245\211@9\205\243\211@\262\346=\204\322\327\344\"\211\203\321\211@\211\211@\\\240\266\347\233\211@\\\240\266A\266\202\202\256\210\350\211\205\374\211@\203\343\211>\205\347\327\"\211\203\364\351\\#\210\210A\266\202\202\323\262\266\325\211;\203\326\306#\266\202\202\327A@\"\266\202\203\\\337\211;\2030\326\306#\266\202\2028\327A@\"\266\202X\203\\\336\211;\203O\326\306#\266\202\202W\327A@\"\266\202\262\202\204p\306U\203p\313\304\315\"\210\202L\203L\336\211;\203\206\326\306#\266\202\202\216\327A@\"\266\202\211?\206\307\325\211;\203\244\326\306#\266\202\202\254\327A@\"\266\202\325\n\211;\203\276\326\306#\266\202\202\306\327A@\"\266\202W\262\203L\336 ;\203\340\352\315$\266\203\202\356A\351A@#\240\210\266\203\210\344\211;\203\326\306#\266\202\202 \327A@\"\266\202\211\203K\344\211;\203 \326\306#\266\202\202&\327A@\"\266\202\203K\344;\203<\352\315$\266\203\202JA\351A@#\240\210\266\203\210\210\f\203[\211 V\203[\335\262\210\323H\211\262\203k\323H\202q\211A\262\242\262\266\202\310\335\266\2070\207" [org-element--cache cl-struct-avl-tree--tags org-element--cache-sync-keys org-element--cache-sync-requests quit 5 0 end-phase input-pending-p time-less-p current-time throw interrupt nil 2 type-of signal wrong-type-argument avl-tree- 1 gethash :begin get-text-property plist-get plain-text (item table-row) puthash exit car-less-than-car t :parent :end avl-tree-delete 3 org-element--parse-to 4 :structure plain-list item 6 (:begin :contents-begin :contents-end :end :post-affiliated) plist-put org-add-props] 26 (#$ . 145698)]) | |
| 1571 | #@534 Parse elements in current section, down to POS. | |
| 1572 | ||
| 1573 | Start parsing from the closest between the last known element in | |
| 1574 | cache or headline above. Return the smallest element containing | |
| 1575 | POS. | |
| 1576 | ||
| 1577 | When optional argument SYNCP is non-nil, return the parent of the | |
| 1578 | element containing POS instead. In that case, it is also | |
| 1579 | possible to provide TIME-LIMIT, which is a time value specifying | |
| 1580 | when the parsing should stop. The function throws `interrupt' if | |
| 1581 | the process stopped before finding the expected result. | |
| 1582 | ||
| 1583 | (fn POS &optional SYNCP TIME-LIMIT) | |
| 1584 | (defalias 'org-element--parse-to #[769 "\3062\330\212\214~\210b\210\205 \205 \307\310!\205 \311\312\"\313\211;\203. \314\315#\266\202\2026 \316A@\"\266\202\312\211\211\204^ \317\320 \211 \321 P \322 ,\203T \323\262\312y\210\324\312w\210\325 \210\202=U\203\220 \326\306\203\211 \327\211;\203~ \314\315#\266\202\202\213 \316A@\"\266\202\202\213 \"\210\202=\330\317\320 \211 \321 P+\317#\203\262 \312y\210\324\312w\210\325 \210\323\262\202=d U\203\300 S\202\302 \331\211;\203\324 \314\315#\266\202\202\334 \316A@\"\266\202\206\340 b\210\332\211;\203\363 \314\315#\266\202\202\373 \316A@\"\266\202\211X\205\"\211b\205\"\327\211;\203\314\315#\266\202\202 \316A@\"\266\202\211\262\262\204\342 \203;m\2035\262\202;\262`\262\266\332\211;\203N\314\315#\266\202\202V\316A@\"\266\202\206k\212\317\320 \211 \321 P \333 \210,`)\203\232`\nU\203\200\326\306\"\210\202\232\211\205\220\334 \206\220\335\336 \"\262\203\232\326\337\312\"\210\204\344\340\341\342\211;\203\263\314\315#\266\202\202\273\316A@\"\266\202$\262\327;\203\321\343\312$\266\203\202\337A\344A@#\240\210\266\203\210\345!\210\332\211;\203\365\314\315#\266\202\202\375\316A@\"\266\202\211:\204\211;\205\346\262\202\211@9\205\211@\262\fX\2031dU\2041b\210\347\312\"\262\202\320\211*>\204A\326\306\"\210\202\320\331\211;\203S\314\315#\266\202\202[\316A@\"\266\202\350\211;\203m\314\315#\266\202\202u\316A@\"\266\202\f\204\254\205\305\211\205\305W\204\227U\205\305\351>?\205\305\211V\204\254\211U\205\305dU\205\305\206\262b\210\312\262\347\317\"\262\262\211\211\262\266\202\204\320\326\306\"\210\266\312\262\202l\207" [org-element-use-cache org-element--cache org-called-with-limited-levels org-outline-regexp outline-regexp org-outline-regexp-bol exit derived-mode-p org-mode org-element--cache-find nil :begin get-text-property 0 plist-get t org-get-limited-outline-regexp "^" outline-previous-heading planning " \n" beginning-of-line throw :parent re-search-backward :contents-begin :end outline-next-heading input-pending-p time-less-p current-time interrupt org-element--current-element element :structure org-add-props plist-put org-element--cache-put plain-text #[514 "\211\203 \300\267\202 \301\207\302\207\303\207\304\207\302\207\305\207\306\207\307\267\202& \303\207\304\207\310\207\305\207\306\207" [#s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (headline 10 inlinetask 12 plain-list 14 property-drawer 16 section 18 table 20)) section planning item node-property table-row nil #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (item 30 node-property 32 planning 34 table-row 36)) property-drawer] 4 "Return next special mode according to TYPE, or nil.\nTYPE is a symbol representing the type of an element or object\ncontaining next element if PARENTP is non-nil, or before it\notherwise. Modes can be either `first-section', `item',\n`node-property', `planning', `property-drawer', `section',\n`table-row' or nil.\n\n(fn TYPE PARENTP)"] :contents-end (plain-list table) org-element-greater-elements] 21 (#$ . 151686)]) | |
| 1585 | #@273 Regexp matching a sensitive line, structure wise. | |
| 1586 | A sensitive line is a headline, inlinetask, block, drawer, or | |
| 1587 | latex-environment boundary. When such a line is modified, | |
| 1588 | structure changes in the document may propagate in the whole | |
| 1589 | section, possibly making cache invalid. | |
| 1590 | (defconst org-element--cache-sensitive-re (concat org-outline-regexp-bol #1="\\|" "\\\\end{[A-Za-z0-9*]+}[ ]*$" #1# "^[ ]*\\(?:" "#\\+\\(?:BEGIN[:_]\\|END\\(?:_\\|:?[ ]*$\\)\\)" #1# "\\\\begin{[A-Za-z0-9*]+}" #1# ":\\(?:\\w\\|[-_]\\)+:[ ]*$" "\\)") (#$ . 155503)) | |
| 1591 | #@99 Non-nil when a sensitive line is about to be changed. | |
| 1592 | It is a symbol among nil, t and `headline'. | |
| 1593 | (defvar org-element--cache-change-warning nil (#$ . 156049)) | |
| 1594 | #@194 Request extension of area going to be modified if needed. | |
| 1595 | BEG and END are the beginning and end of the range of changed | |
| 1596 | text. See `before-change-functions' for more information. | |
| 1597 | ||
| 1598 | (fn BEG END) | |
| 1599 | (defalias 'org-element--cache-before-change #[514 "\205\\ \205\\ \306\307!\205\\ \212\214~\210b\210\310 \210\212\211b\210\311 )\312 \313\314\315\316\317!\320\"\321$\216\322\323 \211 \324 P \325 ,\203I \311 U\203I \326\202S \322 \327\322#))\262\211\262*\207" [org-element-use-cache org-element--cache org-called-with-limited-levels org-outline-regexp outline-regexp org-outline-regexp-bol derived-mode-p org-mode beginning-of-line line-end-position match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 t org-get-limited-outline-regexp "^" org-at-heading-p headline re-search-forward case-fold-search org-element--cache-sensitive-re org-element--cache-change-warning] 11 (#$ . 156215)]) | |
| 1600 | #@258 Update buffer modifications for current buffer. | |
| 1601 | BEG and END are the beginning and end of the range of changed | |
| 1602 | text, and the length in bytes of the pre-change text replaced by | |
| 1603 | that range. See `after-change-functions' for more information. | |
| 1604 | ||
| 1605 | (fn BEG END PRE) | |
| 1606 | (defalias 'org-element--cache-after-change #[771 "\205\303 \205\303 \306\307!\205\303 \212\214~\210b\210\310 \210\311 \312\313\314\315\316!\317\"\320$\216`\212b\210\321 )\n\322\267\202Q \202^ \323\324 \211 \325\fP \"\326 ,\205M \321 U?\202[ \323 #\327$\323#)\203\211 \323\324 \211 \325\fP \"b\210\330 \203u \331y\210`\262\211b\210\332 \203\205 `S\202\206 `\262,\333#\334Z#\266)\210*p%\203\247 \335%!\210\336\337 \211\203\266 \340&\"\202\270 '\262\331\341$\211%\262\207" [org-element-use-cache org-element--cache org-element--cache-change-warning org-called-with-limited-levels org-outline-regexp outline-regexp derived-mode-p org-mode beginning-of-line match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 line-end-position #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (t 52 headline 55)) t org-get-limited-outline-regexp "^" org-at-heading-p re-search-forward outline-previous-heading nil outline-next-heading - org-element--cache-submit-request cancel-timer run-with-idle-timer current-idle-time time-add org-element--cache-sync org-outline-regexp-bol case-fold-search org-element--cache-sensitive-re org-element--cache-sync-timer org-element-cache-sync-break org-element-cache-sync-idle-time] 12 (#$ . 157155)]) | |
| 1607 | #@416 Return first element to remove from cache. | |
| 1608 | ||
| 1609 | BEG and END are buffer positions delimiting buffer modifications. | |
| 1610 | OFFSET is the size of the changes. | |
| 1611 | ||
| 1612 | Returned element is usually the first element in cache containing | |
| 1613 | any position between BEG and END. As an exception, greater | |
| 1614 | elements around the changes that are robust to contents | |
| 1615 | modifications are preserved and updated according to the | |
| 1616 | changes. | |
| 1617 | ||
| 1618 | (fn BEG END OFFSET) | |
| 1619 | (defalias 'org-element--cache-for-removal #[771 "\300S\301\"\211@A\204 \211\202\243\302\203y\211:\204( \211;\2050 \303\262\2022 \211@9\2050 \211@\262\211\304>\204] \211\305=\205\237 \306\211;\203O \307\310#\266\202\202W \311A@\"\266\202\312\230?\205\237 \313\211;\203n \307\310#\266\202\202v \311A@\"\266\202\211\205\235 \211\nX\205\235 \314\211;\203\222 \307\310#\266\202\202\232 \311A@\"\266\202 V\262\262\203Q\315A@\203\265 \316>\203 \211:\204\306 \211;\205\316 \303\262\202\320 \211@9\205\316 \211@\262\317=\203 \311\320\"\211:\204\351 \211;\205\361 \303\262\202\363 \211@9\205\361 \211@\262\321=\204 \311\316\"\211\203 \211@\211\211@\\\240\266\322\233\211@\\\240\266A\266\202\202\374 \210\323\211\205J\211@\2031\211>\2055\311\"\211\203B\324\\#\210\210A\266\202\202!\262\266\202[\262\211\203[\325\262\320\211;\203l\307\310#\266\202\202t\311A@\"\266\202\262\202 \326\211;\203\212\307\310#\266\202\202\222\311A@\"\266\202W\204\234\211\203\240\202\241\266\202\207" [org-element--cache-find both t plain-text (center-block dynamic-block quote-block special-block) drawer :drawer-name get-text-property 0 plist-get "PROPERTIES" :contents-begin :contents-end (:contents-end :end) :structure plain-list :parent item 6 (:begin :contents-begin :contents-end :end :post-affiliated) plist-put nil :end] 20 (#$ . 158748)]) | |
| 1620 | #@232 Submit a new cache synchronization request for current buffer. | |
| 1621 | BEG and END are buffer positions delimiting the minimal area | |
| 1622 | where cache data should be removed. OFFSET is the size of the | |
| 1623 | change, as an integer. | |
| 1624 | ||
| 1625 | (fn BEG END OFFSET) | |
| 1626 | (defalias 'org-element--cache-submit-request #[771 "@\302\211\203\264\303H\304U\203\264\305H\306H\\\211\262V\203\264\307H\211\262X\203\264\211\306\306H\\I\266V\203\310H\211\205\n\211\311A@\203S \312>\203\276 \211:\204d \211;\205l \313\262\202n \211@9\205l \211@\262\314=\203\276 \315\316\"\211:\204\207 \211;\205\217 \313\262\202\221 \211@9\205\217 \211@\262\317=\204\276 \315\312\"\211\203\275 \211@\211\211@\\\240\266\320\233\211@\\\240\266A\266\202\202\232 \210\321\211\205\350 \211@\203\317 \211>\205\323 \315\"\211\203\340 \322\\#\210\210A\266\202\202\277 \262\266\316\211;\203\375 \323\304#\266\202\202\315A@\"\266\202\262\202? \262\202'\324#\211\205\257\304\325 \"\206r\326\211;\2035\323\304#\266\202\202=\315A@\"\266\202\211:\204N\211;\205V\313\262\202X\211@9\205V\211@\262\327>\203b\211T\202c\211\203o\330 #\202p\211\266\202\262I\210\307\326\211;\203\211\323\304#\266\202\202\221\315A@\"\266\202I\210\310\316\211;\203\246\323\304#\266\202\202\256\315A@\"\266\202I\262\202'\203\300\331p#\210\324#\211\203\326\211;\203\335\323\304#\266\202\202\345\315A@\"\266\202\325 \"\206;\326\211;\203\376\323\304#\266\202\202\315A@\"\266\202\211:\204\211;\205 \313\262\202!\211@9\205 \211@\262\327>\203+\211T\202,\211\2038\330 #\2029\211\266\202\262V\203Q\332\302\n\302\307&\202 \333\211;\203b\323\304#\266\202\202j\315A@\"\266\202\211 V\205|\332 \304&\262\206 \334!\333\211;\203\226\323\304#\266\202\202\236\315A@\"\266\202\316\211;\203\260\323\304#\266\202\202\270\315A@\"\266\202\211\262\203\375\326\211;\203\317\323\304#\266\202\202\327\315A@\"\266\202Y\203\375\333\211;\203\355\323\304#\266\202\202\365\315A@\"\266\202\262\211\262\202\237\332 \304&\266\203\266\202B\211\202%\205%@\211\306\306H\\I\262\262\207" [org-element--cache-sync-requests org-element--cache-sync-keys nil 5 0 2 3 1 4 (:contents-end :end) :structure plain-text plain-list plist-get :parent item 6 (:begin :contents-begin :contents-end :end :post-affiliated) plist-put get-text-property org-element--cache-for-removal gethash :begin (item table-row) puthash org-element--cache-sync vector :end org-element--cache-find] 19 (#$ . 160588)]) | |
| 1627 | #@123 Reset cache in current buffer. | |
| 1628 | When optional argument ALL is non-nil, reset cache in all Org | |
| 1629 | buffers. | |
| 1630 | ||
| 1631 | (fn &optional ALL) | |
| 1632 | (defalias 'org-element-cache-reset #[256 "\211\203 \306 \202 pC\211\205a \211@r\211q\210\203Y \307\310!\203Y \311\301!\210\312\313\314\315\211\211\316$\317#\311\302!\210\320\321\322\323\324$\311\303!\210\315\311\304!\210\315\311\305!\210\315\325\326\327\315\330$\210\325\331\332\315\330$\210)A\266\202\202 \207" [org-element-use-cache org-element--cache org-element--cache-sync-keys org-element--cache-change-warning org-element--cache-sync-requests org-element--cache-sync-timer buffer-list derived-mode-p org-mode make-local-variable record avl-tree- vector nil 0 org-element--cache-compare make-hash-table :weakness key :test eq add-hook before-change-functions org-element--cache-before-change t after-change-functions org-element--cache-after-change] 10 (#$ . 163184) "P"]) | |
| 1633 | #@42 Refresh cache at position POS. | |
| 1634 | ||
| 1635 | (fn POS) | |
| 1636 | (defalias 'org-element-cache-refresh #[257 "\205; \205; \305\306!\205; \307p\"\210\310\211\311#\210p\n\203\" \312\n!\210\313\314 \211\2030 \315 \"\2021 \f\262\316\307$\211\262\207" [org-element-use-cache org-element--cache org-element--cache-sync-timer org-element-cache-sync-break org-element-cache-sync-idle-time derived-mode-p org-mode org-element--cache-sync org-element--cache-submit-request 0 cancel-timer run-with-idle-timer current-idle-time time-add nil] 7 (#$ . 164101)]) | |
| 1637 | #@726 Determine closest element around point. | |
| 1638 | ||
| 1639 | Return value is a list like (TYPE PROPS) where TYPE is the type | |
| 1640 | of the element and PROPS a plist of properties associated to the | |
| 1641 | element. | |
| 1642 | ||
| 1643 | Possible types are defined in `org-element-all-elements'. | |
| 1644 | Properties depend on element or object type, but always include | |
| 1645 | `:begin', `:end', `:parent' and `:post-blank' properties. | |
| 1646 | ||
| 1647 | As a special case, if point is at the very beginning of the first | |
| 1648 | item in a list or sub-list, returned element will be that list | |
| 1649 | instead of the item. Likewise, if point is at the beginning of | |
| 1650 | the first row of a table, returned element will be the table | |
| 1651 | instead of the first row. | |
| 1652 | ||
| 1653 | When point is at the end of the buffer, return the innermost | |
| 1654 | element ending there. | |
| 1655 | (defalias 'org-element-at-point #[0 "\212\214~\210`\306\210\307\306x\210o\203 \306\202O \310\311 \211\312 P\313 ,\203/ \314 \210\315d\310\"\202O \f\203L \203L \316\317!\203L \204G \320 \210\202L \321p\"\210\322!\262*\207" [org-called-with-limited-levels org-outline-regexp outline-regexp org-outline-regexp-bol org-element-use-cache org-element--cache nil " \n" t org-get-limited-outline-regexp "^" org-at-heading-p beginning-of-line org-element-headline-parser derived-mode-p org-mode org-element-cache-reset org-element--cache-sync org-element--parse-to] 5 (#$ . 164640)]) | |
| 1656 | #@701 Return smallest element or object around point. | |
| 1657 | ||
| 1658 | Return value is a list like (TYPE PROPS) where TYPE is the type | |
| 1659 | of the element or object and PROPS a plist of properties | |
| 1660 | associated to it. | |
| 1661 | ||
| 1662 | Possible types are defined in `org-element-all-elements' and | |
| 1663 | `org-element-all-objects'. Properties depend on element or | |
| 1664 | object type, but always include `:begin', `:end', `:parent' and | |
| 1665 | `:post-blank'. | |
| 1666 | ||
| 1667 | As a special case, if point is right after an object and not at | |
| 1668 | the beginning of any other object, return that object. | |
| 1669 | ||
| 1670 | Optional argument ELEMENT, when non-nil, is the closest element | |
| 1671 | containing point, as returned by `org-element-at-point'. | |
| 1672 | Providing it allows for quicker computation. | |
| 1673 | ||
| 1674 | (fn &optional ELEMENT) | |
| 1675 | (defalias 'org-element-context #[256 "\30629\212\214~\210`\206 \307 \211\211:\204 \211;\205( \310\262\202* \211@9\205( \211@\262\311\211;\203; \312\313#\266\202\202C \314A@\"\266\202\211\203\237 W\203\237 \315 \210\316\317 !\210)\320\321\322!\n\"\204h \323\306\"\210\202\231 \313\225W\203x \313\225\324 }\210\202\231 \325\224\203\224 \325\224Y\203\224 \325\225W\203\224 \325\224\325\225}\210\202\231 \323\306\"\210\326\262\202\303\327=\203\374 \330\211;\203\266 \312\313#\266\202\202\276 \314A@\"\266\202\211\203\311 \331 U\204\321 \323\306\"\210\202\370 \315 \210\332\324 \"\210\313\224b\210`Y\203\363 \313\225W\203\363 `\313\225}\210\202\370 \323\306\"\210\210\202\303\333>\203V\334\335\211;\203\312\313#\266\202\202 \314A@\"\266\202b\210\317 !\210\336\225\211\2041\323\306\"\210\202Q\336\224b\210\317\f!\203?\313\225b\210`Y\203M\323\306\"\210\202Q`}\210\210)\202\303\337>\203\276\340\211;\203m\312\313#\266\202\202u\314A@\"\266\202\341\211;\203\206\312\313#\266\202\202\216\314A@\"\266\202\203\263\211\203\263Y\203\263W\204\254U\203\263m\203\263}\210\202\271\323\306\"\210\266\202\303\323\306\"\210eb\210\2119\203\320\211\202\353\211\211:\204\341\211;\205\351\310\262\202\353\211@9\205\351\211@\262 \236A\262\334\34223\343!\211\203 \211\344;\203\345\334$\266\203\202 A\346A@#\240\210\266\203\210\211\203B\335\211;\2034\312\313#\266\202\202<\314A@\"\266\202V\203N\323\342\206I\"\210\202/\347\211;\203_\312\313#\266\202\202g\314A@\"\266\202\340\211;\203x\312\313#\266\202\202\200\314A@\"\266\202\341\211;\203\221\312\313#\266\202\202\231\314A@\"\266\202 X\203\276dU\204\276b\210 U\203-`Sf\350>\204-\262\202-\203(\211\203(\nY\203(\nW\204\357\nU\203(d U\204\357\n\206\350`Sf\351>\204(b\210`}\210\262\2119\203\211\202 \211\211:\204\211;\205 \310\262\202 \211@9\205 \211@\262 \236A\262\262\202-\323\342\"\210\266\210\202\366\266\203\266\204*0\207" [case-fold-search org-element--affiliated-re org-element-parsed-keywords org-complex-heading-regexp org-comment-string org-element-object-restrictions objects-forbidden org-element-at-point plain-text :post-affiliated get-text-property 0 plist-get beginning-of-line t looking-at member-ignore-case match-string 1 throw line-end-position 2 keyword item :tag line-beginning-position search-forward (headline inlinetask) nil :begin 4 (paragraph table-row verse-block) :contents-begin :contents-end exit org-element--object-lex :parent org-add-props plist-put :end (32 9) (32 9)] 17 (#$ . 165960)]) | |
| 1676 | #@587 List all ancestors of a given element or object. | |
| 1677 | ||
| 1678 | BLOB is an object or element. | |
| 1679 | ||
| 1680 | When optional argument TYPES is a list of symbols, return the | |
| 1681 | first element or object in the lineage whose type belongs to that | |
| 1682 | list. | |
| 1683 | ||
| 1684 | When optional argument WITH-SELF is non-nil, lineage includes | |
| 1685 | BLOB itself as the first element, and TYPES, if provided, also | |
| 1686 | apply to it. | |
| 1687 | ||
| 1688 | When BLOB is obtained through `org-element-context' or | |
| 1689 | `org-element-at-point', only ancestors from its section can be | |
| 1690 | found. There is no such limitation when BLOB belongs to a full | |
| 1691 | parse tree. | |
| 1692 | ||
| 1693 | (fn BLOB &optional TYPES WITH-SELF) | |
| 1694 | (defalias 'org-element-lineage #[769 "\211\203 \202! \300\211;\203 \301\302#\266\202\202! \303A@\"\266\202\304\203m \211:\2047 \211;\205? \305\262\202A \211@9\205? \211@\262>\204m \204O B\262\300\211;\203` \301\302#\266\202\202h \303A@\"\266\202\262\202\" \203u \202w \211\237\207" [:parent get-text-property 0 plist-get nil plain-text] 11 (#$ . 169313)]) | |
| 1695 | #@73 Non-nil when elements ELEM-A and ELEM-B are nested. | |
| 1696 | ||
| 1697 | (fn ELEM-A ELEM-B) | |
| 1698 | (defalias 'org-element-nested-p #[514 "\300\211;\203 \301\302#\266\202\202 \303A@\"\266\202\300\211;\203* \301\302#\266\202\2022 \303A@\"\266\202\304\211;\203C \301\302#\266\202\202K \303A@\"\266\202\304\211;\203\\ \301\302#\266\202\202d \303A@\"\266\202Y\203p X\206y Y\205y \211X\207" [:begin get-text-property 0 plist-get :end] 11 (#$ . 170286)]) | |
| 1699 | #@134 Swap elements ELEM-A and ELEM-B. | |
| 1700 | Assume ELEM-B is after ELEM-A in the buffer. Leave point at the | |
| 1701 | end of ELEM-A. | |
| 1702 | ||
| 1703 | (fn ELEM-A ELEM-B) | |
| 1704 | (defalias 'org-element-swap-A-B #[514 "\300\211;\203 \301\302#\266\202\202 \303A@\"\266\202b\210n?\211\203{ \211:\2042 \211;\205: \304\262\202< \211@9\205: \211@\262\305=\203w \300\211;\203R \301\302#\266\202\202Z \303A@\"\266\202\306\211;\203k \301\302#\266\202\202s \303A@\"\266\202U\204{ \307\310!\210\211\205\234 \300\211;\203\220 \301\302#\266\202\202\230 \303A@\"\266\202b\210\311 \300\211;\203\255 \301\302#\266\202\202\265 \303A@\"\266\202\212\312\211;\203\307 \301\302#\266\202\202\317 \303A@\"\266\202b\210\313\314x\210\315 )\300\211;\203\351 \301\302#\266\202\202\361 \303A@\"\266\202\212\312\211;\203\301\302#\266\202\202\f\303A@\"\266\202b\210\313\314x\210\315 )\316\314\317\320\321\322\323\324 \"\325\"\326\327%\330\"\"\"\316\314\317\320\321\322\323\324\n\n\"\331\"\326\327%\330\"\"\"B{\332\"b\210\203d\333\334\335#\262j\210c\210Z@\211\203\212\211@\336@A@\\\3378\\#\210A\266\202\202m\210b\210|\210c\210A\211\203\267\211@\336@A@Z\3378Z#\210A\266\202\202\232\266\312\n\211;\203\313\301\302#\266\202\202\323\303A@\"\266\202b\266\210\207" [:begin get-text-property 0 plist-get plain-text paragraph :contents-begin error "Cannot swap elements" org-get-indentation :end " \n" nil point-at-eol delq mapcar make-byte-code 257 "\302!\300Y\205 \303!\301X\205 \211\302!\303!E\207" vconcat vector [overlay-start overlay-end] 5 "\n\n(fn O)" overlays-in [overlay-start overlay-end] delete-and-extract-region replace-regexp-in-string "\\`[ ]*" "" move-overlay 2] 19 (#$ . 170743)]) | |
| 1705 | (provide 'org-element) | |
