fix: fixing the slug for multi-word entries

This commit is contained in:
D. Moonfire 2018-10-27 00:05:13 -05:00
parent feeaf97daf
commit e2b6bd0fc9

View file

@ -171,11 +171,13 @@ sub process_word
{
# Start by formatting the word.
my $slug = $word;
$slug =~ s/[áàā]/a/g;
$slug =~ s/[éèē]/e/g;
$slug =~ s/[íìī]/i/g;
$slug =~ s/[óòō]/o/g;
$slug =~ s/[úùū]/u/g;
$slug =~ s/[\s-]+/-/g;
print $DICT "[$word]($bs/$slug$EXT):";
print $SYB "[$word]($slug$EXT):";