about summary refs log tree commit diff stats
path: root/lisp/+tab-bar.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/+tab-bar.el')
-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))