From 0a0699dc71fc95d02c8079fe45af2b8a261e492e Mon Sep 17 00:00:00 2001 From: Jonas Smedegaard Date: Wed, 29 Mar 2017 12:49:28 +0200 Subject: Modernize Pandoc::Element usage: stringify($ast) → $ast->string. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- pandoc-emphasis | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) (limited to 'pandoc-emphasis') diff --git a/pandoc-emphasis b/pandoc-emphasis index 50da37e..35f6076 100755 --- a/pandoc-emphasis +++ b/pandoc-emphasis @@ -14,12 +14,12 @@ use Moops -strict; use Pandoc::Filter 0.06; -use Pandoc::Elements; +use Pandoc::Elements 0.12; use Scalar::Util qw(reftype); use Clone qw(clone); use Log::Any qw($log); -use Log::Any::Adapter ( 'ScreenColoredLevel', +use Log::Any::Adapter ( 'Screen', use_color => ! -t *STDERR ); # TODO: add class Egg, and coercing roles Exotic and Noble @@ -117,8 +117,7 @@ sub emphasis { if ( $self->content->[$kid]->name eq 'Quoted' and $self->content->[$kid]->content->[0]->name eq 'Emph' ) { - my $new_content = stringify( - $self->content->[$kid]->content->[0] ); + my $new_content = $self->content->[$kid]->content->[0]->string; $log->infof( 'emphasis: Quoted+Emph→title: %s', $new_content ); # FIXME: LaTeX-encode content @@ -150,8 +149,7 @@ sub emphasis { if ( $self->content->[$kid]->name eq 'Emph' and $self->content->[$kid]->content->[0]->name eq 'Quoted' ) { - my $new_content = stringify( - $self->content->[$kid]->content->[0] ); + my $new_content = $self->content->[$kid]->content->[0]->string; $log->infof( 'emphasis: Emph+Quoted→foreign: %s', $new_content ); # FIXME: LaTeX-encode content @@ -164,7 +162,7 @@ sub emphasis { } # foreign markup via quotation mark in Str if ( $self->content->[$kid]->name eq 'Emph' - and stringify($self->content->[$kid]) + and $self->content->[$kid]->string # =~ /^(\")([^\"]+)\"$/ =~ /^($doublequote)(^$nodoublequote+)$doublequote$/ ) { -- cgit v1.2.3