Coloring console output

ukigumo · Feb 20, 2014 · 95b7e83 · 95b7e83
1 parent 67d7cb6
commit 95b7e83
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 3 deletions.
diff --git a/cpanfile b/cpanfile
@@ -38,6 +38,7 @@ requires 'Getopt::Long';
 requires 'Plack::Loader';
 requires 'Pod::Usage';
 requires 'Starlet';
+requires 'HTML::FromANSI::Tiny';
 
 on 'develop' => sub {
     requires 'Locale::Maketext::Extract::Plugin::Xslate', 'v0.0.2';

diff --git a/lib/Ukigumo/Server/Util.pm b/lib/Ukigumo/Server/Util.pm
@@ -4,16 +4,22 @@ use utf8;
 
 package Ukigumo::Server::Util;
 use Text::Xslate::Util qw(html_escape mark_raw);
+use HTML::FromANSI::Tiny;
+
+my $ansi = HTML::FromANSI::Tiny->new(
+    auto_reverse => 1, background => 'white', foreground => 'black',
+);
 
 # 行頭に行ごとのリンクをつけるの術
 sub make_line_link {
     my $src = shift;
-    my @lines = map { html_escape($_) } split /\r?\n/, $src;
+
+    my @lines = split /\r?\n/, $src;
     my $num = 1;
-    my $html = '';
+    my $html = $ansi->style_tag;
     for my $line (@lines) {
         $html .= qq{<a href="#L$num" id="L$num" class="line-anchor">_</a>&nbsp;<span>};
-        $html .= html_escape($line) . "</span>\n";
+        $html .= $ansi->html($line) . "</span>\n";
         $num++;
     }
     return mark_raw($html);