15 files changed, 0 insertions, 0 deletions

path: root/pandoc-iri

#!/usr/bin/perl

use warnings;
use strict;

use Pandoc::Filter;
use Pandoc::Elements;

use URI;
use URI::Escape;
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(uri_unescape(shift))->canonical->as_string;
}

sub pp_iri {
    return URI->new(uri_unescape(shift))->canonical->as_iri;
}

sub pp_string {
    my $string = shift;
    my $finder = URI::Find->new( \&pp_iri );
    $finder->find(\$string);
    return $string;
}