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

Change empc-echo-notify' to use start-process' instead of shell-command' and be compatible with empc-response-handle'.

Browse source
This commit is contained in:
Renaud Casenave-Péré 2011-07-12 18:35:56 +09:00
parent 2faf27501d
commit 3603fe6f01
1 changed files with 11 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
empc.el
View file

@ -80,14 +80,16 @@ return at the end of a request.")
(substring msg 0 -1)
msg))))
(defun empc-echo-notify (msg)
(defun empc-echo-notify (data)
"Notify the response using notification system if available, in echo area if not."
(let ((msg (if (string= (substring msg -1) "\n")
(substring msg 0 -1)
msg)))
(if (eq window-system 'x)
(shell-command (concat "notify-send " " \"Music Player Daemon\" \"" msg "\"") nil nil)
(message msg))))
(if (eq window-system 'x)
(start-process "empc-notify" nil "notify-send" "Music Player Daemon"
(concat (cdr (assoc "artist" data)) " - " (cdr (assoc "title" data))))
(message (concat (cdr (assoc "artist" data)) " - " (cdr (assoc "title" data))))))
(defun empc-make-modeline ()
"Create the string to insert into the modeline."
)
(defun empc-response-parse-line (line)
"Turn the given line into a cons cell.
@ -163,7 +165,8 @@ form '('error (error-code . error-message))."
(let ((changed (cdr cell)))
(cond
((string= changed "player")
(empc-send "status" 'empc-response-get-status))
(empc-send "status" 'empc-response-get-status)
(empc-send "currentsong" 'empc-echo-notify))
((string= changed "options")
(empc-send "status" 'empc-response-get-status)))))))