diff options
| author | Case Duckworth | 2022-03-12 11:26:25 -0600 |
|---|---|---|
| committer | Case Duckworth | 2022-03-12 11:26:25 -0600 |
| commit | 31f595fafac75c0c72f0fd2530f9595a263cd58d (patch) | |
| tree | 73aa017db544202c101d554ae323895e12dd8b14 /lisp/+tab-bar.el | |
| parent | Purge org-contacts (diff) | |
| parent | Uh (diff) | |
| download | emacs-31f595fafac75c0c72f0fd2530f9595a263cd58d.tar.gz emacs-31f595fafac75c0c72f0fd2530f9595a263cd58d.zip | |
Merge branch 'main' of https://tildegit.org/acdw/emacs
Diffstat (limited to 'lisp/+tab-bar.el')
| -rw-r--r-- | lisp/+tab-bar.el | 6 |
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 |