X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/440357a3333f32304e21957542e50eb33eaddf21..88747cefcce3baebfa96cdd1ab99c4e96d0ddd5a:/termcol.plp diff --git a/termcol.plp b/termcol.plp index 3fd9ece..607a848 100644 --- a/termcol.plp +++ b/termcol.plp @@ -1,28 +1,23 @@ -<: -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'; :> - +
-%s | %s | %s', + return sprintf ' | %s | %s | %s'."\n", "background:#$rgb48; color:#$inverse", $id, "background:#000; color:#$rgb48", @@ -48,7 +43,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,31 +71,77 @@ my %col = ( ], ); -my @termlist = qw(html cga xterm tango); -print ' |
'.$_} @termlist), " | ||
---|---|---|