From: Mischa POSLAWSKY <perl@shiar.org>
Date: Mon, 2 Nov 2015 13:04:07 +0000 (+0100)
Subject: termcol: define mirc palette (included in more)
X-Git-Tag: v1.9~69
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/721416af567c48d7963d771e2f282c390a2763ca

termcol: define mirc palette (included in more)
---

diff --git a/termcol.inc.pl b/termcol.inc.pl
index e3fbd71..0a71140 100644
--- a/termcol.inc.pl
+++ b/termcol.inc.pl
@@ -79,6 +79,15 @@ my @msxorder = ( 0,6,2,10,4,13,7,14 , 1,8,3,11,5,9,12,15 );
 			2F2F2F CD5757 8FC35B D1C45E 5C81A9 BC95B7 76CBCB EEEEEC
 		)],
 	},
+	mirc => {
+		name => 'mIRC',
+		href => 'http://www.mirc.com/colors.html',
+		list => [qw(
+			FFFFFF 000000 00007F 009300 FF0000 7F0000 9C009C FC7F00
+			FFFF00 00FC00 009393 00FFFF 0000FC FF00FF 7F7F7F D2D2D2
+		)],
+		ansiorder => [ 1,5,3,7,2,6,10,15 , 14,4,9,8,12,13,11,0  ],
+	},
 	mac2 => {
 		name => 'MacII',
 		list => [qw(
diff --git a/termcol.plp b/termcol.plp
index 7a51fbd..0068acc 100644
--- a/termcol.plp
+++ b/termcol.plp
@@ -21,7 +21,7 @@ push @termlist, split /\W+/, $ENV{PATH_INFO} || 'default';
 
 my %termgroup = (
 	default => [qw( ansi xkcd ansi88 )],
-	more    => [qw( ansi legacy ansi256 )],
+	more    => [qw( ansi mirc legacy ansi256 )],
 	msx     => [qw( msx1 msx2 arnejmp )],
 	ansi    => [qw( cga xterm tango app html )],
 	legacy  => [qw( c64 msx2 mac2 risc arnegame cpc )],