forked from colonelpanic/dotfiles
[Emacs] Don't repeat to today when existing completion (org-window-habit)
This commit is contained in:
parent
82618e1a94
commit
8e03bcff64
@ -508,9 +508,20 @@
|
|||||||
for actual-completions = (- end-index start-index)
|
for actual-completions = (- end-index start-index)
|
||||||
for expected-completions = actual-completions
|
for expected-completions = actual-completions
|
||||||
for actual-start = (org-window-habit-time-max effective-start start-time)
|
for actual-start = (org-window-habit-time-max effective-start start-time)
|
||||||
for proportion = (org-window-habit-duration-proportion start-time end-time actual-start)
|
for proportion =
|
||||||
|
(org-window-habit-duration-proportion start-time end-time actual-start)
|
||||||
for required = (* proportion (oref habit repetitions-required))
|
for required = (* proportion (oref habit repetitions-required))
|
||||||
until (< expected-completions required)
|
for interval-start-time =
|
||||||
|
(org-window-habit-keyed-duration-add-plist
|
||||||
|
end-time (oref habit window-decrement-plist))
|
||||||
|
for (interval-start-index interval-end-index) =
|
||||||
|
(org-window-habit-get-completion-window-indices
|
||||||
|
habit interval-start-time end-time
|
||||||
|
:start-index start-index
|
||||||
|
:end-index end-index
|
||||||
|
:reverse t)
|
||||||
|
for interval-has-completion = (not (eq interval-start-index interval-end-index))
|
||||||
|
until (and (not interval-has-completion) (< expected-completions required))
|
||||||
for (new-start-time new-end-time) =
|
for (new-start-time new-end-time) =
|
||||||
(org-window-habit-advance-window habit start-time end-time)
|
(org-window-habit-advance-window habit start-time end-time)
|
||||||
do
|
do
|
||||||
|
Loading…
Reference in New Issue
Block a user