X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/43f639f1fdbf9dd95236037d9291854559e92d92..0f1f7a00062360f4b373f027a2a3fa8d43cacd06:/termcol.plp diff --git a/termcol.plp b/termcol.plp index e313856..c58670c 100644 --- a/termcol.plp +++ b/termcol.plp @@ -1,90 +1,161 @@ -<: -use utf8; -use strict; -use warnings; -use open IO => ':utf8'; -use List::Util 'min'; +<(common.inc.plp)><: -our $VERSION = 'v1.0'; +Html({ + title => 'terminal colour cheat sheet', + version => '1.0', + description => [ + "Index of all terminal/console colour codes,", + "with an example result of various environments.", + ], + keywords => [qw' + color code terminal console escape table xterm rxvt + '], + data => ['termcol.inc.pl'], + stylesheet => [qw'light dark'], +}); -$header{content_type} = 'text/html; charset=utf-8'; +:> +
+ANSI (VT100, ISO-6429) 16-colour text palette +as implemented by various systems and programs. +<: +print + !exists $get{v} ? 'Also see 8-bit legacy hardware palettes.' : + 'Also included are 8-bit legacy hardware palettes.'; +:> +
- -\n"; + my $col = Shiar_Sheet::Colour->new(@_); + my $minhex = $col->rgb24; + my $css = '#' . $col->rgb48; + my $inverse = '#' . sprintf('%X', $col->luminance/255 < .3 ? 12 : 0) x 3; + + my $sample = [ qw(#000 #FFF) ]; + ($name, $sample) = @$name if ref $name eq 'ARRAY'; + + my $out = sprintf(' | %s', + join(',', map { int } @$col), + "background:$css; color:$inverse; padding:0 1ex", + $name, + ); + $out .= sprintf ' | %s ', "background:$_; color:$css", $minhex
+ for @$sample;
+ return "$out\n";
}
-sub colcell {
- my $id = shift;
- my @rgb = @_ >= 3 ? @_ : (map {hex} $_[0] =~ /(..)/g);
- my $rgb24 = '';
- $rgb24 .= sprintf '%X', min($_ / 17 + .5, 15) for @rgb[0..2];
- my $rgb48 = '';
- $rgb48 .= sprintf '%02X', $_ for @rgb[0..2];
- my $inverse = sprintf('%X', luminance(@rgb)/255 < .3 ? 12 : 0) x 3;
- return sprintf ' | %s | %s | %s',
- "background:#$rgb48; color:#$inverse",
- $id,
- "background:#000; color:#$rgb48",
- $rgb24,
- "background:#FFF; color:#$rgb48",
- $rgb24,
+my @termlist = qw( cga xterm tango app html xkcd );
+push @termlist, qw( c64 msx2 mac2 risc arnegame cpc ) if exists $get{v};
+push @termlist, qw( ansi88 );
+push @termlist, qw( ansi256 ) if $ENV{PATH_INFO} =~ /256/;
+
+for my $term (@termlist) {
+ my $info = $palettes->{$term};
+ ref $info eq 'HASH' or next;
+ my $caption = $info->{name} // $term;
+ $caption = sprintf('<%s %s>%s%1$s>',
+ $info->{href} ? 'a' : 'span',
+ join(' ',
+ map { sprintf '%s="%s"', $_, $info->{$_} }
+ grep { defined $info->{$_} }
+ qw( href title )
+ ),
+ $caption,
+ ) if $info->{href} or $info->{title};
+
+ if (my $mapinfo = $info->{rgbmap}) {
+ print ' |
'.$_} @termlist), " | ||
---|---|---|