lintian: r45 - trunk
Author: jeroen
Date: 2004-02-16 21:50:56 +0100 (Mon, 16 Feb 2004)
New Revision: 45
Removed:
trunk/rgb-vs-cmap
Log:
Remove obsolete script to generate good colors for icons
Deleted: trunk/rgb-vs-cmap
===================================================================
--- trunk/rgb-vs-cmap 2004-02-16 20:36:59 UTC (rev 44)
+++ trunk/rgb-vs-cmap 2004-02-16 20:50:56 UTC (rev 45)
@@ -1,31 +0,0 @@
-#!/usr/bin/perl -w
-# I used this to populate the %icon_cmap hash in checks/menu-format
-# -- Joy, 2002-11-27, 2002-11-29
-
-open C, "/usr/share/pixmaps/cmap.xpm" or die;
-while (<C>) {
- if (/^.. . #(..)(..)(..)/) {
- my $red = $1;
- my $green = $2;
- my $blue = $3;
- $valid_colors{"#$red$green$blue"} = 1;
- }
-}
-close C;
-
-print " \'none\' => 1,\n";
-foreach (sort keys %valid_colors) {
- print " \'$_\' => 1,\n";
-}
-
-open R, "/etc/X11/rgb.txt" or die;
-while (<R>) {
- if (/^\s*(\d+)\s+(\d+)\s+(\d+)\s+(\S+)/) { # ignore multi-word color names intentionally?
- my $hex = sprintf "%.2x%.2x%.2x", $1, $2, $3;
- my $name = lc $4;
- if (exists $valid_colors{"#$hex"}) {
- print " \'$name\' => 1,\n";
- }
- }
-}
-close R;
Reply to: