diff options
| author | Přemysl Eric Janouch <p@janouch.name> | 2022-09-20 12:45:45 +0200 |
|---|---|---|
| committer | Přemysl Eric Janouch <p@janouch.name> | 2022-09-20 12:45:45 +0200 |
| commit | 568abc896cc9b4fac8e4d3da0859b3b8182409f0 (patch) | |
| tree | 19ed674651a23362c7751394dab8f5d1bbd96a03 | |
| parent | 8aac4ae0a8705641ee55772292d0ae25d529271a (diff) | |
| download | nncmpp-568abc896cc9b4fac8e4d3da0859b3b8182409f0.tar.gz nncmpp-568abc896cc9b4fac8e4d3da0859b3b8182409f0.tar.xz nncmpp-568abc896cc9b4fac8e4d3da0859b3b8182409f0.zip | |
10-azlyrics.pl: fix "the" stripping
| -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 |