colors.pm

   1 # Author: Martin Matusiak <numerodix@gmail.com>
   2 # Licensed under the GNU Public License, version 3.
   3
   4 package colors;
   5
   6 use strict;
   7
   8 use base 'Exporter';
   9 our @EXPORT = qw(s_err s_ok s_wa s_est  s_ela s_eta  s_b s_bb s_it s_it2);
  10
  11
  12 my ($black, $red, $green, $yellow, $blue, $magenta, $cyan, $white);
  13 my ($bold, $reverse, $reset);
  14
  15 if (($ENV{'TERM'} ne "") and ($ENV{'TERM'} ne "dumb")) {
  16
  17         # regular colors
  18         $black = "\e[0;30m";
  19         $red = "\e[0;31m";
  20         $green = "\e[0;32m";
  21         $yellow = "\e[0;33m";
  22         $blue = "\e[0;34m";
  23         $magenta = "\e[0;35m";
  24         $cyan = "\e[0;36m";
  25         $white = "\e[0;37m";
  26
  27         if ($ENV{'TERM'} eq "xterm") {
  28                 $red = "\e[0;91m";
  29         }
  30
  31         # special codes
  32         $bold = "\e[0m\e[1m";
  33         $reverse = "\e[7m";
  34         $reset = "\e[0m";
  35
  36 }
  37
  38 sub s_err { return $red    . $_[0] . $reset; }
  39 sub s_ok  { return $green  . $_[0] . $reset; }
  40 sub s_wa  { return $yellow . $_[0] . $reset; }
  41 sub s_est { return $cyan   . $_[0] . $reset; }
  42
  43 sub s_ela { return $magenta . $_[0] . $reset; }
  44 sub s_eta { return $magenta . $reverse . $_[0] . $reset; }
  45
  46 sub s_b   { return $bold   . $_[0] . $reset; }
  47 sub s_bb  { return $green  . $_[0] . $reset; }
  48 sub s_it  { return $yellow . $_[0] . $reset; }
  49 sub s_it2 { return $cyan   . $_[0] . $reset; }
  50
  51 1;