From 6f196c8c86556f867f2ee8c29eb2702141b64a63 Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Tue, 29 Aug 2023 19:03:55 -0600 Subject: [PATCH] [Emacs] Fixup org-window-habit a bit --- dotfiles/emacs.d/load.d/org-window-habit.el | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/dotfiles/emacs.d/load.d/org-window-habit.el b/dotfiles/emacs.d/load.d/org-window-habit.el index 18e6579d..bc78d8ca 100644 --- a/dotfiles/emacs.d/load.d/org-window-habit.el +++ b/dotfiles/emacs.d/load.d/org-window-habit.el @@ -1,6 +1,7 @@ (require 'eieio) (require 'calendar) (require 'org) +(require 'org-habit) (require 'cl-lib) (defun org-window-habit-time-max (&rest args) @@ -319,7 +320,7 @@ (defface org-window-habit-conformed-with-completion-face '((((background light)) (: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-faces) @@ -379,11 +380,6 @@ 'org-window-habit-okay-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 "Number of days before today to appear in consistency graphs." :group 'org-window-habit