Use Log::Any (not Log::Contextual).

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();