svgs/change-colors.pl

   1 #!/usr/bin/env perl
   2
   3 my $inputDir = "white";
   4 my %colorDescription = (
   5  # subDirColor lighterColor mediumColor darkerColor
   6  "blue" => "#a4c0e4 #00438a #00316e",
   7  "brown" => "#debc85 #57401e #382509",
   8  "emerald" => "#99dcc6 #00734d #00583f",
   9  "green" => "#d8e8c2 #00892c #006e29",
  10  "hot_orange" => "#ffd9b0 #cf4913 #ac4311",
  11  "navy" => "#c3b4da #34176e #1d0a55",
  12  "purple" => "#f9cade #bf0361 #9c0f56",
  13  "red" => "#f9ccca #bf0303 #9c0f0f",
  14  "sea_blue" => "#a8dde0 #006066 #00484d",
  15  "violet" => "#e8b7d7 #85026c #6a0056",
  16  "yellow" => "#fff6c8 #f3c300 #e3ad00",
  17 # "white" => "#ffffff #d3d7cf #555753"
  18  "grey" => "#eeeeec #555753 #2e3436"
  19 );
  20
  21 sub convertFile($) {
  22     my $inputFile = shift;
  23     print "processing " . $inputFile . "\n";
  24     foreach my $color (keys %colorDescription) {
  25         my @descr = split(' ', $colorDescription{$color});
  26         my $lighterColor = $descr[0];
  27         my $mediumColor = $descr[1];
  28         my $darkerColor = $descr[2];
  29
  30         #print $color . " " . $lighterColor . "\n";
  31         open(IN, "<$inputDir/$inputFile") or die "$inputDir/$inputFile not found";
  32         open(OUT, ">$color/$inputFile") or die "Cannot create $color/$inputFile";
  33         while(<IN>) {
  34             s/#ffffff;/$lighterColor;/g;
  35             s/#d3d7cf/$mediumColor/g;
  36             s/#2e3436/$darkerColor/g;
  37             print OUT $_;
  38         }
  39         close IN;
  40         close OUT;
  41     }
  42 }
  43
  44 my $argument = $ARGV[0];
  45 if ($argument eq "") {
  46     print "Usage: $0 [ -a | file.svg ]\n";
  47 } elsif ($argument eq '-a') {
  48     my @files=`ls -1 $inputDir`;
  49     foreach $_ (@files) {
  50         chomp;
  51         convertFile($_);
  52     }
  53 } else {
  54     convertFile($argument);
  55 }
  56
  57
  58
  59
  60 #for icon in $(ls *.svg); do
  61 #
  62 #cp $icon $( echo $icon | sed s/.svg// )-old.svg
  63 #
  64 #perl -pi -e "s/#eeeeec;/$lighterColor;/g" $icon
  65 #perl -pi -e "s/fill:#555753;fill-rule:evenodd;stroke:#2e3436;/fill:$mediumColor;fill-rule:evenodd;stroke:$darkerColor;/g" $icon
  66 ## perl -pi -e "s/style=\"stop-color:#eeeeec;stop-opacity:1;\"/style=\"stop-color:$lighterColor;stop-opacity:1;\""
  67 #done