From 75b07bebbcfb6f472c68b0967c2fb5a201d6f13f Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sun, 26 Nov 2023 02:32:26 +0000
Subject: mpc: old tidal code removed
---
lib/media/jao-mpc.el | 20 --------------------
1 file changed, 20 deletions(-)
(limited to 'lib')
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
--
cgit v1.2.3