X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/43f639f1fdbf9dd95236037d9291854559e92d92..c11640facf0c976140547ef1b58971ec8a661dd3:/termcol.plp diff --git a/termcol.plp b/termcol.plp index e313856..0eb10b2 100644 --- a/termcol.plp +++ b/termcol.plp @@ -1,13 +1,7 @@ -<: -use utf8; -use strict; -use warnings; -use open IO => ':utf8'; -use List::Util 'min'; - -our $VERSION = 'v1.0'; +<(common.inc.plp)><: + our $VERSION = 'v1.0'; -$header{content_type} = 'text/html; charset=utf-8'; + use List::Util 'min'; :> @@ -16,13 +10,13 @@ $header{content_type} = 'text/html; charset=utf-8';
%s | %s | %s', + return sprintf ' | %s | %s | %s'."\n", "background:#$rgb48; color:#$inverse", $id, "background:#000; color:#$rgb48", @@ -48,7 +42,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 +70,77 @@ my %col = ( ], ); -my @termlist = qw(html cga xterm tango); -print ' |
'.$_} @termlist), " | ||
---|---|---|