- (dolist (player players)
- (insert (propertize (format "%20s" (squeeze-player-name player))
- 'face (squeeze-control-player-face player)
- 'squeeze-playerid (squeeze-player-playerid player)))
- (when (squeeze-player-volume player)
- (insert (propertize (squeeze-mixer-make-bar (squeeze-player-volume player) 28)
- 'squeeze-playerid (squeeze-player-playerid player)
- 'keymap squeeze-control-mixer-map
- 'pointer 'hdrag
- 'rear-nonsticky '(keymap))))
- (insert (propertize "\n" 'intangible t)))
- (read-only-mode 1))))
+ (cond
+ (squeeze-control-display-syncgroups
+ (let ((syncgroups squeeze-syncgroups)
+ (seen))
+ (while syncgroups
+ (let ((names (getf syncgroups :names))
+ (members (split-string (getf syncgroups :members) ",")))
+ (insert (propertize names 'face 'squeeze-syncgroup-face) "\n")
+ (dolist (member members)
+ (let ((player (squeeze-find-player member)))
+ (squeeze-control-insert-player player)
+ (push player seen))))
+ (setq syncgroups (cddddr syncgroups)))
+ (insert (propertize "No syncgroup" 'face 'squeeze-syncgroup-face) "\n")
+ (dolist (player squeeze-players)
+ (unless (member player seen)
+ (squeeze-control-insert-player player)))))
+ (t
+ (dolist (player squeeze-players)
+ (squeeze-control-insert-player player))
+ (read-only-mode 1)))
+ (goto-char saved))))