From 88d87be7ecae3db02a2585ed856a542530f33f6f Mon Sep 17 00:00:00 2001 From: Marius Gavrilescu Date: Mon, 17 Aug 2015 22:49:19 +0300 Subject: [PATCH] Use underlines and bold in NAOdash CLI --- lib/App/NAOdash.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 } -- 2.39.2