From 5ebeeef3fd74c42e9d3d5357b03dbd7ad2f0f335 Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Sun, 10 Dec 2023 19:04:07 +0100 Subject: [PATCH] Ensure point is on current clock when setting default task Not sure whether this is the case otherwise. Also add output when the default task is set, to see when it's set accidentally. --- site-lisp/db-org.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/site-lisp/db-org.el b/site-lisp/db-org.el index 1102a80..e2dc0f2 100644 --- a/site-lisp/db-org.el +++ b/site-lisp/db-org.el @@ -512,7 +512,9 @@ Work task and home task are determined by the current values of (let ((current-id (org-id-get org-clock-marker))) (when (member current-id (list org-working-task-id org-home-task-id)) - (org-clock-mark-default-task)))) + (org-with-point-at org-clock-marker + (message "Setting default task to: %s" (org-link-display-format (org-entry-get (point) "ITEM"))) + (org-clock-mark-default-task))))) ;;; Workload Reports