diff options
author | Nix <Nix> | 2007-08-18 13:34:00 +0000 |
---|---|---|
committer | Nix <nix@esperi.org.uk> | 2007-08-18 13:34:00 +0000 |
commit | d4e5e5f2f58f45b79296b907ccac28272703a7fb (patch) | |
tree | b19874b35a117855578b5a25eb9d9795579a96fe /emms-tag-editor.el | |
parent | 44f24c3b68c3155099fdc484804d00ddd909170d (diff) |
Add support for composer and performer tags.
The browser keybindings are somewhat discontiguous to avoid breaking
people's finger macros: browsing by composer and performer are `b 5' and
`b 6' respectively, where artist is `b 1'.
In the tag editor, I changed the note format character to %;, making room
for composer as %c.
I've not added support to last.fm for composer or performer, as it doesn't
seem to support either. (I suspect that in most cases the composer should
be reported as the artist if it is present, but that is not impolemented
here.)
darcs-hash:20070818133412-984cd-07ed55c9bf357ee6119f6d70fc2f267e9e8ecef9.gz
Diffstat (limited to 'emms-tag-editor.el')
-rw-r--r-- | emms-tag-editor.el | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/emms-tag-editor.el b/emms-tag-editor.el index 1f7cbbb..ae79faa 100644 --- a/emms-tag-editor.el +++ b/emms-tag-editor.el @@ -37,13 +37,15 @@ (defvar emms-tag-editor-tags '((info-artist . "a") + (info-composer . "c") + (info-performer . "p") (info-title . "t") (info-album . "l") (info-tracknumber . "n") (info-year . "y") (info-genre . "g") (info-date . "d") - (info-note . "c")) + (info-note . ";")) "An alist to determine the format of various info tags.") (defvar emms-tag-editor-edit-buffer "*EMMS-TAGS*" @@ -79,12 +81,14 @@ is the format template. The format specification is like: m -- Track description f -- Track name a -- Track info-artist + c -- Track info-composer + p -- Track info-performer t -- Track info-title l -- Track info-album n -- Track info-tracknumber y -- Track info-year g -- Track info-genre - c -- Track info-note + ; -- Track info-note You can add new specifications in `emms-tag-editor-tags', and use `emms-tag-editor-make-format' to create a new format string. @@ -134,7 +138,7 @@ See also `emms-tag-editor-tag-file' and `emms-tag-editor-tag-ogg'.") (let ((info-tag (intern (concat "info-" tag)))) (when (> (length (setq val (emms-track-get track info-tag))) 0) (setq args (append (list "-t" (concat (upcase tag) "=" val)) args))))) - '("artist" "title" "album" "tracknumber" "date" "genre" "note")) + '("artist" "composer" "performer" "title" "album" "tracknumber" "date" "genre" "note")) (when args (apply #'call-process "vorbiscomment" nil (get-buffer-create emms-tag-editor-log-buffer) |