X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/43f639f1fdbf9dd95236037d9291854559e92d92..1d743a55b5335cd7aaa5f9a8f2c782e7a46564b7:/termcol.plp?ds=inline diff --git a/termcol.plp b/termcol.plp index e313856..4b91032 100644 --- a/termcol.plp +++ b/termcol.plp @@ -1,28 +1,24 @@ -<: -use utf8; -use strict; -use warnings; -use open IO => ':utf8'; -use List::Util 'min'; - -our $VERSION = 'v1.0'; +<(common.inc.plp)><: -$header{content_type} = 'text/html; charset=utf-8'; - -:> - +Html({ + title => 'terminal colour cheat sheet', + version => 'v1.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 + '], + stylesheet => [qw'light dark'], +}); -
-%s | %s | %s', - "background:#$rgb48; color:#$inverse", + return sprintf ' | %s | %s | %s'."\n", + join(',', map { int } @rgb[0..2]), + "background:#$rgb48; color:#$inverse; padding:0 1ex", $id, "background:#000; color:#$rgb48", $rgb24, @@ -48,7 +45,7 @@ sub colcell { } my %col = ( - -name => [ + -html => [ qw/black maroon green olive navy purple cyan silver gray red lime yellow blue fuchsia aqua white/, qw/reset bold dim italic underline blink fastblink @@ -76,15 +73,68 @@ my %col = ( ], ); -my @termlist = qw(html cga xterm tango); -print ' |
'.$_} @termlist), " | ||
---|---|---|