From 2ca1aa70f5b49aa3eaee998a4d562c5bc37066bd Mon Sep 17 00:00:00 2001 From: Jonas Smedegaard Date: Thu, 25 Dec 2014 13:59:32 +0100 Subject: Add IRI filter to beautify (i.e. canonicalize and internationalize) links (including uglifying workaround to modest URL parsing). --- pandoc-filter-iri | 41 +++++++++++++++++++++++++++++++++++++++++ 1 file changed, 41 insertions(+) create mode 100755 pandoc-filter-iri (limited to 'pandoc-filter-iri') diff --git a/pandoc-filter-iri b/pandoc-filter-iri new file mode 100755 index 0000000..94be2e4 --- /dev/null +++ b/pandoc-filter-iri @@ -0,0 +1,41 @@ +#!/usr/bin/perl + +use warnings; +use strict; + +use Pandoc::Filter; +use Pandoc::Elements; + +use URI; +use URI::Find; + +pandoc_filter( + \&link_normalize, +); + +sub link_normalize { + my $self = shift; + return [ Link( + $self->content, + [ pp_uri($self->target->[0]) => '' ] + )] + if ( $self->name eq 'Link' ); + return [ Str pp_string($self->content) ] + if ( $self->name eq 'Str' ); + return; +} + +sub pp_uri { + return URI->new(shift)->canonical->as_string; +} + +sub pp_iri { + return URI->new(shift)->canonical->as_iri; +} + +sub pp_string { + my $string = shift; + my $finder = URI::Find->new( \&pp_iri ); + $finder->find(\$string); + return $string; +} -- cgit v1.2.3