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     map))
  28
  29 (define-derived-mode squeeze-control-mode special-mode "SqueezeControl"
  30   "Major mode for controlling Squeezebox Servers.\\<squeeze-control-mode-map>")
  31
  32 (defun squeeze-update-state (string)
  33   (let (done-something)
  34     (dolist (line (split-string string "\n"))
  35       (when (squeeze-update-state-from-line line)
  36         (setq done-something t))))
  37   (squeeze-control-display-players)
  38   string)
  39
  40 (defun squeeze-update-state-from-line (string)
  41   (cond
  42    ((string-match "^players 0" string)
  43     (setq squeeze-players (squeeze-parse-players-line string))
  44     t)
  45    ((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)
  46     (let ((state (match-string 3 string))
  47           (id (url-unhex-string (match-string 1 string)))
  48           player)
  49       (dolist (p squeeze-players)
  50         (when (string= id (squeeze-player-playerid p))
  51           (setq player p)
  52           (return)))
  53       (if state
  54           (setf (squeeze-player-power player) state)
  55         (let ((current (squeeze-player-power player)))
  56           (setf (squeeze-player-power player)
  57                 (cond ((string= current "0") "1")
  58                       ((string= current "1") "0"))))))
  59     t)))
  60
  61 (defface squeeze-player-face
  62   '((t))
  63   "Face for displaying players"
  64   :group 'squeeze)
  65 (defface squeeze-player-on-face
  66   '((t :weight bold))
  67   "Face for displaying players which are on"
  68   :inherit 'squeeze-player-face
  69   :group 'squeeze)
  70 (defface squeeze-player-off-face
  71   '((t :weight light))
  72   "Face for displaying players which are off"
  73   :inherit 'squeeze-player-face
  74   :group 'squeeze)
  75
  76 (defvar squeeze-players ())
  77
  78 (defun squeeze-control-query-players ()
  79   (interactive)
  80   (comint-send-string (get-buffer-process "*squeeze*") (format "players ?\n")))
  81
  82 (defun squeeze-control-toggle-power (&optional id)
  83   (interactive)
  84   (unless id
  85     (setq id (get-text-property (point) 'squeeze-playerid)))
  86   (comint-send-string (get-buffer-process "*squeeze*") (format "%s power\n" id)))
  87
  88 (defun squeeze-control-query-power (&optional id)
  89   (interactive)
  90   (unless id
  91     (setq id (get-text-property (point) 'squeeze-playerid)))
  92   (comint-send-string (get-buffer-process "*squeeze*") (format "%s power ?\n" id)))
  93
  94 (defun squeeze-control-player-face (player)
  95   (let ((power (squeeze-player-power player)))
  96     (cond ((string= power "1") 'squeeze-player-on-face)
  97           ((string= power "0") 'squeeze-player-off-face)
  98           (t 'squeeze-player-face))))
  99
 100 (defun squeeze-control-refresh ()
 101   (interactive)
 102   (squeeze-control-query-players)
 103   (dolist (player squeeze-players)
 104     (squeeze-control-query-power (squeeze-player-playerid player))))
 105
 106 (defun squeeze-control-display-players ()
 107   (interactive)
 108   (let ((players squeeze-players))
 109     (with-current-buffer (get-buffer-create "*squeeze-control*")
 110       (squeeze-control-mode)
 111       (read-only-mode -1)
 112       (erase-buffer)
 113       (dolist (player players)
 114         (insert (propertize (squeeze-player-name player)
 115                             'face (squeeze-control-player-face player)
 116                             'squeeze-playerid (squeeze-player-playerid player))
 117                 "\n"))
 118       (read-only-mode 1))))
 119
 120 (cl-defstruct (squeeze-player (:constructor squeeze-make-player))
 121   playerindex playerid uuid ip name model isplayer displaytype canpoweroff connected power)
 122
 123 (defun squeeze-string-plistify (string start end)
 124   (save-match-data
 125     (let (result)
 126       (loop
 127        (message "start: %d" start)
 128        (if (string-match "\\([a-z]+\\)%3A\\([^ \n]+\\)" string start)
 129            (let ((mend (match-end 0)))
 130              (when (> mend end)
 131                (return))
 132              (push (intern (format ":%s" (substring string (match-beginning 1) (match-end 1)))) result)
 133              (push (url-unhex-string (substring string (match-beginning 2) (match-end 2))) result)
 134              (setq start mend))
 135          (return)))
 136       (nreverse result))))
 137
 138 (defun squeeze-parse-players-line (string)
 139   (let ((countpos (string-match " count%3A\\([0-9]\\) " string))
 140         (startpos (match-end 0)))
 141     (unless countpos
 142       (message "no count found in players line"))
 143     (let ((count (parse-integer string (match-beginning 1) (match-end 1)))
 144           result endpos)
 145       (dotimes (i (1- count))
 146         (setq endpos (progn (string-match " connected%3A[0-1] " string startpos)
 147                             (match-end 0)))
 148         (push (apply 'squeeze-make-player (squeeze-string-plistify string startpos endpos)) result)
 149         (setq startpos endpos))
 150       (push (apply 'squeeze-make-player (squeeze-string-plistify string startpos (length string))) result)
 151       result)))
 152
 153 (defun squeeze-complete-command-at-point ()
 154   (save-excursion
 155     (list (progn (backward-word) (point))
 156           (progn (forward-word) (point))
 157           '(;; General commands and queries
 158             "login" "can" "version" "listen" "subscribe" "pref"
 159             "logging" "getstring" "setsncredentials" "debug"
 160             "exit" "shutdown"
 161
 162             ;; Player commands and queries
 163             "player" "count" "id" "uuid" "name" "ip" "model" "isplayer"
 164             "displaytype" "canpoweroff" "?" "signalstrength" "connected"
 165             "sleep" "sync" "syncgroups" "power" "mixer" "volume" "muting"
 166             "bass" "treble" "pitch" "show" "display" "linesperscreen"
 167             "displaynow" "playerpref" "button" "ir" "irenable"
 168             "connect" "client" "forget" "disconnect" "players"
 169
 170             ;; Database commands and queries
 171             "rescan" "rescanprogress" "abortscan" "wipecache" "info"
 172             "total" "genres" "artists" "albums" "songs" "years"
 173             "musicfolder" "playlists" "tracks" "new" "rename" "delete"
 174             "edit" "songinfo" "titles" "search" "pragma"
 175
 176             ;; Playlist commands and queries
 177             "play" "stop" "pause" "mode" "time" "genre" "artist" "album"
 178             "title" "duration" "remote" "current_title" "path" "playlist"
 179             "add" "insert" "deleteitem" "move" "delete" "preview" "resume"
 180             "save" "loadalbum" "addalbum" "loadtracks" "addtracks"
 181             "insertalbum" "deletealbum" "clear" "zap" "name" "url"
 182             "modified" "playlistsinfo" "index" "shuffle" "repeat"
 183             "playlistcontrol"
 184
 185             ;; Compound queries
 186             "serverstatus" "status" "displaystatus" "readdirectory"
 187
 188             ;; Notifications
 189
 190             ;; Alarm commands and queries
 191             "alarm" "alarms"
 192
 193             ;; Plugins commands and queries
 194             "favorites"
 195             ))))
 196
 197 (defun squeeze ()
 198   (interactive)
 199   (let ((buffer (make-comint-in-buffer "squeeze" nil
 200                                        (cons squeeze-server-address
 201                                              squeeze-server-port))))
 202     (switch-to-buffer buffer)
 203     (squeeze-mode)))
 204
 205 (defun squeeze-control ()
 206   (interactive)
 207   (squeeze)
 208   (let ((buffer (get-buffer-create "*squeeze-control*")))
 209     (switch-to-buffer buffer)
 210     (squeeze-control-display-players)))