X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/6dd6df74eb22b9467cfabab98af67157947c639c..70888ead921575f20a2692dfcb18d171e1b269e0:/termcol.plp diff --git a/termcol.plp b/termcol.plp index acfe2be..32a7356 100644 --- a/termcol.plp +++ b/termcol.plp @@ -14,6 +14,19 @@ Html({ stylesheet => [qw'light dark'], }); +my @termlist; +push @termlist, split /\W+/, $ENV{PATH_INFO} || 'default'; + +my %termgroup = ( + default => [qw( ansi xkcd ansi88 )], + more => [qw( ansi legacy ansi256 )], + msx => [qw( msx1 msx2 arnejmp )], + ansi => [qw( cga xterm tango app html )], + legacy => [qw( c64 msx2 mac2 risc arnegame cpc )], +); +@{$_} = map { $termgroup{$_} ? @{ $termgroup{$_} } : $_ } @{$_} + for values %termgroup, \@termlist; + :>