fedran-languages/miwafu
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Activity

fix: fixing the slug for multi-word entries

Browse source
This commit is contained in:
D. Moonfire 2018-10-27 00:05:13 -05:00
parent feeaf97daf
commit e2b6bd0fc9
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
bin/create-dictionary-markdown
View file

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