8 for my $path (glob 'data/xcolors/themes/*') {
9 open my $theme, '<', $path;
10 (my $name = $path) =~ s{.*/}{}; # basename
14 while (readline $theme) {
15 m{ color(\d+) \h* : \h* ( \#(\S+) | rgb:(\S+) ) }x or next;
16 my ($idx, $val) = ($1, uc $+);
18 $val =~ s/[^0-9A-F]//g;
23 say qq(\ttitle => '$name',);
24 say qq(\tparent => 'cga',);
25 say qq(\tlist => [qw(@pal)],);
29 say 'xcolor => [', join(', ', map {"'$_'"} @names), '],';