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>)