X-Git-Url: http://git.ieval.ro/?p=nethack-naodash.git;a=blobdiff_plain;f=lib%2FApp%2FNAOdash.pm;h=85a52709b034e372002af8b01c908f4cd5270ec1;hp=78428a33e0eeb4e5c866d0012f8c9bb6d1a557b5;hb=90d9e1ee48ad62f758e759d08b47950938467301;hpb=01ba3ddc757514e3474b1c79855de5fea5da1445 diff --git a/lib/App/NAOdash.pm b/lib/App/NAOdash.pm index 78428a3..85a5270 100644 --- a/lib/App/NAOdash.pm +++ b/lib/App/NAOdash.pm @@ -6,7 +6,7 @@ use warnings; use re '/saa'; use utf8; -our $VERSION = '0.001'; +our $VERSION = '0.002'; use Encode qw/encode/; use File::Slurp; @@ -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>)