(define-derived-mode squeeze-mode comint-mode "Squeeze"
"Major mode for interacting with the Squeezebox Server CLI.\\<squeeze-mode-map>"
- (add-hook 'comint-preoutput-filter-functions 'url-unhex-string nil t))
+ (add-hook 'comint-preoutput-filter-functions 'url-unhex-string nil t)
+ (add-hook 'comint-preoutput-filter-functions 'squeeze-update-state nil t))
+
+(defvar squeeze-control-mode-map
+ (let ((map (make-sparse-keymap)))
+ (define-key map (kbd "SPC") 'squeeze-control-toggle-power)
+ (define-key map (kbd "g") 'squeeze-control-refresh)
+ map))
+
+(define-derived-mode squeeze-control-mode special-mode "SqueezeControl"
+ "Major mode for controlling Squeezebox Servers.\\<squeeze-control-mode-map>")
+
+(defun squeeze-update-state (string)
+ (let (done-something)
+ (dolist (line (split-string string "\n"))
+ (when (squeeze-update-state-from-line line)
+ (setq done-something t))))
+ (squeeze-control-display-players)
+ string)
+
+(defun squeeze-update-state-from-line (string)
+ (cond
+ ((string-match "^players 0" string)
+ (setq squeeze-players (squeeze-parse-players-line string))
+ t)
+ ((string-match "^\\([0-9a-f][0-9a-f]%3A[0-9a-f][0-9a-f]%3A[0-9a-f][0-9a-f]%3A[0-9a-f][0-9a-f]%3A[0-9a-f][0-9a-f]%3A[0-9a-f][0-9a-f]\\) power\\( \\([01]\\)\\)?" string)
+ (let ((state (match-string 3 string))
+ (id (url-unhex-string (match-string 1 string)))
+ player)
+ (dolist (p squeeze-players)
+ (when (string= id (squeeze-player-playerid p))
+ (setq player p)
+ (return)))
+ (if state
+ (setf (squeeze-player-power player) state)
+ (let ((current (squeeze-player-power player)))
+ (setf (squeeze-player-power player)
+ (cond ((string= current "0") "1")
+ ((string= current "1") "0"))))))
+ t)))
+
+(defface squeeze-player-face
+ '((t))
+ "Face for displaying players"
+ :group 'squeeze)
+(defface squeeze-player-on-face
+ '((t :weight bold))
+ "Face for displaying players which are on"
+ :inherit 'squeeze-player-face
+ :group 'squeeze)
+(defface squeeze-player-off-face
+ '((t :weight light))
+ "Face for displaying players which are off"
+ :inherit 'squeeze-player-face
+ :group 'squeeze)
+
+(defvar squeeze-players ())
+
+(defun squeeze-control-query-players ()
+ (interactive)
+ (comint-send-string (get-buffer-process "*squeeze*") (format "players ?\n")))
+
+(defun squeeze-control-toggle-power (&optional id)
+ (interactive)
+ (unless id
+ (setq id (get-text-property (point) 'squeeze-playerid)))
+ (comint-send-string (get-buffer-process "*squeeze*") (format "%s power\n" id)))
+
+(defun squeeze-control-query-power (&optional id)
+ (interactive)
+ (unless id
+ (setq id (get-text-property (point) 'squeeze-playerid)))
+ (comint-send-string (get-buffer-process "*squeeze*") (format "%s power ?\n" id)))
+
+(defun squeeze-control-player-face (player)
+ (let ((power (squeeze-player-power player)))
+ (cond ((string= power "1") 'squeeze-player-on-face)
+ ((string= power "0") 'squeeze-player-off-face)
+ (t 'squeeze-player-face))))
+
+(defun squeeze-control-refresh ()
+ (interactive)
+ (squeeze-control-query-players)
+ (dolist (player squeeze-players)
+ (squeeze-control-query-power (squeeze-player-playerid player))))
+
+(defun squeeze-control-display-players ()
+ (interactive)
+ (let ((players squeeze-players))
+ (with-current-buffer (get-buffer-create "*squeeze-control*")
+ (squeeze-control-mode)
+ (read-only-mode -1)
+ (erase-buffer)
+ (dolist (player players)
+ (insert (propertize (squeeze-player-name player)
+ 'face (squeeze-control-player-face player)
+ 'squeeze-playerid (squeeze-player-playerid player))
+ "\n"))
+ (read-only-mode 1))))
+
+(cl-defstruct (squeeze-player (:constructor squeeze-make-player))
+ playerindex playerid uuid ip name model isplayer displaytype canpoweroff connected power)
+
+(defun squeeze-string-plistify (string start end)
+ (save-match-data
+ (let (result)
+ (loop
+ (message "start: %d" start)
+ (if (string-match "\\([a-z]+\\)%3A\\([^ \n]+\\)" string start)
+ (let ((mend (match-end 0)))
+ (when (> mend end)
+ (return))
+ (push (intern (format ":%s" (substring string (match-beginning 1) (match-end 1)))) result)
+ (push (url-unhex-string (substring string (match-beginning 2) (match-end 2))) result)
+ (setq start mend))
+ (return)))
+ (nreverse result))))
+
+(defun squeeze-parse-players-line (string)
+ (let ((countpos (string-match " count%3A\\([0-9]\\) " string))
+ (startpos (match-end 0)))
+ (unless countpos
+ (message "no count found in players line"))
+ (let ((count (parse-integer string (match-beginning 1) (match-end 1)))
+ result endpos)
+ (dotimes (i (1- count))
+ (setq endpos (progn (string-match " connected%3A[0-1] " string startpos)
+ (match-end 0)))
+ (push (apply 'squeeze-make-player (squeeze-string-plistify string startpos endpos)) result)
+ (setq startpos endpos))
+ (push (apply 'squeeze-make-player (squeeze-string-plistify string startpos (length string))) result)
+ result)))
(defun squeeze-complete-command-at-point ()
(save-excursion
;; Plugins commands and queries
"favorites"
-
))))
(defun squeeze ()
squeeze-server-port))))
(switch-to-buffer buffer)
(squeeze-mode)))
+
+(defun squeeze-control ()
+ (interactive)
+ (squeeze)
+ (let ((buffer (get-buffer-create "*squeeze-control*")))
+ (switch-to-buffer buffer)
+ (squeeze-control-display-players)))
projects / squeeze-el.git / blobdiff