From: Marius Gavrilescu <marius@ieval.ro>
Date: Mon, 17 Aug 2015 19:49:19 +0000 (+0300)
Subject: Use underlines and bold in NAOdash CLI
X-Git-Tag: 0.002~5
X-Git-Url: http://git.ieval.ro/?a=commitdiff_plain;h=88d87be7ecae3db02a2585ed856a542530f33f6f;p=nethack-naodash.git

Use underlines and bold in NAOdash CLI
---

diff --git a/lib/App/NAOdash.pm b/lib/App/NAOdash.pm
index 78428a3..f80a0fd 100644
--- a/lib/App/NAOdash.pm
+++ b/lib/App/NAOdash.pm
@@ -85,9 +85,10 @@ EOF
 
 	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-Z ]+)\n=*/BOLD($1).RESET/ge;
 
 	$base
 }