squeeze.el

   1 (defgroup squeeze nil
   2   "Interact with Squeezebox media servers"
   3   :prefix "squeeze-"
   4   :group 'applications)
   5
   6 (defcustom squeeze-server-address "localhost"
   7   "Address for the Squeezebox server"
   8   :group 'squeeze)
   9 (defcustom squeeze-server-port 9090
  10   "Port number for the Squeezebox server"
  11   :group 'squeeze)
  12
  13 (defvar squeeze-mode-map
  14   (let ((map (make-sparse-keymap)))
  15     (define-key map (kbd "TAB") 'completion-at-point)
  16     map))
  17
  18 (define-derived-mode squeeze-mode comint-mode "Squeeze"
  19   "Major mode for interacting with the Squeezebox Server CLI.\\<squeeze-mode-map>"
  20   (add-hook 'comint-preoutput-filter-functions 'url-unhex-string nil t)
  21   (add-hook 'comint-preoutput-filter-functions 'squeeze-update-state nil t))
  22
  23 (defvar squeeze-control-mode-map
  24   (let ((map (make-sparse-keymap)))
  25     (define-key map (kbd "SPC") 'squeeze-control-toggle-power)
  26     (define-key map (kbd "g") 'squeeze-control-refresh)
  27     (define-key map (kbd "+") 'squeeze-control-volume-up)
  28     (define-key map (kbd "-") 'squeeze-control-volume-down)
  29     map))
  30
  31 (define-derived-mode squeeze-control-mode special-mode "SqueezeControl"
  32   "Major mode for controlling Squeezebox Servers.\\<squeeze-control-mode-map>")
  33
  34 (defvar squeeze-control-inhibit-display nil)
  35
  36 (defun squeeze-update-state (string)
  37   (let (done-something)
  38     (dolist (line (split-string string "\n"))
  39       (when (squeeze-update-state-from-line line)
  40         (setq done-something t)))
  41     (when done-something
  42       (unless squeeze-control-inhibit-display
  43         (squeeze-control-display-players))))
  44   string)
  45
  46 (defconst squeeze-player-line-regexp
  47   "^\\(\\(?:[0-9a-f]\\{2\\}%3A\\)\\{5\\}[0-9a-f]\\{2\\}\\) ")
  48
  49 (defun squeeze-find-player (id)
  50   (dolist (player squeeze-players)
  51     (when (string= id (squeeze-player-playerid player))
  52       (return player))))
  53
  54 (defun squeeze-update-power (player state)
  55   (if state
  56       (setf (squeeze-player-power player) state)
  57     (let ((current (squeeze-player-power player)))
  58       (setf (squeeze-player-power player)
  59             (cond ((string= current "0") "1")
  60                   ((string= current "1") "0"))))))
  61
  62 (defun squeeze-update-mixer-volume (player value)
  63   (let ((current (squeeze-player-volume player))
  64         (number (string-to-number value)))
  65     (if (string-match "^[-+]" value)
  66         (setf (squeeze-player-volume player)
  67               (and current (max 0 (min 100 (+ current number)))))
  68       (setf (squeeze-player-volume player) number))))
  69
  70 (defun squeeze-update-state-from-line (string)
  71   (cond
  72    ((string-match "^players 0" string)
  73     (setq squeeze-players (squeeze-parse-players-line string))
  74     t)
  75    ((string-match squeeze-player-line-regexp string)
  76     (let ((substring (substring string (match-end 0)))
  77           (id (url-unhex-string (match-string 1 string))))
  78       (cond
  79        ((string-match "^power\\(?: \\([01]\\)\\)?" substring)
  80         (let ((state (match-string 1 substring))
  81               (player (squeeze-find-player id)))
  82           (squeeze-update-power player state))
  83         t)
  84        ((string-match "^mixer volume \\(\\(?:-\\|%2B\\)?[0-9]*\\)" substring)
  85         (let ((value (url-unhex-string (match-string 1 substring)))
  86               (player (squeeze-find-player id)))
  87           (squeeze-update-mixer-volume player value))
  88         t))))))
  89
  90 (defface squeeze-player-face
  91   '((t))
  92   "Face for displaying players"
  93   :group 'squeeze)
  94 (defface squeeze-player-on-face
  95   '((t :weight bold :inherit squeeze-player-face))
  96   "Face for displaying players which are on"
  97   :group 'squeeze)
  98 (defface squeeze-player-off-face
  99   '((t :weight light :inherit squeeze-player-face))
 100   "Face for displaying players which are off"
 101   :group 'squeeze)
 102
 103 (defface squeeze-mixer-face
 104   '((t :weight bold))
 105   "Face for displaying mixer information"
 106   :group 'squeeze)
 107 (defface squeeze-mixer-muted-face
 108   '((t :weight light :inherit squeeze-mixer-face))
 109   "Face for displaying mixer information when muted"
 110   :group 'squeeze)
 111 (defface squeeze-mixer-quiet-face
 112   '((t :foreground "green3" :inherit squeeze-mixer-face))
 113   "Face for quiet volume"
 114   :group 'squeeze)
 115 (defface squeeze-mixer-medium-face
 116   '((t :foreground "gold" :inherit squeeze-mixer-face))
 117   "Face for medium volume"
 118   :group 'squeeze)
 119 (defface squeeze-mixer-loud-face
 120   '((t :foreground "OrangeRed1" :inherit squeeze-mixer-face))
 121   "Face for loud volume"
 122   :group 'squeeze)
 123 (defface squeeze-mixer-muted-quiet-face
 124   '((t :inherit (squeeze-mixer-muted-face squeeze-mixer-quiet-face)))
 125   "Face for quiet volume when muted")
 126
 127 (defun squeeze-mixer-compute-bar (vol width)
 128   (let* ((exact (* width (/ vol 100.0)))
 129          (nfull (floor exact))
 130          (frac (- exact nfull))
 131          (nblank (floor (- width exact))))
 132     (format "%s%s%s"
 133             (make-string nfull ?█)
 134             (cond ((= width (+ nfull nblank)) "")
 135                   ((< frac 0.0625) " ")
 136                   ((< frac 0.1875) "▏")
 137                   ((< frac 0.3125) "▎")
 138                   ((< frac 0.4375) "▍")
 139                   ((< frac 0.5625) "▌")
 140                   ((< frac 0.6875) "▋")
 141                   ((< frac 0.8125) "▊")
 142                   ((< frac 0.9375) "▉")
 143                   (t "█"))
 144             (make-string nblank ? ))))
 145
 146 (defun squeeze-mixer-make-bar (vol width)
 147   (let ((bar (squeeze-mixer-compute-bar vol width))
 148         (lo (floor (* 0.65 width)))
 149         (hi (floor (* 0.9 width))))
 150     (concat "▕"
 151             (propertize (substring bar 0 lo) 'face 'squeeze-mixer-quiet-face)
 152             (propertize (substring bar lo hi) 'face 'squeeze-mixer-medium-face)
 153             (propertize (substring bar hi) 'face 'squeeze-mixer-loud-face)
 154             (propertize "▏" 'intangible t))))
 155
 156 (defvar squeeze-players ())
 157
 158 (defun squeeze-control-query-players ()
 159   (interactive)
 160   (comint-send-string (get-buffer-process "*squeeze*") (format "players 0\n")))
 161
 162 (defun squeeze-control-toggle-power (&optional id)
 163   (interactive)
 164   (unless id
 165     (setq id (get-text-property (point) 'squeeze-playerid)))
 166   (comint-send-string (get-buffer-process "*squeeze*") (format "%s power\n" id)))
 167
 168 (defun squeeze-control-query-power (&optional id)
 169   (interactive)
 170   (unless id
 171     (setq id (get-text-property (point) 'squeeze-playerid)))
 172   (when id
 173     (comint-send-string (get-buffer-process "*squeeze*") (format "%s power ?\n" id))))
 174
 175 (defun squeeze-control-volume-up (&optional id inc)
 176   (interactive)
 177   (unless inc (setq inc 5))
 178   (unless id
 179     (setq id (get-text-property (point) 'squeeze-playerid)))
 180   (when id
 181     (comint-send-string (get-buffer-process "*squeeze*") (format "%s mixer volume %+d\n" id inc))))
 182
 183 (defun squeeze-control-volume-down (&optional id inc)
 184   (interactive)
 185   (unless inc (setq inc 5))
 186   (unless id
 187     (setq id (get-text-property (point) 'squeeze-playerid)))
 188   (when id
 189     (comint-send-string (get-buffer-process "*squeeze*") (format "%s mixer volume %+d\n" id (- inc)))))
 190
 191 (defun squeeze-control-volume-set (id val)
 192   (interactive)
 193   (comint-send-string (get-buffer-process "*squeeze*") (format "%s mixer volume %d\n" id val)))
 194
 195 (defun squeeze-control-query-mixer-volume (&optional id)
 196   (interactive)
 197   (unless id
 198     (setq id (get-text-property (point) 'squeeze-playerid)))
 199   (when id
 200     (comint-send-string (get-buffer-process "*squeeze*") (format "%s mixer volume ?\n" id))))
 201
 202 (defun squeeze-control-player-face (player)
 203   (let ((power (squeeze-player-power player)))
 204     (cond ((string= power "1") 'squeeze-player-on-face)
 205           ((string= power "0") 'squeeze-player-off-face)
 206           (t 'squeeze-player-face))))
 207
 208 (defun squeeze-control-listen ()
 209   (comint-send-string (get-buffer-process "*squeeze*") (format "listen 1\n")))
 210
 211 (defun squeeze-control-refresh ()
 212   (interactive)
 213   (let ((squeeze-control-inhibit-display t))
 214     (squeeze-control-query-players)
 215     (accept-process-output (get-buffer-process "*squeeze*"))
 216     (dolist (player squeeze-players)
 217       (squeeze-control-query-power (squeeze-player-playerid player))
 218       (accept-process-output (get-buffer-process "*squeeze*"))
 219       (squeeze-control-query-mixer-volume (squeeze-player-playerid player))
 220       (accept-process-output (get-buffer-process "*squeeze*"))))
 221   (squeeze-control-display-players))
 222
 223 (defvar squeeze-control-mixer-map
 224   (let ((map (make-sparse-keymap)))
 225     (define-key map (kbd "RET") 'squeeze-control-mixer-foo)
 226     map))
 227
 228 (defun squeeze-control-mixer-foo ()
 229   (interactive)
 230   (let* ((end (next-single-property-change (point) 'keymap))
 231          (start (previous-single-property-change end 'keymap))
 232          (val (/ (* 100 (- (point) start)) (- end start 1)))
 233          (id (get-text-property (point) 'squeeze-playerid)))
 234     (message "start %d, end %d, val %d" start end val)
 235     (squeeze-control-volume-set id val)))
 236
 237 (defun squeeze-control-display-players ()
 238   (interactive)
 239   (let ((players squeeze-players))
 240     (with-current-buffer (get-buffer-create "*squeeze-control*")
 241       (squeeze-control-mode)
 242       (read-only-mode -1)
 243       (erase-buffer)
 244       (dolist (player players)
 245         (insert (propertize (format "%20s" (squeeze-player-name player))
 246                             'face (squeeze-control-player-face player)
 247                             'squeeze-playerid (squeeze-player-playerid player)))
 248         (when (squeeze-player-volume player)
 249           (insert (propertize (squeeze-mixer-make-bar (squeeze-player-volume player) 28)
 250                               'squeeze-playerid (squeeze-player-playerid player)
 251                               'keymap squeeze-control-mixer-map
 252                               'rear-nonsticky '(keymap))))
 253         (insert (propertize "\n" 'intangible t)))
 254       (read-only-mode 1))))
 255
 256 (cl-defstruct (squeeze-player (:constructor squeeze-make-player))
 257   playerindex playerid uuid ip name model isplayer displaytype canpoweroff connected power volume)
 258
 259 (defun squeeze-string-plistify (string start end)
 260   (save-match-data
 261     (let (result)
 262       (loop
 263        (if (string-match "\\([a-z]+\\)%3A\\([^ \n]+\\)" string start)
 264            (let ((mend (match-end 0)))
 265              (when (> mend end)
 266                (return))
 267              (push (intern (format ":%s" (substring string (match-beginning 1) (match-end 1)))) result)
 268              (push (url-unhex-string (substring string (match-beginning 2) (match-end 2))) result)
 269              (setq start mend))
 270          (return)))
 271       (nreverse result))))
 272
 273 (defun squeeze-parse-players-line (string)
 274   (let ((countpos (string-match " count%3A\\([0-9]\\) " string))
 275         (startpos (match-end 0)))
 276     (unless countpos
 277       (message "no count found in players line"))
 278     (let ((count (parse-integer string (match-beginning 1) (match-end 1)))
 279           result endpos)
 280       (dotimes (i (1- count))
 281         (setq endpos (progn (string-match " connected%3A[0-1] " string startpos)
 282                             (match-end 0)))
 283         (push (apply 'squeeze-make-player (squeeze-string-plistify string startpos endpos)) result)
 284         (setq startpos endpos))
 285       (push (apply 'squeeze-make-player (squeeze-string-plistify string startpos (length string))) result)
 286       result)))
 287
 288 (defun squeeze-complete-command-at-point ()
 289   (save-excursion
 290     (list (progn (backward-word) (point))
 291           (progn (forward-word) (point))
 292           '(;; General commands and queries
 293             "login" "can" "version" "listen" "subscribe" "pref"
 294             "logging" "getstring" "setsncredentials" "debug"
 295             "exit" "shutdown"
 296
 297             ;; Player commands and queries
 298             "player" "count" "id" "uuid" "name" "ip" "model" "isplayer"
 299             "displaytype" "canpoweroff" "?" "signalstrength" "connected"
 300             "sleep" "sync" "syncgroups" "power" "mixer" "volume" "muting"
 301             "bass" "treble" "pitch" "show" "display" "linesperscreen"
 302             "displaynow" "playerpref" "button" "ir" "irenable"
 303             "connect" "client" "forget" "disconnect" "players"
 304
 305             ;; Database commands and queries
 306             "rescan" "rescanprogress" "abortscan" "wipecache" "info"
 307             "total" "genres" "artists" "albums" "songs" "years"
 308             "musicfolder" "playlists" "tracks" "new" "rename" "delete"
 309             "edit" "songinfo" "titles" "search" "pragma"
 310
 311             ;; Playlist commands and queries
 312             "play" "stop" "pause" "mode" "time" "genre" "artist" "album"
 313             "title" "duration" "remote" "current_title" "path" "playlist"
 314             "add" "insert" "deleteitem" "move" "delete" "preview" "resume"
 315             "save" "loadalbum" "addalbum" "loadtracks" "addtracks"
 316             "insertalbum" "deletealbum" "clear" "zap" "name" "url"
 317             "modified" "playlistsinfo" "index" "shuffle" "repeat"
 318             "playlistcontrol"
 319
 320             ;; Compound queries
 321             "serverstatus" "status" "displaystatus" "readdirectory"
 322
 323             ;; Notifications
 324
 325             ;; Alarm commands and queries
 326             "alarm" "alarms"
 327
 328             ;; Plugins commands and queries
 329             "favorites"
 330             ))))
 331
 332 (defun squeeze ()
 333   (interactive)
 334   (let ((buffer (make-comint-in-buffer "squeeze" nil
 335                                        (cons squeeze-server-address
 336                                              squeeze-server-port))))
 337     (switch-to-buffer buffer)
 338     (squeeze-mode)))
 339
 340 (defun squeeze-control ()
 341   (interactive)
 342   (squeeze)
 343   (let ((buffer (get-buffer-create "*squeeze-control*")))
 344     (switch-to-buffer buffer)
 345     (squeeze-control-listen)
 346     (squeeze-control-refresh)
 347     (squeeze-control-display-players)))