Current File : //usr/local/share/emacs/27.2/lisp/org/org-habit.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\300\303!\210\304\305\306\307\310\311\312\313&\210\314\315\316\317\320DD\321\312\305\322\323&\210\314\324\316\317\325DD\326\312\305\322\323&\210\314\327\316\317\330DD\331\312\305\322\323&\210\314\332\316\317\333DD\334\312\305\322\335&\210\314\336\316\317\337DD\340\312\305\322\335&\210\314\341\316\317\342DD\343\312\305\322\335&\210\314\344\316\317\345DD\346\312\305\347\350\322\351& \210\314\352\316\317\353DD\354\312\305\347\350\322\351& \210\314\355\316\317\356DD\357\312\305\322\335&\210\314\360\316\317\361DD\362\312\305\322\363\364\365\366\367& \210\370\371\372\373\312\305\312\374&\210\370\375\376\377\312\305\312\374&\210\370\201@ \201A \201B \312\305\312\374&\210\370\201C \201D \201B \312\305\312\374&\210\370\201E \201F \201G \312\305\312\374&\210\370\201H \201I \201G \312\305\312\374&\210\370\201J \201K \201L \312\305\312\374&\210\370\201M \201N \201L \312\305\312\374&\207" [require cl-lib 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 funcall function #[0 "\300\207" [40] 1] "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 #[0 "\300\207" [21] 1] "Number of days before today to appear in consistency graphs." org-habit-following-days #[0 "\300\207" [7] 1] "Number of days after today to appear in consistency graphs." org-habit-show-habits #[0 "\300\207" [t] 1] "If non-nil, show habits in agenda buffers." boolean org-habit-show-habits-only-for-today #[0 "\300\207" [t] 1] "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 #[0 "\300\207" [nil] 1] "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 #[0 "\300\207" [33] 1] "Glyph character used to identify today." :version "24.1" character org-habit-completed-glyph #[0 "\300\207" [42] 1] "Glyph character used to show completed days on which a task was done." org-habit-show-done-always-green #[0 "\300\207" [nil] 1] "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." org-habit-scheduled-past-days #[0 "\300\207" [nil] 1] "Value to use instead of `org-scheduled-past-days', for habits only.\n\nIf nil, `org-scheduled-past-days' is used.\n\nSetting this to say 10000 is a way to make habits always show up\nas a reminder, even if you set `org-scheduled-past-days' to a\nsmall value because you regard scheduled items as a way of\n\"turning on\" TODO items on a particular date, rather than as a\nmeans of creating calendar-based reminders." (choice integer (const nil)) :package-version (Org . "9.3") :safe #[257 "\211\250\206 \211?\207" [] 2 "\n\n(fn V)"] 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")))] 12)
#@11
(fn TS)
(defalias 'org-habit-duration-to-days #[257 "\300\301\"\203 \302\303\304\305\"!\306\304\307\"\310\"A_!\207\311\312\"\207" [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"] 7 (#$ . 4739)])
#@58 Is the task at POM or point a habit?
(fn &optional POM)
(defalias 'org-is-habit-p #[256 "\300\206 `\301\"\302\230\207" [org-entry-get "STYLE" "habit"] 4 (#$ . 5072)])
#@492 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
5: Repeater type as a string
This list represents a "habit" for the rest of this module.
(fn &optional POM)
(defalias 'org-habit-parse-todo #[256 "\212\211\203 \211b\210\306`!\204 \307\310!\210\311`!\312\313`\314\"!\212\315 \210`)\316\317 8\320\211\2035 \321\322G$\210\202= \323\322G\320$\210\266\202\320\211\211\211\211\203S \324 !\262 \202Y \325\326\"\210\204d \325\327\"\210\330!\262\331\332 \"\210\333\322 \"\262\322V\204\203 \325\334\"\210\331\335 \"\203\252 \330\333\336\n\"!\262X\203\242 \325\337\n#\210Z\\\262\340\341!\210 \n\\ \211\203\272 \342\202\273 \343\203\304 \202\305 `\322\344\345\346\f!
\3475\236A\211\204\331 \350\202\367 \351\352\353!\354
B\3556B\356\357\360
B\3616B\362BBBBBB\"P\262$\204\fb\210W\203*\341#\203*\324\363\333\336!\206 \333\364!!! B\262 T\262\202\266\257\266\211)\207" [org-rm-props org-habit-preceding-days org-habit-following-days org-log-states-order-reversed org-done-keywords org-ts-regexp-inactive org-is-habit-p cl--assertion-failed (org-is-habit-p (point)) org-get-scheduled-time org-get-repeat org-entry-get "SCHEDULED" outline-next-heading 4 org-heading-components nil remove-text-properties 0 set-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 string-match "[\\.+]?\\+" match-string-no-properties "Habit %s scheduled repeat period is less than 1d" "/\\([0-9]+[dwmy]\\)" 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\".*%s%s\\)" regexp-opt done "" "\\|" org-replace-escapes regexp-quote "%d" "%D" ("%s" . "\"\\S-+\"") ("%S" . "\"\\S-+\"") "%t" "%T" (("%u" . ".*?") ("%U" . ".*?")) org-time-string-to-time 2 org-log-note-headings org-ts-regexp] 30 (#$ . 5249)])
#@14
(fn HABIT)
(defalias 'org-habit-scheduled #[257 "\211@\207" [] 2 (#$ . 7559)])
(put 'org-habit-scheduled 'byte-optimizer 'byte-compile-inline-expand)
#@14
(fn HABIT)
(defalias 'org-habit-scheduled-repeat #[257 "\211A@\207" [] 2 (#$ . 7717)])
(put 'org-habit-scheduled-repeat 'byte-optimizer 'byte-compile-inline-expand)
#@14
(fn HABIT)
(defalias 'org-habit-deadline #[257 "\3008\211\206\" \3018\203 \211@\262\211A@\262S\\\202\" \211@\262\207" [2 3] 5 (#$ . 7890)])
(put 'org-habit-deadline 'byte-optimizer 'byte-compile-inline-expand)
#@14
(fn HABIT)
(defalias 'org-habit-deadline-repeat #[257 "\3008\206\f \211\211A@\262\207" [3] 3 (#$ . 8117)])
(put 'org-habit-deadline-repeat 'byte-optimizer 'byte-compile-inline-expand)
#@14
(fn HABIT)
(defalias 'org-habit-done-dates #[257 "\3008\207" [4] 3 (#$ . 8311)])
(put 'org-habit-done-dates 'byte-optimizer 'byte-compile-inline-expand)
#@14
(fn HABIT)
(defalias 'org-habit-repeat-type #[257 "\3008\207" [5] 3 (#$ . 8473)])
(put 'org-habit-repeat-type 'byte-optimizer 'byte-compile-inline-expand)
#@145 Determine the relative priority of a habit.
This must take into account not just urgency, but consistency as well.
(fn HABIT &optional MOMENT)
(defalias 'org-habit-get-priority #[513 "\300\203 \301!\202
\302 \211@\262\3038\211\2065 \3048\2030 \211@\262\211A@\262S\\\2025 \211@\262\266\202Z\305_\\\262U\204Q U\203Q \306\\\262SZ\211\307V\203e \310_\\\262\202l \305_\\\262\210\207" [1000 time-to-days org-today 2 3 10 50 0 100] 10 (#$ . 8638)])
(put 'org-habit-get-priority 'byte-optimizer 'byte-compile-inline-expand)
#@788 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.
(fn HABIT &optional NOW-DAYS SCHEDULED-DAYS DONEP)
(defalias 'org-habit-get-faces #[1025 "\206 \211@\262\211A@\262\3018\206 \211\211A@\262\262\203* Z\\\202P \3028\211\206N \3018\203I \211@\262\211A@\262S\\\202N \211@\262\266\202\206X \303\304!\211W\203b \305\202\213 \211W\203l \306\202\213 \211U\203~ \203z \307\202\213 \310\202\213 \203\212 \203\212 \311\202\213 \312\207" [org-habit-show-done-always-green 3 2 time-to-days nil (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)] 12 (#$ . 9196)])
#@236 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.
(fn HABIT STARTING CURRENT ENDING)
(defalias 'org-habit-build-graph #[1028 "\302\3038\262\304\"\211\211@\262\211A@\262\305!\305!\305!\306ZT\307\"\310\311\203F @W\203F @\262A\262 \202+ W\203\267WU\n\205_ @U\203\205 \204\205 \nW\204\205 \f\203\201 \f@ U\203\201 \312\202 \313\202 \314\n\205 \205 \3158\262\204\244 \202\211\316\267\202\276 \\\202G_Z\202@\317Z\"\211\310U\203\324 \202\325 \211\\\262\nU\203\344 \211\202\3202A\211\203\211@Z\310]\245T_\\\262\211\fU\203
\321\320\"\210A\266\202\202\353 \2620\266\202\262$\311\211\203LI\210\322\262\203W @U\203W@\262A\262\202.\202W\203W I\210\204_\203d@\202fA\262\203z\211\323=\204z\204zA\262\324\211T\325
%\210\324\211T\326\327\330 \331\332\305 !Z!\"\"\203\245\333\202\246\334P
%\266T\262T\262\202F \207" [org-habit-completed-glyph org-habit-today-glyph sort 4 < time-to-days make-string 32 0 nil (org-habit-ready-face . org-habit-ready-future-face) (org-habit-clear-face . org-habit-clear-future-face) org-habit-get-faces 5 #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (".+" 170 "+" 178)) mod :exit throw t org-habit-overdue-face put-text-property face help-echo format-time-string org-time-stamp-format time-add days-to-time " DONE" ""] 32 (#$ . 10742)])
#@71 Insert consistency graph for any habitual tasks.
(fn &optional LINE)
(defalias 'org-habit-insert-consistency-graphs #[256 "\306\307\310\311\312_\"\212\203 \313 \202 eb\210m?\205S \314`\315\"\211\203L \316 \306\"\210\317\320\321\f
#\322 `Z^!\210\323\324\325\326\f!\"\327\326
!\"$!\210\210\311y\210\202 +\207" [org-extend-today-until buffer-invisibility-spec inhibit-read-only org-habit-graph-column org-habit-preceding-days org-habit-following-days t (org-link) org-time-subtract nil 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 time-subtract days-to-time time-add] 14 (#$ . 12377)])
#@47 Toggle display of habits in an agenda buffer.
(defalias 'org-habit-toggle-habits #[0 "\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 (#$ . 13077) nil])
#@139 Toggle display of habits in agenda.
With ARG toggle display of all vs. undone scheduled habits.
See `org-habit-show-all-today'.
(fn ARG)
(defalias 'org-habit-toggle-display-in-agenda #[257 "\211\204 \302 \207\303\304\305\"\210? \205 \306 \207" [org-habit-show-all-today org-habit-show-habits org-habit-toggle-habits org-agenda-check-type t agenda org-agenda-redo] 4 (#$ . 13401) "P"])
(byte-code "\301\302\303#\210\304\305!\207" [org-agenda-mode-map org-defkey "K" org-habit-toggle-display-in-agenda provide org-habit] 4)
Mini Shell