diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2019-11-13 16:09:36 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2019-11-14 16:19:45 -0700 |
| commit | a3f43ea4d3c8c23187343c90b7070d23b6ad4ac7 (patch) | |
| tree | c4b6a6c49e1b062b52bee7d946dede554b8acb25 /lib | |
| parent | 6e49614dcb693dc4e40a5ede572b29a646b78f38 (diff) | |
| download | dotfiles-a3f43ea4d3c8c23187343c90b7070d23b6ad4ac7.tar.gz | |
make locmaint work on black-on-white terminals too
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/perl5/Local/Interactive.pm | 2 | ||||
| -rw-r--r-- | lib/perl5/Local/ScriptStatus.pm | 8 |
2 files changed, 5 insertions, 5 deletions
diff --git a/lib/perl5/Local/Interactive.pm b/lib/perl5/Local/Interactive.pm index 07fa670d..f33533a2 100644 --- a/lib/perl5/Local/Interactive.pm +++ b/lib/perl5/Local/Interactive.pm @@ -181,7 +181,7 @@ sub prompt { my ($prompt) = @_; local $| = 1; - print colored("$prompt ", 'bright_white'); + print colored("$prompt ", 'bold'); chomp(my $response = <STDIN>); return $response; } diff --git a/lib/perl5/Local/ScriptStatus.pm b/lib/perl5/Local/ScriptStatus.pm index 33fab371..3500e274 100644 --- a/lib/perl5/Local/ScriptStatus.pm +++ b/lib/perl5/Local/ScriptStatus.pm @@ -12,13 +12,13 @@ our @EXPORT = qw( script_status say_bold say_bullet say_spaced_bullet ); my $us = basename($0); sub script_status { - print "["; - print colored(['yellow'], $us); - print "] "; + print colored(['bold'], "["); + print colored(['bold red'], $us); + print colored(['bold'], "] "); say_bold(@_); } -sub say_bold { print colored(['bright_white'], @_), "\n" } +sub say_bold { print colored(['bold'], @_), "\n" } sub say_bullet { say_bold(" • ", @_) } |