diff options
| author | Case Duckworth | 2022-02-08 14:15:03 -0600 |
|---|---|---|
| committer | Case Duckworth | 2022-02-08 14:15:03 -0600 |
| commit | 269d8f687ee81149cc24430406898ce196815f4d (patch) | |
| tree | 198299cafa838a1f73d0a5421462a4e60e7c43e0 /lisp | |
| parent | Don't pass the buffer to PREDICATE in `+mapc-some-buffers' (diff) | |
| download | emacs-269d8f687ee81149cc24430406898ce196815f4d.tar.gz emacs-269d8f687ee81149cc24430406898ce196815f4d.zip | |
Make +tab-bar-{emms,bongo} work when those libraries aren't loaded
Diffstat (limited to 'lisp')
| -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)) |