From 0eb04fc1183f7e0af07160443443d9566efa7d60 Mon Sep 17 00:00:00 2001
From: Christophe Rhodes <csr21@cantab.net>
Date: Mon, 24 Mar 2014 09:16:12 +0000
Subject: [PATCH] improve squeeze-control startup

---
 squeeze.el | 5 +++++
 1 file changed, 5 insertions(+)

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)))
-- 
2.39.5