diff options
| -rw-r--r-- | lisp/+tab-bar.el | 4 |
1 files changed, 2 insertions, 2 deletions
| diff --git a/lisp/+tab-bar.el b/lisp/+tab-bar.el index c5a93dc..169cb53 100644 --- a/lisp/+tab-bar.el +++ b/lisp/+tab-bar.el | |||
| @@ -54,7 +54,7 @@ | |||
| 54 | 54 | ||
| 55 | (defun +tab-bar-emms () | 55 | (defun +tab-bar-emms () |
| 56 | "Display EMMS now playing information." | 56 | "Display EMMS now playing information." |
| 57 | (when (and emms-mode-line-mode | 57 | (when (and (bound-and-true-p emms-mode-line-mode) |
| 58 | emms-player-playing-p) | 58 | emms-player-playing-p) |
| 59 | (let ((now-playing (+string-truncate (emms-mode-line-playlist-current) | 59 | (let ((now-playing (+string-truncate (emms-mode-line-playlist-current) |
| 60 | (- +tab-bar-emms-max-length 2)))) | 60 | (- +tab-bar-emms-max-length 2)))) |
| @@ -65,7 +65,7 @@ | |||
| 65 | 65 | ||
| 66 | (defun +tab-bar-bongo () | 66 | (defun +tab-bar-bongo () |
| 67 | "Display Bongo now playing information." | 67 | "Display Bongo now playing information." |
| 68 | (when-let ((modep bongo-mode-line-indicator-mode) | 68 | (when-let ((modep (bound-and-true-p bongo-mode-line-indicator-mode)) |
| 69 | (buf (cl-some (lambda (b) | 69 | (buf (cl-some (lambda (b) |
| 70 | (with-current-buffer b | 70 | (with-current-buffer b |
| 71 | (when-let* ((modep (derived-mode-p 'bongo-playlist-mode)) | 71 | (when-let* ((modep (derived-mode-p 'bongo-playlist-mode)) |