X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/43f639f1fdbf9dd95236037d9291854559e92d92..cd3eafb5d1662b268674cab2e29453bfe49257c4:/termcol.plp?ds=sidebyside diff --git a/termcol.plp b/termcol.plp index e313856..10d68ac 100644 --- a/termcol.plp +++ b/termcol.plp @@ -1,28 +1,25 @@ -<: -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 +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,79 @@ my %col = ( ], ); -my @termlist = qw(html cga xterm tango); -print ' |
'.$_} @termlist), " | ||
---|---|---|