branch: externals/listen
commit d146e75db6464112e5bf77b2e5fac0227eb0dec8
Author: Adam Porter <a...@alphapapa.net>
Commit: Adam Porter <a...@alphapapa.net>
Change: (listen-library) Use path as default name
---
README.org | 1 +
listen-library.el | 10 ++++++----
2 files changed, 7 insertions(+), 4 deletions(-)
diff --git a/README.org b/README.org
index 5fbae10e8e..4f9fe36ecf 100644
--- a/README.org
+++ b/README.org
@@ -85,6 +85,7 @@ Use the command ~listen~ to show the Transient menu. From
there, it is--hopeful
+ Transient ~qq~ command exits the transient.
+ Optimize updating of individual tracks in queue buffer.
+ Improve handling of maximum volume with VLC (allowing boosting over 100%).
++ Library buffer name defaults to given path.
*Fixes*
+ When reverting a queue's tracks from disk, re-detect the currently playing
track by filename.
diff --git a/listen-library.el b/listen-library.el
index d778c05318..e94ac8866d 100644
--- a/listen-library.el
+++ b/listen-library.el
@@ -129,10 +129,12 @@ specified in which to show the view."
(listen-queue-tracks-for
(if (file-directory-p path)
(directory-files-recursively path ".")
- (list path))))))
- (list tracks-function
- :name (when current-prefix-arg
- (read-string "Library name: ")))))
+ (list path)))))
+ (name (cond (current-prefix-arg
+ (read-string "Library name: "))
+ ((file-directory-p path)
+ path))))
+ (list tracks-function :name name)))
(let* ((tracks (cl-etypecase tracks
(function (funcall tracks))
(list tracks)))
