wgester/dotfiles
1
0
Fork 0
forked from colonelpanic/dotfiles
Code Pull Requests Activity

[Emacs] Fixup org-window-habit a bit

Browse Source
This commit is contained in:
Ivan Malison 2023-08-29 19:03:55 -06:00
parent 65230bff19
commit 6f196c8c86
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
dotfiles/emacs.d/load.d/org-window-habit.el
View File

@ -1,6 +1,7 @@
(require 'eieio) (require 'eieio)
(require 'calendar) (require 'calendar)
(require 'org) (require 'org)
(require 'org-habit)
(require 'cl-lib) (require 'cl-lib)
(defun org-window-habit-time-max (&rest args) (defun org-window-habit-time-max (&rest args)
@ -319,7 +320,7 @@
(defface org-window-habit-conformed-with-completion-face (defface org-window-habit-conformed-with-completion-face
'((((background light)) (:background "#40778f")) '((((background light)) (:background "#40778f"))
(((background dark)) (:background "#40778f"))) (((background dark)) (:background "#40778f")))
"Face for intervals on which a the user was conforming with their completion but not without it." "Face for intervals for which the user was conforming only with their completion."
:group 'org-window-habit :group 'org-window-habit
:group 'org-faces) :group 'org-faces)
@ -379,11 +380,6 @@
'org-window-habit-okay-conforming-face) 'org-window-habit-okay-conforming-face)
(t 'org-window-habit-not-conforming-face))) (t 'org-window-habit-not-conforming-face)))
(defun org-window-habit-duration-proportion (start-time end-time between-time)
(let* ((full-interval (float-time (time-subtract end-time start-time)))
(partial-interval (float-time (time-subtract end-time between-time))))
(/ partial-interval full-interval)))
(defcustom org-window-habit-preceding-intervals 21 (defcustom org-window-habit-preceding-intervals 21
"Number of days before today to appear in consistency graphs." "Number of days before today to appear in consistency graphs."
:group 'org-window-habit :group 'org-window-habit