From 5cbb6b9dca11fe98b2feefcd31684ee2c2f1455a Mon Sep 17 00:00:00 2001 From: Jonas Smedegaard Date: Thu, 25 Dec 2014 18:19:55 +0100 Subject: Rename and shorten filters. --- pandoc-filter-iri | 41 ----------------------------------------- 1 file changed, 41 deletions(-) delete mode 100755 pandoc-filter-iri (limited to 'pandoc-filter-iri') 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; -} -- cgit v1.2.3