From f6512fe1bd9738e1c2c5c9a7ad92098b2f02fa34 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Fri, 11 Mar 2022 20:04:05 -0600
Subject: Uh

---
 lisp/+tab-bar.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'lisp/+tab-bar.el')

diff --git a/lisp/+tab-bar.el b/lisp/+tab-bar.el
index c4b7420..e328146 100644
--- a/lisp/+tab-bar.el
+++ b/lisp/+tab-bar.el
@@ -27,7 +27,8 @@
   "Display `tracking-mode-line-buffers' in the tab-bar."
   ;; TODO: write something to convert a mode-line construct to a tab-bar
   ;; construct.
-  (when tracking-mode
+  (when (and tracking-mode
+             (not (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)
@@ -63,7 +64,8 @@
 
 (defun +tab-bar-org-clock ()
   "Display `org-mode-line-string' in the tab-bar."
-  (when (org-clocking-p)
+  (when (and (fboundp 'org-clocking-p)
+             (org-clocking-p))
     ;; org-mode-line-string
     `((org-clocking menu-item
                     ,org-mode-line-string
-- 
cgit 1.4.1-21-gabe81