X-Git-Url: http://christophe.rhodes.io/gitweb/?p=squeeze-el.git;a=blobdiff_plain;f=squeeze.el;h=c4a229ad0249a345a0691b2e4914c03e504e36b9;hp=7ac1841083cf3ffc6bf7e163de2211d73ff9692c;hb=698e6e901e34e13c21cccdadea39f359399f384d;hpb=b64ea2b2167fe6f6ef5a5102564e6ff792280476 diff --git a/squeeze.el b/squeeze.el index 7ac1841..c4a229a 100644 --- a/squeeze.el +++ b/squeeze.el @@ -17,79 +17,218 @@ (define-derived-mode squeeze-mode comint-mode "Squeeze" "Major mode for interacting with the Squeezebox Server CLI.\\" + (add-to-list 'completion-at-point-functions 'squeeze-complete-command-at-point) (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 "f") 'squeeze-control-play-favorite) (define-key map (kbd "g") 'squeeze-control-refresh) + (define-key map (kbd "+") 'squeeze-control-volume-up) + (define-key map (kbd "-") 'squeeze-control-volume-down) + (define-key map (kbd "t") 'squeeze-control-toggle-syncgroup-display) map)) (define-derived-mode squeeze-control-mode special-mode "SqueezeControl" "Major mode for controlling Squeezebox Servers.\\") +(defvar squeeze-control-inhibit-display nil) + (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) + (setq done-something t))) + (when done-something + (unless squeeze-control-inhibit-display + (squeeze-control-display-players)))) string) +(defconst squeeze-player-line-regexp + "^\\(\\(?:[0-9a-f]\\{2\\}%3A\\)\\{5\\}[0-9a-f]\\{2\\}\\) ") + +(defun squeeze-find-player (id) + (dolist (player squeeze-players) + (when (string= id (squeeze-player-playerid player)) + (return player)))) + +(defun squeeze-update-power (player state) + (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")))))) + +(defun squeeze-update-mixer-volume (player value) + (let ((current (squeeze-player-volume player)) + (number (string-to-number value))) + (if (string-match "^[-+]" value) + (setf (squeeze-player-volume player) + (and current (max 0 (min 100 (+ current number))))) + (setf (squeeze-player-volume player) number)))) + (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))) + ((string-match "^syncgroups" string) + (setq squeeze-syncgroups (squeeze-parse-syncgroups-line string)) + t) + ((string-match squeeze-player-line-regexp string) + (let ((substring (substring string (match-end 0))) + (id (url-unhex-string (match-string 1 string)))) + (cond + ((string-match "^power\\(?: \\([01]\\)\\)?" substring) + (let ((state (match-string 1 substring)) + (player (squeeze-find-player id))) + (squeeze-update-power player state)) + t) + ((string-match "^mixer volume \\(\\(?:-\\|%2B\\)?[0-9]*\\)" substring) + (let ((value (url-unhex-string (match-string 1 substring))) + (player (squeeze-find-player id))) + (squeeze-update-mixer-volume player value)) + t)))))) (defface squeeze-player-face '((t)) "Face for displaying players" :group 'squeeze) (defface squeeze-player-on-face - '((t :weight bold)) + '((t :weight bold :inherit squeeze-player-face)) "Face for displaying players which are on" - :inherit 'squeeze-player-face :group 'squeeze) (defface squeeze-player-off-face - '((t :weight light)) + '((t :weight light :inherit squeeze-player-face)) "Face for displaying players which are off" - :inherit 'squeeze-player-face :group 'squeeze) +(defface squeeze-mixer-face + '((t :weight bold)) + "Face for displaying mixer information" + :group 'squeeze) +(defface squeeze-mixer-muted-face + '((t :weight light :inherit squeeze-mixer-face)) + "Face for displaying mixer information when muted" + :group 'squeeze) +(defface squeeze-mixer-quiet-face + '((t :foreground "green3" :inherit squeeze-mixer-face)) + "Face for quiet volume" + :group 'squeeze) +(defface squeeze-mixer-medium-face + '((t :foreground "gold" :inherit squeeze-mixer-face)) + "Face for medium volume" + :group 'squeeze) +(defface squeeze-mixer-loud-face + '((t :foreground "OrangeRed1" :inherit squeeze-mixer-face)) + "Face for loud volume" + :group 'squeeze) +(defface squeeze-mixer-muted-quiet-face + '((t :inherit (squeeze-mixer-muted-face squeeze-mixer-quiet-face))) + "Face for quiet volume when muted") +(defface squeeze-syncgroup-face + '((t :slant italic)) + "Face for syncgroups" + :group 'squeeze) + +(defun squeeze-mixer-compute-bar (vol width) + (let* ((exact (* width (/ vol 100.0))) + (nfull (floor exact)) + (frac (- exact nfull)) + (nblank (floor (- width exact)))) + (format "%s%s%s" + (make-string nfull ?█) + (cond ((= width (+ nfull nblank)) "") + ((< frac 0.0625) " ") + ((< frac 0.1875) "▏") + ((< frac 0.3125) "▎") + ((< frac 0.4375) "▍") + ((< frac 0.5625) "▌") + ((< frac 0.6875) "▋") + ((< frac 0.8125) "▊") + ((< frac 0.9375) "▉") + (t "█")) + (make-string nblank ? )))) + +(defun squeeze-mixer-make-bar (vol width) + (let ((bar (squeeze-mixer-compute-bar vol width)) + (lo (floor (* 0.65 width))) + (hi (floor (* 0.9 width)))) + (concat "▕" + (propertize (substring bar 0 lo) 'face 'squeeze-mixer-quiet-face) + (propertize (substring bar lo hi) 'face 'squeeze-mixer-medium-face) + (propertize (substring bar hi) 'face 'squeeze-mixer-loud-face) + (propertize "▏" 'intangible t)))) + (defvar squeeze-players ()) +(defvar squeeze-syncgroups ()) + +(defun squeeze-send-string (control &rest arguments) + (let* ((process (get-buffer-process "*squeeze*")) + (string (apply #'format control arguments)) + (length (length string))) + (unless (and (> length 0) (char-equal (aref string (1- length)) ?\n)) + (setq string (format "%s\n" string))) + (if process + (comint-send-string process string) + (error "can't find squeeze process")))) + +(defun squeeze-control-query-syncgroups () + (interactive) + (squeeze-send-string "syncgroups ?")) (defun squeeze-control-query-players () (interactive) - (comint-send-string (get-buffer-process "*squeeze*") (format "players ?\n"))) + (squeeze-send-string "players 0")) (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))) + (squeeze-send-string "%s power" id)) + +(defun squeeze-control-play-favorite (&optional favorite id) + (interactive "nFavourite: ") + (unless id + (setq id (get-text-property (point) 'squeeze-playerid))) + (squeeze-send-string "%s favorites playlist play item_id:%d" id favorite)) (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))) + (when id + (squeeze-send-string "%s power ?" id))) + +(defun squeeze-control-volume-up (&optional id inc) + (interactive) + (unless inc (setq inc 5)) + (unless id + (setq id (get-text-property (point) 'squeeze-playerid))) + (when id + (squeeze-send-string "%s mixer volume %+d" id inc))) + +(defun squeeze-control-volume-down (&optional id inc) + (interactive) + (unless inc (setq inc 5)) + (unless id + (setq id (get-text-property (point) 'squeeze-playerid))) + (when id + (squeeze-send-string "%s mixer volume %+d" id (- inc)))) + +(defun squeeze-control-volume-set (id val) + (interactive) + (squeeze-send-string "%s mixer volume %d" id val)) + +(defun squeeze-control-query-mixer-volume (&optional id) + (interactive) + (unless id + (setq id (get-text-property (point) 'squeeze-playerid))) + (when id + (squeeze-send-string "%s mixer volume ?" id))) (defun squeeze-control-player-face (player) (let ((power (squeeze-player-power player))) @@ -97,34 +236,105 @@ ((string= power "0") 'squeeze-player-off-face) (t 'squeeze-player-face)))) +(defun squeeze-control-listen () + (squeeze-send-string "listen 1")) + (defun squeeze-control-refresh () (interactive) - (squeeze-control-query-players) - (dolist (player squeeze-players) - (squeeze-control-query-power (squeeze-player-playerid player)))) + (let ((squeeze-control-inhibit-display t)) + (squeeze-control-query-players) + (accept-process-output (get-buffer-process "*squeeze*")) + (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-display-players)) + +(defvar squeeze-control-mixer-map + (let ((map (make-sparse-keymap))) + (define-key map (kbd "RET") 'squeeze-control-mixer-set-volume) + (define-key map [mouse-1] 'squeeze-control-mixer-mouse-1) + map)) + +(defun squeeze-control-compute-volume (pos) + (let* ((end (next-single-property-change pos 'keymap)) + (start (previous-single-property-change end 'keymap))) + (/ (* 100 (- (point) start)) (- end start 1)))) + +(defun squeeze-control-mixer-mouse-1 (event) + (interactive "e") + (let* ((pos (cadadr event)) + (val (squeeze-control-compute-volume pos)) + (id (get-text-property pos 'squeeze-playerid))) + (squeeze-control-volume-set id val))) + +(defun squeeze-control-mixer-set-volume () + (interactive) + (let* ((val (squeeze-control-compute-volume (point))) + (id (get-text-property (point) 'squeeze-playerid))) + (squeeze-control-volume-set id val))) + +(defvar squeeze-control-display-syncgroups nil) + +(defun squeeze-control-toggle-syncgroup-display () + (interactive) + (setf squeeze-control-display-syncgroups + (not squeeze-control-display-syncgroups)) + (squeeze-control-display-players)) + +(defun squeeze-control-insert-player (player) + (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))) (defun squeeze-control-display-players () (interactive) - (let ((players squeeze-players)) - (with-current-buffer (get-buffer-create "*squeeze-control*") + (with-current-buffer (get-buffer-create "*squeeze-control*") + (let ((saved (point))) (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)))) + (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)))) (cl-defstruct (squeeze-player (:constructor squeeze-make-player)) - playerindex playerid uuid ip name model isplayer displaytype canpoweroff connected power) + playerindex playerid uuid ip name model isplayer displaytype canpoweroff connected power volume) (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) @@ -135,6 +345,12 @@ (return))) (nreverse result)))) +(defun squeeze-parse-syncgroups-line (string) + (let ((syncgroupspos (string-match "^syncgroups " string)) + (startpos (match-end 0))) + (when startpos + (squeeze-string-plistify string startpos (length string))))) + (defun squeeze-parse-players-line (string) (let ((countpos (string-match " count%3A\\([0-9]\\) " string)) (startpos (match-end 0))) @@ -207,4 +423,6 @@ (squeeze) (let ((buffer (get-buffer-create "*squeeze-control*"))) (switch-to-buffer buffer) + (squeeze-control-listen) + (squeeze-control-refresh) (squeeze-control-display-players)))