Re: [BUG] Incorrect time calculation in agenda clockcheck

[Mnet-Mail]

Thanks!

Am 17. Mai 2024 11:45:32 UTC schrieb Ihor Radchenko :
>Raffael Stocker  writes:
>
>> in the Org Agenda clockcheck view, a warning about missing end time of a
>> clocked-in task is displayed together with the already elapsed time of
>> that task.  If the starting time is in the future (this can happen if
>> rounding and continuous clocking are used), the elapsed time is
>> incorrect.  For example, if a clocked-in task starts in 5 minutes,
>> clockcheck will report something like "No end time: (0:55)".  It would
>> be more sensible to say "No end time: (-0:05)" or even "No end time: (in
>> 0:05)".
>
>Thanks for reporting!
>Fixed, on main.
>https://git.savannah.gnu.org/cgit/emacs/org-mode.git/commit/?id=ee58259bc
>
>> The culprit is the use of ‘org-duration-from-minutes’ in
>> ‘org-agenda-show-clocking-issues’, because org-duration always assumes
>> positive durations and is given a negative one here.  The problem can
>> easily be corrected with something like the following:
>>...
>> However, I believe it would be more useful (and general) to use a
>> similar trick to teach org-duration to work with negative durations.
>
>That's what I ended up doing.
>
>> ... It would be more sensible to ... or even "No end time: (in 0:05)".
>
>I find this confusing, so I left -0:05.
>
>-- 
>Ihor Radchenko // yantar92,
>Org mode contributor,
>Learn more about Org mode at .
>Support Org development at ,
>or support my work at 

Re: [BUG] Incorrect time calculation in agenda clockcheck

[Ihor Radchenko]

Raffael Stocker  writes:

> in the Org Agenda clockcheck view, a warning about missing end time of a
> clocked-in task is displayed together with the already elapsed time of
> that task.  If the starting time is in the future (this can happen if
> rounding and continuous clocking are used), the elapsed time is
> incorrect.  For example, if a clocked-in task starts in 5 minutes,
> clockcheck will report something like "No end time: (0:55)".  It would
> be more sensible to say "No end time: (-0:05)" or even "No end time: (in
> 0:05)".

Thanks for reporting!
Fixed, on main.
https://git.savannah.gnu.org/cgit/emacs/org-mode.git/commit/?id=ee58259bc

> The culprit is the use of ‘org-duration-from-minutes’ in
> ‘org-agenda-show-clocking-issues’, because org-duration always assumes
> positive durations and is given a negative one here.  The problem can
> easily be corrected with something like the following:
>...
> However, I believe it would be more useful (and general) to use a
> similar trick to teach org-duration to work with negative durations.

That's what I ended up doing.

> ... It would be more sensible to ... or even "No end time: (in 0:05)".

I find this confusing, so I left -0:05.

-- 
Ihor Radchenko // yantar92,
Org mode contributor,
Learn more about Org mode at .
Support Org development at ,
or support my work at 

[BUG] Incorrect time calculation in agenda clockcheck

[Raffael Stocker]

Hi org-mode,

in the Org Agenda clockcheck view, a warning about missing end time of a
clocked-in task is displayed together with the already elapsed time of
that task.  If the starting time is in the future (this can happen if
rounding and continuous clocking are used), the elapsed time is
incorrect.  For example, if a clocked-in task starts in 5 minutes,
clockcheck will report something like "No end time: (0:55)".  It would
be more sensible to say "No end time: (-0:05)" or even "No end time: (in
0:05)".

The culprit is the use of ‘org-duration-from-minutes’ in
‘org-agenda-show-clocking-issues’, because org-duration always assumes
positive durations and is given a negative one here.  The problem can
easily be corrected with something like the following:

diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index b3c7294a2..968b6bd50 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -6237,11 +6237,12 @@ defun org-agenda-show-clocking-issues
 	  (setq issue
 		(format
 		 "No end time: (%s)"
-		 (org-duration-from-minutes
-		  (floor
-		   (- (float-time (org-current-time))
-			  (float-time (org-time-string-to-time (match-string 1
-		   60)))
+		 (let ((diff (floor
+		  (- (float-time (org-current-time))
+			 (float-time (org-time-string-to-time (match-string 1
+		  60)))
+   (concat (if (> 0 diff) "-" "")
+   (org-duration-from-minutes (abs diff)
 		face (or (plist-get pl :no-end-time-face) face))
 	  (throw 'next t))
 	(setq ts (match-string 1)

However, I believe it would be more useful (and general) to use a
similar trick to teach org-duration to work with negative durations.

Cheers,
Raffael