branch: externals/listen
commit 355eebfaec70d7f52e16b51e559614f6cc499bbf
Author: Adam Porter <a...@alphapapa.net>
Commit: Adam Porter <a...@alphapapa.net>
Fix: (listen-library) TRACKS argument/variable
Set the local variable to the original TRACKS value so it can be
bookmarked and restored properly (e.g. rebuilding the list of files
and tracks from the original directory argument rather than saving the
tracks objects in the bookmark record).
---
listen-library.el | 9 ++++-----
1 file changed, 4 insertions(+), 5 deletions(-)
diff --git a/listen-library.el b/listen-library.el
index e94ac8866d..936a7f1073 100644
--- a/listen-library.el
+++ b/listen-library.el
@@ -135,10 +135,7 @@ specified in which to show the view."
((file-directory-p path)
path))))
(list tracks-function :name name)))
- (let* ((tracks (cl-etypecase tracks
- (function (funcall tracks))
- (list tracks)))
- (buffer-name (if name
+ (let* ((buffer-name (if name
(format "*Listen library: %s*" name)
(generate-new-buffer-name (format "*Listen
library*"))))
(buffer (or buffer (get-buffer-create buffer-name)))
@@ -150,7 +147,9 @@ specified in which to show the view."
(erase-buffer)
(thread-last listen-library-taxy
taxy-emptied
- (taxy-fill tracks)
+ (taxy-fill (cl-etypecase tracks
+ (function (funcall tracks))
+ (list tracks)))
;; (taxy-sort #'string< #'listen-queue-track-)
(taxy-sort* #'string< #'taxy-name)
taxy-magit-section-insert))
