28 lines
729 B
Perl
28 lines
729 B
Perl
|
#!/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;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|