[elpa] externals/listen 0148bba3bf: Fix: (listen-mode-lighter)

[ELPA Syncer]

branch: externals/listen
commit 0148bba3bfe1141408264b0eabf103288ee403af
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>

    Fix: (listen-mode-lighter)
---
 listen.el | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/listen.el b/listen.el
index c80c16ef90..32b180eb58 100755
--- a/listen.el
+++ b/listen.el
@@ -227,16 +227,17 @@ Interactively, jump to current queue's current track."
 (defun listen-mode-lighter ()
   "Return lighter for `listen-mode'.
 According to `listen-lighter-format', which see."
-  (when-let (((listen--running-p listen-player))
+  (when-let ((listen-player)
+             ((listen--running-p listen-player))
              ((listen--playing-p listen-player))
              (info (listen--info listen-player)))
     (format-spec listen-lighter-format
                  `((?a . ,(lambda ()
-                            (alist-get "artist" info nil nil #'equal)))
+                            (or (alist-get "artist" info nil nil #'equal) "")))
                    (?A . ,(lambda ()
-                            (alist-get "album" info nil nil #'equal)))
+                            (or (alist-get "album" info nil nil #'equal) "")))
                    (?t . ,(lambda ()
-                            (alist-get "title" info nil nil #'equal)))
+                            (or (alist-get "title" info nil nil #'equal) "")))
                    (?e . ,(lambda ()
                             (listen-format-seconds (listen--elapsed 
listen-player))))
                    (?r . ,(lambda ()
@@ -247,7 +248,8 @@ According to `listen-lighter-format', which see."
                             (pcase (listen--status listen-player)
                               ("playing" "▶")
                               ("paused" "⏸")
-                              ("stopped" "■"))))
+                              ("stopped" "■")
+                              (_ ""))))
                    (?E . ,(lambda ()
                             (if-let ((extra (mapconcat #'funcall 
listen-lighter-extra-functions " ")))
                                 (concat " " extra)