blob: e0f2318d0f7cf55756b909215c8d1c9f4a759945 (
plain)
- #!/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.
- # TODO: handle more ranges (e.g. roman numbers or single letters as first part)
- s/Space,Str "--",Space/Space,Str "\\8212",Space/g;
- s/(Str "\d+)-(\d+")/$1", Str "\\8211", Str "$2/g;
- path($outfile)->spew_utf8($_);
- 1;
|