| 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!\210\304\305\306\307\310\311\312\313&\210\314\315\316\317\320DD\321\312\305\312\322\323\324& \210\314\325\316\317\326DD\327\312\305\323\330&\210\314\331\316\317\332DD\333\312\305\323\334\335\336& \210\314\337\316\317\340DD\341\312\305\342\343\323\344\335\345& \210\314\346\316\317\347DD\350\312\305\323\351&\210\314\352\316\317\353DD\354\312\305\342\343\323\355& \210\314\356\316\317\357DD\360\312\305\342\343\323\344& \207" [require cl-lib org-macs org-compat custom-declare-group org-plain-lists nil "Options concerning plain lists in Org mode." :tag "Org Plain lists" :group org-structure custom-declare-variable org-cycle-include-plain-lists funcall function #[0 "\300\207" [t] 1] "When t, make TAB cycle visibility on plain list items.\nCycling plain lists works only when the cursor is on a plain list\nitem. When the cursor is on an outline heading, plain lists are\ntreated as text. This is the most stable way of handling this,\nwhich is why it is the default.\n\nWhen this is the symbol `integrate', then integrate plain list\nitems when cycling, as if they were children of outline headings.\n\nThis setting can lead to strange effects when switching visibility\nto `children', because the first \"child\" in a subtree decides\nwhat children should be listed. If that first \"child\" is a\nplain list item with an implied large level number, all true\nchildren and grand children of the outline heading will be\nexposed in a children' view." org-cycle :type (choice (const :tag "Never" nil) (const :tag "With cursor in plain list (recommended)" t) (const :tag "As children of outline headings" integrate)) org-list-demote-modify-bullet #[0 "\300\207" [nil] 1] "Default bullet type installed when demoting an item.\nThis is an association list, for each bullet type, this alist will point\nto the bullet that should be used when this item is demoted.\nFor example,\n\n (setq org-list-demote-modify-bullet\n \\='((\"+\" . \"-\") (\"-\" . \"+\") (\"*\" . \"+\")))\n\nwill make\n\n + Movies\n + Silence of the Lambs\n + My Cousin Vinny\n + Books\n + The Hunt for Red October\n + The Road to Omaha\n\ninto\n\n + Movies\n - Silence of the Lambs\n - My Cousin Vinny\n + Books\n - The Hunt for Red October\n - The Road to Omaha" (repeat (cons (choice :tag "If the current bullet is " (const "-") (const "+") (const "*") (const "1.") (const "1)")) (choice :tag "demotion will change it to" (const "-") (const "+") (const "*") (const "1.") (const "1)")))) org-plain-list-ordered-item-terminator #[0 "\300\207" [t] 1] "The character that makes a line with leading number an ordered list item.\nValid values are ?. and ?). To get both terminators, use t.\n\nThis variable needs to be set before org.el is loaded. If you\nneed to make a change while Emacs is running, use the customize\ninterface or run the following code after updating it:\n\n `\\[org-element-update-syntax]'" (choice (const :tag "dot like in \"2.\"" 46) (const :tag "paren like in \"2)\"" 41) (const :tag "both" t)) :set #[514 "L\210\300\301!\205\f \302 \207" [featurep org-element org-element-update-syntax] 4 "\n\n(fn VAR VAL)"] org-list-allow-alphabetical #[0 "\300\207" [nil] 1] "Non-nil means single character alphabetical bullets are allowed.\n\nBoth uppercase and lowercase are handled. Lists with more than\n26 items will fallback to standard numbering. Alphabetical\ncounters like \"[@c]\" will be recognized.\n\nThis variable needs to be set before org.el is loaded. If you\nneed to make a change while Emacs is running, use the customize\ninterface or run the following code after updating it:\n\n `\\[org-element-update-syntax]'" :version "24.1" boolean #[514 "L\210\300\301!\205\f \302 \207" [featurep org-element org-element-update-syntax] 4 "\n\n(fn VAR VAL)"] org-list-two-spaces-after-bullet-regexp #[0 "\300\207" [nil] 1] "A regular expression matching bullets that should have 2 spaces after them.\nWhen nil, no bullet will have two spaces after them. When\na string, it will be used as a regular expression. When the\nbullet type of a list is changed, the new bullet type will be\nmatched against this regexp. If it matches, there will be two\nspaces instead of one after the bullet in each item of the list." (choice (const :tag "never" nil) (regexp)) org-list-automatic-rules #[0 "\300\207" [((checkbox . t) (indent . t))] 1] "Non-nil means apply set of rules when acting on lists.\n\\<org-mode-map>\nBy default, automatic actions are taken when using\n `\\[org-meta-return]',\n `\\[org-metaright]',\n `\\[org-metaleft]',\n `\\[org-shiftmetaright]',\n `\\[org-shiftmetaleft]',\n `\\[org-ctrl-c-minus]',\n `\\[org-toggle-checkbox]',\n `\\[org-insert-todo-heading]'.\n\nYou can disable individually these rules by setting them to nil.\nValid rules are:\n\ncheckbox when non-nil, checkbox statistics is updated each time\n you either insert a new checkbox or toggle a checkbox.\nindent when non-nil, indenting or outdenting list top-item\n with its subtree will move the whole list and\n outdenting a list whose bullet is * to column 0 will\n change that bullet to \"-\"." (alist :tag "Sets of rules" :key-type (choice (const :tag "Checkbox" checkbox) (const :tag "Indent" indent)) :value-type (boolean :tag "Activate" :value t)) org-list-use-circular-motion #[0 "\300\207" [nil] 1] "Non-nil means commands implying motion in lists should be cyclic.\n\\<org-mode-map>\nIn that case, the item following the last item is the first one,\nand the item preceding the first item is the last one.\n\nThis affects the behavior of\n `\\[org-move-item-up]',\n `\\[org-move-item-down]',\n `\\[org-next-item]',\n `\\[org-previous-item]'."] 12) | |
| 16 | #@246 Hook that is run whenever Org thinks checkbox statistics should be updated. | |
| 17 | This hook runs even if checkbox rule in | |
| 18 | `org-list-automatic-rules' does not apply, so it can be used to | |
| 19 | implement alternative ways of collecting statistics | |
| 20 | information. | |
| 21 | (defvar org-checkbox-statistics-hook nil (#$ . 6182)) | |
| 22 | (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\315&\210\300\316\302\303\317DD\320\306\307\321\322\310\315& \210\300\323\302\303\324DD\325\306\307\310\326&\207" [custom-declare-variable org-checkbox-hierarchical-statistics funcall function #[0 "\300\207" [t] 1] "Non-nil means checkbox statistics counts only the state of direct children.\nWhen nil, all boxes below the cookie are counted.\nThis can be set to nil on a per-node basis using a COOKIE_DATA property\nwith the word \"recursive\" in the value." :group org-plain-lists :type boolean org-list-description-max-indent #[0 "\300\207" [20] 1] "Maximum indentation for the second line of a description list.\nWhen the indentation would be larger than this, it will become\n5 characters instead." integer org-list-indent-offset #[0 "\300\207" [0] 1] "Additional indentation for sub-items in a list.\nBy setting this to a small number, usually 1 or 2, one can more\nclearly distinguish sub-items in a list." :version "24.1" org-list-radio-list-templates #[0 "\300\207" [((latex-mode "% BEGIN RECEIVE ORGLST %n\n% END RECEIVE ORGLST %n\n\\begin{comment}\n#+ORGLST: SEND %n org-list-to-latex\n-\n\\end{comment}\n") (texinfo-mode "@c BEGIN RECEIVE ORGLST %n\n@c END RECEIVE ORGLST %n\n@ignore\n#+ORGLST: SEND %n org-list-to-texinfo\n-\n@end ignore\n") (html-mode "<!-- BEGIN RECEIVE ORGLST %n -->\n<!-- END RECEIVE ORGLST %n -->\n<!--\n#+ORGLST: SEND %n org-list-to-html\n-\n-->\n"))] 1] "Templates for radio lists in different major modes.\nAll occurrences of %n in a template will be replaced with the name of the\nlist, obtained by prompting the user." (repeat (list (symbol :tag "Major mode") (string :tag "Format")))] 10) | |
| 23 | #@75 Names of blocks where lists are not allowed. | |
| 24 | Names must be in lower case. | |
| 25 | (defvar org-list-forbidden-blocks '("example" "verse" "src" "export") (#$ . 8217)) | |
| 26 | #@207 Context types where lists will be interpreted during export. | |
| 27 | ||
| 28 | Valid types are `drawer', `inlinetask' and `block'. More | |
| 29 | specifically, type `block' is determined by the variable | |
| 30 | `org-list-forbidden-blocks'. | |
| 31 | (defvar org-list-export-context '(block inlinetask) (#$ . 8381)) | |
| 32 | #@41 Regex matching the end of a plain list. | |
| 33 | (defconst org-list-end-re "^[ ]*\n[ ]*\n" (#$ . 8658)) | |
| 34 | #@130 Matches a list item and puts everything into groups: | |
| 35 | group 1: bullet | |
| 36 | group 2: counter | |
| 37 | group 3: checkbox | |
| 38 | group 4: description tag | |
| 39 | (defconst org-list-full-item-re "^[ ]*\\(\\(?:[-+*]\\|\\(?:[0-9]+\\|[A-Za-z]\\)[.)]\\)\\(?:[ ]+\\|$\\)\\)\\(?:\\[@\\(?:start:\\)?\\([0-9]+\\|[A-Za-z]\\)\\][ ]*\\)?\\(?:\\(\\[[ X-]\\]\\)\\(?:[ ]+\\|$\\)\\)?\\(?:\\(.*\\)[ ]+::\\(?:[ ]+\\|$\\)\\)?" (#$ . 8762)) | |
| 40 | #@56 Return the correct regular expression for plain lists. | |
| 41 | (defalias 'org-item-re #[0 "\302=\203\n \303\202 \304U\203 \305\202 \306U\203 \307\202 \303 \203' \310\202( \311\312\313\314\260\207" [org-plain-list-ordered-item-terminator org-list-allow-alphabetical t "[.)]" 41 ")" 46 "\\." "\\|[A-Za-z]" "" "\\([ ]*\\([-+]\\|\\(\\([0-9]+" "\\)" "\\)\\)\\|[ ]+\\*\\)\\([ ]+\\|$\\)"] 7 (#$ . 9162)]) | |
| 42 | #@53 Regexp matching the beginning of a plain list item. | |
| 43 | (defalias 'org-item-beginning-re #[0 "\300\301 P\207" ["^" org-item-re] 2 (#$ . 9572)]) | |
| 44 | (put 'org-item-beginning-re 'byte-optimizer 'byte-compile-inline-expand) | |
| 45 | #@64 Is point at a list item with REGEXP after bullet? | |
| 46 | ||
| 47 | (fn REGEXP) | |
| 48 | (defalias 'org-list-at-regexp-after-bullet-p #[257 "\301 \205% \212\302\225b\210\303\203 \304\202 \305\306Q\307!\203 \302\225b\210\210\307!)\207" [org-list-allow-alphabetical org-at-item-p 0 "\\(?:\\[@\\(?:start:\\)?" "\\([0-9]+\\|[A-Za-z]\\)" "[0-9]+" "\\][ ]*\\)" looking-at] 4 (#$ . 9791)]) | |
| 49 | #@48 Is point in a context where lists are allowed? | |
| 50 | (defalias 'org-list-in-valid-context-p #[0 "\301!?\207" [org-list-forbidden-blocks org-in-block-p] 2 (#$ . 10161)]) | |
| 51 | #@69 Return item beginning position when in a plain list, nil otherwise. | |
| 52 | (defalias 'org-in-item-p #[0 "\212\303 \210\304\305 \211@\306\307!\205 \310 \311 \312\313!\204$ \203( \312!\203( \314\202* \315 \3168\317=\2036 \320\202\312!\203@ `\202\321\322\320\323\324 T#\211\262\203V T\262\202C \325 \"\211\262\203u `@Y\203u `AW\203u \211@b\210\322y\210\266\3262\315 \312!\203\221 \211W\203\221 \327\326`\"\210\202`X\203\237 \327\326\320\"\210\202\312 !\203\255 \327\326\320\"\210\202\312\330!\203\274 \331\332\304#\204\312\333!\203\321 \331\n\304#\203\321 \303 \210\202\203\344 \312!\203\344 \334 \210\322y\210\202\312\313!\203\360 \322y\210\202\211\321U\203\376 \327\326\320\"\210\202\211W\203 \211\262\322y\210\202\322y\210\210\202{ )\266\205)\207" [case-fold-search org-list-end-re org-drawer-regexp beginning-of-line t org-list-context featurep org-inlinetask org-inlinetask-outline-regexp org-item-re looking-at "^[ ]*$" 10000 org-get-indentation 2 invalid nil 0 -1 string-match "[ \n]" org-in-regexp exit throw "^[ ]*#\\+end_" re-search-backward "^[ ]*#\\+begin_" "^[ ]*:END:" org-inlinetask-goto-beginning] 12 (#$ . 10331)]) | |
| 53 | #@52 Is point in a line starting a hand-formatted item? | |
| 54 | (defalias 'org-at-item-p #[0 "\212\300 \210\301\302 !\205 \303 )\207" [beginning-of-line looking-at org-item-re org-list-in-valid-context-p] 2 (#$ . 11514)]) | |
| 55 | #@46 Is point at the bullet of a plain list item? | |
| 56 | (defalias 'org-at-item-bullet-p #[0 "\300 \205 \301f\302\235?\205 `\303\225W\207" [org-at-item-p nil (32 9) 0] 2 (#$ . 11730)]) | |
| 57 | #@61 Is point at a line starting a plain list item with a timer? | |
| 58 | (defalias 'org-at-item-timer-p #[0 "\300\301!\207" [org-list-at-regexp-after-bullet-p "\\([0-9]+:[0-9]+:[0-9]+\\)[ ]+::[ ]+"] 2 (#$ . 11911)]) | |
| 59 | #@38 Is point at a description list item? | |
| 60 | (defalias 'org-at-item-description-p #[0 "\300\301!\207" [org-list-at-regexp-after-bullet-p "\\(\\S-.+\\)[ ]+::\\([ ]+\\|$\\)"] 2 (#$ . 12122)]) | |
| 61 | #@64 Is point at a line starting a plain-list item with a checklet? | |
| 62 | (defalias 'org-at-item-checkbox-p #[0 "\300\301!\207" [org-list-at-regexp-after-bullet-p "\\(\\[[- X]\\]\\)[ ]+"] 2 (#$ . 12312)]) | |
| 63 | #@63 Is point at a line starting a plain-list item with a counter? | |
| 64 | (defalias 'org-at-item-counter-p #[0 "\301 \205 \302!\205 \303\304!\207" [org-list-full-item-re org-at-item-p looking-at match-string 2] 2 (#$ . 12513)]) | |
| 65 | #@286 Determine context, and its boundaries, around point. | |
| 66 | ||
| 67 | Context will be a cell like (MIN MAX CONTEXT) where MIN and MAX | |
| 68 | are boundaries and CONTEXT is a symbol among `drawer', `block', | |
| 69 | `invalid', `inlinetask' and nil. | |
| 70 | ||
| 71 | Contexts `block' and `invalid' refer to `org-list-forbidden-blocks'. | |
| 72 | (defalias 'org-list-context #[0 "\306 \307\310\311\312\313!\314\"\315$\216\212\316\317 \211\320 P\321 \210\316`\322\211\211\212\3231. \324\316!0\2023 \210\322\2027 \2057 `)\206< e\212\325 )\206D d \326 \212\327!?\205\202 \327!?\205\202 \330\316#\205c \331 T\211\262\205\202 \332\316#\203w \310\224S\206x \211\262\205\202 Y)\203\220 \262\262\333\262\266\334\322\212\327!?\205\345 \330\316#\205\247 \331 T\211\262\205\345 \327\335!\205\345 \336\337!\227\211\262\205\345 b\205\345 \332\316#\203\321 \340 S\206\322 \211\262\205\345 Y\205\345 \336\337!\227\341\232)\203\376 \262\262\211*\235\203\373 \342\202\374 \343\262\266\344\345!\203O\212\346 \211\347P\327\350!?\205@\330\316#\205 \331 T\211\262\205@\327!?\205@\332\316#\2056\310\224S\211\262\205@`V\266\202)\203O\262\262\351\262E)\266\207.\207" [org-called-with-limited-levels org-outline-regexp outline-regexp org-outline-regexp-bol case-fold-search org-drawer-regexp match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 t org-get-limited-outline-regexp "^" beginning-of-line nil (error) org-back-to-heading outline-next-heading "^[ ]*:END:" looking-at re-search-backward point-at-eol re-search-forward drawer "^[ ]*#\\+\\(begin\\|end\\)_" "^[ ]*#\\+begin_\\(\\S-+\\)" match-string 1 point-at-bol "end" invalid block featurep org-inlinetask org-inlinetask-outline-regexp "END[ ]*$" "^\\*+" inlinetask org-list-forbidden-blocks] 15 (#$ . 12739)]) | |
| 73 | #@905 Return structure of list at point. | |
| 74 | ||
| 75 | A list structure is an alist where key is point at item, and | |
| 76 | values are: | |
| 77 | 1. indentation, | |
| 78 | 2. bullet with trailing whitespace, | |
| 79 | 3. bullet counter, if any, | |
| 80 | 4. checkbox, if any, | |
| 81 | 5. description tag, if any, | |
| 82 | 6. position at item end. | |
| 83 | ||
| 84 | Thus the following list, where numbers in parens are | |
| 85 | point-at-bol: | |
| 86 | ||
| 87 | - [X] first item (1) | |
| 88 | 1. sub-item 1 (18) | |
| 89 | 5. [@5] sub-item 2 (34) | |
| 90 | some other text belonging to first item (55) | |
| 91 | - last item (97) | |
| 92 | + tag :: description (109) | |
| 93 | (131) | |
| 94 | ||
| 95 | will get the following structure: | |
| 96 | ||
| 97 | ((1 0 "- " nil "[X]" nil 97) | |
| 98 | (18 2 "1. " nil nil nil 34) | |
| 99 | (34 2 "5. " "5" nil nil 55) | |
| 100 | (97 0 "- " nil nil nil 131) | |
| 101 | (109 2 "+ " nil nil "tag" 131)) | |
| 102 | ||
| 103 | Assume point is at an item. | |
| 104 | (defalias 'org-list-struct #[0 "\212\303 \210\304\305 \211@A@\306\307 \310\311!\205 \312 `\313 B\314\211\211\211\211\315\316\212\3172\313 `X\203Y \320\317\321 !\204F \n@\n\236\n>\202Q `B\262 !\nB\211\262 \"\210\202\321 !\203r \320\317\n@\n\236\n>\211\262 \"\210\202\321 !\203\233 !B\262\211`BB\262\211\fW\203\225 `B\262 \322y\210\202\321\323!\203\252 \324\325\304#\204\321\326!\203\277 \324\n\304#\203\277 \303 \210\202 \203\324 \321\n!\203\324 \327 \210\322y\210\202\321\330!\203\340 \322y\210\202\211\331U\203\371 \320\317\n@\n\236\n>\211\262 \"\210\202\211\fW\203\211\262\f\211`BB\262\322y\210\210\202( \210)\3172\323\313 ` Y\2034\320\317\331!BB\211\262\"\210\202\317\321 !\203J\320\317\331`BB\211\262\"\210\202\317\321 !\203f!B\262\211`BB\262\332y\210\202\317 \203x\321\n!\203x\333 \210\202\317\321\330!\203\204\332y\210\202\317\211 AX\203\237\320\317\331!BB\211\262\"\210\202\317\211@A@X\203\260\211`BB\262\321\325!\203\277\334\323\304#\204\314\321\n!\203\314\334\326\304#\210\332y\210\210\202\210\335\237A\"\262\335\237A\"\262\336\"\210)\266\216)\207" [case-fold-search org-list-end-re org-drawer-regexp beginning-of-line t org-list-context 10000 org-item-re featurep org-inlinetask org-inlinetask-outline-regexp org-get-indentation nil #[257 "\302!\210\303\304!`\303\305!\303\306!\307\310\311\312#)\266\203\205$ \303\313!\257\207" [org-list-full-item-re inhibit-changing-match-data looking-at match-string-no-properties 1 2 3 "[-+*]" nil t string-match 4] 14 "\n\n(fn IND)"] #[257 "\300\301x\210\302 T^\207" [" \n" nil point-at-eol] 3 "\n\n(fn LIM-DOWN)"] exit throw looking-at -1 "^[ ]*#\\+end_" re-search-backward "^[ ]*#\\+begin_" "^[ ]*:END:" org-inlinetask-goto-beginning "^[ ]*$" 0 1 org-inlinetask-goto-end re-search-forward append org-list-struct-assoc-end] 20 (#$ . 14547)]) | |
| 105 | #@186 Associate proper ending point to items in STRUCT. | |
| 106 | ||
| 107 | END-LIST is a pseudo-alist where car is indentation and cdr is | |
| 108 | ending position. | |
| 109 | ||
| 110 | This function modifies STRUCT. | |
| 111 | ||
| 112 | (fn STRUCT END-LIST) | |
| 113 | (defalias 'org-list-struct-assoc-end #[514 "\211C\300\301\302\303\304\305!\306\"\307\310%\"\207" [mapc make-byte-code 257 "\211@A@\300\242@AX\203 \300\242\300\211\242A\240\266\202 \301\233\302\300\242\303#\203- \240\2026 \304AC\"\241\266\202\207" vconcat vector [6 assoc-default <= append] 9 "\n\n(fn ELT)"] 10 (#$ . 17393)]) | |
| 114 | #@69 Return alist between item and previous item in STRUCT. | |
| 115 | ||
| 116 | (fn STRUCT) | |
| 117 | (defalias 'org-list-prevs-alist #[257 "\300\301\"\300\302\303\304\305\306!\307\"\310\311%\"\207" [mapcar #[257 "\211@\3008B\207" [6] 4 "\n\n(fn E)"] make-byte-code 257 "\301@\300\"@@B\207" vconcat vector [rassq] 4 "\n\n(fn E)"] 9 (#$ . 17927)]) | |
| 118 | #@62 Return alist between item and parent in STRUCT. | |
| 119 | ||
| 120 | (fn STRUCT) | |
| 121 | (defalias 'org-list-parents-alist #[257 "\211@A@CCC\300!\211CC\211\242\301\302\303\304\305\306 \"\307\"\310\311%A\"B\207" [org-list-get-top-point mapcar make-byte-code 257 "\211@A@\300\242@@\301\301\242B\240\210\211V\203G \300\300\242\236\300\242\235\206< \3022< \303\304\305\306\307\310\300 \"\311\"\312\313%\300\242\"\210CC0\240\210\300\242@AB\202h \211W\203b \301\242A@\300B\300\242B\240\210B\262\202h \300\242@AB\207" vconcat vector [exit mapc make-byte-code 257 "\211@\301W\205 \302\303\300\242\235\"\207" vconcat vector [throw exit] 5 "\n\n(fn E)"] 13 "\n\n(fn ITEM)"] 13 (#$ . 18254)]) | |
| 122 | #@59 Return the Nth value of KEY in STRUCT. | |
| 123 | ||
| 124 | (fn N KEY STRUCT) | |
| 125 | (defalias 'org-list-get-nth #[771 "\2368\207" [] 6 (#$ . 18936)]) | |
| 126 | (put 'org-list-get-nth 'byte-optimizer 'byte-compile-inline-expand) | |
| 127 | #@99 Set the Nth value of KEY in STRUCT to NEW. | |
| 128 | ||
| 129 | This function modifies STRUCT. | |
| 130 | ||
| 131 | (fn N KEY STRUCT NEW) | |
| 132 | (defalias 'org-list-set-nth #[1028 "\236\233\240\207" [] 7 (#$ . 19137)]) | |
| 133 | #@57 Return indentation of ITEM in STRUCT. | |
| 134 | ||
| 135 | (fn ITEM STRUCT) | |
| 136 | (defalias 'org-list-get-ind #[514 "\300\2368\207" [1] 8 (#$ . 19319)]) | |
| 137 | (put 'org-list-get-ind 'byte-optimizer 'byte-compile-inline-expand) | |
| 138 | #@97 Set indentation of ITEM in STRUCT to IND. | |
| 139 | ||
| 140 | This function modifies STRUCT. | |
| 141 | ||
| 142 | (fn ITEM STRUCT IND) | |
| 143 | (defalias 'org-list-set-ind #[771 "\300\301$\207" [org-list-set-nth 1] 8 (#$ . 19525)]) | |
| 144 | #@52 Return bullet of ITEM in STRUCT. | |
| 145 | ||
| 146 | (fn ITEM STRUCT) | |
| 147 | (defalias 'org-list-get-bullet #[514 "\300\2368\207" [2] 8 (#$ . 19718)]) | |
| 148 | (put 'org-list-get-bullet 'byte-optimizer 'byte-compile-inline-expand) | |
| 149 | #@98 Set bullet of ITEM in STRUCT to BULLET. | |
| 150 | ||
| 151 | This function modifies STRUCT. | |
| 152 | ||
| 153 | (fn ITEM STRUCT BULLET) | |
| 154 | (defalias 'org-list-set-bullet #[771 "\300\301$\207" [org-list-set-nth 2] 8 (#$ . 19925)]) | |
| 155 | #@53 Return counter of ITEM in STRUCT. | |
| 156 | ||
| 157 | (fn ITEM STRUCT) | |
| 158 | (defalias 'org-list-get-counter #[514 "\300\2368\207" [3] 8 (#$ . 20122)]) | |
| 159 | (put 'org-list-get-counter 'byte-optimizer 'byte-compile-inline-expand) | |
| 160 | #@61 Return checkbox of ITEM in STRUCT or nil. | |
| 161 | ||
| 162 | (fn ITEM STRUCT) | |
| 163 | (defalias 'org-list-get-checkbox #[514 "\300\2368\207" [4] 8 (#$ . 20332)]) | |
| 164 | (put 'org-list-get-checkbox 'byte-optimizer 'byte-compile-inline-expand) | |
| 165 | #@104 Set checkbox of ITEM in STRUCT to CHECKBOX. | |
| 166 | ||
| 167 | This function modifies STRUCT. | |
| 168 | ||
| 169 | (fn ITEM STRUCT CHECKBOX) | |
| 170 | (defalias 'org-list-set-checkbox #[771 "\300\301$\207" [org-list-set-nth 4] 8 (#$ . 20553)]) | |
| 171 | #@58 Return end position of ITEM in STRUCT. | |
| 172 | ||
| 173 | (fn ITEM STRUCT) | |
| 174 | (defalias 'org-list-get-tag #[514 "\300\2368\207" [5] 8 (#$ . 20758)]) | |
| 175 | (put 'org-list-get-tag 'byte-optimizer 'byte-compile-inline-expand) | |
| 176 | #@58 Return end position of ITEM in STRUCT. | |
| 177 | ||
| 178 | (fn ITEM STRUCT) | |
| 179 | (defalias 'org-list-get-item-end #[514 "\300\2368\207" [6] 8 (#$ . 20965)]) | |
| 180 | #@115 Return point at end of ITEM in STRUCT, before any blank line. | |
| 181 | Point returned is at end of line. | |
| 182 | ||
| 183 | (fn ITEM STRUCT) | |
| 184 | (defalias 'org-list-get-item-end-before-blank #[514 "\212\300\"b\210\301\302x\210\303 )\207" [org-list-get-item-end " \n" nil point-at-eol] 5 (#$ . 21110)]) | |
| 185 | #@162 Return parent of ITEM or nil. | |
| 186 | STRUCT is the list structure. PARENTS is the alist of parents, | |
| 187 | as returned by `org-list-parents-alist'. | |
| 188 | ||
| 189 | (fn ITEM STRUCT PARENTS) | |
| 190 | (defalias 'org-list-get-parent #[771 "\211\206 \300!\236A\207" [org-list-parents-alist] 6 (#$ . 21392)]) | |
| 191 | #@139 Non-nil if ITEM has a child. | |
| 192 | ||
| 193 | STRUCT is the list structure. | |
| 194 | ||
| 195 | Value returned is the position of the first child of ITEM. | |
| 196 | ||
| 197 | (fn ITEM STRUCT) | |
| 198 | (defalias 'org-list-has-child-p #[514 "\300\2368\266\205\236\235A@@\211\205* \300\2368\266\205W\205* \211\207" [1] 13 (#$ . 21669)]) | |
| 199 | #@184 Return next item in same sub-list as ITEM, or nil. | |
| 200 | STRUCT is the list structure. PREVS is the alist of previous | |
| 201 | items, as returned by `org-list-prevs-alist'. | |
| 202 | ||
| 203 | (fn ITEM STRUCT PREVS) | |
| 204 | (defalias 'org-list-get-next-item #[771 "\300\"@\207" [rassq] 6 (#$ . 21965)]) | |
| 205 | #@188 Return previous item in same sub-list as ITEM, or nil. | |
| 206 | STRUCT is the list structure. PREVS is the alist of previous | |
| 207 | items, as returned by `org-list-prevs-alist'. | |
| 208 | ||
| 209 | (fn ITEM STRUCT PREVS) | |
| 210 | (defalias 'org-list-get-prev-item #[771 "\236A\207" [] 5 (#$ . 22236)]) | |
| 211 | #@106 List all items having ITEM as a common ancestor, or nil. | |
| 212 | STRUCT is the list structure. | |
| 213 | ||
| 214 | (fn ITEM STRUCT) | |
| 215 | (defalias 'org-list-get-subtree #[514 "\300\"\236\235A\301C\3022# \303\304\305\306\307\310\"\311\"\312\313%\"0\210\211\242\237\207" [org-list-get-item-end nil exit mapc make-byte-code 257 "\211@\211\300W\203 \301\301\242B\240\202 \302\303\304\"\207" vconcat vector [throw exit nil] 5 "\n\n(fn E)"] 13 (#$ . 22504)]) | |
| 216 | #@178 List all items in the same sub-list as ITEM. | |
| 217 | STRUCT is the list structure. PREVS is the alist of previous | |
| 218 | items, as returned by `org-list-prevs-alist'. | |
| 219 | ||
| 220 | (fn ITEM STRUCT PREVS) | |
| 221 | (defalias 'org-list-get-all-items #[771 "\211\300\211\301#\211\262\203 B\262\202 \302#\211\262\203. B\262\202 \303C\237#\207" [nil org-list-get-prev-item org-list-get-next-item append] 11 (#$ . 22945)]) | |
| 222 | #@167 List all children of ITEM, or nil. | |
| 223 | STRUCT is the list structure. PARENTS is the alist of parents, | |
| 224 | as returned by `org-list-parents-alist'. | |
| 225 | ||
| 226 | (fn ITEM STRUCT PARENTS) | |
| 227 | (defalias 'org-list-get-children #[771 "\300\211\301\"@\211\262\203 \211\236\235A\262\211B\262\202 \237\207" [nil rassq] 8 (#$ . 23358)]) | |
| 228 | #@79 Return point at beginning of list. | |
| 229 | STRUCT is the list structure. | |
| 230 | ||
| 231 | (fn STRUCT) | |
| 232 | (defalias 'org-list-get-top-point #[257 "\211@@\207" [] 2 (#$ . 23679)]) | |
| 233 | #@76 Return point at bottom of list. | |
| 234 | STRUCT is the list structure. | |
| 235 | ||
| 236 | (fn STRUCT) | |
| 237 | (defalias 'org-list-get-bottom-point #[257 "\300\301\302\303\304\305\306\307!\310\"\311\312%\"\"\207" [apply max mapcar make-byte-code 257 "\301@\300\"\207" vconcat vector [org-list-get-item-end] 4 "\n\n(fn E)"] 10 (#$ . 23836)]) | |
| 238 | #@185 Return point at beginning of sub-list ITEM belongs. | |
| 239 | STRUCT is the list structure. PREVS is the alist of previous | |
| 240 | items, as returned by `org-list-prevs-alist'. | |
| 241 | ||
| 242 | (fn ITEM STRUCT PREVS) | |
| 243 | (defalias 'org-list-get-list-begin #[771 "\300\301#\211\262\203 \211\262\202 \207" [nil org-list-get-prev-item] 9 (#$ . 24152)]) | |
| 244 | (defalias 'org-list-get-first-item 'org-list-get-list-begin) | |
| 245 | #@185 Return point at last item of sub-list ITEM belongs. | |
| 246 | STRUCT is the list structure. PREVS is the alist of previous | |
| 247 | items, as returned by `org-list-prevs-alist'. | |
| 248 | ||
| 249 | (fn ITEM STRUCT PREVS) | |
| 250 | (defalias 'org-list-get-last-item #[771 "\300\301#\211\262\203 \211\262\202 \207" [nil org-list-get-next-item] 9 (#$ . 24542)]) | |
| 251 | #@179 Return point at end of sub-list ITEM belongs. | |
| 252 | STRUCT is the list structure. PREVS is the alist of previous | |
| 253 | items, as returned by `org-list-prevs-alist'. | |
| 254 | ||
| 255 | (fn ITEM STRUCT PREVS) | |
| 256 | (defalias 'org-list-get-list-end #[771 "\300\301#\"\207" [org-list-get-item-end org-list-get-last-item] 8 (#$ . 24870)]) | |
| 257 | #@309 Return the type of the list containing ITEM, as a symbol. | |
| 258 | ||
| 259 | STRUCT is the list structure. PREVS is the alist of previous | |
| 260 | items, as returned by `org-list-prevs-alist'. | |
| 261 | ||
| 262 | Possible types are `descriptive', `ordered' and `unordered'. The | |
| 263 | type is determined by the first item of the list. | |
| 264 | ||
| 265 | (fn ITEM STRUCT PREVS) | |
| 266 | (defalias 'org-list-get-list-type #[771 "\301#\302\303\2368\266\205\304\305\306#)\266\203\203$ \307\2028 \211\310\2368\266\205\2037 \311\2028 \312\207" [inhibit-changing-match-data org-list-get-list-begin "[[:alnum:]]" 2 nil t string-match ordered 5 descriptive unordered] 13 (#$ . 25180)]) | |
| 267 | #@327 Return ITEM's sequence number. | |
| 268 | ||
| 269 | STRUCT is the list structure. PREVS is the alist of previous | |
| 270 | items, as returned by `org-list-prevs-alist'. PARENTS is the | |
| 271 | alist of ancestors, as returned by `org-list-parents-alist'. | |
| 272 | ||
| 273 | Return value is a list of integers. Counters have an impact on | |
| 274 | that value. | |
| 275 | ||
| 276 | (fn ITEM STRUCT PREVS PARENTS) | |
| 277 | (defalias 'org-list-get-item-number #[1028 "\300\211#C\301#\211\262\203# #B\262\202 \266\202\207" [#[771 "\300\301\302\2368\266\205\211\262\204) \303#\211\262\203) T\262\202 \211\2042 T\202[ \304\305\"\203G \306\307\300\"\226!\310Z\\\202[ \304\311\"\203Y \312\307\300\"!\\\202[ T\207" [0 nil 3 org-list-get-prev-item string-match "[A-Za-z]" string-to-char match-string 64 "[0-9]+" string-to-number] 14 "\n\n(fn ITEM STRUCT PREVS)"] org-list-get-parent] 11 (#$ . 25806)]) | |
| 278 | #@162 Search a string in valid contexts for lists. | |
| 279 | Arguments SEARCH, RE, BOUND and NOERR are similar to those used | |
| 280 | in `re-search-forward'. | |
| 281 | ||
| 282 | (fn SEARCH RE BOUND NOERR) | |
| 283 | (defalias 'org-list-search-generic #[1028 "\3002, `#\204 \301\300\302>\203 \202 b\210\303\"\210\304 \203 \301\300`\"\210\202 \207" [exit throw (t nil) nil org-list-in-valid-context-p] 9 (#$ . 26656)]) | |
| 284 | #@193 Like `re-search-backward' but stop only where lists are recognized. | |
| 285 | Arguments REGEXP, BOUND and NOERROR are similar to those used in | |
| 286 | `re-search-backward'. | |
| 287 | ||
| 288 | (fn REGEXP &optional BOUND NOERROR) | |
| 289 | (defalias 'org-list-search-backward #[769 "\300\301\206 e$\207" [org-list-search-generic re-search-backward] 8 (#$ . 27037)]) | |
| 290 | #@191 Like `re-search-forward' but stop only where lists are recognized. | |
| 291 | Arguments REGEXP, BOUND and NOERROR are similar to those used in | |
| 292 | `re-search-forward'. | |
| 293 | ||
| 294 | (fn REGEXP &optional BOUND NOERROR) | |
| 295 | (defalias 'org-list-search-forward #[769 "\300\301\206 d$\207" [org-list-search-generic re-search-forward] 8 (#$ . 27366)]) | |
| 296 | #@175 Return BULLET with the correct number of whitespaces. | |
| 297 | It determines the number of whitespaces to append by looking at | |
| 298 | `org-list-two-spaces-after-bullet-regexp'. | |
| 299 | ||
| 300 | (fn BULLET) | |
| 301 | (defalias 'org-list-bullet-string #[257 "\301 \302\303\304\305\306!\307\"\310$\216\203 \311\"\203 \312\202 \313\311\314\"\2030 \315\316\211\317%\2021 \262)\207" [org-list-two-spaces-after-bullet-regexp match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 string-match " " " " "\\S-+\\([ ]*\\)" replace-match nil 1] 9 (#$ . 27691)]) | |
| 302 | (put 'org-list-bullet-string 'byte-optimizer 'byte-compile-inline-expand) | |
| 303 | #@342 Swap item starting at BEG-A with item starting at BEG-B in STRUCT. | |
| 304 | ||
| 305 | Blank lines at the end of items are left in place. Item | |
| 306 | visibility is preserved. Return the new structure after the | |
| 307 | changes. | |
| 308 | ||
| 309 | Assume BEG-A is lesser than BEG-B and that BEG-A and BEG-B belong | |
| 310 | to the same sub-list. | |
| 311 | ||
| 312 | This function modifies STRUCT. | |
| 313 | ||
| 314 | (fn BEG-A BEG-B STRUCT) | |
| 315 | (defalias 'org-list-swap-items #[771 "\212\300\"\300\"\301\"\301\"ZZ{{\n{ \302 \f\"B \302 \"B\303\304\305\306\307\310\311\312\"\313\"\314\315%\316\"\"\"\303\304\305\306\307\310\311\312\"\317\"\314\315%\316\"\"\"Bb\210 |\210Qc\210\f\211\203&\211@\211@\211W\204 \211>\203\303 \3208Z\\\240\210\320\233Z\\\240\210\211U\203\277 \320\233 \240\210\210\202 \211>\203\375 \3208\\Z\240\210\320\233Z\\\240\210\211 U\203\371 \320\233\321 Z#\240\210\210\202 \211W\203 \3208\fZ\\\240\210\320\233\fZ\\\240\266\210A\266\202\202\202 \210\322 \323\"\262 \211@\211\203`\211@\324@A@\fZ\\Z\\\3258 Z\\Z\\#\210A\266\202\2020\210\211A\211\203\207\211@\324@A@Z\\\3258Z\\#\210A\266\202\202c\210\f\266\214)\207" [org-list-get-item-end-before-blank org-list-get-item-end org-list-get-subtree delq nil 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] 6 + sort car-less-than-car move-overlay 2] 25 (#$ . 28333)]) | |
| 316 | #@373 Return number of blank lines that should separate items in list. | |
| 317 | ||
| 318 | POS is the position of point where `org-list-insert-item' was called. | |
| 319 | ||
| 320 | STRUCT is the list structure. PREVS is the alist of previous | |
| 321 | items, as returned by `org-list-prevs-alist'. | |
| 322 | ||
| 323 | Assume point is at item's beginning. If the item is alone, apply | |
| 324 | some heuristics to guess the result. | |
| 325 | ||
| 326 | (fn POS STRUCT PREVS) | |
| 327 | (defalias 'org-list-separating-blank-lines-number #[771 "\212`\301\236A\302\303\204 \304\202x \305=\203 \306\202x \307#\211\203- \211b\210 \202v \310#\203< \202v \311 \"V\203\\ \212b\210 \211\262)\304V\203\\ \202v \212\312!b\210\313\314\311\n\"\305#)\203u \306\202v \304\262\266\204)\207" [org-blank-before-new-entry plain-list-item nil #[0 "\212\300\301 b\302\303x\210\303y\210`\")\207" [count-lines point-at-bol " \n" nil] 4] 0 t 1 org-list-get-next-item org-list-get-prev-item org-list-get-item-end-before-blank org-list-get-top-point re-search-forward "^[ ]*$"] 13 (#$ . 29855)]) | |
| 328 | #@510 Insert a new list item at POS and return the new structure. | |
| 329 | If POS is before first character after bullet of the item, the | |
| 330 | new item will be created before the current one. | |
| 331 | ||
| 332 | STRUCT is the list structure. PREVS is the alist of previous | |
| 333 | items, as returned by `org-list-prevs-alist'. | |
| 334 | ||
| 335 | Insert a checkbox if CHECKBOX is non-nil, and string AFTER-BULLET | |
| 336 | after the bullet. Cursor will be after this text once the | |
| 337 | function ends. | |
| 338 | ||
| 339 | This function modifies STRUCT. | |
| 340 | ||
| 341 | (fn POS STRUCT PREVS &optional CHECKBOX AFTER-BULLET) | |
| 342 | (defalias 'org-list-insert-item #[1283 "C\306\211\242b\210\307 b\310\"\311\"\312 !\210\242\313\224\204% \314\225\202O \315 \316\314\317\320\321!\322\"\323$\216\324\325\326\327!\")\262\203D \313\224\202O \212\313\225b\210\330\331w\210`)X\n\332\211\306=\203\\ \306\202\210 \306=\203f \306\202\210 \333\"\203u \333\"A\202\210 \334\236A\211<\203\205 \335\331\"\202\206 \211\262\266\202\336\242 # \327\2368\266\205 \203\257 \211\f\245\337\f\"\\\202\260 \211 \340\2368\266\205\315 \316\314\317\320\321!\341\"\323$\216 \203\333 \324 \"\203\333 \342\202\334 \343\324\344\"\203\356 \345\331\211\327%\202\357 \262)\266\202 \205\372 \346?\205)\205)\n\242b\210 \242W\203S\347 |\210\350\331x\210\n`\240\210\351 \242 \"\2051\343P\205I\324\352\"\203H\345\353\306\211$\202IR\354T\355\"\356GG#\211GZb\210j\210\261\210\357\316\360\361\320\321 &\362\"\363\364%\"\210 \331 \331\\\257B\262\365\366\"\262 \203\263b\210\202\312\367\211\\#\262\370\371!#b\210\266\217)\207" [case-fold-search org-list-full-item-re org-M-RET-may-split-line indent-tabs-mode tab-width org-list-two-spaces-after-bullet-regexp t org-list-get-item-begin org-list-get-item-end org-list-get-item-end-before-blank looking-at 4 0 match-data make-byte-code "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 string-match "[.)]" match-string 1 " " nil item assoc default delq org-list-separating-blank-lines-number mod 2 [set-match-data evaporate] " " " " "\\S-+\\([ ]*\\)" replace-match "[ ]" point-at-eol " \n" delete-and-extract-region "\\`[ ]+" "" make-string 10 + mapc 257 "\211@\3108\301W\203 \211\301V\205\236 \310\233\307\\\240\202\236 \303\204# \304\2043 \306\\\240\210\310\233\306\\\240\202\236 \300\242W\203[ \306\\\240\210\211\300\242W\203Q \310\233\306\\\240\202\236 \310\233\307\\\240\202\236 \302W\203\221 \311\307\312\301\300\242\305G##\240\210\211\302U\203 \310\233\301\306\\\240\202\236 \310\233\311\307\312\301\300\242\305G##\240\202\236 \307\\\240\210\310\233\307\\\240\207" [6 + -] 11 "\n\n(fn E)" sort #[514 "@@W\207" [] 4 "\n\n(fn E1 E2)"] org-list-swap-items org-list-get-next-item org-list-prevs-alist] 35 (#$ . 30855)]) | |
| 343 | #@106 Remove ITEM from the list and return the new structure. | |
| 344 | ||
| 345 | STRUCT is the list structure. | |
| 346 | ||
| 347 | (fn ITEM STRUCT) | |
| 348 | (defalias 'org-list-delete-item #[514 "\300\"\301!U\203 \212b\210\302\303x\210\304 Td^)\202 \211|\210Z\305\303\306\307\310\311\312\313\f $\314\"\315\316%\"\"\262\207" [org-list-get-item-end org-list-get-bottom-point " \n" nil point-at-eol delq mapcar make-byte-code 257 "\211@\211\300W\2033 \3048\211\300W\203 \202. \211\300U\203% \305\306!\302C\"\202. \305\306!\303ZC\"\262\202M \211\301W\203= \307\202M \211\303Z\305\306A!\3048\303ZC\"B\207" vconcat vector [6 append butlast nil] 7 "\n\n(fn E)"] 17 (#$ . 33660)]) | |
| 349 | #@731 Send ITEM to destination DEST. | |
| 350 | ||
| 351 | STRUCT is the list structure. | |
| 352 | ||
| 353 | DEST can have various values. | |
| 354 | ||
| 355 | If DEST is a buffer position, the function will assume it points | |
| 356 | to another item in the same list as ITEM, and will move the | |
| 357 | latter just before the former. | |
| 358 | ||
| 359 | If DEST is `begin' (respectively `end'), ITEM will be moved at | |
| 360 | the beginning (respectively end) of the list it belongs to. | |
| 361 | ||
| 362 | If DEST is a string like "N", where N is an integer, ITEM will | |
| 363 | be moved at the Nth position in the list. | |
| 364 | ||
| 365 | If DEST is `kill', ITEM will be deleted and its body will be | |
| 366 | added to the kill-ring. | |
| 367 | ||
| 368 | If DEST is `delete', ITEM will be deleted. | |
| 369 | ||
| 370 | Visibility of item is preserved. | |
| 371 | ||
| 372 | This function returns, destructively, the new list structure. | |
| 373 | ||
| 374 | (fn ITEM DEST STRUCT) | |
| 375 | (defalias 'org-list-send-item #[771 "\211CC\302\242!\303\242\242\"\304\212\242b\210\305\306\307\242\242\310\2368\266\205!P!\210\311\225){!\312=\206\313 \313=\206\313 \314=\203T \315\242\242#\211\262\202\313 \316=\203v \317\242\242#\262\212\320\242\242#b\210\321 )\202\313 \322\323\324\325#)\266\203\203\311 \326\242\242#\211G\327\330\n!\"\211\311U\204\250 \211S8\211\262 \202\304 \317\242 \242#\262\n\212\320\242 \242#b\210\321 )\266\203\202\313 \323\331\332\333\334\335\336\n!\337\"\340\341%\342\242\"\"\313=\203\365 \343\242\242\"\202\303\312=\203 \344!\210\343\242\242\"\202\303\250\203\300\242U\204\300\345\242!\240\210\346 \242\323%\240\210\347\242!\350\347\242! \242\"B\303` \242\"\303\347 \242!\n\242\"``\n\242Z \313\242\236\242\"\240\210 \351\352\242\353\332\333\354\335\336 $\355\"\356\357%\n\"\"\360\"\240\266\211\211\203\253\211@\361\362!` \242Z\\\363!`\f\242Z\\#\210A\266\202\202\210\210\343\347\242!\242\"\242\323\211\223\210\202\303\242)\266\205\207" [inhibit-changing-match-data org-M-RET-may-split-line org-list-prevs-alist org-list-get-item-end org-trim looking-at "[ ]*" regexp-quote 2 0 kill delete begin org-list-get-list-begin end org-list-get-list-end org-list-get-last-item point-at-eol "\\`[0-9]+\\'" nil t string-match org-list-get-all-items mod string-to-number cl-remove-if make-byte-code 257 "\301!\300\242W\206 \302!\300\242V\207" vconcat vector [overlay-start overlay-end] 3 "\n\n(fn O)" overlays-in org-list-delete-item kill-new copy-marker org-list-insert-item marker-position org-list-get-subtree sort append mapcar "\211\300\242\236\211@\3048\303\\\305\306A!\302U\203 \301\202 \303\\C\"B\207" [6 append butlast] 9 "\n\n(fn E)" car-less-than-car move-overlay overlay-start overlay-end] 29 (#$ . 34319)]) | |
| 376 | #@226 Outdent items between positions START and END. | |
| 377 | ||
| 378 | STRUCT is the list structure. PARENTS is the alist of items' | |
| 379 | parents, as returned by `org-list-parents-alist'. | |
| 380 | ||
| 381 | START is included, END excluded. | |
| 382 | ||
| 383 | (fn START END STRUCT PARENTS) | |
| 384 | (defalias 'org-list-struct-outdent #[1028 "\300C\301\302\303\304\305 %\306\"\307\310%\311\"\207" [nil make-byte-code 257 "\211@A\300W\203 \202] \301Y\203- \211\205 \211\304\242\236\211\203' AB\202( \262\202] \211\2047 \305\306!\202] \211\300Y\203J \304B\304\242B\240\210\202] \307\302\303#\304B\304\242B\240\210B\262\207" vconcat vector [error "Cannot outdent top-level items" org-list-get-parent] 7 "\n\n(fn CELL)" mapcar] 15 (#$ . 36949)]) | |
| 385 | #@405 Indent items between positions START and END. | |
| 386 | ||
| 387 | STRUCT is the list structure. PARENTS is the alist of parents | |
| 388 | and PREVS is the alist of previous items, returned by, | |
| 389 | respectively, `org-list-parents-alist' and | |
| 390 | `org-list-prevs-alist'. | |
| 391 | ||
| 392 | START is included and END excluded. | |
| 393 | ||
| 394 | STRUCT may be modified if `org-list-demote-modify-bullet' matches | |
| 395 | bullets between START and END. | |
| 396 | ||
| 397 | (fn START END STRUCT PARENTS PREVS) | |
| 398 | (defalias 'org-list-struct-indent #[1285 "\300C\301\302\303\304\305!\306\"\307\310%\301\302\311\304\305 !\312\"\313\314%\301\302\315\304\305\f\f\f &\316\"\317\310%\320\"\207" [nil make-byte-code 257 "\300\300\242B\240\210\207" vconcat vector [] 4 "\n\n(fn CELL)" "\302\303\300\304\2368\266\205!\305\306\"\203 \307\202R \305\310\"\203% \311\202R \305\312\"\2030 \313\202R \305\314\"\203; \315\202R \305\316\"\203F \317\202R \305\320\"\203Q \321\202R \211\262 \"A\211\205` \322\300#\207" [org-list-demote-modify-bullet assoc org-trim 2 string-match "[A-Z]\\." "A." "[A-Z])" "A)" "[a-z]\\." "a." "[a-z])" "a)" "[0-9]\\." "1." "[0-9])" "1)" org-list-set-bullet] 11 "\n\n(fn ITEM)" "\211@A\300W\203 \202i \301Y\203) \211\304\242\236\211\203# AB\202$ \262\202i \307\302\303#\306!\210\211\204F \203@ \300W\203F \310\311!\202g \211\204P \305!\202g \211\300W\203^ \305B!\202g \305\304\242\236AB!\262\207" [org-list-get-prev-item user-error "Cannot indent the first item of a list"] 8 mapcar] 20 (#$ . 37653)]) | |
| 399 | #@196 Non-nil if list starting at FIRST can have alphabetical bullets. | |
| 400 | ||
| 401 | STRUCT is list structure. PREVS is the alist of previous items, | |
| 402 | as returned by `org-list-prevs-alist'. | |
| 403 | ||
| 404 | (fn FIRST STRUCT PREVS) | |
| 405 | (defalias 'org-list-use-alpha-bul-p #[771 "\205] \3032] \304\305\203X \306\2368\266\205\211\2039 \307\305\310\311#)\266\203\2039 \312\226!\262\202= T\262\313V\203K \314\303\305\"\210\202T \315#\262\210\202\f )\310\266\2020\207" [org-list-allow-alphabetical case-fold-search inhibit-changing-match-data exit 64 nil 3 "[a-zA-Z]" t string-match string-to-char 90 throw org-list-get-next-item] 13 (#$ . 39117)]) | |
| 406 | #@46 Increment BULLET if applicable. | |
| 407 | ||
| 408 | (fn BULLET) | |
| 409 | (defalias 'org-list-inc-bullet-maybe #[257 "\301\302\303\"\203 \304\305\306\307\310\"!T!\301\211$\2023 \302\311\"\2032 \304\312\313\307\310\"!T!\301\211$\2023 \211)\207" [case-fold-search nil string-match "[0-9]+" replace-match number-to-string string-to-number match-string 0 "[A-Za-z]" char-to-string string-to-char] 7 (#$ . 39753)]) | |
| 410 | #@167 Verify and correct bullets in STRUCT. | |
| 411 | PREVS is the alist of previous items, as returned by | |
| 412 | `org-list-prevs-alist'. | |
| 413 | ||
| 414 | This function modifies STRUCT. | |
| 415 | ||
| 416 | (fn STRUCT PREVS) | |
| 417 | (defalias 'org-list-struct-fix-bul #[514 "\301\302\303\304\305\306\"\307\"\310\311%\312\313\314\"\")\207" [case-fold-search nil make-byte-code 257 "\303\300\301#\211\205 \211\300\304\2368\266\205\300\305\2368\266\205\300\304\2368\266\205?\2057 \306\300\301#\307\300\203w \203w \310\311\"\203w \310\311\"\203w \310\312\"\203a \227\202k \310\313\"\205k \226\314\315\211 $\262\202P\203\233 \203\233 \310\316\"\203\233 \310\316\"\203\233 \314\315\211\n$\202P\203\262 \317\300\304\2368\266\205!\202P\203\362 \306 \300\301#\203\362 \310\320\"\203\362 \310\320\"\203\362 \310\312\"\203\334 \227\202\346 \310\313\"\205\346 \226\314\315\211 $\262\202P\203\310\316\"\203\310\316\"\203\314\315\211$\202P\203'\310\313\"\203'\314\321\315\211$\202P\203=\310\312\"\203=\314\322\315\211$\202P\310\323\"\203O\314\324\315\211$\202P\325 \326\327\330\331\332!\333\"\305$\216\n\203m\310\n\"\203m\334\202n\335\310\336\"\203\200\314\315\211\337%\202\201\262)\266\202#\207" vconcat vector [org-list-two-spaces-after-bullet-regexp org-list-get-prev-item 2 3 org-list-use-alpha-bul-p org-list-set-bullet string-match "[a-zA-Z]" "[a-z]" "[A-Z]" replace-match nil "[0-9]+" org-list-inc-bullet-maybe "[A-Za-z]" "A" "a" "\\([0-9]+\\|[A-Za-z]\\)" "1" match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] " " " " "\\S-+\\([ ]*\\)" 1] 18 "\n\n(fn ITEM)" mapc mapcar car] 10 (#$ . 40149)]) | |
| 418 | #@317 Verify and correct indentation in STRUCT. | |
| 419 | ||
| 420 | PARENTS is the alist of parents, as returned by | |
| 421 | `org-list-parents-alist'. | |
| 422 | ||
| 423 | If numeric optional argument BULLET-SIZE is set, assume all | |
| 424 | bullets in list have this length to determine new indentation. | |
| 425 | ||
| 426 | This function modifies STRUCT. | |
| 427 | ||
| 428 | (fn STRUCT PARENTS &optional BULLET-SIZE) | |
| 429 | (defalias 'org-list-struct-fix-ind #[770 "\300!\211\301\2368\266\205\302\303\304\305\306 $\307\"\310\311%\312\313\314 A\"\"\207" [org-list-get-top-point 1 make-byte-code 257 "\305\300\301#\211\2030 \306\300\307\302\206 \300\310\2368\266\205G\300\311\2368\266\205\f##\2025 \306\300\303#\207" vconcat vector [org-list-indent-offset org-list-get-parent org-list-set-ind + 2 1] 15 "\n\n(fn ITEM)" mapc mapcar car] 14 (#$ . 41856)]) | |
| 430 | #@519 Verify and correct checkboxes in STRUCT. | |
| 431 | ||
| 432 | PARENTS is the alist of parents and PREVS is the alist of | |
| 433 | previous items, as returned by, respectively, | |
| 434 | `org-list-parents-alist' and `org-list-prevs-alist'. | |
| 435 | ||
| 436 | If ORDERED is non-nil, a checkbox can only be checked when every | |
| 437 | checkbox before it is checked too. If there was an attempt to | |
| 438 | break this rule, the function will return the blocking item. In | |
| 439 | all others cases, the return value will be nil. | |
| 440 | ||
| 441 | This function modifies STRUCT. | |
| 442 | ||
| 443 | (fn STRUCT PARENTS PREVS &optional ORDERED) | |
| 444 | (defalias 'org-list-struct-fix-box #[1027 "\300\301\"\302\303\304\305\306 \"\307\"\310\311%\312C\313\302\303\314\305\306\f\f#\315\"\316\317%\"\210\211\320\242\302\321\322\305\306!\323\"\324\325%\"\240\210\313\242\"\210\205\215 \300\302\303\326\305\306\f!\327\"\330\317%\"\331\235\332\235\205\213 GGZ\313\302\303\333\305\306!\334\"\330\317%\233\"\210\335\n\n\n\312$\210\2118\262\266\202\207" [mapcar car make-byte-code 257 "\302\303\304\305\306\307\300!\310\"\311\312%\313\300\301#\"\314\300\315\235\203& \316\235\203& \317\202P \317\235\2030 \317\202P \316\235\203: \316\202P \315\235\203D \315\202P \300\320\2368\266\205#\207" vconcat vector [mapcar make-byte-code 257 "\211\300\301\2368\207" vconcat vector [4] 9 "\n\n(fn CHILD)" org-list-get-children org-list-set-checkbox "[ ]" "[X]" "[-]" 4] 13 "\n\n(fn ITEM)" nil mapc "\303\300\301#\211\300\304\2368\266\205\211\205# \302\242>?\205# \302\302\242B\240\207" [org-list-get-parent 4] 10 "\n\n(fn E)" sort 514 "\300\301\2368\266\205\300\301\2368\266\205V\207" [1] 11 "\n\n(fn E1 E2)" "\211\300\301\2368\207" [4] 9 "[ ]" "[X]" "\211\300\301\2368\266\205\205 \302\300\303#\207" [4 org-list-set-checkbox "[ ]"] org-list-struct-fix-box] 17 (#$ . 42639)]) | |
| 445 | #@99 Verify and correct each item end position in STRUCT. | |
| 446 | ||
| 447 | This function modifies STRUCT. | |
| 448 | ||
| 449 | (fn STRUCT) | |
| 450 | (defalias 'org-list-struct-fix-item-end #[257 "\300C\300C\301\302\303\304\305\306#\307\"\310\311%\"\210\312\242\313\"\240\210\314\242\"\207" [nil mapc make-byte-code 257 "\211@\211\300\303\2368\266\205\304\300\"\211\300\236\204= \305\302\242\306#\301\2034 \300\303\2368\266\205\307\\\2025 \310B\301\242B\240\266\301B\301\242B\240\210\302B\302\242B\240\207" vconcat vector [1 org-list-get-item-end assoc-default > 2 0] 14 "\n\n(fn E)" sort #[514 "AAW\207" [] 4 "\n\n(fn E1 E2)"] org-list-struct-assoc-end] 12 (#$ . 44449)]) | |
| 451 | #@314 Apply set difference between STRUCT and OLD-STRUCT to the buffer. | |
| 452 | ||
| 453 | OLD-STRUCT is the structure before any modifications, and STRUCT | |
| 454 | the structure to be applied. The function will only modify parts | |
| 455 | of the list which have changed. | |
| 456 | ||
| 457 | Initial position of cursor is restored after the changes. | |
| 458 | ||
| 459 | (fn STRUCT OLD-STRUCT) | |
| 460 | (defalias 'org-list-struct-apply-struct #[514 "\303 \304\305!\205\n \306 \307 \310\311\312\211\211\211\211\n\211\203\221 \211@\211@\211\313\2368\266\205\313\2368\266\205\314\2368\266\205\314\2368\266\205G\\G\\Z\315\"B\fB\262\f\211\236\204 \316\317#BB\262\210\211B B\262 \266A\266\202\202 \210\320\321\322\323\"\324\322\323\n\"!\"\325\"\262\237\262A\203-\211A\262\242@\236\211\203\306 \236A\202\"\236A\211\313\2368\266\205\212b\210`W\203 \326\327\330!)\262\204\331 ^\262\330\332!\203 \333\334\335\336\313!\"\327#\204\330\n!\203\333\337\327#\210\312y\210\202\335 )Z\266\203EB\266\205\202\251 \211\211\203l\211@\3148\340U\204F\341 \f\f$\210\211A@\211\236\211\203c\211\236\232\204c #\210\266A\266\202\202.\266b\210\312\211\223\207" [most-positive-fixnum inhibit-changing-match-data org-drawer-regexp point-marker featurep org-inlinetask org-inlinetask-outline-regexp org-item-re #[1285 "b\210\301\302x\210\303 \210`V\204 `U\205F \304!?\205F \203- \304!\203- \305 \210\202@ \306\307\304!)\262\203@ \310\311 \\!\210\312y\210\202\n \207" [inhibit-changing-match-data " \n" nil beginning-of-line looking-at org-inlinetask-goto-beginning "^[ ]*\\S-" t indent-line-to org-get-indentation -1] 8 "\n\n(fn INLINETASK-RE ITEM-RE END BEG DELTA)"] #[771 "\211b\210\211\302\2368\266\205\303 \304\2368\266\205\305 \306\307\310\311\312!\313\"\314$\216\203: \315\"\203: \316\202; \317\315\320\"\203M \321\322\211\302%\202N \262)\266\202\304\2368\266\205\323\2368\266\205\324 !\210\232\204~ \321\322\211\211\302%\210\325\314!\232\204\312 \325\314!\203\233 \211\203\233 \321\322\211\211\314%\210\202\312 \325\314!\203\260 \324\326!\210\321\327\322\211\211\302%\210\202\312 \304\225\211\203\273 \211T\202\275 \302\225b\210?\205\306 \317Pc\266U?\205\335 \330 b\331\322w\210`|\210j\207" [org-list-two-spaces-after-bullet-regexp org-list-full-item-re 1 org-get-indentation 2 match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 string-match " " " " "\\S-+\\([ ]*\\)" replace-match nil 4 looking-at match-string ".*?\\([ ]*\\[[ X-]\\]\\)" "" point-at-bol " "] 15 "\n\n(fn STRUCT OLD-STRUCT ITEM)"] nil 1 2 org-list-get-item-end assoc-default > sort append mapcar car org-uniquify < "[ ]*$" t looking-at org-get-indentation "#\\+BEGIN\\(:\\|_\\S-+\\)" re-search-forward format "^[ ]*#\\+END%s[ ]*$" match-string "^[ ]*:END:[ ]*$" 0 apply] 26 (#$ . 45110)]) | |
| 461 | #@389 Correct bullets, checkboxes and indentation in list at point. | |
| 462 | ||
| 463 | STRUCT is the list structure. PARENTS is the alist of parents, | |
| 464 | as returned by `org-list-parents-alist'. | |
| 465 | ||
| 466 | When non-nil, optional argument OLD-STRUCT is the reference | |
| 467 | structure of the list. It should be provided whenever STRUCT | |
| 468 | doesn't correspond anymore to the real list in buffer. | |
| 469 | ||
| 470 | (fn STRUCT PARENTS &optional OLD-STRUCT) | |
| 471 | (defalias 'org-list-write-struct #[770 "\211\206 \300!\301\302#\210\303!\210\304!\305\"\210\301\"\210\306#\266\307\"\207" [copy-tree org-list-struct-fix-ind 2 org-list-struct-fix-item-end org-list-prevs-alist org-list-struct-fix-bul org-list-struct-fix-box org-list-struct-apply-struct] 9 (#$ . 48012)]) | |
| 472 | #@505 Call FUNCTION on each item of the list at point. | |
| 473 | FUNCTION must be called with at least one argument: INIT-VALUE, | |
| 474 | that will contain the value returned by the function at the | |
| 475 | previous item, plus ARGS extra arguments. | |
| 476 | ||
| 477 | FUNCTION is applied on items in reverse order. | |
| 478 | ||
| 479 | As an example, (org-apply-on-list (lambda (result) (1+ result)) 0) | |
| 480 | will return the number of items in the current list. | |
| 481 | ||
| 482 | Sublists of the list are skipped. Cursor is always at the | |
| 483 | beginning of the item. | |
| 484 | ||
| 485 | (fn FUNCTION INIT-VALUE &rest ARGS) | |
| 486 | (defalias 'org-apply-on-list #[642 "\300 \301!\302\303 !\304\305!#C\306\307\310\311\312\313 \f#\314\"\315\316%\237\"\210b\210\317\211\223\210\211\242\207" [org-list-struct org-list-prevs-alist copy-marker point-at-bol org-list-get-all-items marker-position mapc make-byte-code 257 "\211b\210\302\303\300\302\242\301#\240\207" vconcat vector [apply] 6 "\n\n(fn E)" nil] 17 (#$ . 48727)]) | |
| 487 | #@162 Set visibility of ITEM in STRUCT to VIEW. | |
| 488 | ||
| 489 | Possible values are: `folded', `children' or `subtree'. See | |
| 490 | `org-cycle' for more information. | |
| 491 | ||
| 492 | (fn ITEM STRUCT VIEW) | |
| 493 | (defalias 'org-list-set-item-visibility #[771 "\211\300\267\202? \301\"\302\212b\210\303 )\304#\207\305\306#\210\307!\310#\311\312\313\314\315\316 !\317\"\320\321%\"\207\322\"\302\323#\207\323\207" [#s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (folded 6 children 22 subtree 53)) org-list-get-item-end-before-blank outline-flag-region point-at-eol t org-list-set-item-visibility subtree org-list-parents-alist org-list-get-children mapc make-byte-code 257 "\301\300\302#\207" vconcat vector [org-list-set-item-visibility folded] 5 "\n\n(fn E)" org-list-get-item-end nil] 12 (#$ . 49637)]) | |
| 494 | #@62 Return column at which body of ITEM should start. | |
| 495 | ||
| 496 | (fn ITEM) | |
| 497 | (defalias 'org-list-item-body-column #[257 "\212\211b\210\212\303\210\304\305\306 \307#)\203. \310\224\306 ZT\311 \\V\203( \211\312\\\202) \266\202\202S \313\314!\210\310\225b\210i \203Q \315\310!\303\307\316#)\266\203\203Q \317\202R \310\\)\207" [org-list-description-max-indent org-list-two-spaces-after-bullet-regexp inhibit-changing-match-data nil re-search-backward "[ ]::\\([ ]\\|$\\)" line-beginning-position t 1 org-get-indentation 5 looking-at "[ ]*\\(\\S-+\\)" match-string string-match 2] 9 (#$ . 50449)]) | |
| 498 | (defalias 'org-list-get-item-begin 'org-in-item-p) | |
| 499 | #@77 Go to the beginning of the current item. | |
| 500 | Throw an error when not in a list. | |
| 501 | (defalias 'org-beginning-of-item #[0 "\300 \211\203 \211b\202 \301\302!\207" [org-in-item-p error "Not in an item"] 3 (#$ . 51097) nil]) | |
| 502 | #@93 Go to the beginning item of the current list or sublist. | |
| 503 | Throw an error when not in a list. | |
| 504 | (defalias 'org-beginning-of-item-list #[0 "\300 \211\204\f \301\302!\202 \211b\210\303 \304!\305#b\266\202\207" [org-in-item-p error "Not in an item" org-list-struct org-list-prevs-alist org-list-get-list-begin] 7 (#$ . 51318) nil]) | |
| 505 | #@82 Go to the end of the current list or sublist. | |
| 506 | Throw an error when not in a list. | |
| 507 | (defalias 'org-end-of-item-list #[0 "\300 \211\204\f \301\302!\202 \211b\210\303 \304!\305#b\266\202\207" [org-in-item-p error "Not in an item" org-list-struct org-list-prevs-alist org-list-get-list-end] 7 (#$ . 51654) nil]) | |
| 508 | #@71 Go to the end of the current item. | |
| 509 | Throw an error when not in a list. | |
| 510 | (defalias 'org-end-of-item #[0 "\300 \211\204\f \301\302!\202 \211b\210\303 \304\"b\262\207" [org-in-item-p error "Not in an item" org-list-struct org-list-get-item-end] 5 (#$ . 51971) nil]) | |
| 511 | #@171 Move to the beginning of the previous item. | |
| 512 | Throw an error when not in a list. Also throw an error when at | |
| 513 | first item, unless `org-list-use-circular-motion' is non-nil. | |
| 514 | (defalias 'org-previous-item #[0 "\301 \211\204\f \302\303!\2024 \211b\210\304 \305!\306#\211\203\" \211b\2022 \203/ \307#b\2022 \302\310!\266\203\207" [org-list-use-circular-motion org-in-item-p error "Not in an item" org-list-struct org-list-prevs-alist org-list-get-prev-item org-list-get-last-item "On first item"] 8 (#$ . 52243) nil]) | |
| 515 | #@166 Move to the beginning of the next item. | |
| 516 | Throw an error when not in a list. Also throw an error when at | |
| 517 | last item, unless `org-list-use-circular-motion' is non-nil. | |
| 518 | (defalias 'org-next-item #[0 "\301 \211\204\f \302\303!\2024 \211b\210\304 \305!\306#\211\203\" \211b\2022 \203/ \307#b\2022 \302\310!\266\203\207" [org-list-use-circular-motion org-in-item-p error "Not in an item" org-list-struct org-list-prevs-alist org-list-get-next-item org-list-get-first-item "On last item"] 8 (#$ . 52768) nil]) | |
| 519 | #@169 Move the item at point down, i.e. swap with following item. | |
| 520 | Sub-items (items with larger indentation) are considered part of | |
| 521 | the item, so this really moves item trees. | |
| 522 | (defalias 'org-move-item-down #[0 "\301 \204 \302\303!\210i\304 \305 \306!\307\304 #\211\204# \204# \310\311!\210\211\2041 \312\313#\262\202B \314#\262\307\306!#b\210\315\316!\"\210\317!\207" [org-list-use-circular-motion org-at-item-p error "Not at an item" point-at-bol org-list-struct org-list-prevs-alist org-list-get-next-item user-error "Cannot move this item further down" org-list-send-item begin org-list-swap-items org-list-write-struct org-list-parents-alist org-move-to-column] 10 (#$ . 53284) nil]) | |
| 523 | #@166 Move the item at point up, i.e. swap with previous item. | |
| 524 | Sub-items (items with larger indentation) are considered part of | |
| 525 | the item, so this really moves item trees. | |
| 526 | (defalias 'org-move-item-up #[0 "\301 \204 \302\303!\210i\304 \305 \306!\307\304 #\211\204# \204# \310\311!\210\211\2041 \312\313#\262\2028 \314#\262\315\316!\"\210\317!\207" [org-list-use-circular-motion org-at-item-p error "Not at an item" point-at-bol org-list-struct org-list-prevs-alist org-list-get-prev-item user-error "Cannot move this item further up" org-list-send-item end org-list-swap-items org-list-write-struct org-list-parents-alist org-move-to-column] 9 (#$ . 53990) nil]) | |
| 527 | #@325 Insert a new item at the current level. | |
| 528 | If cursor is before first character after bullet of the item, the | |
| 529 | new item will be created before the current one. | |
| 530 | ||
| 531 | If CHECKBOX is non-nil, add a checkbox next to the bullet. | |
| 532 | ||
| 533 | Return t when things worked, nil when we are not in an item, or | |
| 534 | item is invisible. | |
| 535 | ||
| 536 | (fn &optional CHECKBOX) | |
| 537 | (defalias 'org-insert-item #[256 "\301 `?\206 \212b\210\302 )?\205\207 \212b\210\303 )\203$ \304 \210\305\202\207 \212b\210\306 )\307!\310#\311=\2059 \312\313 %\262\314\315!\"\210\203Q \316 \210\317!\210\320\224\203y \321 \322\323\324\325\326!\327\"\330$\216\331\332\333\334!\")\262\203y \320\224\202{ \323\225b\210\211\203\204 \335u\210\305\266\203\207" [org-list-full-item-re org-in-item-p org-invisible-p org-at-item-timer-p org-timer-item t org-list-struct org-list-prevs-alist org-list-get-list-type descriptive " :: " org-list-insert-item org-list-write-struct org-list-parents-alist org-update-checkbox-count-maybe looking-at 4 match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 string-match "[.)]" match-string 1 -1] 13 (#$ . 54667) "P"]) | |
| 538 | #@63 Fix indentation, bullets and checkboxes in the list at point. | |
| 539 | (defalias 'org-list-repair #[0 "\300 \204 \301\302!\210\303 \304!\305\"\207" [org-at-item-p error "This is not a list" org-list-struct org-list-parents-alist org-list-write-struct] 5 (#$ . 55807) nil]) | |
| 540 | #@333 Cycle through the different itemize/enumerate bullets. | |
| 541 | This cycle the entire list level through the sequence: | |
| 542 | ||
| 543 | `-' -> `+' -> `*' -> `1.' -> `1)' | |
| 544 | ||
| 545 | If WHICH is a valid string, use that as the new bullet. If WHICH | |
| 546 | is an integer, 0 means `-', 1 means `+' etc. If WHICH is | |
| 547 | `previous', cycle backwards. | |
| 548 | ||
| 549 | (fn &optional WHICH) | |
| 550 | (defalias 'org-cycle-list-bullet #[256 "\303 \204 \304\305!\210\212\306 \210\307 \310!\311!\312`#\211\313\2368\266\205\314#\315\316\317\"\2039 \320\202s \316\321\"\203D \322\202s \316\323\"\203O \324\202s \316\325\"\203Z \326\202s \316\327\"\203e \330\202s \316\331\"\203p \332\202s \333!\334\335\336\337!?\205} \340 \341=\206\205 \342 ?\205\212 \343 \344=\206\222 \342 ?\205\227 \345?\206\245 \341=\206\245 \342 ?\205\252 \346?\206\270 \344=\206\270 \342 ?\205\275 \347&\211G\211\235GZ\350 \235\203\324 \202\371 \247\203\343 \211#\202\371 \351=\203\363 \211S#\202\371 \211T#\352\f!\353\n\354 \355\356\357\360\361!\362\"\363$\216\n\203 \316\n\"\203 \364\202!\365\316\366\"\2033\367\315\211\370%\2024\262)\266\202#\210\371 \f\"\210\372 \"\210\373 \"\262)\266\214)\207" [case-fold-search org-plain-list-ordered-item-terminator org-list-two-spaces-after-bullet-regexp org-at-item-p error "Not at an item" beginning-of-line org-list-struct org-list-parents-alist org-list-prevs-alist org-list-get-first-item 2 org-list-use-alpha-bul-p nil string-match "[a-z]\\." "a." "[a-z])" "a)" "[A-Z]\\." "A." "[A-Z])" "A)" "\\." "1." ")" "1)" org-trim append ("-" "+") looking-at "\\S-" ("*") 41 org-at-item-description-p ("1.") 46 ("1)") ("a." "A.") ("a)" "A)") #[771 "\300\"8\207" [mod] 6 "\n\n(fn BULLET-LIST LEN INDEX)"] previous copy-tree org-list-set-bullet match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 " " " " "\\S-+\\([ ]*\\)" replace-match 1 org-list-struct-fix-bul org-list-struct-fix-ind org-list-struct-apply-struct] 26 (#$ . 56082) "P"]) | |
| 551 | #@551 Toggle the checkbox in the current line. | |
| 552 | ||
| 553 | With prefix argument TOGGLE-PRESENCE, add or remove checkboxes. | |
| 554 | With a double prefix argument, set the checkbox to "[-]". | |
| 555 | ||
| 556 | When there is an active region, toggle status or presence of the | |
| 557 | first checkbox there, and make every item inside have the same | |
| 558 | status or presence, respectively. | |
| 559 | ||
| 560 | If point is on a headline, apply this to all checkbox items in | |
| 561 | the text below the heading, taking as reference the first item in | |
| 562 | subtree, ignoring planning line and any drawer following it. | |
| 563 | ||
| 564 | (fn &optional TOGGLE-PRESENCE) | |
| 565 | (defalias 'org-toggle-checkbox #[256 "\212\300\211\211C\300C\301\300\302\"\303 \2037 \304 \305 b\210\306\307\310 P\311#\203) \312 \240\210\202- \313\314!\210\315!\240\262\202\200 \316 \203g \212\317 \210`)\320\311!\210\306\307\310 P\311#\203Y \312 \240\210\202] \313\321!\210\315!\240\262\202\200 \322 \203} \311\262\312 \240\210\315\323 !\240\202\200 \313\324!\242b\210\325 \205\214 \326\327!\330\232\203\227 \331\202\262 \332\232\203\247 \211?\205\262 \333\202\262 \211\334\232\203\261 \333\202\262 \334\262\242b\210`\242W\203|\306\307\310 P\242\335#\203|\336 \337!\340!\341!\315\342!!\343\344\345\346\347\350\"\351\"\352\353%\354\355\"\"\356\344\345\357\347\350 #\360\"\361\353%\"\210\362\f$\262\f\f\203E \203E\n\242\fV\203E\313\363 \212\211\203/\211b\210n\2037\327\2028\364\365\327`\"\\)\262\"\210\202i \203i\366\367 \212\211\203V\211b\210n\203^\327\202_\364\365\327`\"\\)\262\"\210b\210\300\211\223\210\370\"\266\202\270 \242\300\211\223\266)\371 \207" [nil org-entry-get "ORDERED" org-region-active-p region-end region-beginning org-list-search-forward "^" org-item-re t point-at-bol error "No item in region" copy-marker org-at-heading-p outline-next-heading org-end-of-meta-data "No item in subtree" org-at-item-p point-at-eol "Not at an item or heading, and no active region" org-at-item-checkbox-p match-string 1 (16) "[-]" (4) "[ ]" "[X]" move org-list-struct copy-tree org-list-parents-alist org-list-prevs-alist org-list-get-bottom-point cl-remove-if make-byte-code 257 "\211\300\242W\206 \211\301\242V\207" vconcat vector [] 3 "\n\n(fn E)" mapcar car mapc "\303\302\302\304\2368\266\205\211\204 \300\305\232\203 \301\202 \211\262#\207" [org-list-set-checkbox 4 (4)] 12 org-list-struct-fix-box "Checkbox blocked because of unchecked box at line %d" 0 count-lines message "Checkboxes were removed due to unchecked box at line %d" org-list-struct-apply-struct org-update-checkbox-count-maybe] 23 (#$ . 58086) "P"]) | |
| 566 | #@43 Reset all checkboxes in an entry subtree. | |
| 567 | (defalias 'org-reset-checkbox-state-subtree #[0 "\300 \203 \301\302!\207\214\212\303 \210\304 \210eb\210d`W\203/ \305 \203( \306\307\310\211\311\312%\210\313\314!\210\202 \210\315\316!*\207" [org-before-first-heading-p error "Not inside a tree" org-narrow-to-subtree org-show-subtree org-at-item-checkbox-p replace-match "[ ]" t nil 1 beginning-of-line 2 org-update-checkbox-count-maybe all] 7 (#$ . 60654) "*"]) | |
| 568 | #@244 Update the checkbox statistics in the current section. | |
| 569 | ||
| 570 | This will find all statistic cookies like [57%] and [6/12] and | |
| 571 | update them with the current numbers. | |
| 572 | ||
| 573 | With optional prefix argument ALL, do this for the whole buffer. | |
| 574 | ||
| 575 | (fn &optional ALL) | |
| 576 | (defalias 'org-update-checkbox-count #[256 "\212\214~\210\306\307?\206 \310\311\312\313\314\"\206 \315\"?\205# \316\317!\205# \320 \203+ d\202J \211\2038 \212\321 \210`)\202J \212\322\323 \211\324\nP \321 \210,`)\325\313\211\203X eb\210\202r \203c \326\322!\210\202r \322\323 \211\324\nP \327 \210,\330\322#\203N\212\331u\210\332 \333\334\335\336\337!\340\"\341$\216\342 )\262)\343!\344=\203J\345\346\224\346\225\347\225E\350\351\"\211\203\262 \352\353\"\202\304 \212\322\323 \211\324\nP \327 \210,`)\211\236A\206C\212\211b\210\203\333 \352\354\"\202\355 \212\322\323 \211\324\nP \321 \210,`)\313\330\322#\203\"\355 \343!\356=\203 \352\357\"B\262\350\360\"\211\262\203 \352\361\"^b\210\202 \210\202\356 \343!\356=\2051\352\362\"#B B\262 \211\262\266\202)\266\202\"B\262\210\202r \211\205\230\211@\211@A@\3478\3418\3638b\210\203x\364\365\366\367_\346]\"\"\202}\364\370#c\210``Z\\|\210 \203\217\371 \210\266A\266\202\202O\262\266\210*\207" [org-checkbox-hierarchical-statistics org-called-with-limited-levels org-outline-regexp outline-regexp org-outline-regexp-bol org-auto-align-tags "\\(\\(\\[[0-9]*%\\]\\)\\|\\(\\[[0-9]*/[0-9]*\\]\\)\\)" "^[ ]*\\([-+*]\\|\\([0-9]+\\|[A-Za-z]\\)[.)]\\)[ ]+\\(?:\\[@\\(?:start:\\)?\\([0-9]+\\|[A-Za-z]\\)\\][ ]*\\)?\\(\\[[- X]\\]\\)" string-match "\\<recursive\\>" org-entry-get nil "COOKIE_DATA" "" featurep org-inlinetask org-inlinetask-in-task-p outline-next-heading t org-get-limited-outline-regexp "^" #[771 "\300\211\211\203p \211@\301!\302!\203! \203! \303 \"\202B \203- \304\305\"\202B \203; \306 #\202B \307\310!#\311\312\304\313\314\315\316\317 !\320\"\321\322%\"\"G\\\262\323\324\325\326$\\\262\266A\266\202\202 D\262\207" [0 org-list-prevs-alist org-list-parents-alist org-list-get-subtree mapcar car org-list-get-children org-list-get-all-items org-list-get-top-point delq nil make-byte-code 257 "\211\300\301\2368\207" vconcat vector [4] 9 "\n\n(fn E)" cl-count "[X]" :test equal] 19 "\n\n(fn ITEM STRUCTS RECURSIVEP)"] org-back-to-heading outline-previous-heading re-search-forward -1 match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 org-element-context org-element-type statistics-cookie append 1 2 org-element-lineage (drawer center-block dynamic-block inlinetask item quote-block special-block verse-block) org-element-property :contents-begin :contents-end org-element-at-point item :structure (plain-list) :end :begin 4 format "[%d%%]" floor 100.0 "[%d/%d]" org-fix-tags-on-the-fly] 23 (#$ . 61119) "P"]) | |
| 577 | #@140 Select the face for checkbox statistics. | |
| 578 | The face will be `org-done' when all relevant boxes are checked. | |
| 579 | Otherwise it will be `org-todo'. | |
| 580 | (defalias 'org-get-checkbox-statistics-face #[0 "\300\225\203 \301\300!\302\232\203 \303\207\304\207\305\225\305\224V\203% \301\305!\301\306!\232\203% \303\207\304\207" [1 match-string "100%" org-checkbox-statistics-done org-checkbox-statistics-todo 2 3] 3 (#$ . 64003)]) | |
| 581 | #@139 Update checkbox statistics unless turned off by user. | |
| 582 | With an optional argument ALL, update them in the whole buffer. | |
| 583 | ||
| 584 | (fn &optional ALL) | |
| 585 | (defalias 'org-update-checkbox-count-maybe #[256 "\301\236A\203 \302!\210\303\304!\207" [org-list-automatic-rules checkbox org-update-checkbox-count run-hooks org-checkbox-statistics-hook] 3 (#$ . 64423)]) | |
| 586 | (defvar org-last-indent-begin-marker (make-marker)) | |
| 587 | (defvar org-last-indent-end-marker (make-marker)) | |
| 588 | #@350 Indent a local list item including its children. | |
| 589 | When number ARG is a negative, item will be outdented, otherwise | |
| 590 | it will be indented. | |
| 591 | ||
| 592 | If a region is active, all items inside will be moved. | |
| 593 | ||
| 594 | If NO-SUBTREE is non-nil, only indent the item itself, not its | |
| 595 | children. | |
| 596 | ||
| 597 | STRUCT is the list structure. | |
| 598 | ||
| 599 | Return t if successful. | |
| 600 | ||
| 601 | (fn ARG NO-SUBTREE STRUCT) | |
| 602 | (defalias 'org-list-indent-item-generic #[771 "\212\306 \211\205 \307 \205 \310 \311!\312!\313!?\2058 \314 U\2058 \315\236A\2058 \2037 \316\317!\2028 \320 \321>\203D \n\322>\204} \203W \323\223\210\f\323\223\210\202} \314 \323\223\210\f\203i \324 !\202z \203t \314 T\202z \325\314 \n\"\323\223\210\326 !\326\f!\2036\327 \f\330W\203\225 \211[\202\226 \211\f\331\2368\266\205\332 !\\\330W\203\266 \333\334!\210\2021\\\330U\203\335\336\337\2368\266\205\"\203\340\341\342 \343\330\344\345\346!\347\"\350$\216 \203\365 \335 \"\203\365 \351\202\366 \352\335\353\"\203\354\323\211\331%\202 \262)\266\202#\210\355\343\356\357\345\346 \"\360\"\361\362%\"\210\363 \"\210\364\"\210\266\202\233 \330W\203u\n\203O\204O\365 \"\204n\366\367\343\356\370\345\346!\371\"\350\362%\f\"!@@\365\f\"\262\203u\333\372!\210\202\233 \330W\203\207\373\f$\202\221\374\f%\375 \"\266\376 \210\266 )\320\207" [org-list-automatic-rules last-command this-command org-last-indent-begin-marker org-last-indent-end-marker org-list-two-spaces-after-bullet-regexp org-region-active-p region-beginning region-end org-list-get-top-point org-list-parents-alist org-list-prevs-alist point-at-bol indent user-error "At first item: use S-M-<left/right> to move the whole list" t (org-shiftmetaright org-shiftmetaleft) (org-shiftmetaright org-shiftmetaleft) nil org-list-get-bottom-point org-list-get-item-end marker-position org-level-increment 0 1 copy-tree error "Cannot outdent beyond margin" string-match "*" 2 org-list-set-bullet "-" match-data make-byte-code "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 " " " " "\\S-+\\([ ]*\\)" replace-match mapc 257 "\211@\300\302\2368\266\205\303@\300\301\\#\207" [1 org-list-set-ind] 9 "\n\n(fn E)" org-list-struct-fix-bul org-list-struct-apply-struct org-list-has-child-p reverse cl-remove-if "\211@\300Y\207" [] "Cannot outdent an item without its children" org-list-struct-outdent org-list-struct-indent org-list-write-struct org-update-checkbox-count-maybe] 28 (#$ . 64879)]) | |
| 603 | #@105 Outdent a local list item, but not its children. | |
| 604 | If a region is active, all items inside will be moved. | |
| 605 | (defalias 'org-outdent-item #[0 "\300 \301 \204 \211\2031 \212\302 b\210\301 )\2031 \211\204 \303 \202' \212\302 b\210\303 )\304\305\306#\262\202> \211\203; \307\310!\202> \307\311!\207" [org-region-active-p org-at-item-p region-beginning org-list-struct org-list-indent-item-generic -1 t error "Region not starting at an item" "Not at an item"] 6 (#$ . 67362) nil]) | |
| 606 | #@104 Indent a local list item, but not its children. | |
| 607 | If a region is active, all items inside will be moved. | |
| 608 | (defalias 'org-indent-item #[0 "\300 \301 \204 \211\2031 \212\302 b\210\301 )\2031 \211\204 \303 \202' \212\302 b\210\303 )\304\305\306#\262\202> \211\203; \307\310!\202> \307\311!\207" [org-region-active-p org-at-item-p region-beginning org-list-struct org-list-indent-item-generic 1 t error "Region not starting at an item" "Not at an item"] 6 (#$ . 67844) nil]) | |
| 609 | #@106 Outdent a local list item including its children. | |
| 610 | If a region is active, all items inside will be moved. | |
| 611 | (defalias 'org-outdent-item-tree #[0 "\300 \301 \204 \211\2031 \212\302 b\210\301 )\2031 \211\204 \303 \202' \212\302 b\210\303 )\304\305\306#\262\202> \211\203; \307\310!\202> \307\311!\207" [org-region-active-p org-at-item-p region-beginning org-list-struct org-list-indent-item-generic -1 nil error "Region not starting at an item" "Not at an item"] 6 (#$ . 68323) nil]) | |
| 612 | #@105 Indent a local list item including its children. | |
| 613 | If a region is active, all items inside will be moved. | |
| 614 | (defalias 'org-indent-item-tree #[0 "\300 \301 \204 \211\2031 \212\302 b\210\301 )\2031 \211\204 \303 \202' \212\302 b\210\303 )\304\305\306#\262\202> \211\203; \307\310!\202> \307\311!\207" [org-region-active-p org-at-item-p region-beginning org-list-struct org-list-indent-item-generic 1 nil error "Region not starting at an item" "Not at an item"] 6 (#$ . 68813) nil]) | |
| 615 | #@271 Cycle levels of indentation of an empty item. | |
| 616 | The first run indents the item, if applicable. Subsequent runs | |
| 617 | outdent it at meaningful levels in the list. When done, item is | |
| 618 | put back at its original position with its original bullet. | |
| 619 | ||
| 620 | Return t at each successful move. | |
| 621 | (defalias 'org-cycle-item-indentation #[0 "\305 \205\300 \306\307 \310 \311\2368\266\205\312\310 \313 {! \314=\204B \212\315 \210\316\n!)\205\275 \317\225\212\320\310 \"b\210\321\306x\210`)Y\205\275 \314 \314=\203\214 \3221W \323\324\325#0\202[ \210\202^ \204\274 \f@U\203w \3261r \323\311\325#0\202t \210\306\204\274 \310 \313 |\210\f@j\210\fA\327\261\210\330\202\274 B\3311\235 \323\311\325#0\202\241 \210\202\244 \204\274 \3321\261 \323\324\325#0\202\265 \210\202\270 \204\274 \333\334!\210\325)\266\203\207" [org-adapt-indentation last-command org-list-full-item-re this-command org-tab-ind-state org-at-item-p nil org-list-struct point-at-bol 1 org-trim point-at-eol org-cycle-item-indentation beginning-of-line looking-at 0 org-list-get-item-end " \n" (error) org-list-indent-item-generic -1 t (error) " " identity (error) (error) user-error "Cannot move item"] 9 (#$ . 69300)]) | |
| 622 | #@1472 Sort list items. | |
| 623 | The cursor may be at any item of the list that should be sorted. | |
| 624 | Sublists are not sorted. Checkboxes, if any, are ignored. | |
| 625 | ||
| 626 | Sorting can be alphabetically, numerically, by date/time as given | |
| 627 | by a time stamp, by a property or by priority. | |
| 628 | ||
| 629 | Comparing entries ignores case by default. However, with an | |
| 630 | optional argument WITH-CASE, the sorting considers case as well. | |
| 631 | ||
| 632 | The command prompts for the sorting type unless it has been given | |
| 633 | to the function through the SORTING-TYPE argument, which needs to | |
| 634 | be a character, (?n ?N ?a ?A ?t ?T ?f ?F ?x ?X). Here is the | |
| 635 | detailed meaning of each character: | |
| 636 | ||
| 637 | n Numerically, by converting the beginning of the item to a number. | |
| 638 | a Alphabetically. Only the first line of item is checked. | |
| 639 | t By date/time, either the first active time stamp in the entry, if | |
| 640 | any, or by the first inactive one. In a timer list, sort the timers. | |
| 641 | x By "checked" status of a check list. | |
| 642 | ||
| 643 | Capital letters will reverse the sort order. | |
| 644 | ||
| 645 | If the SORTING-TYPE is ?f or ?F, then GETKEY-FUNC specifies | |
| 646 | a function to be called with point at the beginning of the | |
| 647 | record. It must return a value that is compatible with COMPARE-FUNC, | |
| 648 | the function used to compare entries. | |
| 649 | ||
| 650 | Sorting is done against the visible part of the headlines, it | |
| 651 | ignores hidden links. | |
| 652 | ||
| 653 | A non-nil value for INTERACTIVE? is used to signal that this | |
| 654 | function is being called interactively. | |
| 655 | ||
| 656 | (fn &optional WITH-CASE SORTING-TYPE GETKEY-FUNC COMPARE-FUNC INTERACTIVE\=\?) | |
| 657 | (defalias 'org-sort-list #[1280 "\203 \301\202 \302\303 \304!\305\306 #\307\306 #\206% \310\311!\210\312 \211\227\211\313U\205@ \206@ \203= \314\315!\206@ \316\317!\320U\203J \321\202r \313U\203a \206r \205r \314\322\323\"\202r \324U\203k \325\202r \326U\205r \321\310\327!\210\214}\210eb\210\330\331 \332\333\334\335\336\337!\340\"\341$\333\334\342\336\337\f\f\f %\343\"\344$\345 U?\330\n&\210\346 \210\347\350!\210\310\351!)\266\204)\207" [case-fold-search identity downcase org-list-struct org-list-prevs-alist org-list-get-list-begin point-at-bol org-list-get-list-end message "Sort plain list: [a]lpha [n]umeric [t]ime [f]unc [x]checked A/N/T/F/X means reversed:" read-char-exclusive 102 org-read-function "Function for extracting keys: " error "Missing key extractor" 97 string< "Function for comparing keys (empty for default `sort-subr' predicate): " allow-empty 116 < 120 "Sorting items..." nil current-time #[0 "\300\301w\210m\206\n \302 \207" [" \n" nil beginning-of-line] 2] make-byte-code 0 "\301`\300\"b\207" vconcat vector [org-list-get-item-end-before-blank] 3 "\306\307!\205\217 \302\310U\203 \311\312\313\225\314 {!!\207\302\315U\203& \300\312\313\225\314 {!!\207\302\316U\203X \317 \2037 \320\321\322!!\207\212\323 \314 \324#)\204N \212\323 \314 \324#)\203T \325\321\313!!\207\326\304!\207\302\327U\203m \321\322!;\203k \321\322!\206\217 \330\207\302\331U\203\213 \303\203\206 \303 \211;\203\204 \300!\202\205 \211\207\332\333\303\"\207\332\334\301\"\207" [org-ts-regexp looking-at "[ ]*[-+*0-9.)]+\\([ ]+\\[[- X]\\]\\)?[ ]+" 110 string-to-number org-sort-remove-invisible 0 point-at-eol 97 116 org-at-item-timer-p org-timer-hms-to-secs match-string 1 re-search-forward t org-time-string-to-seconds float-time 120 "" 102 error "Invalid key function `%s'" "Invalid sorting type `%c'" org-ts-regexp-both] 4 sort-subr org-list-repair run-hooks org-after-sorting-entries-or-items-hook "Sorting items...done"] 27 (#$ . 70484) (byte-code "\301\211\211\302\257\207" [current-prefix-arg nil t] 5)]) | |
| 658 | #@438 Convert headings or normal lines to items, items to normal lines. | |
| 659 | If there is no active region, only the current line is considered. | |
| 660 | ||
| 661 | If the first non blank line in the region is a headline, convert | |
| 662 | all headlines to items, shifting text accordingly. | |
| 663 | ||
| 664 | If it is an item, convert all items to normal lines. | |
| 665 | ||
| 666 | If it is normal text, change region into a list of items. | |
| 667 | With a prefix argument ARG, change the region in a single item. | |
| 668 | ||
| 669 | (fn ARG) | |
| 670 | (defalias 'org-toggle-item #[257 "\306\307\310\211\311 \203 \312 !\262\313\314 !\262\202$ \315 !\262\313\316 !\262\317\320 \211\321 P\212b\210\322 \203R `W\205\361\322 \203L \323\310w\210`\324\225|\210\310y\210\2028 \325 \203-\326\327 \330\324\331\332\333!\334\"\335$\216\f\203u \336\f\"\203u \337\202v \340\336\341\"\203\210 \342\310\211\343%\202\211 \262)\266\202\211G\212 \204\231 \324\202\246 \344 \204\242 \324\202\246 \345\324!G)\346\347 !`W\205(\346\347 !\324Z]\350 W\203\305 \262\310 9\351:!\210)`\335\224\206\326 \352 |\210c\210\353_\\!\210\211\203 \354 \355!\356\357 ;\235\203\375 \360\202\376 \361#\210\362\363!#\266\212\364 \206`)\310y\210 T _\\\n^\"\266\202\253 \266\204\202\361\203\230\326\327 \330\324\331\332\333!\334\"\335$\216\f\203O\336\f\"\203O\337\202P\340\336\341\"\203b\342\310\211\343%\202c\262)\266\202\211G\365 \323\310w\210c\210\310y\210`W\205\223\\\212\364 \206\211`)^\"\210\310y\210\202v\266\203\202\361`W\205\361\325 \204\353\322 \204\353\351\366!\203\353\342\367\326\327 \330\324\331\332\333!\334\"\335$\216\f\203\316\336\f\"\203\316\337\202\317\340\336\341\"\203\341\342\310\211\343%\202\342\262)\266\202\370Q!\210\310y\210\202\230-\207" [org-called-with-limited-levels org-outline-regexp outline-regexp org-outline-regexp-bol org-list-two-spaces-after-bullet-regexp org-adapt-indentation #[514 "\301\302!\212\3032? `W\205> \304 \305\306!\2047 \305!\2047 \211\307U\203. \310\303\307\211\262\"\210\2027 \211W\2037 \211\262\210\311y\210\202 0\210)Z`W\205c \305\306!\204] \305!\204] \312\304 \\!\210\311y\210\202D \262\207" [org-outline-regexp-bol 1000 copy-marker exit org-get-indentation looking-at "^[ ]*$" 0 throw nil indent-line-to] 9 "\n\n(fn IND END)"] #[257 "\212\211b\210\300\301w\210\302 )\207" [" \n" nil point-at-bol] 3 "\n\n(fn POS)"] nil org-region-active-p region-beginning copy-marker region-end point-at-bol point-at-eol t org-get-limited-outline-regexp "^" org-at-item-p " " 0 org-at-heading-p "-" match-data make-byte-code "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 string-match " " " " "\\S-+\\([ ]*\\)" replace-match 1 outline-previous-heading match-string org-reduced-level org-outline-level org-get-todo-state looking-at line-end-position indent-line-to org-list-struct copy-tree org-list-set-checkbox line-beginning-position "[X]" "[ ]" org-list-write-struct org-list-parents-alist outline-next-heading org-get-indentation "\\([ ]*\\)\\(\\S-\\)" "\\1" "\\2" case-fold-search org-todo-line-regexp org-done-keywords] 20 (#$ . 74028) "P"]) | |
| 671 | #@555 Parse the list at point and maybe DELETE it. | |
| 672 | ||
| 673 | Return a list whose car is a symbol of list type, among | |
| 674 | `ordered', `unordered' and `descriptive'. Then, each item is | |
| 675 | a list of strings and other sub-lists. | |
| 676 | ||
| 677 | For example, the following list: | |
| 678 | ||
| 679 | 1. first item | |
| 680 | + sub-item one | |
| 681 | + [X] sub-item two | |
| 682 | more text in first item | |
| 683 | 2. [@3] last item | |
| 684 | ||
| 685 | is parsed as | |
| 686 | ||
| 687 | (ordered | |
| 688 | ("first item" | |
| 689 | (unordered | |
| 690 | ("sub-item one") | |
| 691 | ("[X] sub-item two")) | |
| 692 | "more text in first item") | |
| 693 | ("[@3] last item")) | |
| 694 | ||
| 695 | Point is left at list's end. | |
| 696 | ||
| 697 | (fn &optional DELETE) | |
| 698 | (defalias 'org-list-to-lisp #[256 "\301C\301C\301C\301\211\211C\301C\301C\302 \240\210\303 \242!\240\210\304 \242!\240\210\305\242!\262\306\242!\262\307\240\210\310\311\312\313\314 #\315\"\316\317%\240\210\211\310\311\320\313\314 %\321\"\322\317%\240\210\242\323\n\242\n\242#!b\210 \203\214 |\210\324\325!\204\214 \324!\203\214 \326\327!\210\207" [org-list-end-re nil org-list-struct org-list-prevs-alist org-list-parents-alist org-list-get-top-point org-list-get-bottom-point #[257 "\301\302\303\304\305#)\266\203\203 \306\307O\202 !\207" [inhibit-changing-match-data org-remove-indentation "\n\\'" nil t string-match 0 -1] 9 "\n\n(fn TEXT)"] make-byte-code 257 "\303@\300\242\301\242#\304\302\242\"B\207" vconcat vector [org-list-get-list-type mapcar] 5 "\n\n(fn E)" "\305\300\242\"\306\300\242\302\242#\212b\210\307\310!\210\303\242\311\312\313\314!!\315\"\316\314\225@\206' \"P!)C\203n @\317\300\242\301\242#\320!@\304\242!B\262\211>A\262\305\300\242\"@\206W U\204i \303\242\316\"!B\262\266\202, \211\237\207" [org-list-get-item-end org-list-get-children looking-at "[ ]*\\S-+[ ]*" make-string string-width match-string 0 32 buffer-substring-no-properties org-list-get-all-items last] 13 org-list-get-all-items looking-at "[ ]*$" replace-match ""] 20 (#$ . 77107)]) | |
| 699 | #@49 Convert the plain list at point into a subtree. | |
| 700 | (defalias 'org-list-make-subtree #[0 "\3001 \301 b0\202 \210\302\204 \303\304!\207\212\305\306!)\307!c\207" [(error) org-in-item-p nil error "Not in a list" org-list-to-lisp t org-list-to-subtree] 3 (#$ . 79016) nil]) | |
| 701 | #@63 Insert a radio list template appropriate for this major mode. | |
| 702 | (defalias 'org-list-insert-radio-list #[0 "\302\303\"\211A@\304\211\204 \305\306 \"\210\307\310!\262\311\312\"\203* \313\314\211$\262\202 n\2041 \315c\210`\262c\210\211b\207" [org-list-radio-list-templates major-mode cl-assoc-if derived-mode-p nil error "No radio list setup defined for %s" read-string "List name: " string-match "%n" replace-match t "\n"] 9 (#$ . 79292) nil]) | |
| 703 | #@170 Send a transformed version of this list to the receiver position. | |
| 704 | With argument MAYBE, fail quietly if no transformation is defined | |
| 705 | for this list. | |
| 706 | ||
| 707 | (fn &optional MAYBE) | |
| 708 | (defalias 'org-list-send-list #[256 "\3012\305 \302 \204 \303\304!\210\212\305\306\307\310\305#\210\311\312!\204, \211\203( \313\301\310\"\210\202, \303\314!\210*\315\316\317!!\320\316\321!!\212\322\323\310\305#\210\324\224)\306\325\310\305#\210\322\326\327 P\305#\210\324\224\212\211b\210\330 )\331!\204d \303\332\"\210!\212eb\210\324\333\334\"\333\335 \"\322\310\305#\203\242 T\262\336\321!\322\310\305#\204\222 \337\340\"\210\341 \210\211`|\210\342\261\266\202v \317V\203\256 \343\344!\202\275 \317U\203\272 \343\345!\202\275 \337\346!\266\203)\262\266\2050\207" [case-fold-search exit org-at-item-p error "Not at a list item" t re-search-backward "^[ ]*#\\+ORGLST:" nil looking-at "[ ]*#\\+ORGLST:[ ]+SEND[ ]+\\(\\S-+\\)[ ]+\\([^ \n]+\\)" throw "Don't know how to transform this list" regexp-quote match-string 1 intern 2 re-search-forward "\\(\\\\end{comment}\\|@end ignore\\|-->\\)" 0 "#\\+ORGLST" "^" org-item-re org-list-to-lisp fboundp "No such transformation function %s" format "BEGIN +RECEIVE +ORGLST +%s\\([ ]\\|$\\)" "END +RECEIVE +ORGLST +%s\\([ ]\\|$\\)" line-beginning-position user-error "Cannot find end of receiver location at %d" beginning-of-line "\n" message "List converted and installed at receiver locations" "List converted and installed at receiver location" "No valid receiver location found"] 15 (#$ . 79751) nil]) | |
| 709 | #@2387 Convert a LIST parsed through `org-list-to-lisp' to a custom format. | |
| 710 | ||
| 711 | LIST is a list as returned by `org-list-to-lisp', which see. | |
| 712 | PARAMS is a property list of parameters used to tweak the output | |
| 713 | format. | |
| 714 | ||
| 715 | Valid parameters are: | |
| 716 | ||
| 717 | :backend, :raw | |
| 718 | ||
| 719 | Export back-end used as a basis to transcode elements of the | |
| 720 | list, when no specific parameter applies to it. It is also | |
| 721 | used to translate its contents. You can prevent this by | |
| 722 | setting :raw property to a non-nil value. | |
| 723 | ||
| 724 | :splice | |
| 725 | ||
| 726 | When non-nil, only export the contents of the top most plain | |
| 727 | list, effectively ignoring its opening and closing lines. | |
| 728 | ||
| 729 | :ustart, :uend | |
| 730 | ||
| 731 | Strings to start and end an unordered list. They can also be | |
| 732 | set to a function returning a string or nil, which will be | |
| 733 | called with the depth of the list, counting from 1. | |
| 734 | ||
| 735 | :ostart, :oend | |
| 736 | ||
| 737 | Strings to start and end an ordered list. They can also be set | |
| 738 | to a function returning a string or nil, which will be called | |
| 739 | with the depth of the list, counting from 1. | |
| 740 | ||
| 741 | :dstart, :dend | |
| 742 | ||
| 743 | Strings to start and end a descriptive list. They can also be | |
| 744 | set to a function returning a string or nil, which will be | |
| 745 | called with the depth of the list, counting from 1. | |
| 746 | ||
| 747 | :dtstart, :dtend, :ddstart, :ddend | |
| 748 | ||
| 749 | Strings to start and end a descriptive term. | |
| 750 | ||
| 751 | :istart, :iend | |
| 752 | ||
| 753 | Strings to start or end a list item, and to start a list item | |
| 754 | with a counter. They can also be set to a function returning | |
| 755 | a string or nil, which will be called with two arguments: the | |
| 756 | type of list and the depth of the item, counting from 1. | |
| 757 | ||
| 758 | :icount | |
| 759 | ||
| 760 | Strings to start a list item with a counter. It can also be | |
| 761 | set to a function returning a string or nil, which will be | |
| 762 | called with three arguments: the type of list, the depth of the | |
| 763 | item, counting from 1, and the counter. Its value, when | |
| 764 | non-nil, has precedence over `:istart'. | |
| 765 | ||
| 766 | :isep | |
| 767 | ||
| 768 | String used to separate items. It can also be set to | |
| 769 | a function returning a string or nil, which will be called with | |
| 770 | two arguments: the type of list and the depth of the item, | |
| 771 | counting from 1. It always start on a new line. | |
| 772 | ||
| 773 | :ifmt | |
| 774 | ||
| 775 | Function to be applied to the contents of every item. It is | |
| 776 | called with two arguments: the type of list and the contents. | |
| 777 | ||
| 778 | :cbon, :cboff, :cbtrans | |
| 779 | ||
| 780 | String to insert, respectively, an un-checked check-box, | |
| 781 | a checked check-box and a check-box in transitional state. | |
| 782 | ||
| 783 | (fn LIST PARAMS) | |
| 784 | (defalias 'org-list-to-generic #[514 "\302\303!\210\304\305\"\306\307\206 \310\311\312\313!B\314\315!B\316BB$\317\211\320\321!r\211q\210\322\323\324\325\326!\327\"\330$\216\331\332 \210)\317C\317C\322\333\334\325\326!\335\"\336\337%\240\210\211\322\340\341\325\326!\342\"\343\344%\240\210\242 !\266\345\346 \312\347\317\331%\262\350\317#\262*\210\203\215 9\203\215 \351!\204\215 \352\353!\210\204\225 \302\354!\210\203\246 \304\355\"\203\246 \345 \356#\210\357#\360!\203\271 \361\323\362#\202\272 \363\262\207" [org-inhibit-startup org-element-all-objects require ox plist-get :backend org-export-create-backend :parent org :transcoders plain-list org-list--to-generic-plain-list item org-list--to-generic-item ((macro lambda (m c i) (org-element-macro-interpreter m nil))) nil generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 t org-mode 257 "\211A\211\205 \211@\300\242@\"\210A\266\202\202 \207" [] 6 "\n\n(fn L)" 514 "`\302=\203 \303\202\f \304c\210\211\203/ \211@\211:\203\" \300\242!\210\202( \211c\210\305c\210A\266\202\202 \210\306 \210\212\302=\203> \307\202? \310`V\205Z \311\312\313!)\262\204T \211j\210\314y\210\202? \262)\207" [inhibit-changing-match-data ordered "1. " "- " "\n" beginning-of-line 3 2 "[ ]*$" t looking-at -1] 7 "\n\n(fn I TYPE)" org-element-map org-element-parse-buffer identity org-export-get-environment org-export-get-backend user-error "Unknown :backend value" ox-org :raw #[257 "\300\301!\"\207" [org-element-set-element org-element-interpret-data] 5 "\n\n(fn OBJECT)"] org-export-data-with-backend org-string-nw-p substring-no-properties -1 ""] 16 (#$ . 81302)]) | |
| 785 | #@113 Return the level of ELEMENT within current plain list. | |
| 786 | ELEMENT is either an item or a plain list. | |
| 787 | ||
| 788 | (fn ELEMENT) | |
| 789 | (defalias 'org-list--depth #[257 "\300\301\302\303\304#\"\207" [cl-count-if #[257 "\300!\301=\207" [org-element-type plain-list] 3 "\n\n(fn ANCESTOR)"] org-element-lineage nil t] 7 (#$ . 85420)]) | |
| 790 | #@64 Return the number of trailing newlines in STRING. | |
| 791 | ||
| 792 | (fn STRING) | |
| 793 | (defalias 'org-list--trailing-newlines #[257 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216c\210\311\312x\210\313\314\310!d\"*\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 " \n" nil count-lines line-beginning-position] 8 (#$ . 85736)]) | |
| 794 | #@162 Evaluate VALUE according to its type. | |
| 795 | VALUE is either nil, a string or a function. In the latter case, | |
| 796 | it is called with arguments ARGS. | |
| 797 | ||
| 798 | (fn VALUE &rest ARGS) | |
| 799 | (defalias 'org-list--generic-eval #[385 "\204 \300\207;\203 \207\301!\203 \302\"\207\303\304\"\207" [nil functionp apply error "Wrong value: %s"] 5 (#$ . 86137)]) | |
| 800 | #@125 Return a transcoder for `plain-list' elements. | |
| 801 | PARAMS is a plist used to tweak the behavior of the transcoder. | |
| 802 | ||
| 803 | (fn PARAMS) | |
| 804 | (defalias 'org-list--to-generic-plain-list #[257 "\300\301\"\300\302\"\300\303\"\300\304\"\300\305\"\300\306\"\300\307\"\300\310\"\311\312\313\314\315\f\f\f\f\f\f\f\f&\316\"\317\320%\207" [plist-get :ustart :uend :ostart :oend :dstart :dend :splice :backend make-byte-code 771 "\310\311\"\312!\306?\205 \313\314\267\202 \302\202 \300\202 \304\"\306?\2055 \313\315\267\2022 \303\2023 \301\2023 \305\"\211\203B \316\317\320!#\210\205I \321P\204Y \204Y \306\204Y \307\204^ \202g \322\307 $Q\207" vconcat vector [org-element-property :type org-list--depth org-list--generic-eval #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (ordered 19 unordered 23)) #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (ordered 42 unordered 46)) org-element-put-property :post-blank org-list--trailing-newlines "\n" org-export-with-backend] 13 "\n\n(fn PLAIN-LIST CONTENTS INFO)"] 22 (#$ . 86478)]) | |
| 805 | #@119 Return a transcoder for `item' elements. | |
| 806 | PARAMS is a plist used to tweak the behavior of the transcoder. | |
| 807 | ||
| 808 | (fn PARAMS) | |
| 809 | (defalias 'org-list--to-generic-item #[257 "\300\301\"\300\302\"\300\303\"\300\304\"\300\305\"\300\306\"\300\307\"\300\310\"\300 \311\"\300\n\312\"\300 \313\"\300\f\314\"\300 \315\"\316\317\320\321\322& \323\"\324\325%\207" [plist-get :backend :istart :iend :isep :icount :ifmt :cboff :cbon :cbtrans :dtstart :dtend :ddstart :ddend make-byte-code 771 "\315\316\315\317\"\"\315\320\"\321!\322\"\205 \323\303#\323\302#\211\324\235\203+ \325\202I \203E \211\211\326\327O\325\232\203= \211\202@ \211\325P\262\202I \211\211\262\262\206P \211\211\203` \330 \331\332!S\333]#\210\210\315\334 \"\211\203y \304\203y \323\304$\202\200 \323\301#\262\301\204\270 \302\204\270 \304\204\270 \305\204\270 \307\204\270 \306\204\270 \310\204\270 \300\203\270 \335=\203 \311\204\270 \312\204\270 \313\204\270 \314\203 \315\336\n\"\211\337\267\202\317 \307\202\320 \306\202\320 \310\202\320 \327\262\205\353 \311\300\203\345 \340\300 #\202\351 \341!\312Q\205\361 \313\nG\333U\203\375 \342\202\n\333\326O\305\203\323\305 #\202\211\262\205\314\260\202&\343\300\n\n\n$\211\342\232\2030\342\2026\344!\333\326O\262R\207" vconcat vector [org-element-property :type :parent :tag org-list--depth org-export-get-next-element org-list--generic-eval (#1="" nil) "\n" -1 nil org-element-put-property :post-blank org-list--trailing-newlines 0 :counter descriptive :checkbox #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (on 195 off 199 trans 203)) org-export-data-with-backend org-element-interpret-data #1# org-export-with-backend org-element-normalize-string] 17 "\n\n(fn ITEM CONTENTS INFO)"] 32 (#$ . 87606)]) | |
| 810 | #@241 Convert LIST into a LaTeX list. | |
| 811 | LIST is a parsed plain list, as returned by `org-list-to-lisp'. | |
| 812 | PARAMS is a property list with overruling parameters for | |
| 813 | `org-list-to-generic'. Return converted list as a string. | |
| 814 | ||
| 815 | (fn LIST &optional PARAMS) | |
| 816 | (defalias 'org-list-to-latex #[513 "\300\301!\210\302\303\304\"\"\207" [require ox-latex org-list-to-generic org-combine-plists (:backend latex)] 7 (#$ . 89462)]) | |
| 817 | #@240 Convert LIST into a HTML list. | |
| 818 | LIST is a parsed plain list, as returned by `org-list-to-lisp'. | |
| 819 | PARAMS is a property list with overruling parameters for | |
| 820 | `org-list-to-generic'. Return converted list as a string. | |
| 821 | ||
| 822 | (fn LIST &optional PARAMS) | |
| 823 | (defalias 'org-list-to-html #[513 "\300\301!\210\302\303\304\"\"\207" [require ox-html org-list-to-generic org-combine-plists (:backend html)] 7 (#$ . 89874)]) | |
| 824 | #@243 Convert LIST into a Texinfo list. | |
| 825 | LIST is a parsed plain list, as returned by `org-list-to-lisp'. | |
| 826 | PARAMS is a property list with overruling parameters for | |
| 827 | `org-list-to-generic'. Return converted list as a string. | |
| 828 | ||
| 829 | (fn LIST &optional PARAMS) | |
| 830 | (defalias 'org-list-to-texinfo #[513 "\300\301!\210\302\303\304\"\"\207" [require ox-texinfo org-list-to-generic org-combine-plists (:backend texinfo)] 7 (#$ . 90282)]) | |
| 831 | #@193 Convert LIST into an Org plain list. | |
| 832 | LIST is as returned by `org-list-parse-list'. PARAMS is a property list | |
| 833 | with overruling parameters for `org-list-to-generic'. | |
| 834 | ||
| 835 | (fn LIST &optional PARAMS) | |
| 836 | (defalias 'org-list-to-org #[513 "\300\301\302\303\304\305\306\307\310\311\312\313\314\257\315\316\"\"\207" [#[770 "\300=\203\n \301\202 \302\205 \303\304\"P\207" [ordered "1. " "- " format "[@%d] "] 7 "\n\n(fn TYPE DEPTH &optional C)"] :istart :icount :ifmt #[514 "\300\301\302#\207" [replace-regexp-in-string "\n" "\n "] 6 "\n\n(fn TYPE CONTENTS)"] :dtend " :: " :cbon "[X] " :cboff "[ ] " :cbtrans "[-] " org-list-to-generic org-combine-plists] 17 (#$ . 90702)]) | |
| 837 | #@187 Convert LIST into an Org subtree. | |
| 838 | LIST is as returned by `org-list-to-lisp'. PARAMS is a property | |
| 839 | list with overruling parameters for `org-list-to-generic'. | |
| 840 | ||
| 841 | (fn LIST &optional PARAMS) | |
| 842 | (defalias 'org-list-to-subtree #[513 "\305\236A\211\306\267\202$ \307\202% \212\307\310 \211\311\nP \312 \210,\313 )\202% \314\262\315\316 \206. \317!\320\321\322\323\324!\325\"\326\327%\330\331\332\307\333\334\335\336\337\336\340\203T \341\202U \342\343\344\345\346\347\346\257\"\"\207" [org-blank-before-new-entry org-called-with-limited-levels org-outline-regexp outline-regexp org-outline-regexp-bol heading #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (t 10 auto 14)) t org-get-limited-outline-regexp "^" outline-previous-heading org-previous-line-empty-p nil org-reduced-level org-current-level 0 make-byte-code 770 "\300\\\302 \203 \303_S\202 \304\"\305P\207" vconcat vector [org-odd-levels-only make-string 2 42 " "] 7 "\n\n(fn TYPE DEPTH &optional COUNT)" org-list-to-generic org-combine-plists :splice :istart :icount :dtstart " " :dtend :isep "\n\n" "\n" :cbon "DONE " :cboff "TODO " :cbtrans] 27 (#$ . 91381)]) | |
| 843 | (provide 'org-list) | |
