diff options
author | Maat <maat-pub@mageia.biz> | 2021-03-28 22:59:51 +0200 |
---|---|---|
committer | Maat <maat-pub@mageia.biz> | 2021-03-28 22:59:51 +0200 |
commit | 7fab2353b8298492594ae672a3aadff89428cac2 (patch) | |
tree | 50d553a34a5a9f76d69c62f6c00d2cdcbf170fcd /urpm | |
parent | 084744de672cb2af32d3b1b7409dfd746dab022b (diff) | |
download | urpmi-7fab2353b8298492594ae672a3aadff89428cac2.tar urpmi-7fab2353b8298492594ae672a3aadff89428cac2.tar.gz urpmi-7fab2353b8298492594ae672a3aadff89428cac2.tar.bz2 urpmi-7fab2353b8298492594ae672a3aadff89428cac2.tar.xz urpmi-7fab2353b8298492594ae672a3aadff89428cac2.zip |
Setting up H() function for cleaner color control
Diffstat (limited to 'urpm')
-rw-r--r-- | urpm/msg.pm | 21 |
1 files changed, 20 insertions, 1 deletions
diff --git a/urpm/msg.pm b/urpm/msg.pm index a79e59b8..ca81d9fe 100644 --- a/urpm/msg.pm +++ b/urpm/msg.pm @@ -1,4 +1,5 @@ package urpm::msg; +# vim:et:ai:ts=4:sts=4:sw=4 use strict; @@ -6,6 +7,7 @@ no warnings; use Exporter; use URPM; use urpm::util 'append_to_file'; +use Term::ANSIColor; my $encoding; BEGIN { @@ -14,7 +16,7 @@ BEGIN { } our @ISA = 'Exporter'; -our @EXPORT = qw(N N_ P translate bug_log message_input toMb formatXiB sys_log); +our @EXPORT = qw(H N N_ P translate bug_log message_input toMb formatXiB sys_log); #- I18N. use Locale::gettext; @@ -65,6 +67,23 @@ sub P { sprintf(translate($s_singular, $s_plural, $nb), @para); } +sub H { + my ($label, $istring) = @_; + my $color = ''; + my %colors = ( + "Alert" => 'red', + "Error" => 'red', + "Warning" => 'bright_yellow', + "Arg" => 'cyan', + "Package" => 'bold white', + "Highlight" => 'bright_yellow', + "Progress" => 'blue', + "Success" => 'bright_green' + ); + my $output = color($colors{$label}) . $istring . color('reset'); + return $output; +} + sub N { my ($format, @params) = @_; sprintf(translate($format), @params); |