From 69aaa9077b9e8aa575ae5681f82e019e8c34ee18 Mon Sep 17 00:00:00 2001 From: bd Date: Mon, 25 Mar 2024 01:47:50 -0600 Subject: Allow org-timer to be displayed on modeline --- .config/emacs/modules/bd--modeline.el | 16 ++++++++++++++-- 1 file changed, 14 insertions(+), 2 deletions(-) (limited to '.config/emacs/modules/bd--modeline.el') diff --git a/.config/emacs/modules/bd--modeline.el b/.config/emacs/modules/bd--modeline.el index 5900173..3104dc3 100644 --- a/.config/emacs/modules/bd--modeline.el +++ b/.config/emacs/modules/bd--modeline.el @@ -61,6 +61,14 @@ (when (mode-line-window-selected-p) mode-line-position))) +;;;; timers +(defvar-local bd/timer-mode-line + '(:eval + (when (mode-line-window-selected-p) + (if (equal org-timer-start-time nil) + " " ;; no timer, no display + org-timer-mode-line-string)))) + ;;;; git (defun git-vc-modeline () (let ((branch (mapconcat 'concat (cdr (split-string vc-mode "[:-]")) "-"))) @@ -91,7 +99,9 @@ (dolist (construct '(bd/time-mode-line bd/buffer-identification-mode-line bd/vc-mode-line - bd/emms-mode-line)) + bd/emms-mode-line + bd/line-position + bd/timer-mode-line)) (put construct 'risky-local-variable t)) @@ -108,7 +118,9 @@ bd/vc-mode-line " " bd/emms-mode-line - (mode-line-fill 34) + (mode-line-fill 46) + bd/timer-mode-line + " " bd/line-position " " bd/time-mode-line)) -- cgit v1.2.3