X-Git-Url: https://git.rmz.io/dotfiles.git/blobdiff_plain/04fed8e4657d28df3ca947ea34c2a5d8f9ccc02f..61d7dd11d4a450a64f2817ee4db0ec7fa5880b42:/bin/colorscheme2palette

diff --git a/bin/colorscheme2palette b/bin/colorscheme2palette
new file mode 100755
index 0000000..8cac325
--- /dev/null
+++ b/bin/colorscheme2palette
@@ -0,0 +1,39 @@
+#! /usr/bin/perl -w
+
+# Converts a kde Color-Scheme to a Palette
+
+use strict;
+use warnings;
+use File::Basename;
+
+@ARGV == 1 or die "I need exactly one argument, a path to a .colors file";
+
+my $dir = `kde4-config --localprefix`;
+chomp $dir;
+$dir = $dir."share/config/colors";
+
+my $file = $ARGV[0];
+my $name = basename($file,  ".colors");
+
+open(FILE, $file) or die $!;
+
+my @lines;
+while (<FILE>) {
+    if (/(.*)=(\d{1,3}),(\d{1,3}),(\d{1,3})/) {
+        my $line = "$2 $3 $4\t$1\n";
+        push(@lines, $line);
+    }
+}
+close FILE;
+
+@lines = sort(@lines); # doesn't work, sorts as string not number
+
+open(OUT, '>', "$dir/$name") or die $!;
+
+print OUT "KDE RGB Palette\n";
+print OUT "#\n";
+
+foreach (@lines) {
+    print OUT;
+}
+close OUT;