Added palette.pl

palette.pl

@@ -0,0 +1,27 @@
+#!/usr/bin/env perl
+#
+# palette.pl
+#
+# Converts your .Xdefault/.Xresources colors into a ready to paste palette
+# for bar. It takes your foreground/background settings into account and if
+# it cant find them it leaves COLOR0/COLOR1 undefined.
+#
+
+use strict;
+use warnings;
+
+open (F, "<".$ARGV[0]) || die "Can't open!";
+
+while (<F>) {
+    if ($_ =~ m/^\s*(?:\w+\.|\*)(color|background|foreground)(\d+)?\s*:\s*#([0-9A-Fa-f]*)/) {
+        if    ($1 eq "background") { 
+            printf "#define COLOR0\t0x$3\n"; 
+        }
+        elsif ($1 eq "foreground") { 
+            printf "#define COLOR1\t0x$3\n" 
+        }
+        elsif ($1 eq "color" && $2 < 8) { 
+            printf "#define COLOR%i\t0x$3\n", $2 + 2;
+        }
+    }
+}