| 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\302\303\304\305\306\307\310\311&\210\312\313\314\315\316DD\317\310\303\320\321&\210\312\322\314\315\323DD\324\306\307\310\311\320\325& \210\312\326\314\315\327DD\330\310\303\331\332\320\333& \207" [require org custom-declare-group org-inlinetask nil "Options concerning inline tasks in Org mode." :tag "Org Inline Tasks" :group org-structure custom-declare-variable org-inlinetask-min-level funcall function #[0 "\300\207" [15] 1] "Minimum level a headline must have before it is treated as an inline task.\nDon't set it to something higher than `29' or clocking will break since this\nis the hardcoded maximum number of stars `org-clock-sum' will work with.\n\nIt is strongly recommended that you set `org-cycle-max-level' not at all,\nor to a number smaller than this one. In fact, when `org-cycle-max-level' is\nnot set, it will be assumed to be one less than the value of smaller than\nthe value of this variable." :type (choice (const :tag "Off" nil) (integer)) org-inlinetask-show-first-star #[0 "\300\207" [nil] 1] "Non-nil means display the first star of an inline task as additional marker.\nWhen nil, the first star is not shown." boolean org-inlinetask-default-state #[0 "\300\207" [nil] 1] "Non-nil means make inline tasks have a TODO keyword initially.\nThis should be the state `org-inlinetask-insert-task' should use by\ndefault, or nil if no state should be assigned." :version "24.1" (choice (const :tag "No state" nil) (string :tag "Specific state"))] 10) | |
| 16 | #@119 Insert an inline task. | |
| 17 | If prefix arg NO-STATE is set, ignore `org-inlinetask-default-state'. | |
| 18 | ||
| 19 | (fn &optional NO-STATE) | |
| 20 | (defalias 'org-inlinetask-insert-task #[256 "\303 \203 \304 \203 n\204 \305\306!\210n\204 \307 \210\203$ \310_S\202% \311\312\"\313P\211\2044 \n\2048 \314\202; \n\315P\316\261\266\317\207" [org-odd-levels-only org-inlinetask-min-level org-inlinetask-default-state org-inlinetask-in-task-p org-inlinetask-at-task-p error "Cannot nest inline tasks" newline 2 make-string 42 " " "\n" " \n" "END\n" -1] 7 (#$ . 1912) "P"]) | |
| 21 | (define-key org-mode-map "t" 'org-inlinetask-insert-task) | |
| 22 | #@114 Return string matching an inline task heading. | |
| 23 | The number of levels is controlled by `org-inlinetask-min-level'. | |
| 24 | (defalias 'org-inlinetask-outline-regexp #[0 "\203 \302_S\202\f \303\304\"\207" [org-odd-levels-only org-inlinetask-min-level 2 format "^\\(\\*\\{%d,\\}\\)[ ]+"] 4 (#$ . 2529)]) | |
| 25 | #@63 Return a non-nil value if point is on inline task's END part. | |
| 26 | (defalias 'org-inlinetask-end-p #[0 "\301\302\303 \304P!)\207" [case-fold-search t org-match-line org-inlinetask-outline-regexp "END[ ]*$"] 3 (#$ . 2832)]) | |
| 27 | #@60 Return non-nil if point is at beginning of an inline task. | |
| 28 | (defalias 'org-inlinetask-at-task-p #[0 "\300\301 \302P!\205\f \303 ?\207" [org-match-line org-inlinetask-outline-regexp "\\(.*\\)" org-inlinetask-end-p] 3 (#$ . 3058)]) | |
| 29 | #@48 Return true if point is inside an inline task. | |
| 30 | (defalias 'org-inlinetask-in-task-p #[0 "\212\302 \210\303\304 \305P\303\306!)\262\206 \307\310\311\303#\205 \312 *\207" [case-fold-search inhibit-changing-match-data beginning-of-line t org-inlinetask-outline-regexp "\\(?:.*\\)" looking-at re-search-forward "^\\*+[ ]+" nil org-inlinetask-end-p] 4 (#$ . 3293)]) | |
| 31 | #@50 Go to the beginning of the inline task at point. | |
| 32 | (defalias 'org-inlinetask-goto-beginning #[0 "\301\210\302\303 \304\301\302#\210\305 \205 \304\301\302#)\207" [case-fold-search nil t org-inlinetask-outline-regexp re-search-backward org-inlinetask-end-p] 6 (#$ . 3666)]) | |
| 33 | #@62 Go to the end of the inline task at point. | |
| 34 | Return point. | |
| 35 | (defalias 'org-inlinetask-goto-end #[0 "\302 \303\304\305\306\307!\310\"\311$\216\312 \210\313\314 \315 \203! \316y\210\202a \211\313\317!)\262\203X \316y\210\315 \203; \316y\210\202a \211\313\317!)\262\204a \320 \203a \321\316\313#\210\316y\210\202a \321\316\313#\210\316y\210)\266)\210`\207" [case-fold-search inhibit-changing-match-data match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 beginning-of-line t org-inlinetask-outline-regexp org-inlinetask-end-p nil looking-at org-inlinetask-in-task-p re-search-forward] 7 (#$ . 3948)]) | |
| 36 | #@91 Get the level of the inline task around. | |
| 37 | This assumes the point is inside an inline task. | |
| 38 | (defalias 'org-inlinetask-get-task-level #[0 "\212\300\210\301\302 \300\303#\210\304\225\304\224Z)\207" [nil re-search-backward org-inlinetask-outline-regexp t 1] 4 (#$ . 4606)]) | |
| 39 | #@143 Promote the inline task at point. | |
| 40 | If the task has an end part, promote it. Also, prevents level from | |
| 41 | going below `org-inlinetask-min-level'. | |
| 42 | (defalias 'org-inlinetask-promote #[0 "\302 \204 \303\304!\207\212\305 \306\307\"\211Z\310\311\"\260\312W\203& \303\313!\202] \314 \210`\262\315\312\316\312\317%\210\320 \210m\203A \321 \210\202D \307y\210`U?\205] \315\312\316\312\317%\210 \205] \211b\210\322!\266\205)\207" [org-inlinetask-min-level org-adapt-indentation org-inlinetask-in-task-p error "Not in an inline task" org-inlinetask-get-task-level org-get-valid-level -1 make-string 42 nil "Cannot promote an inline task at minimum level" org-inlinetask-goto-beginning replace-match t 1 org-inlinetask-goto-end beginning-of-line org-fixup-indentation] 11 (#$ . 4883) nil]) | |
| 43 | #@79 Demote the inline task at point. | |
| 44 | If the task has an end part, also demote it. | |
| 45 | (defalias 'org-inlinetask-demote #[0 "\301 \204 \302\303!\207\212\304 \305\306\"\211Z\307\310\"\260\311\312 \210`\262\313\311\314\311\306%\210\315 \210m\2035 \316 \210\2028 \317y\210`U?\205Q \313\311\314\311\306%\210\205Q \211b\210\320!\266\205)\207" [org-adapt-indentation org-inlinetask-in-task-p error "Not in an inline task" org-inlinetask-get-task-level org-get-valid-level 1 make-string 42 nil org-inlinetask-goto-beginning replace-match t org-inlinetask-goto-end beginning-of-line -1 org-fixup-indentation] 11 (#$ . 5676) nil]) | |
| 46 | #@64 Get the indentation of the last non-while line above this one. | |
| 47 | (defalias 'org-inlinetask-get-current-indentation #[0 "\212\300\301!\210\302\303x\210\300\301!\210\304 \204 \305\306!\210\307\225b\210i)\207" [beginning-of-line 1 " \n" nil org-at-item-p looking-at "[ ]*" 0] 2 (#$ . 6306)]) | |
| 48 | (custom-declare-face 'org-inlinetask '((t :inherit shadow)) "Face for inlinetask headlines." :group 'org-faces) | |
| 49 | #@53 Fontify the inline tasks down to LIMIT. | |
| 50 | ||
| 51 | (fn LIMIT) | |
| 52 | (defalias 'org-inlinetask-fontify #[257 "\203 \206 \305\306_S\202 \206 \305\307\310\311\312Z\"\313Q\314\302!\2031 \n\2031 \315V\2031 \316\2022 \317\320\321#\205e \f\203J \322\315\224\315\225\323\324BB#\210\322\f\203S \306\202T \315\224\306\225\325#\210\322\312\224\312\225\326#\210\2022 \207" [org-odd-levels-only org-inlinetask-min-level org-indent-mode org-indent-indentation-per-level org-inlinetask-show-first-star 200 2 "^\\(\\*\\)\\(\\*\\{" format "%d" 3 ",\\}\\)\\(\\*\\* .*\\)" boundp 1 org-hide org-warning re-search-forward t add-text-properties face (font-lock-fontified t) (face org-hide font-lock-fontified t) (face org-inlinetask font-lock-fontified t)] 10 (#$ . 6714)]) | |
| 53 | #@44 Toggle visibility of inline task at point. | |
| 54 | (defalias 'org-inlinetask-toggle-visibility #[0 "\212\300 \210n\203 `S\202 `)\212\301 \210\302 )U\2067 \303T\304\"\305=\2032 \306\307#\210\310\311!\2027 \306\312#\207" [org-inlinetask-goto-end org-inlinetask-goto-beginning point-at-eol get-char-property invisible outline outline-flag-region nil org-cycle-hide-drawers children t] 6 (#$ . 7469)]) | |
| 55 | #@136 Hide inline tasks in buffer when STATE is `contents' or `children'. | |
| 56 | This function is meant to be used in `org-cycle-hook'. | |
| 57 | ||
| 58 | (fn STATE) | |
| 59 | (defalias 'org-inlinetask-hide-tasks #[257 "\211\300\267\202: \301 \212eb\210\302\303\304#\205 \305 \210\306 \210\202\f )\207\212\307 \204/ \310 \2058 \307 \2058 \305 \210\306 \210\202 )\207\303\207" [#s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (contents 6 children 31)) org-inlinetask-outline-regexp re-search-forward nil t org-inlinetask-toggle-visibility org-inlinetask-goto-end org-inlinetask-at-task-p outline-next-heading] 6 (#$ . 7875)]) | |
| 60 | #@34 Remove an END line when present. | |
| 61 | (defalias 'org-inlinetask-remove-END-maybe #[0 "\301\302\303\"!\205\f \304\305!\207" [org-inlinetask-min-level looking-at format "\\([ ]*\n\\)*\\*\\{%d,\\}[ ]+END[ ]*$" replace-match ""] 4 (#$ . 8505)]) | |
| 62 | (byte-code "\300\301\302\"\210\300\303\304\"\210\305\306!\207" [add-hook org-font-lock-hook org-inlinetask-fontify org-cycle-hook org-inlinetask-hide-tasks provide org-inlinetask] 3) | |
