From 30819914fa9cc3b0ec5aef3520ac824c993ff0c6 Mon Sep 17 00:00:00 2001 From: Raúl Benencia Date: Mon, 22 Dec 2025 14:30:22 -0800 Subject: show session time in modeline --- org-tempus.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/org-tempus.el b/org-tempus.el index f7224c8..d41534f 100644 --- a/org-tempus.el +++ b/org-tempus.el @@ -56,7 +56,7 @@ :type 'integer :group 'org-tempus) -(defcustom org-tempus-session-gap-seconds 120 +(defcustom org-tempus-session-gap-seconds 60 "Maximum gap in seconds to consider consecutive clocks the same session." :type 'integer :group 'org-tempus) @@ -128,7 +128,13 @@ A session does not reset when switching tasks within (setq org-tempus-mode-line-string (propertize (if (org-clock-is-active) - (concat "🧉 [" (org-tempus--sum-today) "] (" (org-tempus--current-task-name) " <" (org-tempus--current-task-time) ">)" ) + (let ((session (org-duration-from-minutes + (/ (org-tempus--current-session-duration) 60.0)))) + (concat "🧉 [S " session + " | D " (org-tempus--sum-today) "] (" + (org-tempus--current-task-name) + " <" (org-tempus--current-task-time) + ">)")) (concat "☠️ [" (org-tempus--sum-today)"]")) 'face 'org-tempus-mode-line-face 'mouse-face 'org-tempus-mode-line-hover-face -- cgit v1.2.3