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

Rewrite `empc-response-parse-line'

Browse source
This commit is contained in:
Renaud Casenave-Péré 2011-06-29 15:41:08 +09:00
parent 6edac266cf
commit 0a62d68f12
1 changed files with 5 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
empc.el
View file

@ -77,13 +77,11 @@ return at the end of a request.")
(defun empc-response-parse-line (line)
"Turn the given line into a cons cell.
Return nil if the line should be ignored."
(when (string-match "\\([^:\n]+\\):\\s-*\\(.+\\)" line)
(let ((key (match-string 1 line))
(value (match-string 2 line)))
(if (and key value)
(cons (downcase key) value)
nil))))
Return nil if the line is not of the form \"key: value\"."
(if (string-match "\\([^:\n]+\\):\\s-*\\(.+\\)" line)
(cons (downcase (match-string 1 line))
(match-string 2 line))
nil))
(defun empc-response-parse-message (msg)
"Check the result code and parse the response into an alist."