[elpa] externals/listen c5722c18b7 095/103: Fix: (listen-mpd-completing-read)

[ELPA Syncer]

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

    Fix: (listen-mpd-completing-read)
---
 README.org    |  3 +++
 listen-mpd.el | 13 ++++++++-----
 listen.info   |  9 ++++++---
 3 files changed, 17 insertions(+), 8 deletions(-)

diff --git a/README.org b/README.org
index 4e45866641..086916f183 100644
--- a/README.org
+++ b/README.org
@@ -57,6 +57,9 @@ Use the command ~listen~ to show the Transient menu.  From 
there, it is--hopeful
 *Changes*
 + Various improvements in robustness.
 
+*Fixes*
++ Completing read of tracks from MPD.
+
 *Credits*
 + Thanks to [[https://amodernist.com/][Philip Kaludercic]] for reviewing.
 
diff --git a/listen-mpd.el b/listen-mpd.el
index 925690ad43..82c4bdbaa1 100644
--- a/listen-mpd.el
+++ b/listen-mpd.el
@@ -117,11 +117,14 @@ completion."
                      (_ (format "MPC Search (%s): " tag))))
            (result (completing-read prompt #'collection nil))
            (result (pcase tag
-                     ("any" result)
-                     (_ (mapcar (lambda (row)
-                                  (alist-get 'file row))
-                                (mpc-proc-buf-to-alists
-                                 (mpc-proc-cmd (list "find" (symbol-name tag) 
result))))))))
+                     ('any result)
+                     (_ (flatten-list
+                         (mapcar (lambda (result)
+                                   (mapcar (lambda (row)
+                                             (alist-get 'file row))
+                                           (mpc-proc-buf-to-alists
+                                            (mpc-proc-cmd (list "find" 
(symbol-name tag) result)))))
+                                 result))))))
       (mapcar (lambda (filename)
                 (expand-file-name filename (or mpc-mpd-music-directory 
listen-directory)))
               result))))
diff --git a/listen.info b/listen.info
index 8fbfed1793..7b7b74b487 100644
--- a/listen.info
+++ b/listen.info
@@ -121,6 +121,9 @@ File: README.info,  Node: v03-pre,  Next: v02,  Up: 
Changelog
    *Changes*
    • Various improvements in robustness.
 
+   *Fixes*
+   • Completing read of tracks from MPD.
+
    *Credits*
    • Thanks to Philip Kaludercic (https://amodernist.com/) for
      reviewing.
@@ -175,9 +178,9 @@ Node: Configuration2552
 Node: Usage2891
 Node: Changelog3162
 Node: v03-pre3327
-Node: v023684
-Node: v014324
-Node: Development4422
+Node: v023739
+Node: v014379
+Node: Development4477
 
 End Tag Table