diff options
author | Jonas Smedegaard <dr@jones.dk> | 2015-03-25 03:47:07 +0100 |
---|---|---|
committer | Jonas Smedegaard <dr@jones.dk> | 2015-03-25 03:47:07 +0100 |
commit | e38663a49a22576899f27fdaa646d8ee6d61fc81 (patch) | |
tree | a2f66b8fd2b8db1ae2cd5e47ebeeb6b47bcfc5a1 /native-hacks | |
parent | d5f944606e0e539151f7c24128893e8892db8110 (diff) |
Fix handle em-dash.
Diffstat (limited to 'native-hacks')
-rwxr-xr-x | native-hacks | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/native-hacks b/native-hacks new file mode 100755 index 0000000..dca1520 --- /dev/null +++ b/native-hacks @@ -0,0 +1,21 @@ +#!/usr/bin/perl + +# work around smart quote handling not smart enough + +use warnings; +use strict; + +use Path::Tiny; +use Regexp::Common qw(net); + +my $infile = shift; +my $outfile = shift || $infile; + +$_ = path($infile)->slurp_utf8; + +# "pandoc --smart" apparently ignores en- and em-dashes with mediawiki. +s/Space,Str "--",Space/Space,Str "\\8212",Space/g; + +path($outfile)->spew_utf8($_); + +1; |