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;