diff options
| author | william.xwl <william.xwl> | 2006-09-29 08:17:00 +0000 |
|---|---|---|
| committer | william.xwl <mwolson@gnu.org> | 2006-09-29 08:17:00 +0000 |
| commit | b492ffd66b8e08ffccc73f13d6d162bfd266982f (patch) | |
| tree | 77121e86471f46f564119eb0479388c3e1558b1d | |
| parent | 7b7a768aef113ce97c36f989d3e59acf48696ea6 (diff) | |
emms-lyrics.el: Minor Cleanups.
darcs-hash:20060929081721-e8fe6-29086db85a21f4bef4513670cdcc64bf8d64e427.gz
| -rw-r--r-- | emms-lyrics.el | 26 |
1 files changed, 7 insertions, 19 deletions
diff --git a/emms-lyrics.el b/emms-lyrics.el index cc990ef..22bfa13 100644 --- a/emms-lyrics.el +++ b/emms-lyrics.el @@ -33,18 +33,6 @@ ;; Then either `M-x emms-lyrics-enable' or add (emms-lyrics 1) in ;; your .emacs to enable. -;;; Change Log: - -;; v 0.3 [2005/07/19 17:53:25] Add `emms-lyric-find-lyric' for find -;; lyric files in local repository `emms-lyric-dir'. Rewrite -;; `emms-lyric-setup' to support more lyric formats. - -;; v 0.2 [2005/07/18 16:10:02] Fix `emms-lyric-pause' bug. Now it works -;; fine. Add `emms-lyric-seek', but which does not work very well -;; currently. - -;; v 0.1 [2005/07/17 20:07:30] Initial version. - ;;; Known bugs: ;; 1. Sometimes music playing would be blocked by some process, like @@ -59,10 +47,6 @@ ;;; Code: -(defvar emms-lyrics-version "0.5 $Revision: 1.14 $" - "EMMS lyric version string.") -;; $Id: emms-lyric.el,v 1.14 2005/08/25 13:03:02 xwl Exp $ - (require 'emms) (require 'emms-player-simple) (require 'emms-source-file) @@ -105,6 +89,7 @@ for lyrics in current directory and this directory." :type 'hook :group 'emms-lyrics) + ;;; Emms Lyrics (defvar emms-lyrics-display-p t @@ -130,14 +115,16 @@ at time-i, display lyric-i.") "current lyric.") (defun emms-lyrics-read-file (file) - "Read a lyric file(LRC format). FILE should end up with \".lrc\", its -content looks like one of the following: + "Read a lyric file(LRC format). +FILE should end up with \".lrc\", its content looks like one of the +following: [1:39]I love you, Emacs! [00:39]I love you, Emacs! [00:39.67]I love you, Emacs! -To find FILE, will look up in current directory and `emms-lyrics-dir'." +FILE should be under the same directory as the music file, or under +`emms-lyrics-dir'." (when (eq 'file (emms-track-get (emms-playlist-current-selected-track) 'type)) @@ -364,6 +351,7 @@ a valid `emms-lyrics-dir'." "'")) "\n")))) + ;;; emms-lyrics-mode (defvar emms-lyrics-mode-map |