Hi All,
In emms-info-metaflac.el, the option to get Year of a track should be
"--show-tag=DATE" instead of "--show-tag=YEAR".
Beneath is my patch.
Cheers,
lgfang
*** /home/lgfang/tmp/emms/lisp/emms-info-metaflac.el 2011-01-09
21:53:40.904903408 +0800
--- /home/storage/daily/my-notes/emacs/extensions/emms/emms-info-metaflac.el
2011-01-10 20:56:29.000000000 +0800
***************
*** 62,68 ****
"--show-tag=ARTIST"
"--show-tag=ALBUM"
"--show-tag=NOTE"
! "--show-tag=YEAR"
"--show-tag=TRACKNUMBER"
"--show-tag=GENRE")
"The argument to pass to `emms-info-metaflac-program-name'."
--- 62,68 ----
"--show-tag=ARTIST"
"--show-tag=ALBUM"
"--show-tag=NOTE"
! "--show-tag=DATE"
"--show-tag=TRACKNUMBER"
"--show-tag=GENRE")
"The argument to pass to `emms-info-metaflac-program-name'."
***************
*** 91,97 ****
(string-to-number (buffer-substring (point)
(line-end-position))))))
(forward-line 1)
(while (looking-at "^\\([^=\n]+\\)=\\(.*\\)$")
! (let ((name (intern (concat "info-" (downcase (match-string 1)))))
(value (match-string 2)))
(when (> (length value)
0)
--- 91,98 ----
(string-to-number (buffer-substring (point)
(line-end-position))))))
(forward-line 1)
(while (looking-at "^\\([^=\n]+\\)=\\(.*\\)$")
! (let ((name (intern (concat "info-" (if (string-equal "DATE"
(match-string 1)) "year"
! (downcase (match-string 1))))))
(value (match-string 2)))
(when (> (length value)
0)
_______________________________________________
Emms-patches mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emms-patches
