summaryrefslogtreecommitdiff
path: root/info
diff options
context:
space:
mode:
authorPřemysl Eric Janouch <p@janouch.name>2022-09-20 12:45:45 +0200
committerPřemysl Eric Janouch <p@janouch.name>2022-09-20 12:45:45 +0200
commit568abc896cc9b4fac8e4d3da0859b3b8182409f0 (patch)
tree19ed674651a23362c7751394dab8f5d1bbd96a03 /info
parent8aac4ae0a8705641ee55772292d0ae25d529271a (diff)
downloadnncmpp-568abc896cc9b4fac8e4d3da0859b3b8182409f0.tar.gz
nncmpp-568abc896cc9b4fac8e4d3da0859b3b8182409f0.tar.xz
nncmpp-568abc896cc9b4fac8e4d3da0859b3b8182409f0.zip
10-azlyrics.pl: fix "the" stripping
Diffstat (limited to 'info')
-rwxr-xr-xinfo/10-azlyrics.pl4
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