From 652fcc9f02104d5460f18555463f3448c56419c2 Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Thu, 31 Aug 2023 11:42:42 -0600 Subject: [PATCH] [org-window-habit] Fix defaulting of reschedule-interval --- dotfiles/emacs.d/load.d/org-window-habit.el | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/dotfiles/emacs.d/load.d/org-window-habit.el b/dotfiles/emacs.d/load.d/org-window-habit.el index a7494c1b..b2e8887f 100644 --- a/dotfiles/emacs.d/load.d/org-window-habit.el +++ b/dotfiles/emacs.d/load.d/org-window-habit.el @@ -260,7 +260,7 @@ (when (null (oref habit assessment-interval)) (oset habit assessment-interval (oref habit duration-plist))) (when (null (oref habit reschedule-interval)) - (oset habit reschedule-interval (oref habit reschedule-interval))) + (oset habit reschedule-interval (oref habit assessment-interval))) (when (null (oref habit window-decrement-plist)) (oset habit window-decrement-plist (org-window-habit-negate-plist (oref habit assessment-interval))))) @@ -585,6 +585,15 @@ :end-index end-index :reverse t) for interval-has-completion = (not (eq reschedule-start-index reschedule-end-index)) + do + (message + "h: %s %s %s %s %s %s" + interval-has-completion + actual-completions + (org-window-habit-show-time-string reschedule-start-time) + (org-window-habit-show-time-string start-time) + (org-window-habit-show-time-string end-time) + reschedule-decrement-plist) until (and (not interval-has-completion) (< expected-completions required)) for (new-start-time new-end-time) = (org-window-habit-advance-window habit start-time end-time)