view release on metacpan or  search on metacpan

lib/App/FQStat/Colors.pm  view on Meta::CPAN

    save_color_scheme
    delete_color_scheme
  )],
);
our @EXPORT_OK = @{$EXPORT_TAGS{'all'}};

our $DefaultColors = {
  initializing         => 'black on green',
  reverse_indicator    => 'blue on white',

  header_highlight     => 'bold white on red',
  header_warning       => 'bold red on black',
  header_normal        => 'bold white on black',

  status_running       => 'black on green',
  status_error         => 'black on red',
  status_hold          => 'black on yellow',
  status_queued        => 'blue on white',
  status_fallback      => 'black on yellow',

  scrollbar_fg         => 'black on white',
  scrollbar_bg         => 'white on black',

  user_highlight       => 'bold white on blue',
  
  menu_normal          => 'bold white on blue',
  menu_selected        => 'bold white on red',

  user_input           => "bold red on black",
  user_instructions    => "bold red on white",

  selected_job         => "blue on white",
  selected_cursor      => "black on red",

  summary              => "bold white on blue",

  warning              => "red",
};
our $DefaultColorSchemes = {
  default => {%$DefaultColors},
  contrast => {
    header_highlight => 'bold white on red',
    header_normal => 'bold white on black',
    header_warning => 'bold red on black',
    initializing => 'black on green',
    menu_normal => 'black on cyan',
    menu_selected => 'bold white on red',
    reverse_indicator => 'blue on white',
    scrollbar_bg => 'red on black',
    scrollbar_fg => 'black on red',
    selected_cursor => 'black on red',
    selected_job => 'black on cyan',
    status_error => 'black on red',
    status_fallback => 'black on yellow',
    status_hold => 'black on yellow',
    status_queued => 'bold white on blue',
    status_running => 'black on green',
    summary => 'bold red on blue',
    user_highlight => 'bold red on blue',
    user_input => 'bold red on black',
    user_instructions => 'bold white on red',
    warning => 'red',
  },
};

sub get_color {
  warnenter if ::DEBUG > 1;
  my $color = shift;
  my $colors = get_config('colors') || {};
  if (not defined $colors->{$color}) {
    die "Could not determine color scheme for use '$color'.";