about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2022-02-08 14:15:03 -0600
committerCase Duckworth2022-02-08 14:15:03 -0600
commit269d8f687ee81149cc24430406898ce196815f4d (patch)
tree198299cafa838a1f73d0a5421462a4e60e7c43e0
parentDon't pass the buffer to PREDICATE in `+mapc-some-buffers' (diff)
downloademacs-269d8f687ee81149cc24430406898ce196815f4d.tar.gz
emacs-269d8f687ee81149cc24430406898ce196815f4d.zip
Make +tab-bar-{emms,bongo} work when those libraries aren't loaded
-rw-r--r--lisp/+tab-bar.el4
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))