From 269d8f687ee81149cc24430406898ce196815f4d Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Tue, 8 Feb 2022 14:15:03 -0600 Subject: Make +tab-bar-{emms,bongo} work when those libraries aren't loaded --- lisp/+tab-bar.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lisp/+tab-bar.el') 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 @@ (defun +tab-bar-emms () "Display EMMS now playing information." - (when (and emms-mode-line-mode + (when (and (bound-and-true-p emms-mode-line-mode) emms-player-playing-p) (let ((now-playing (+string-truncate (emms-mode-line-playlist-current) (- +tab-bar-emms-max-length 2)))) @@ -65,7 +65,7 @@ (defun +tab-bar-bongo () "Display Bongo now playing information." - (when-let ((modep bongo-mode-line-indicator-mode) + (when-let ((modep (bound-and-true-p bongo-mode-line-indicator-mode)) (buf (cl-some (lambda (b) (with-current-buffer b (when-let* ((modep (derived-mode-p 'bongo-playlist-mode)) -- cgit 1.4.1-21-gabe81