diff options
Diffstat (limited to 'pandoc-emphasis')
| -rwxr-xr-x | pandoc-emphasis | 12 |
1 files changed, 5 insertions, 7 deletions
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$/ ) { |