From: Christophe Rhodes <csr21@cantab.net>
Date: Sat, 19 Apr 2014 18:22:51 +0000 (+0100)
Subject: clean up squeze-control-refresh
X-Git-Url: http://christophe.rhodes.io/gitweb/?a=commitdiff_plain;h=585626987767fee95b4666da3a44128fec0d3105;p=squeeze-el.git

clean up squeze-control-refresh

handle accepting process output in a separate function
---

diff --git a/squeeze.el b/squeeze.el
index e79a581..406ffac 100644
--- a/squeeze.el
+++ b/squeeze.el
@@ -239,18 +239,19 @@
 (defun squeeze-control-listen ()
   (squeeze-send-string "listen 1"))
 
+(defun squeeze-accept-process-output ()
+  (while (accept-process-output (get-buffer-process "*squeeze*") 0.1 nil t)))
+
 (defun squeeze-control-refresh ()
   (interactive)
   (let ((squeeze-control-inhibit-display t))
     (squeeze-control-query-players)
-    (accept-process-output (get-buffer-process "*squeeze*"))
+    (squeeze-accept-process-output)
     (squeeze-control-query-syncgroups)
-    (accept-process-output (get-buffer-process "*squeeze*"))
     (dolist (player squeeze-players)
       (squeeze-control-query-power (squeeze-player-playerid player))
-      (accept-process-output (get-buffer-process "*squeeze*"))
-      (squeeze-control-query-mixer-volume (squeeze-player-playerid player))
-      (accept-process-output (get-buffer-process "*squeeze*"))))
+      (squeeze-control-query-mixer-volume (squeeze-player-playerid player))))
+  (squeeze-accept-process-output)
   (squeeze-control-display-players))
 
 (defvar squeeze-control-mixer-map