From: Christophe Rhodes <csr21@cantab.net>
Date: Sun, 7 Dec 2014 20:38:11 +0000 (+0000)
Subject: update syncgroups parser for new server
X-Git-Url: http://christophe.rhodes.io/gitweb/?p=squeeze-el.git;a=commitdiff_plain;h=fbd77cd0ec0a7904b8eeb34abb13dc50220246e7;hp=54a98afcc7041cfbc06c3652703c3ad690dc86a8

update syncgroups parser for new server

no attempt at backwards compatibility, sorry
---

diff --git a/squeeze.el b/squeeze.el
index 7dbf120..a255c60 100644
--- a/squeeze.el
+++ b/squeeze.el
@@ -332,8 +332,9 @@
         (let ((syncgroups squeeze-syncgroups)
               (seen))
           (while syncgroups
-            (let ((names (getf syncgroups :names))
-                  (members (split-string (getf syncgroups :members) ",")))
+            (let ((names (getf syncgroups :sync_member_names))
+                  ;; new server version has sync_members and sync_member_names
+                  (members (split-string (getf syncgroups :sync_members) ",")))
               (insert (propertize names 'face 'squeeze-syncgroup-face) "\n")
               (dolist (member members)
                 (let ((player (squeeze-find-player member)))