X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;ds=sidebyside;f=lib%2FApp%2FNAOdash.pm;h=0938a4b26b1bd61ef27de3d491c9691441d5d293;hb=c5cfd5bcb8df8f6b771e0f06776528b0d17b569a;hp=78428a33e0eeb4e5c866d0012f8c9bb6d1a557b5;hpb=01ba3ddc757514e3474b1c79855de5fea5da1445;p=nethack-naodash.git diff --git a/lib/App/NAOdash.pm b/lib/App/NAOdash.pm index 78428a3..0938a4b 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 } @@ -129,8 +130,8 @@ It defines two functions: =item B(I<$stats>) Takes the result of B or B and presents it -in a text form, using ANSI color escape sequences and unicode ticks -(✓) and X marks (✗) to indicate the presence/absence of checks. +in a text form, using ANSI escape sequences to indicate the +presence/absence of checks. =item B(I<$user_or_path>)