summaryrefslogtreecommitdiffhomepage
path: root/lib/media/jao-mpc.el
diff options
context:
space:
mode:
Diffstat (limited to 'lib/media/jao-mpc.el')
-rw-r--r--lib/media/jao-mpc.el20
1 files changed, 0 insertions, 20 deletions
diff --git a/lib/media/jao-mpc.el b/lib/media/jao-mpc.el
index 74f9b5b..4aef47d 100644
--- a/lib/media/jao-mpc.el
+++ b/lib/media/jao-mpc.el
@@ -323,25 +323,5 @@
(when-let (album (completing-read "Play album: " albums nil t))
(jao-mpc--add-and-play (car (split-string album "-" t " ")) port))))
-(defconst jao-mpc--search-cmd
- "-f '%%album%% - %%artist%% :::%%file%%' search %s '%s'|grep :::tidal:album")
-
-(defun jao-mpc--search-albums (query)
- (let* ((cmd (format jao-mpc--search-cmd "any" query))
- (str (jao-mpc--cmd cmd))
- (res (split-string str "\n" t)))
- (mapcar (lambda (s) (split-string s ":::" t " ")) res)))
-
-;;;###autoload
-(defun jao-mpc-search-and-select-album (&optional query port)
- (interactive "sSearch terms: ")
- (let* ((jao-mpc-port (or port jao-mpc-port))
- (resa (jao-mpc--search-albums query)))
- (if (null resa)
- (user-error "No results")
- (when-let* ((a (completing-read "Play album: " resa nil t))
- (s (car (alist-get a resa nil nil 'string=))))
- (jao-mpc--add-and-play s port t)))))
-
(provide 'jao-mpc)
;;; jao-mpc.el ends here