ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/org/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/org/org-habit.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\300\302!\210\303\304\305\306\307\310\311\312&\210\313\314\315\316\311\304\317\320&\210\313\321\322\323\311\304\317\320&\210\313\324\325\326\311\304\317\320&\210\313\327\330\331\311\304\317\332&\210\313\333\330\334\311\304\317\332&\210\313\335\305\336\311\304\317\332&\210\313\337\340\341\311\304\342\343\317\344& \210\313\345\346\347\311\304\342\343\317\344& \210\313\350\305\351\311\304\317\332&\210\352\353\354\355\311\304\311\356&\210\352\357\360\361\311\304\311\356&\210\352\362\363\364\311\304\311\356&\210\352\365\366\364\311\304\311\356&\210\352\367\370\371\311\304\311\356&\210\352\372\373\371\311\304\311\356&\210\352\374\375\376\311\304\311\356&\210\352\377\201@ \376\311\304\311\356&\207" [require org org-agenda custom-declare-group org-habit nil "Options concerning habit tracking in Org-mode." :tag "Org Habit" :group org-progress custom-declare-variable org-habit-graph-column 40 "The absolute column at which to insert habit consistency graphs.\nNote that consistency graphs will overwrite anything else in the buffer." :type integer org-habit-preceding-days 21 "Number of days before today to appear in consistency graphs." org-habit-following-days 7 "Number of days after today to appear in consistency graphs." org-habit-show-habits t "If non-nil, show habits in agenda buffers." boolean org-habit-show-habits-only-for-today "If non-nil, only show habits on today's agenda, and not for future days.\nNote that even when shown for future days, the graph is always\nrelative to the current effective date." org-habit-show-all-today "If non-nil, will show the consistency graph of all habits on\ntoday's agenda, even if they are not scheduled." org-habit-today-glyph 33 "Glyph character used to identify today." :version "24.1" character org-habit-completed-glyph 42 "Glyph character used to show completed days on which a task was done." org-habit-show-done-always-green "Non-nil means DONE days will always be green in the consistency graph.\nIt will be green even if it was done after the deadline." custom-declare-face org-habit-clear-face ((((background light)) (:background "#8270f9")) (((background dark)) (:background "blue"))) "Face for days on which a task shouldn't be done yet." org-faces org-habit-clear-future-face ((((background light)) (:background "#d6e4fc")) (((background dark)) (:background "midnightblue"))) "Face for future days on which a task shouldn't be done yet." org-habit-ready-face ((((background light)) (:background "#4df946")) (((background dark)) (:background "forestgreen"))) "Face for days on which a task should start to be done." org-habit-ready-future-face ((((background light)) (:background "#acfca9")) (((background dark)) (:background "darkgreen"))) org-habit-alert-face ((((background light)) (:background "#f5f946")) (((background dark)) (:background "gold"))) "Face for days on which a task is due." org-habit-alert-future-face ((((background light)) (:background "#fafca9")) (((background dark)) (:background "darkgoldenrod"))) org-habit-overdue-face ((((background light)) (:background "#f9372d")) (((background dark)) (:background "firebrick"))) "Face for days on which a task is overdue." org-habit-overdue-future-face ((((background light)) (:background "#fc9590")) (((background dark)) (:background "darkred")))] 10)
(defalias 'org-habit-duration-to-days #[(ts) "\301\302\"\203 \303\304\305\306\"!\307\305\310\"\311\"A_!\207\312\313\"\207" [ts string-match "\\([0-9]+\\)\\([dwmy]\\)" floor string-to-number match-string 1 assoc 2 (("d" . 1) ("w" . 7) ("m" . 30.4) ("y" . 365.25)) error "Invalid duration string: %s"] 6])
#@38 Is the task at POM or point a habit?
(defalias 'org-is-habit-p #[(&optional pom) "\301\206 `\302\"\303\230\207" [pom org-entry-get "STYLE" "habit"] 3 (#$ . 4046)])
#@441 Parse the TODO surrounding point for its habit-related data.
Returns a list with the following elements:
0: Scheduled date for the habit (may be in the past)
1: ".+"-style repeater for the schedule, in days
2: Optional deadline (nil if not present)
3: If deadline, the repeater for the deadline, otherwise nil
4: A list of all the past dates this todo was mark closed
This list represents a "habit" for the rest of this module.
(defalias 'org-habit-parse-todo #[(&optional pom) "\212\203 b\210\306`!\204 \307\310!\210\311`!\312\n!\212\313 \210`) \314\315 8\316 &\317\320!\203< \320\321&G\316&$\210\202X
\203N \322\321&G'&$\210\202X \320\321&G\316&$\210&* (\316\211 ) *\316\211 + , \203t \323 !\202z \324\325(\"\210 \204\204 \324\326(\"\210\327 !\211,\321V\204\225 \324\330(\"\210\331\332 \"\203\273 \327\333\334 \"!\211+,X\203\262 \324\335( #\210 +,Z\\*\336\337!\210-.\\ /0\211 1\203\322 \340\202\323 \341 21\203\336 \f\202\337 ` 3\321 41\204\354 \fb\2104/W\2032\342\343\3445!\"3\337#\203\323\345\333\334!!!)B)4T\2114\202\356 - ,*+)\257. \207" [pom scheduled org-scheduled-string scheduled-repeat end restricted org-is-habit-p cl--assertion-failed (org-is-habit-p (point)) org-get-scheduled-time org-get-repeat outline-next-heading 4 org-heading-components nil fboundp set-text-properties 0 remove-text-properties time-to-days error "Habit %s has no scheduled date" "Habit `%s' has no scheduled repeat period or has an incorrect one" org-habit-duration-to-days "Habit %s scheduled repeat period is less than 1d" string-match "/\\([0-9]+[dwmy]\\)" match-string-no-properties 1 "Habit %s deadline repeat period is less than or equal to scheduled (%s)" org-back-to-heading t re-search-forward re-search-backward format "- State \"%s\".*\\[\\([^]]+\\)\\]" regexp-opt org-time-string-to-time s org-rm-props habit-entry closed-dates deadline dr-days sr-days org-habit-preceding-days org-habit-following-days maxdays org-log-states-order-reversed reversed search limit count org-done-keywords] 6 (#$ . 4219)])
(defalias 'org-habit-scheduled #[(habit) "@\207" [habit] 1])
(put 'org-habit-scheduled 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'org-habit-scheduled-repeat #[(habit) "A@\207" [habit] 1])
(put 'org-habit-scheduled-repeat 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'org-habit-deadline #[(habit) "\3028\211\206# \3038\203 \211@)\211A@)S\\\202# \211@))\207" [habit deadline 2 3] 3])
(put 'org-habit-deadline 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'org-habit-deadline-repeat #[(habit) "\3018\206\f \211A@)\207" [habit 3] 3])
(put 'org-habit-deadline-repeat 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'org-habit-done-dates #[(habit) "\3018\207" [habit 4] 2])
(put 'org-habit-done-dates 'byte-optimizer 'byte-compile-inline-expand)
#@116 Determine the relative priority of a habit.
This must take into account not just urgency, but consistency as well.
(defalias 'org-habit-get-priority #[(habit &optional moment) "\306\203 \307!\202
\310 \211@) \311 8\211\2067 \312 8\2032 \211@) \211A@)S\\\2027 \211@)* \211 \f Z\313_\\ \nU\204T \f\nU\203T
\314\\\f\nSZ\211 \315V\203j
\316_\\\202q
\313_\\)
,\207" [moment habit deadline scheduled now pri 1000 time-to-days org-today 2 3 10 50 0 100 slip] 7 (#$ . 7086)])
(put 'org-habit-get-priority 'byte-optimizer 'byte-compile-inline-expand)
#@736 Return faces for HABIT relative to NOW-DAYS and SCHEDULED-DAYS.
NOW-DAYS defaults to the current time's days-past-the-epoch if nil.
SCHEDULED-DAYS defaults to the habit's actual scheduled days if nil.
Habits are assigned colors on the following basis:
Blue Task is before the scheduled date.
Green Task is on or after scheduled date, but before the
end of the schedule's repeat period.
Yellow If the task has a deadline, then it is after schedule's
repeat period, but before the deadline.
Orange The task has reached the deadline day, or if there is
no deadline, the end of the schedule's repeat period.
Red The task has gone beyond the deadline day or the
schedule's repeat period.
(defalias 'org-habit-get-faces #[(habit &optional now-days scheduled-days donep) "\206 \211@) \211A@)\n S\\ \306 8\206$ \211A@)) \2032
Z\\\202Y \307 8\211 \206X \306 8\203S \211@) \211A@)S\\\202X \211@)* \206d \310\311 !\211 \nW\203p \312\202\240 W\203| \313\202\240 U\203\221 \203\215 \314\202\240 \315\202\240 \203\237 \203\237 \316\202\240 \317.\207" [scheduled-days habit scheduled s-repeat scheduled-end d-repeat 3 2 time-to-days current-time (org-habit-clear-face . org-habit-clear-future-face) (org-habit-ready-face . org-habit-ready-future-face) (org-habit-ready-face . org-habit-ready-future-face) (org-habit-alert-face . org-habit-alert-future-face) (org-habit-ready-face . org-habit-ready-future-face) (org-habit-overdue-face . org-habit-overdue-future-face) deadline now-days m-days donep org-habit-show-done-always-green] 4 (#$ . 7662)])
#@200 Build a graph for the given HABIT, from STARTING to ENDING.
CURRENT gives the current time between STARTING and ENDING, for
the purpose of drawing the graph. It need not be the actual
current time.
(defalias 'org-habit-build-graph #[(habit starting current ending) "\306\3078)\310\"\211@)\211A@)\311\f! \311! \311! \312
ZT\313\" \314 \315 \203M @
W\203M @ A\211\204;
W\2036
W
U ! \205h
@U \" \203 \204 \nW\204 \316\202\227 \317
\205\224 \203\223 \\\202\224 \n\"$ #\315\211 $ \"\203\345 \320\f\321
\311\f!Z!\" % &I\210\322$\323 \211T\324\325\326 %\" %\210 \203\341
@U\203\341 @ A\211\204\317 )\202\362 !\203\362 'I\210 \204\374 !\203#@\202#A \203 \327=\204 $\204 #A\323 \211T\330 %\210.
T T \202M . \207" [habit done-dates scheduled s-repeat starting start sort 4 < time-to-days make-string 32 0 nil (org-habit-clear-face . org-habit-clear-future-face) org-habit-get-faces time-add days-to-time t put-text-property help-echo format-time-string org-time-stamp-format org-habit-overdue-face face current now ending end graph index last-done-date in-the-past-p todayp donep faces markedp done-time org-habit-completed-glyph org-habit-today-glyph] 8 (#$ . 9297)])
#@50 Insert consistency graph for any habitual tasks.
(defalias 'org-habit-insert-consistency-graphs #[(&optional line) "\306\307\211\310\311\312 \313\314_\313E\" \212\203 \315 \202 eb\210m?\205b \316`\317\"\211 \203[ \320\306\"\210\321\322\323 #\324 `Z^!\210\325\326\311 \327 !\" \330 \327 !\"$!\210)\307y\210\202! .\207" [org-extend-today-until moment buffer-invisibility-spec c l inhibit-read-only t nil (org-link) time-subtract current-time 0 3600 point-at-bol get-text-property org-habit-p move-to-column delete-char + 1 line-end-position insert-before-markers org-habit-build-graph days-to-time time-add line habit org-habit-graph-column org-habit-preceding-days org-habit-following-days] 10 (#$ . 10571)])
#@47 Toggle display of habits in an agenda buffer.
(defalias 'org-habit-toggle-habits #[nil "\301\302\303\"\210?\304 \210\305 \210\306\307\203 \310\202 \311\"\207" [org-habit-show-habits org-agenda-check-type t agenda org-agenda-redo org-agenda-set-mode-name message "Habits turned %s" "on" "off"] 3 (#$ . 11305) nil])
(byte-code "\301\302\303#\210\304\305!\207" [org-agenda-mode-map org-defkey "K" org-habit-toggle-habits provide org-habit] 4)
Kontol Shell Bypass