From c2834c351160b8f2c5e68b327b07758a5033137d Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Thu, 28 Apr 2022 15:49:42 -0500
Subject: Make hiding tracking-mode-line when clocked in configurable

---
 lisp/+tab-bar.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'lisp')

diff --git a/lisp/+tab-bar.el b/lisp/+tab-bar.el
index 2c39dae..dce84d8 100644
--- a/lisp/+tab-bar.el
+++ b/lisp/+tab-bar.el
@@ -23,12 +23,17 @@
                            (format-mode-line mode-line-misc-info))
                ignore)))
 
+(defcustom +tracking-hide-when-org-clocking nil
+  "Hide the `tracking-mode' information when clocked in."
+  :type 'boolean)
+
 (defun +tab-bar-tracking-mode ()
   "Display `tracking-mode-line-buffers' in the tab-bar."
   ;; TODO: write something to convert a mode-line construct to a tab-bar
   ;; construct.
   (when (and tracking-mode
-             (not (bound-and-true-p org-clock-current-task)))
+             (not (and +tracking-hide-when-org-clocking
+                       (bound-and-true-p org-clock-current-task))))
     (cons (when (> (length tracking-mode-line-buffers) 0)
             '(track-mode-line-separator menu-item " " ignore))
           (cl-loop for i from 0 below (length tracking-mode-line-buffers)
-- 
cgit 1.4.1-21-gabe81