SHARYANTO::ColorTheme::Util3pm

create_color_theme_transform($basect, $func) => HASH

Create a new color theme by applying transform function $func (code) to base theme $basect (hash). For example if you want to create a reddish color theme from the default theme:

 use Text::ANSITable;
 use SHARYANTO::Color::Util qw(mix_2_rgb_colors);
 use SHARYANTO::ColorTheme::Util qw(create_color_theme_transform);
 my $basect = Text::ANSITable->get_color_theme("Default::default_gradation");
 my $redct  = create_color_theme_transform(
     $basect, sub { mix_2_rgb_colors(shift, 'ff0000') });
 # use the color theme
 my $t = Text::ANSITable->new;
 $t->color_theme($redct);