mpc: old tidal code removed

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