From 4a59cbc0765c30f632ccd7bc5c73f72e2d840d11 Mon Sep 17 00:00:00 2001 From: Raúl Benencia Date: Sun, 28 Dec 2025 11:40:49 -0300 Subject: Show task effort --- org-tempus.el | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) (limited to 'org-tempus.el') diff --git a/org-tempus.el b/org-tempus.el index 0d2f379..f3014e4 100644 --- a/org-tempus.el +++ b/org-tempus.el @@ -231,6 +231,18 @@ Known providers are `emacs' (activity inside Emacs), "Return clocked time for current task as a duration string." (org-duration-from-minutes (org-clock-get-clocked-time))) +(defun org-tempus--current-task-effort () + "Return effort for current task as a duration string, or nil." + (let ((marker (and (org-clock-is-active) org-clock-marker))) + (when (and marker (marker-buffer marker)) + (with-current-buffer (marker-buffer marker) + (when (derived-mode-p 'org-mode) + (org-with-point-at marker + (let ((effort (org-entry-get nil "EFFORT"))) + (when effort + (org-duration-from-minutes + (org-duration-to-minutes effort)))))))))) + (defun org-tempus-reset-session () "Reset the current session timer." (interactive) @@ -396,6 +408,10 @@ A session does not reset when switching tasks within "] (" (org-tempus--current-task-name) " <" (org-tempus--current-task-time) + (let ((effort (org-tempus--current-task-effort))) + (if effort + (concat "/" effort) + "")) ">)")) (let* ((break-seconds (org-tempus--current-break-duration)) (break-str (when break-seconds -- cgit v1.2.3