about summary refs log tree commit diff stats
path: root/lisp/+tab-bar.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/+tab-bar.el')
-rw-r--r--lisp/+tab-bar.el6
1 files changed, 4 insertions, 2 deletions
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 @@
27 "Display `tracking-mode-line-buffers' in the tab-bar." 27 "Display `tracking-mode-line-buffers' in the tab-bar."
28 ;; TODO: write something to convert a mode-line construct to a tab-bar 28 ;; TODO: write something to convert a mode-line construct to a tab-bar
29 ;; construct. 29 ;; construct.
30 (when tracking-mode 30 (when (and tracking-mode
31 (not (bound-and-true-p org-clock-current-task)))
31 (cons (when (> (length tracking-mode-line-buffers) 0) 32 (cons (when (> (length tracking-mode-line-buffers) 0)
32 '(track-mode-line-separator menu-item " " ignore)) 33 '(track-mode-line-separator menu-item " " ignore))
33 (cl-loop for i from 0 below (length tracking-mode-line-buffers) 34 (cl-loop for i from 0 below (length tracking-mode-line-buffers)
@@ -63,7 +64,8 @@
63 64
64(defun +tab-bar-org-clock () 65(defun +tab-bar-org-clock ()
65 "Display `org-mode-line-string' in the tab-bar." 66 "Display `org-mode-line-string' in the tab-bar."
66 (when (org-clocking-p) 67 (when (and (fboundp 'org-clocking-p)
68 (org-clocking-p))
67 ;; org-mode-line-string 69 ;; org-mode-line-string
68 `((org-clocking menu-item 70 `((org-clocking menu-item
69 ,org-mode-line-string 71 ,org-mode-line-string