From d655c095fda6d1789a20aa93d4ac3a5f269dadc9 Mon Sep 17 00:00:00 2001 Message-ID: From: Ihor Radchenko Date: Mon, 4 Dec 2023 14:47:53 +0100 Subject: [PATCH] org-clock-auto-clockout: Honor system idle time. Do not spawn multiple timers * lisp/org-clock.el (org-clock--auto-clockout-timer-obj): New internal variable holding the auto-clockout timer. (org-clock--auto-clockout-maybe): New function to be used in timer. Use `org-user-idle-seconds' to check for idleness. Make sure that we correctly handle system idle time, which may be lesser than Emacs idle time. (org-clock-auto-clockout): Do not create duplicate timers. Use the new internal helper function. Reported-by: Vladimir Nikishkin Link: https://orgmode.org/list/87ttqv6l2g.fsf@laptop.lockywolf.net --- lisp/org-clock.el | 35 ++++++++++++++++++++++++++++++++--- 1 file changed, 32 insertions(+), 3 deletions(-) diff --git a/lisp/org-clock.el b/lisp/org-clock.el index eda312d74..a042af4f3 100644 --- a/lisp/org-clock.el +++ b/lisp/org-clock.el @@ -1493,6 +1493,33 @@ (defun org-clock-in (&optional select start-time) (message "Clock starts at %s - %s" ts org--msg-extra) (run-hooks 'org-clock-in-hook)))))) +(defvar org-clock--auto-clockout-timer-obj nil + "Timer object holding the existing clockout timer.") +(defun org-clock--auto-clockout-maybe () + "Clock out the currently clocked in task when idle. +See `org-clock-auto-clockout-timer' to set the idle time span. + +This function is to be called by a timer." + (when (and (numberp org-clock-auto-clockout-timer) + org-clock-current-task) + (let ((user-idle-seconds (org-user-idle-seconds))) + (cond + ;; Already idle. Clock out. + ((>= user-idle-seconds org-clock-auto-clockout-timer) + (setq org-clock--auto-clockout-timer-obj nil) + (org-clock-out)) + ;; Emacs is idle but system is not. Retry assuming that system will remain idle. + ((>= (org-emacs-idle-seconds) org-clock-auto-clockout-timer) + (setq org-clock--auto-clockout-timer-obj + (run-with-timer + (- org-clock-auto-clockout-timer user-idle-seconds) + nil #'org-clock--auto-clockout-maybe))) + ;; Emacs is not idle. Check again next time we are idle. + (t + (setq org-clock--auto-clockout-timer-obj + (run-with-idle-timer + org-clock-auto-clockout-timer nil #'org-clock--auto-clockout-maybe))))))) + (defun org-clock-auto-clockout () "Clock out the currently clocked in task if Emacs is idle. See `org-clock-auto-clockout-timer' to set the idle time span. @@ -1500,9 +1527,11 @@ (defun org-clock-auto-clockout () This is only effective when `org-clock-auto-clockout-insinuate' is present in the user configuration." (when (and (numberp org-clock-auto-clockout-timer) - org-clock-current-task) - (run-with-idle-timer - org-clock-auto-clockout-timer nil #'org-clock-out))) + org-clock-current-task + (not (timerp org-clock--auto-clockout-timer-obj))) + (setq org-clock--auto-clockout-timer-obj + (run-with-idle-timer + org-clock-auto-clockout-timer nil #'org-clock--auto-clockout-maybe)))) ;;;###autoload (defun org-clock-toggle-auto-clockout () -- 2.42.0