Do NOT mangle names found in tags. Only filesystem-derived names are suspected to be case-mangled poorly.

This commit is contained in:
Elf M. Sternberg 2014-12-08 11:25:50 -08:00
parent fbd0d93f75
commit 080842033a
1 changed files with 2 additions and 2 deletions

View File

@ -192,8 +192,8 @@
)] )]
[likely-genre (sfix (clean-paren (find-likely (map (fn [m] (get m 3)) mp3s))))] [likely-genre (sfix (clean-paren (find-likely (map (fn [m] (get m 3)) mp3s))))]
[likely-album (sfix (find-likely (map (fn [m] (get m 2)) mp3s)))] [likely-album (find-likely (map (fn [m] (get m 2)) mp3s))]
[likely-artist (sfix (find-likely (map (fn [m] (get m 1)) mp3s)))] [likely-artist (find-likely (map (fn [m] (get m 1)) mp3s))]
[artist-deriver (make-artist-deriver opts local-artist likely-artist)] [artist-deriver (make-artist-deriver opts local-artist likely-artist)]
[album-deriver (make-album-deriver opts local-album likely-album)] [album-deriver (make-album-deriver opts local-album likely-album)]