X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/87b84f183ea2518e7cf0505bcfee8a444983442b..01d61f72fed7ac041786ea69d1b080f45a4c49d1:/termcol.plp diff --git a/termcol.plp b/termcol.plp index 8f8878b..6f7a55d 100644 --- a/termcol.plp +++ b/termcol.plp @@ -2,7 +2,7 @@ Html({ title => 'terminal colour cheat sheet', - version => '1.0', + version => '1.1', description => [ "Index of all terminal/console colour codes,", "with an example result of various environments.", @@ -36,12 +36,14 @@ print
<: use 5.010; -use Shiar_Sheet::Colour '1.04'; +use Shiar_Sheet::Colour 1.04; use List::Util qw( min max ); use POSIX qw( ceil ); my $palettes = do 'termcol.inc.pl'; die "Cannot open palette data: $_\n" for $@ || $! || (); +my $more = do 'termcol-xcolor.inc.pl'; +$palettes = {%$palettes, %$more}; sub colcell { my $name = shift // return "\n"; @@ -129,14 +131,18 @@ sub coltable { printf "%s\n", $caption; for my $row (@$table) { print ''; - print colcell(@$_) for @$row; + print colcell(ref $_ ? @$_ : $_ ? reverse split /:/ : undef) for @$row; } + if (@draw) { my $width = scalar @{ $table->[0] }; - my @imgpal = map { [ @{$_}[1 .. 3] ] } map { @{$_} } @{$table}; + my @imgpal = map { + [ ref $_ ? @{$_}[1 .. 3] : map {hex} /(..)(..)(..)/ ] + } map { @{$_} } @{$table}; for (@draw) { print "", img_egapal(\@imgpal, @{$_}); } + } print "\n\n"; }