termcol: retrieve original iterm colour definitions
authorMischa POSLAWSKY <perl@shiar.org>
Thu, 19 Nov 2015 22:19:24 +0000 (23:19 +0100)
committerMischa POSLAWSKY <perl@shiar.org>
Tue, 5 Jan 2016 00:05:07 +0000 (01:05 +0100)
commitf77b44a0b81543dbb467122d73ae30c3caba473f
tree492ce8276e40997580268cad710566d94f223330
parent3c4976287c764533d520779dc95bb3acc4667936
termcol: retrieve original iterm colour definitions

Original screenshot apparently included some colour transformation
courtesy of Apple.

Converted from source <https://github.com/gnachman/iTerm2.git>:

perl -MMac::PropertyList=:all -E '
my $p = parse_plist_file("plists/ColorPresets.plist");
for my $col ($p->{"Dark Background"}) {
say join " ", map { parsecolor($col->{"Ansi $_ Color"}) } 0 .. 15;
}
sub parsecolor {
return join "", map {
sprintf "%02X", $_[0]->{"$_ Component"}->value * 255 + .5
} qw(Red Green Blue);
}
'
termcol.inc.pl