ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/org/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/org/org-inlinetask.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\210\312\313\314\315\310\303\316\317&\210\312\320\304\321\306\307\310\311\316\322& \210\312\323\304\324\310\303\325\326\316\327& \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 15 "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 "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 "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 of no state should be assigned." :version "24.1" (choice (const :tag "No state" nil) (string :tag "Specific state"))] 10)
#@94 Insert an inline task.
If prefix arg NO-STATE is set, ignore `org-inlinetask-default-state'.
(defalias 'org-inlinetask-insert-task #[(&optional no-state) "\306 \203 \307 \203 n\204 \310\311!\210n\204 \312 \210\203$ \313_S\202% \314\n\315\"\316P\211\f\2046
\204: \317\202=
\320P \321\261\210*\322\207" [org-odd-levels-only org-inlinetask-min-level indent indent-string no-state 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] 5 (#$ . 1798) "P"])
(define-key org-mode-map "t" 'org-inlinetask-insert-task)
#@114 Return string matching an inline task heading.
The number of levels is controlled by `org-inlinetask-min-level'.
(defalias 'org-inlinetask-outline-regexp #[nil "\203 \303_S\202\f \304\305\n\")\207" [org-odd-levels-only org-inlinetask-min-level nstars 2 format "^\\(\\*\\{%d,\\}\\)[ ]+"] 3 (#$ . 2439)])
#@57 Return true if point is at beginning of an inline task.
(defalias 'org-inlinetask-at-task-p #[nil "\212\300 \210\301\302 \303P!\205 \304\305\306\307!\227\"?)\207" [beginning-of-line looking-at org-inlinetask-outline-regexp "\\(.*\\)" string-match "^end[ ]*$" match-string 2] 4 (#$ . 2754)])
#@48 Return true if point is inside an inline task.
(defalias 'org-inlinetask-in-task-p #[nil "\212\305 \210\306\307 \211\310P \311P\n\306 \312!)\262\2061 \313\314\315\306#\2051 \305 \210 \306 \312!)\262-\207" [case-fold-search stars-re task-beg-re task-end-re inhibit-changing-match-data beginning-of-line t org-inlinetask-outline-regexp "\\(?:.*\\)" "END[ ]*$" looking-at re-search-forward "^\\*+[ ]+" nil] 5 (#$ . 3053)])
#@50 Go to the beginning of the inline task at point.
(defalias 'org-inlinetask-goto-beginning #[nil "\303\210\304\305 \306\303\304#\210\307P\304\310!)\262\205! \306\303\304#*\207" [inlinetask-re case-fold-search inhibit-changing-match-data nil t org-inlinetask-outline-regexp re-search-backward "END[ ]*$" looking-at] 4 (#$ . 3489)])
#@58 Go to the end of the inline task at point.
Return point.
(defalias 'org-inlinetask-goto-end #[nil "\304 \305\216\306 \210\307\310 \211\311P\312 !\203 \313y\210\202R \312\n!\203I \313y\210\312 !\2032 \313y\210\202R \312\n!\204R \314 \203R \315\n\313\307#\210\313y\210\202R \315\n\313\307#\210\313y\210`-\207" [save-match-data-internal case-fold-search inlinetask-re task-end-re match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] beginning-of-line t org-inlinetask-outline-regexp "END[ ]*$" looking-at nil org-inlinetask-in-task-p re-search-forward] 5 (#$ . 3835)])
#@91 Get the level of the inline task around.
This assumes the point is inside an inline task.
(defalias 'org-inlinetask-get-task-level #[nil "\212\300\210\301\302 \300\303#\210\304\225\304\224Z)\207" [nil re-search-backward org-inlinetask-outline-regexp t 1] 4 (#$ . 4450)])
#@143 Promote the inline task at point.
If the task has an end part, promote it. Also, prevents level from
going below `org-inlinetask-min-level'.
(defalias 'org-inlinetask-promote #[nil "\306 \204 \307\310!\207\212\311 \312\313\"\211Z\314 \315\"\260\316
W\203+ \307\317!\202b \320 \210`\321 \316\322\316\323%\210\324 \210m\203E \325 \210\202H \313y\210`\fU?\205b \321 \316\322\316\323%\210\205b \fb\210\326\n!.\207" [lvl next-lvl diff down-task beg org-inlinetask-min-level 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 org-adapt-indentation] 7 (#$ . 4729) nil])
#@79 Demote the inline task at point.
If the task has an end part, also demote it.
(defalias 'org-inlinetask-demote #[nil "\306 \204 \307\310!\207\212\311 \312\313\"\211Z\314 \315\"\260\316 \317 \210`\320 \316\321\316\313%\210\322 \210m\2039 \323 \210\202< \324y\210`\fU?\205U \320 \316\321\316\313%\210
\205U \fb\210\325\n!.\207" [lvl next-lvl diff down-task beg 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] 7 (#$ . 5550) nil])
#@64 Get the indentation of the last non-while line above this one.
(defalias 'org-inlinetask-get-current-indentation #[nil "\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 (#$ . 6207)])
(byte-code "\300\301\302\303\304\"\305\306\307%\207" [custom-declare-face org-inlinetask org-compatible-face shadow ((t (:bold t))) "Face for inlinetask headlines." :group org-faces] 6)
#@41 Fontify the inline tasks down to LIMIT.
(defalias 'org-inlinetask-fontify #[(limit) "\203 \206 \306\307_S\202 \206 \306\310\311\312\n\313Z\"\314Q\315\304!\2033 \f\2033
\316V\2033 \317\2024 \320 \321 \322#\205m \203Q \323\316\224\316\225\324\325BB#\210\323\203[ \307\202\\ \316\224\307\225\326#\210\323\313\224\313\225\327#\210\2026 +\207" [org-odd-levels-only org-inlinetask-min-level nstars re org-indent-mode org-indent-indentation-per-level 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) start-face limit org-inlinetask-show-first-star] 6 (#$ . 6691)])
#@44 Toggle visibility of inline task at point.
(defalias 'org-inlinetask-toggle-visibility #[nil "\212\302 \210n\203
`S\202 `)\212\303 \210\304 )\211U\2067 \305T\306\"\2032 \307 \310#\210\311\312!\2027 \307 \313#*\207" [start end org-inlinetask-goto-end org-inlinetask-goto-beginning point-at-eol get-char-property invisible outline-flag-region nil org-cycle-hide-drawers children t] 5 (#$ . 7473)])
#@34 Remove an END line when present.
(defalias 'org-inlinetask-remove-END-maybe #[nil "\301\302\303\"!\205\f \304\305!\207" [org-inlinetask-min-level looking-at format "\\([ ]*\n\\)*\\*\\{%d,\\}[ ]+END[ ]*$" replace-match ""] 4 (#$ . 7883)])
(byte-code "\300\301\302\"\210\303\304!\207" [eval-after-load "org" #[nil "\300\301\302\"\207" [add-hook org-font-lock-hook org-inlinetask-fontify] 3] provide org-inlinetask] 3)
Kontol Shell Bypass