retire 88-colour palettes
authorMischa POSLAWSKY <perl@shiar.org>
Sat, 12 Nov 2022 23:38:35 +0000 (00:38 +0100)
committerMischa POSLAWSKY <perl@shiar.org>
Fri, 18 Nov 2022 00:25:46 +0000 (01:25 +0100)
Assume 256color terminals nowadays; even Debian's oldstable rxvt-unicode has
switched defaults.

barcat

diff --git a/barcat b/barcat
index cc128a06fd8815f34f910c932cce36a94e789118..253ec8685c81d922d87c5d189af3770e4f160628 100755 (executable)
--- a/barcat
+++ b/barcat
@@ -58,18 +58,12 @@ GetOptions(\%opt,
        'palette=s' => sub {
                $opt{palette} = {
                        fire   => [qw( 90 31 91 33 93 97 96 )],
-                       fire88 => [map {"38;5;$_"} qw(
-                               80  32 48 64  68 72 76  77 78 79  47
-                       )],
                        fire256=> [map {"38;5;$_"} qw(
                                235  52 88 124 160 196
                                202 208 214 220 226  227 228 229 230 231  159
                        )],
-                       ramp88 => [map {"38;5;$_"} qw(
-                               64 65 66 67 51 35 39 23 22 26 25 28
-                       )],
                        whites => [qw( 1;30 0;37 1;37 )],
-                       greys  => [map {"38;5;$_"} 52, 235..255, 47],
+                       greys  => [map {"38;5;$_"} 0, 232..255, 15],
                }->{$_[1]} // [ split /[^0-9;]/, $_[1] ];
        },
        'stat|s!',