Rename and shorten filters.

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;
-}