diff options
| author | Case Duckworth | 2022-04-28 15:49:42 -0500 |
|---|---|---|
| committer | Case Duckworth | 2022-04-28 15:49:42 -0500 |
| commit | c2834c351160b8f2c5e68b327b07758a5033137d (patch) | |
| tree | 945dc6aa6bbeff0f5b7ac56b29860da23aca8645 /lisp | |
| parent | Dim .gitignore files (mostly) in dired (diff) | |
| download | emacs-c2834c351160b8f2c5e68b327b07758a5033137d.tar.gz emacs-c2834c351160b8f2c5e68b327b07758a5033137d.zip | |
Make hiding tracking-mode-line when clocked in configurable
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/+tab-bar.el | 7 |
1 files changed, 6 insertions, 1 deletions
| 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 @@ | |||
| 23 | (format-mode-line mode-line-misc-info)) | 23 | (format-mode-line mode-line-misc-info)) |
| 24 | ignore))) | 24 | ignore))) |
| 25 | 25 | ||
| 26 | (defcustom +tracking-hide-when-org-clocking nil | ||
| 27 | "Hide the `tracking-mode' information when clocked in." | ||
| 28 | :type 'boolean) | ||
| 29 | |||
| 26 | (defun +tab-bar-tracking-mode () | 30 | (defun +tab-bar-tracking-mode () |
| 27 | "Display `tracking-mode-line-buffers' in the tab-bar." | 31 | "Display `tracking-mode-line-buffers' in the tab-bar." |
| 28 | ;; TODO: write something to convert a mode-line construct to a tab-bar | 32 | ;; TODO: write something to convert a mode-line construct to a tab-bar |
| 29 | ;; construct. | 33 | ;; construct. |
| 30 | (when (and tracking-mode | 34 | (when (and tracking-mode |
| 31 | (not (bound-and-true-p org-clock-current-task))) | 35 | (not (and +tracking-hide-when-org-clocking |
| 36 | (bound-and-true-p org-clock-current-task)))) | ||
| 32 | (cons (when (> (length tracking-mode-line-buffers) 0) | 37 | (cons (when (> (length tracking-mode-line-buffers) 0) |
| 33 | '(track-mode-line-separator menu-item " " ignore)) | 38 | '(track-mode-line-separator menu-item " " ignore)) |
| 34 | (cl-loop for i from 0 below (length tracking-mode-line-buffers) | 39 | (cl-loop for i from 0 below (length tracking-mode-line-buffers) |