diff options
Diffstat (limited to 'pandoc-filter-iri')
-rwxr-xr-x | pandoc-filter-iri | 41 |
1 files changed, 0 insertions, 41 deletions
diff --git a/pandoc-filter-iri b/pandoc-filter-iri deleted file mode 100755 index 94be2e4..0000000 --- a/pandoc-filter-iri +++ /dev/null @@ -1,41 +0,0 @@ -#!/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; -} |