From 75b07bebbcfb6f472c68b0967c2fb5a201d6f13f Mon Sep 17 00:00:00 2001 From: jao 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/media/jao-mpc.el') 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