summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--lib/media/jao-mpc.el14
1 files changed, 14 insertions, 0 deletions
diff --git a/lib/media/jao-mpc.el b/lib/media/jao-mpc.el
index 6f74243..2ad27a4 100644
--- a/lib/media/jao-mpc.el
+++ b/lib/media/jao-mpc.el
@@ -251,5 +251,19 @@
(when secondary-port (jao-mpc-connect secondary-port))
(jao-minibuffer-add-msg-variable 'jao-mpc-minibuffer-str 1))
+(defvar jao-mpc--album-titles nil)
+(defconst jao-mpc--albums-cmd
+ "-f '%album% - %artist%' find \"(ALBUM =~ '.*')\" | uniq")
+
+;;;###autoload
+(defun jao-mpc-select-album ()
+ (interactive)
+ (let ((albums (or jao-mpc--album-titles
+ (setq jao-mpc--album-titles
+ (split-string (jao-mpc--cmd jao-mpc--albums-cmd)
+ "\n" t)))))
+ (when-let (album (completing-read "Play album: " albums nil t))
+ (jao-mpc--add-and-play (car (split-string album "-" t " "))))))
+
(provide 'jao-mpc)
;;; jao-mpc.el ends here