From: Mischa POSLAWSKY <perl@shiar.org>
Date: Thu, 19 Nov 2015 22:19:24 +0000 (+0100)
Subject: termcol: retrieve original iterm colour definitions
X-Git-Tag: v1.9~59
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/f77b44a0b81543dbb467122d73ae30c3caba473f

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);
	}
'
---

diff --git a/termcol.inc.pl b/termcol.inc.pl
index b064922..f9358f6 100644
--- a/termcol.inc.pl
+++ b/termcol.inc.pl
@@ -68,8 +68,8 @@ my @msxorder = ( 0,6,12,10,4,13,7,14 , 1,8,2,11,5,9,3,15 );
 		name => 'iTerm',
 		title => 'iTerm v2.2.1',
 		list => [qw(
-			000000 CA1B00 00C200 C7C400 0325C7 CA31C7 00C6C8 C7C7C7
-			686868 FF6E68 5EFA68 FFFB67 6971FF FF77FF 61FDFF FFFFFF
+			000000 BB0000 00BB00 BBBB00 0000BB BB00BB 00BBBB BBBBBB
+			555555 FF5555 55FF55 FFFF55 5555FF FF55FF 55FFFF FFFFFF
 		)],
 	},
 	putty => {