WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/org
Viewing File: /usr/share/emacs/24.3/lisp/org/org-habit.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:49:46 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/org-habit.el
;;; in Emacs version 24.3.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\350\351\352\353\311\304\311\354&\210\350\355\356\357\311\304\311\354&\210\350\360\361\362\311\304\311\354&\210\350\363\364\362\311\304\311\354&\210\350\365\366\367\311\304\311\354&\210\350\370\371\367\311\304\311\354&\210\350\372\373\374\311\304\311\354&\210\350\375\376\374\311\304\311\354&\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." 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 (#$ . 3988)])
#@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\311C\"\210\312`!\313\n!\212\314 \210`)\315\316 8\317%\320\321!\203>\321\322%G\317%$\210\202Z
\203P\323\322%G&%$\210\202Z\321\322%G\317%$\210%*'\317\211()\317\211*+	\203v\324	!\202|\325\326'\"\210\204\206\325\327'\"\210\330!\211+\322V\204\227\325\331'\"\210\332\333\"\203\275\330\334\335\"!\211*+X\203\264\325\336'#\210	*+Z\\)\337\340!\210,-\\./\2110\203\324\341\202\325\34210\203\340\f\202\341`2\32230\204\356\fb\2103.W\2031\3432\340#\203\324\344\334\335!!!(B(3T\2113\202\360-	+)*(\257.	\207" [pom scheduled org-scheduled-string scheduled-repeat end restricted org-is-habit-p signal 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 "- State \"DONE\".*\\[\\([^]]+\\)\\]" 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] 6 (#$ . 4161)])
(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) "\3028\211\206#\3038\203\211@)\211A@)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) "\3018\206\f\211A@)\207" [habit 3] 3])
(put 'org-habit-deadline-repeat 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'org-habit-done-dates #[(habit) "\3018\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@)	\211A@)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 (#$ . 6993)])
(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@)	\211A@)\nS\\	\306	8\206$	\211A@))\2032
Z\\\202Y	\307	8\211\206X\306	8\203S	\211@)	\211A@)S\\\202X	\211@)*\206d\310\311 !\211\nW\203p\312\202\222W\203|\313\202\222U\203\221\203\215\314\202\222\315\202\222\316.\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-overdue-face . org-habit-overdue-future-face) deadline now-days m-days donep] 4 (#$ . 7569)])
#@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\3078)\310\"\211@)\211A@)\311\f!\311!\311!\312
ZT\313\"\314\315	\203M	@
W\203M	@	A\211\204;
W\2036
W 
U!	\205h
	@U\" \203\204\nW\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 (#$ . 9083)])
#@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\"\307\315\316\317ed\"\"\210\212\203)\320 \202*eb\210m\204l\321`\322\"\211\203e\323 \306\"\210\324\325\326!\"#\327 `Z^!\210\330\331\311\n\332!!\"\n\333\n\332\"!\"$!\210)\307y\210\202,)\315\334	\".\207" [org-extend-today-until disabled-overlays moment buffer-invisibility-spec c l t nil (org-link) time-subtract current-time 0 3600 mapc #[(ol) "\302\303\"\205\304\303\305#\210	B\211\207" [ol disabled-overlays overlay-get invisible overlay-put nil] 4] overlays-in 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 #[(ol) "\301\302\303#\207" [ol overlay-put invisible t] 4] inhibit-read-only line habit org-habit-graph-column org-habit-preceding-days org-habit-following-days] 10 (#$ . 10357)])
#@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 (#$ . 11351) 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)
F1l3 Manager
