Use underlines and bold in NAOdash CLI

[nethack-naodash.git] / lib / App / NAOdash.pm

diff --git a/lib/App/NAOdash.pm b/lib/App/NAOdash.pm
index 78428a33e0eeb4e5c866d0012f8c9bb6d1a557b5..f80a0fd0e60f397e628789e71d659dd692341ce4 100644 (file)
--- a/lib/App/NAOdash.pm
+++ b/lib/App/NAOdash.pm
@@ -85,9 +85,10 @@ EOF
 
        my $rst = RESET;
        for my $check (@order) {
 
        my $rst = RESET;
        for my $check (@order) {

-               my $color = (grep { $_ eq $check } @checks) ? GREEN '✓' : RED '✗';
+               my $color = (grep { $_ eq $check } @checks) ? GREEN UNDERLINE : RED;

                $base =~ s/#([a-zA-Z-]+)/$color$1$rst/;
        }
                $base =~ s/#([a-zA-Z-]+)/$color$1$rst/;
        }

+       $base =~ s/([A-Z ]+)\n=*/BOLD($1).RESET/ge;

 
        $base
 }
 
        $base
 }