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

Fix currently playing song notify.

Browse source
This commit is contained in:
Renaud Casenave-Péré 2011-07-20 09:41:41 +09:00
parent 4e414e55f9
commit 853fe33bc7
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
empc.el
View file

@ -87,9 +87,9 @@ return at the end of a request.")
(start-process "empc-notify" nil "notify-send" "Music Player Daemon" msg)
(message msg)))
(defun empc-echo-current-song ()
"Notify the currently played song."
(empc-echo-notify (concat (plist-get empc-current-song :artist) " - " (plist-get empc-current-song :title))))
(defun empc-echo-song (song)
"Notify SONG."
(empc-echo-notify (concat (plist-get song :artist) " - " (plist-get song :title))))
(defun empc-make-modeline ()
"Create the string to insert into the modeline."
@ -130,11 +130,12 @@ then update what needs to be."
(let ((new-song empc-current-song))
(unless (and (eq (plist-get empc-current-status :song) (plist-get new-status :song))
(eq (plist-get empc-current-song :pos) (plist-get new-status :song)))
(setq new-song (aref empc-current-playlist (plist-get new-status :song))))
(when empc-current-playlist
(setq new-song (aref empc-current-playlist (plist-get new-status :song)))))
(unless (eq (plist-get empc-current-status :state) (plist-get new-status :state))
(if (or (eq (plist-get new-status :state) 'play)
(not (eq (plist-get new-song :pos) (plist-get empc-current-song :pos))))
(empc-echo-current-song)
(empc-echo-song new-song)
(empc-echo-notify (if (eq (plist-get new-status :state) 'pause) "Pause" "Stop"))))
(unless (eq (plist-get empc-current-status :playlist) (plist-get new-status :playlist))
(empc-echo-notify "Playlist changed"))