From 053f841dfba34194e1462de26192bf1d810c365d Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Fri, 12 Dec 2014 17:29:12 +0000 Subject: [PATCH] attempt to do the right thing for common cases of unselected players --- squeeze.el | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/squeeze.el b/squeeze.el index 1d4a92d..3808a20 100644 --- a/squeeze.el +++ b/squeeze.el @@ -56,6 +56,12 @@ (define-key map (kbd "!") 'squeeze-control-reconnect) map)) +(defun squeeze-control-current-player () + (or squeeze-control-current-player + (if (= (length squeeze-players) 1) + (setq squeeze-control-current-player (squeeze-player-playerid (car squeeze-players))) + (call-interactively 'squeeze-control-select-player)))) + (defvar squeeze-control-current-player nil) (defun squeeze-control-select-player (id) @@ -67,11 +73,11 @@ (defun squeeze-control-next-track () (interactive) - (squeeze-send-string "%s playlist index +1" squeeze-control-current-player)) + (squeeze-send-string "%s playlist index +1" (squeeze-control-current-player))) (defun squeeze-control-previous-track () (interactive) - (squeeze-send-string "%s playlist index -1" squeeze-control-current-player)) + (squeeze-send-string "%s playlist index -1" (squeeze-control-current-player))) (define-derived-mode squeeze-control-mode special-mode "SqueezeControl" "Major mode for controlling Squeezebox Servers.\\") @@ -612,7 +618,7 @@ (defun squeeze-albums-load-album () (interactive) (squeeze-send-string "%s playlistcontrol cmd:load album_id:%s" - squeeze-control-current-player + (squeeze-control-current-player) (squeeze-album-id (tabulated-list-get-id)))) (provide 'squeeze) -- 2.30.2