From: Christophe Rhodes <csr21@cantab.net>
Date: Mon, 24 Mar 2014 09:16:12 +0000 (+0000)
Subject: improve squeeze-control startup
X-Git-Url: http://christophe.rhodes.io/gitweb/?a=commitdiff_plain;h=0eb04fc1183f7e0af07160443443d9566efa7d60;p=squeeze-el.git

improve squeeze-control startup
---

diff --git a/squeeze.el b/squeeze.el
index 7ac1841..88bcc3a 100644
--- a/squeeze.el
+++ b/squeeze.el
@@ -97,6 +97,9 @@
           ((string= power "0") 'squeeze-player-off-face)
           (t 'squeeze-player-face))))
 
+(defun squeeze-control-listen ()
+  (comint-send-string (get-buffer-process "*squeeze*") (format "listen 1\n")))
+
 (defun squeeze-control-refresh ()
   (interactive)
   (squeeze-control-query-players)
@@ -207,4 +210,6 @@
   (squeeze)
   (let ((buffer (get-buffer-create "*squeeze-control*")))
     (switch-to-buffer buffer)
+    (squeeze-control-listen)
+    (squeeze-control-refresh)
     (squeeze-control-display-players)))