floss/empc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Function to parse the server's status.

Browse source
This commit is contained in:
Renaud Casenave-Péré 2011-06-28 17:46:17 +09:00
parent 8fa0aa1213
commit 188c35c775
1 changed files with 15 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
empc.el
View file

@ -103,9 +103,21 @@ Return nil if the line should be ignored."
result)))))
(defun empc-response-parse-status (closure msg)
"Parse the response into a plist."
(let ((data (split-string msg "\n" t)))
data))
(setplist 'empc-status-plist nil)
(dolist (cell (empc-response-parse-message msg))
(let ((attr (car cell)))
(cond
((member attr '("volume" "repeat" "random" "single" "consume" "playlist"
"playlistlength" "song" "songid" "nextsong" "nextsongid"
"bitrate" "xfade" "mixrampdb" "mixrampdelay" "updating_db"))
(put 'empc-status-plist (intern attr) (string-to-number (cdr cell))))
((and (string= attr "state") (member (cdr cell) '("play" "pause" "stop")))
(put 'empc-status-plist 'state (intern (cdr cell))))
((and (string= attr "time") (string-match "^\\([0-9]*\\):\\([0-9]*\\)$" (cdr cell)))
(put 'empc-status-plist 'time-elapsed (string-to-number (match-string 1 (cdr cell))))
(put 'empc-status-plist 'time-total (string-to-number (match-string 2 (cdr cell)))))
(t (put 'empc-status-plist (intern attr) (cdr cell))))))
(symbol-plist 'empc-status-plist))
(defun empc-ensure-connected ()
"Make sure empc is connected and ready to talk to mpd."