branch: externals/emms
commit 7d56cdf822c4d88baddb570e1228d901d6ca0ed4
Author: Yoni Rabkin <y...@rabkins.net>
Commit: Yoni Rabkin <y...@rabkins.net>
* emms-setup.el: player discovery
---
emms-setup.el | 47 +++++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 47 insertions(+)
diff --git a/emms-setup.el b/emms-setup.el
index 5fd3267b68..b7a9f4e267 100644
--- a/emms-setup.el
+++ b/emms-setup.el
@@ -57,6 +57,14 @@
"Default list of players for emms-setup."
:type 'list)
+(defvar emms-setup-discover-player-alist
+ '((emms-player-mpg321 . "mpg123")
+ (emms-player-ogg123 . "ogg123")
+ (emms-player-mplayer . "mplayer")
+ (emms-player-mpv . "mpv")
+ (emms-player-vlc . "vlc"))
+ "Association list of players and their binaries.")
+
;;;###autoload
(defun emms-minimalistic ()
"An Emms setup script.
@@ -148,5 +156,44 @@ the stable features which come with the Emms distribution."
(make-obsolete 'emms-standard 'emms-all "4.1")
+;;; ------------------------------------------------------------------
+;;; Player discovery
+;;; ------------------------------------------------------------------
+(defun emms-setup-discover-player-binary (bin-str)
+ "Find if BIN-STR can be executed in the current environment."
+ (when (not (eq system-type 'gnu/linux))
+ (error "Player discovery only supported on GNU/Linux."))
+ (let ((result (call-process "which" nil nil nil bin-str)))
+ (cond ((eq 0 result) t)
+ ((eq 1 result) nil)
+ ((eq 2 result) (error "invalid arguments to `which'.")))))
+
+(defun emms-setup-discover-player-has-binary-p (player)
+ "Find if PLAYER has an excecutable in the current environment."
+ (let ((bin-str (alist-get player emms-setup-discover-player-alist)))
+ (if bin-str
+ (emms-setup-discover-player-binary bin-str)
+ nil)))
+
+(defun emms-setup-discover-players ()
+ "Interactively add players to `emms-player-list'."
+ (interactive)
+ (when (and emms-player-list
+ (y-or-n-p (format "emms-player-list is already set to %s, do you
want to empty it first?"
+ emms-player-list)))
+ (setq emms-player-list nil))
+ (let ((players (copy-tree emms-setup-default-player-list)))
+ (while players
+ (let ((player (car players)))
+ (when (emms-setup-discover-player-has-binary-p player)
+ (when (y-or-n-p
+ (format "Player %s is installed on your system, add it to the
Emms player list?"
+ player))
+ (add-to-list 'emms-player-list player))))
+ (setq players (cdr players))))
+ (message "emms-player-list is now set to: %s" emms-player-list))
+
+
+
(provide 'emms-setup)
;;; emms-setup.el ends here
