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     (if (string-match "^[-+]" value)
  65         (when current
  66           (setf (squeeze-player-volume player) (+ current (string-to-number value))))
  67       (setf (squeeze-player-volume player) (string-to-number value)))))
  68
  69 (defun squeeze-update-state-from-line (string)
  70   (cond
  71    ((string-match "^players 0" string)
  72     (setq squeeze-players (squeeze-parse-players-line string))
  73     t)
  74    ((string-match squeeze-player-line-regexp string)
  75     (let ((substring (substring string (match-end 0)))
  76           (id (url-unhex-string (match-string 1 string))))
  77       (cond
  78        ((string-match "^power\\(?: \\([01]\\)\\)?" substring)
  79         (let ((state (match-string 1 substring))
  80               (player (squeeze-find-player id)))
  81           (squeeze-update-power player state))
  82         t)
  83        ((string-match "^mixer volume \\(\\(?:-\\|%2B\\)?[0-9]*\\)" substring)
  84         (let ((value (url-unhex-string (match-string 1 substring)))
  85               (player (squeeze-find-player id)))
  86           (squeeze-update-mixer-volume player value))
  87         t))))))
  88
  89 (defface squeeze-player-face
  90   '((t))
  91   "Face for displaying players"
  92   :group 'squeeze)
  93 (defface squeeze-player-on-face
  94   '((t :weight bold :inherit squeeze-player-face))
  95   "Face for displaying players which are on"
  96   :group 'squeeze)
  97 (defface squeeze-player-off-face
  98   '((t :weight light :inherit squeeze-player-face))
  99   "Face for displaying players which are off"
 100   :group 'squeeze)
 101
 102 (defface squeeze-mixer-face
 103   '((t :weight bold))
 104   "Face for displaying mixer information"
 105   :group 'squeeze)
 106 (defface squeeze-mixer-muted-face
 107   '((t :weight light :inherit squeeze-mixer-face))
 108   "Face for displaying mixer information when muted"
 109   :group 'squeeze)
 110 (defface squeeze-mixer-quiet-face
 111   '((t :foreground "green3" :inherit squeeze-mixer-face))
 112   "Face for quiet volume"
 113   :group 'squeeze)
 114 (defface squeeze-mixer-medium-face
 115   '((t :foreground "gold" :inherit squeeze-mixer-face))
 116   "Face for medium volume"
 117   :group 'squeeze)
 118 (defface squeeze-mixer-loud-face
 119   '((t :foreground "OrangeRed1" :inherit squeeze-mixer-face))
 120   "Face for loud volume"
 121   :group 'squeeze)
 122 (defface squeeze-mixer-muted-quiet-face
 123   '((t :inherit (squeeze-mixer-muted-face squeeze-mixer-quiet-face)))
 124   "Face for quiet volume when muted")
 125
 126 (defun squeeze-mixer-compute-bar (vol width)
 127   (let* ((exact (* width (/ vol 100.0)))
 128          (nfull (floor exact))
 129          (frac (- exact nfull))
 130          (nblank (floor (- width exact))))
 131     (format "%s%s%s"
 132             (make-string nfull ?█)
 133             (cond ((= width (+ nfull nblank)) "")
 134                   ((< frac 0.0625) " ")
 135                   ((< frac 0.1875) "▏")
 136                   ((< frac 0.3125) "▎")
 137                   ((< frac 0.4375) "▍")
 138                   ((< frac 0.5625) "▌")
 139                   ((< frac 0.6875) "▋")
 140                   ((< frac 0.8125) "▊")
 141                   ((< frac 0.9375) "▉")
 142                   (t "█"))
 143             (make-string nblank ? ))))
 144
 145 (defun squeeze-mixer-insert-bar (vol width)
 146   (let ((bar (squeeze-mixer-compute-bar vol width))
 147         (lo (floor (* 0.65 width)))
 148         (hi (floor (* 0.9 width))))
 149     (insert ?▕
 150             (propertize (substring bar 0 lo) 'face 'squeeze-mixer-quiet-face)
 151             (propertize (substring bar lo hi) 'face 'squeeze-mixer-medium-face)
 152             (propertize (substring bar hi) 'face 'squeeze-mixer-loud-face)
 153             ?▏
 154             )))
 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-query-mixer-volume (&optional id)
 192   (interactive)
 193   (unless id
 194     (setq id (get-text-property (point) 'squeeze-playerid)))
 195   (when id
 196     (comint-send-string (get-buffer-process "*squeeze*") (format "%s mixer volume ?\n" id))))
 197
 198 (defun squeeze-control-player-face (player)
 199   (let ((power (squeeze-player-power player)))
 200     (cond ((string= power "1") 'squeeze-player-on-face)
 201           ((string= power "0") 'squeeze-player-off-face)
 202           (t 'squeeze-player-face))))
 203
 204 (defun squeeze-control-listen ()
 205   (comint-send-string (get-buffer-process "*squeeze*") (format "listen 1\n")))
 206
 207 (defun squeeze-control-refresh ()
 208   (interactive)
 209   (let ((squeeze-control-inhibit-display t))
 210     (squeeze-control-query-players)
 211     (accept-process-output (get-buffer-process "*squeeze*"))
 212     (dolist (player squeeze-players)
 213       (squeeze-control-query-power (squeeze-player-playerid player))
 214       (accept-process-output (get-buffer-process "*squeeze*"))
 215       (squeeze-control-query-mixer-volume (squeeze-player-playerid player))
 216       (accept-process-output (get-buffer-process "*squeeze*"))))
 217   (squeeze-control-display-players))
 218
 219 (defun squeeze-control-display-players ()
 220   (interactive)
 221   (let ((players squeeze-players))
 222     (with-current-buffer (get-buffer-create "*squeeze-control*")
 223       (squeeze-control-mode)
 224       (read-only-mode -1)
 225       (erase-buffer)
 226       (dolist (player players)
 227         (insert (propertize (format "%20s" (squeeze-player-name player))
 228                             'face (squeeze-control-player-face player)
 229                             'squeeze-playerid (squeeze-player-playerid player)))
 230         (when (squeeze-player-volume player)
 231           (squeeze-mixer-insert-bar (squeeze-player-volume player) 28))
 232         (insert "\n"))
 233       (read-only-mode 1))))
 234
 235 (cl-defstruct (squeeze-player (:constructor squeeze-make-player))
 236   playerindex playerid uuid ip name model isplayer displaytype canpoweroff connected power volume)
 237
 238 (defun squeeze-string-plistify (string start end)
 239   (save-match-data
 240     (let (result)
 241       (loop
 242        (if (string-match "\\([a-z]+\\)%3A\\([^ \n]+\\)" string start)
 243            (let ((mend (match-end 0)))
 244              (when (> mend end)
 245                (return))
 246              (push (intern (format ":%s" (substring string (match-beginning 1) (match-end 1)))) result)
 247              (push (url-unhex-string (substring string (match-beginning 2) (match-end 2))) result)
 248              (setq start mend))
 249          (return)))
 250       (nreverse result))))
 251
 252 (defun squeeze-parse-players-line (string)
 253   (let ((countpos (string-match " count%3A\\([0-9]\\) " string))
 254         (startpos (match-end 0)))
 255     (unless countpos
 256       (message "no count found in players line"))
 257     (let ((count (parse-integer string (match-beginning 1) (match-end 1)))
 258           result endpos)
 259       (dotimes (i (1- count))
 260         (setq endpos (progn (string-match " connected%3A[0-1] " string startpos)
 261                             (match-end 0)))
 262         (push (apply 'squeeze-make-player (squeeze-string-plistify string startpos endpos)) result)
 263         (setq startpos endpos))
 264       (push (apply 'squeeze-make-player (squeeze-string-plistify string startpos (length string))) result)
 265       result)))
 266
 267 (defun squeeze-complete-command-at-point ()
 268   (save-excursion
 269     (list (progn (backward-word) (point))
 270           (progn (forward-word) (point))
 271           '(;; General commands and queries
 272             "login" "can" "version" "listen" "subscribe" "pref"
 273             "logging" "getstring" "setsncredentials" "debug"
 274             "exit" "shutdown"
 275
 276             ;; Player commands and queries
 277             "player" "count" "id" "uuid" "name" "ip" "model" "isplayer"
 278             "displaytype" "canpoweroff" "?" "signalstrength" "connected"
 279             "sleep" "sync" "syncgroups" "power" "mixer" "volume" "muting"
 280             "bass" "treble" "pitch" "show" "display" "linesperscreen"
 281             "displaynow" "playerpref" "button" "ir" "irenable"
 282             "connect" "client" "forget" "disconnect" "players"
 283
 284             ;; Database commands and queries
 285             "rescan" "rescanprogress" "abortscan" "wipecache" "info"
 286             "total" "genres" "artists" "albums" "songs" "years"
 287             "musicfolder" "playlists" "tracks" "new" "rename" "delete"
 288             "edit" "songinfo" "titles" "search" "pragma"
 289
 290             ;; Playlist commands and queries
 291             "play" "stop" "pause" "mode" "time" "genre" "artist" "album"
 292             "title" "duration" "remote" "current_title" "path" "playlist"
 293             "add" "insert" "deleteitem" "move" "delete" "preview" "resume"
 294             "save" "loadalbum" "addalbum" "loadtracks" "addtracks"
 295             "insertalbum" "deletealbum" "clear" "zap" "name" "url"
 296             "modified" "playlistsinfo" "index" "shuffle" "repeat"
 297             "playlistcontrol"
 298
 299             ;; Compound queries
 300             "serverstatus" "status" "displaystatus" "readdirectory"
 301
 302             ;; Notifications
 303
 304             ;; Alarm commands and queries
 305             "alarm" "alarms"
 306
 307             ;; Plugins commands and queries
 308             "favorites"
 309             ))))
 310
 311 (defun squeeze ()
 312   (interactive)
 313   (let ((buffer (make-comint-in-buffer "squeeze" nil
 314                                        (cons squeeze-server-address
 315                                              squeeze-server-port))))
 316     (switch-to-buffer buffer)
 317     (squeeze-mode)))
 318
 319 (defun squeeze-control ()
 320   (interactive)
 321   (squeeze)
 322   (let ((buffer (get-buffer-create "*squeeze-control*")))
 323     (switch-to-buffer buffer)
 324     (squeeze-control-listen)
 325     (squeeze-control-refresh)
 326     (squeeze-control-display-players)))