feature-tests/colour_test.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

use strict;
use warnings;


use Irssi;

my @colors = (0..255);
my @names  = qw/black red green yellow blue magenta cyan white/;
#my @bnames = map { "bold_$_" } @names;

#@names = (@names, @bnames);

foreach my $c (@colors) { 
    my $n = $names[$c] // $c;
    Irssi::print("\%$c This is bg color $n\%n");
}