1 files changed, 21 insertions, 3 deletions
diff --git a/lisp/+tab-bar.el b/lisp/+tab-bar.el
index 6567f67..c5a93dc 100644
--- a/lisp/+tab-bar.el
+++ b/lisp/+tab-bar.el

@@ -65,8 +65,14 @@
 (defun +tab-bar-bongo ()
  "Display Bongo now playing information."
-  (when (and bongo-mode-line-indicator-mode
+  (when-let ((modep bongo-mode-line-indicator-mode)
-             (bongo-playing-p))
+             (buf (cl-some (lambda (b)
+                             (with-current-buffer b
+                               (when-let* ((modep (derived-mode-p 'bongo-playlist-mode))
+                                           (bongo-playlist-buffer b)
+                                           (playingp (bongo-playing-p)))
+                                 b)))
+                           (buffer-list))))
    `((bongo-now-playing menu-item
                         ,(concat "{"
                                  (let ((bongo-field-separator ""))
@@ -76,7 +82,19 @@
                                                       (bongo-formatted-infoset))
                                                      (- +tab-bar-emms-max-length 2)))
                                  "}")
-                         bongo-pause/resume
+                         (lambda () (interactive)
+                           (let ((bongo-playlist-buffer
+                                  ;; XXX: I'm sure this is terribly inefficient
+                                   (cl-some (lambda (b)
+                                              (with-current-buffer b
+                                                (when-let* ((modep (derived-mode-p
+                                                                    'bongo-playlist-mode))
+                                                            (bongo-playlist-buffer b)
+                                                            (playingp (bongo-playing-p)))
+                                                  b)))
+                                            (buffer-list))))
+                              (with-bongo-playlist-buffer
+                                (bongo-pause/resume))))
                         :help ,(funcall bongo-header-line-function)))))
 (defvar +tab-bar-show-original nil

diff --git a/lisp/+tab-bar.el b/lisp/+tab-bar.el index 6567f67..c5a93dc 100644 --- a/lisp/+tab-bar.el +++ b/lisp/+tab-bar.el
@@ -65,8 +65,14 @@
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 (and bongo-mode-line-indicator-mode	68	(when-let ((modep bongo-mode-line-indicator-mode)
69	(bongo-playing-p))	69	(buf (cl-some (lambda (b)
		70	(with-current-buffer b
		71	(when-let* ((modep (derived-mode-p 'bongo-playlist-mode))
		72	(bongo-playlist-buffer b)
		73	(playingp (bongo-playing-p)))
		74	b)))
		75	(buffer-list))))
70	`((bongo-now-playing menu-item	76	`((bongo-now-playing menu-item
71	,(concat "{"	77	,(concat "{"
72	(let ((bongo-field-separator ""))	78	(let ((bongo-field-separator ""))
@@ -76,7 +82,19 @@
76	(bongo-formatted-infoset))	82	(bongo-formatted-infoset))
77	(- +tab-bar-emms-max-length 2)))	83	(- +tab-bar-emms-max-length 2)))
78	"}")	84	"}")
79	bongo-pause/resume	85	(lambda () (interactive)
		86	(let ((bongo-playlist-buffer
		87	;; XXX: I'm sure this is terribly inefficient
		88	(cl-some (lambda (b)
		89	(with-current-buffer b
		90	(when-let* ((modep (derived-mode-p
		91	'bongo-playlist-mode))
		92	(bongo-playlist-buffer b)
		93	(playingp (bongo-playing-p)))
		94	b)))
		95	(buffer-list))))
		96	(with-bongo-playlist-buffer
		97	(bongo-pause/resume))))
80	:help ,(funcall bongo-header-line-function)))))	98	:help ,(funcall bongo-header-line-function)))))
81		99
82	(defvar +tab-bar-show-original nil	100	(defvar +tab-bar-show-original nil