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 --- attic/elisp/misc.el | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) (limited to 'attic') diff --git a/attic/elisp/misc.el b/attic/elisp/misc.el index 534c38a..dc3a76c 100644 --- a/attic/elisp/misc.el +++ b/attic/elisp/misc.el @@ -776,6 +776,26 @@ (enwc-display-mode-line nil))) +;;; tidal/mpc +(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))) + (message "%s" str) + (mapcar (lambda (s) (split-string s ":::" t " ")) res))) + +(defun jao-mpc-select-tidal-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))))) ;;; snippets (defun jao-sway-run-or-focus-tidal () (interactive) -- cgit v1.2.3