improve squeeze-control startup

[squeeze-el.git] / squeeze.el

diff --git a/squeeze.el b/squeeze.el
index 7ac1841083cf3ffc6bf7e163de2211d73ff9692c..88bcc3a74ce0b452f99aa17149259400e5325a6e 100644 (file)
--- 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)))