diff options
| -rwxr-xr-x | info/10-azlyrics.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/info/10-azlyrics.pl b/info/10-azlyrics.pl index 4b88bda..3cc0b92 100755 --- a/info/10-azlyrics.pl +++ b/info/10-azlyrics.pl @@ -20,8 +20,8 @@ my ($title, $artist, $album) = map {decode_utf8($_)} @ARGV; # TODO: An upgrade would be transliteration with, e.g., Text::Unidecode. use Unicode::Normalize; -$artist = lc(NFD($artist) =~ s/^the\s+//ir =~ s/[^A-Za-z0-9]//gr); -$title = lc(NFD($title) =~ s/\(.*?\)//gr =~ s/[^A-Za-z0-9]//gr); +$artist = lc(NFD($artist)) =~ s/^the\s+//ir =~ s/[^a-z0-9]//gr; +$title = lc(NFD($title)) =~ s/\(.*?\)//gr =~ s/[^a-z0-9]//gr; # TODO: Consider caching the results in a location like # $XDG_CACHE_HOME/nncmpp/info/azlyrics/$artist-$title |