use re '/saa';
use utf8;
-our $VERSION = '0.001';
+our $VERSION = '0.002';
use Encode qw/encode/;
use File::Slurp;
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
}
=item B<naodash_to_ansi>(I<$stats>)
Takes the result of B<naodash_user> or B<naodash_xlog> 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<run>(I<$user_or_path>)