summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xpandoc-emphasis21
1 files changed, 9 insertions, 12 deletions
diff --git a/pandoc-emphasis b/pandoc-emphasis
index 97ddac0..60c42d8 100755
--- a/pandoc-emphasis
+++ b/pandoc-emphasis
@@ -8,18 +8,12 @@ use Moops -strict;
use feature qw(switch);
no if $] >= 5.018, warnings => "experimental::smartmatch";
-use Log::Contextual::LogDispatchouli qw( :log set_logger );
-use Log::Dispatchouli;
use Pandoc::Filter 0.06;
use Pandoc::Elements;
-my $ld = Log::Dispatchouli->new({
- ident => 'pandoc-emphasis',
- to_stderr => 1,
- debug => ($ENV{PANDOC_DEBUG}),
- quiet_fatal => 'stdout',
-});
-set_logger $ld;
+use Log::Any qw($log);
+use Log::Any::Adapter ( 'ScreenColoredLevel',
+ use_color => ! -t *STDERR );
class Window {
use Pandoc::Filter;
@@ -89,14 +83,17 @@ sub emphasis {
if ( $window->peek_at_ledge() eq '"' ) {
$window->clear_ledge();
$title++;
- log_debug { 'emphasis →title: ' . $_ };
+ $log->infof( 'emphasis: %s+Emph→title: %s',
+ '"',
+ $_ );
return $window->interpret_view(
Quoted( DoubleQuote,
$self->content ));
}
}
when ( $self->content->[0]->name eq 'Quoted' ) {
- log_debug { 'emphasis →foreign: ' . $_ };
+ $log->infof( 'emphasis: Emph+Quoted→foreign: %s',
+ $_ );
# FIXME: LaTeX-encode text
return $window->interpret_view(
RawInline( 'latex',
@@ -118,7 +115,7 @@ sub emphasis {
}
$window->clear_ledge();
if ($title) {
- log_info { "emphasis odd after title markup." };
+ $log->warnf( "emphasis: odd title end markup." );
$title--;
}
return $window->describe_view();