diff options
author | Michael Olson <mwolson@gnu.org> | 2006-07-02 01:21:00 +0000 |
---|---|---|
committer | Michael Olson <mwolson@gnu.org> | 2006-07-02 01:21:00 +0000 |
commit | 4a873b05b48e1b3bca23499494cff40bf6a3e74a (patch) | |
tree | da2eee3e961a92200d3ddc3e92846f4d74deba8d /emms-lyrics.el | |
parent | accfde0f1a53e921406bb352fc5c3081ef9dbe97 (diff) |
Allow player to set the exact elapsed time of a track. emms-player-mpd and emms-player-mpg321-remote both need this.
darcs-hash:20060702012131-1bfb2-3e6229d68adf0d78574e0fc6cd1c1a4438c870c3.gz
Diffstat (limited to 'emms-lyrics.el')
-rw-r--r-- | emms-lyrics.el | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/emms-lyrics.el b/emms-lyrics.el index be28b2f..3886c72 100644 --- a/emms-lyrics.el +++ b/emms-lyrics.el @@ -230,6 +230,12 @@ To find FILE, will look up in current directory and `emms-lyrics-dir'." (setq emms-player-paused-p paused-orig)) (emms-lyrics-set-timer))) +(defun emms-lyrics-sync (sec) + "Synchronize the lyric display at SEC seconds." + (setq emms-lyrics-start-time (current-time) + emms-lyrics-elapsed-time 0) + (emms-lyrics-seek sec)) + (defun emms-lyrics-toggle-display-on-minibuffer () "Toggle display lyrics on minibbufer." (interactive) @@ -261,7 +267,8 @@ To find FILE, will look up in current directory and `emms-lyrics-dir'." (add-hook 'emms-player-stopped-hook 'emms-lyrics-stop) (add-hook 'emms-player-finished-hook 'emms-lyrics-stop) (add-hook 'emms-player-paused-hook 'emms-lyrics-pause) - (add-hook 'emms-player-seeked-functions 'emms-lyrics-seek)) + (add-hook 'emms-player-seeked-functions 'emms-lyrics-seek) + (add-hook 'emms-player-time-set-functions 'emms-lyrics-sync)) (emms-lyrics-stop) (setq emms-lyrics-display-p nil) (emms-lyrics-restore-mode-line) @@ -269,7 +276,8 @@ To find FILE, will look up in current directory and `emms-lyrics-dir'." (remove-hook 'emms-player-stopped-hook 'emms-lyrics-stop) (remove-hook 'emms-player-finished-hook 'emms-lyrics-stop) (remove-hook 'emms-player-paused-hook 'emms-lyrics-pause) - (remove-hook 'emms-player-seeked-functions 'emms-lyrics-seek))) + (remove-hook 'emms-player-seeked-functions 'emms-lyrics-seek) + (remove-hook 'emms-player-time-set-functions 'emms-lyrics-sync))) ;;;###autoload (defun emms-lyrics-enable () |