X-Git-Url: https://git.ktnx.net/?a=blobdiff_plain;f=tools%2Fgen-styles;h=785ece60b1a90aed5924850fe8b8da63a99c7670;hb=3467ccc6b19c7a97088d5719772b05c73372bb39;hp=f4aecdfe7dc789e1b025bad75a5e748796151837;hpb=7fc390cba426710880297bc6790736338f355909;p=mobile-ledger-staging.git
diff --git a/tools/gen-styles b/tools/gen-styles
index f4aecdfe..785ece60 100644
--- a/tools/gen-styles
+++ b/tools/gen-styles
@@ -1,6 +1,19 @@
#!/usr/bin/perl
-use strict; use warnings; use utf8;
+use strict; use warnings; use utf8::all;
+use autodie;
+use Math::Trig;
+use File::Basename qw(basename dirname);
+use File::Temp qw(tempfile);
+use Getopt::Long;
+
+my $opt_night;
+
+GetOptions(
+ 'night!' => \$opt_night,
+) or exit 1;
+
+my $DEFAULT_HUE = 261.2245;
sub hexTuple {
my ($r, $g, $b) = @_;
@@ -27,9 +40,10 @@ sub hsvHex {
# https://en.wikipedia.org/wiki/HSL_and_HSV#From_HSL
sub hslHex {
my ($hue, $sat, $lig ) = @_;
- my $h = ($hue * 6);
+ $hue = $hue / 360.0;
+ my $h = ($hue * 6.0);
my $c = (1 - abs(2.0*$lig - 1)) * $sat;
- my $h_mod_2 = $h - 2*int($h/2);
+ my $h_mod_2 = $h - 2.0*int($h/2);
my $x = $c * (1 - abs($h_mod_2 - 1));
my ($r, $g, $b);
my $m = $lig - $c / 2.0;
@@ -65,15 +79,21 @@ sub max {
return $max;
}
+sub hexToRGB {
+ my $hexTriplet = shift;
+
+ my @d = $hexTriplet =~ /^#?(.)(.)(.)(.)(.)(.)/;
+
+ return (16 * $hexValue{$d[0]} + $hexValue{$d[1]},
+ 16 * $hexValue{$d[2]} + $hexValue{$d[3]},
+ 16 * $hexValue{$d[4]} + $hexValue{$d[5]});
+}
+
sub hexToHSL {
my $hexTriplet = shift;
- my ( $r,$g,$b ) = $hexTriplet =~ /^#?(..)(..)(..)/;
- for ($r,$g,$b) {
- my @d = split(//);
- $_ = 16 * $hexValue{$d[0]} + $hexValue{$d[1]};
- }
- warn "$hexTriplet -> $r:$g:$b";
+ my ($r,$g,$b) = hexToRGB($hexTriplet);
+ #warn "$hexTriplet -> $r:$g:$b";
for ($r, $g, $b ) { $_ = $_ / 255.0 }
@@ -105,16 +125,35 @@ sub hexToHSL {
return( $H, $S, $L );
}
-my $baseColorHSV = [ hexToHSL('#935ff2') ];
+my $baseColor = '#935ff2';
+my $baseColorHSV = [ hexToHSL($baseColor) ];
my $baseColorHue = $baseColorHSV->[0];
-warn sprintf( 'H:%1.4f S:%1.4f L:%1.4f', @$baseColorHSV );
-warn sprintf( 'H:%1.4f S:%1.4f L:%1.4f', hexToHSL('#3e148c') );
+warn sprintf( '%s â H:%1.4f S:%1.4f V:%1.4f', $baseColor, @$baseColorHSV );
+my @target = hexToRGB($baseColor);
+my ($best, $min_dist);
+for (my $s = 0.50; $s < 0.90; $s += 0.001) {
+ for ( my $l = 0.50; $l <= 0.80; $l += 0.001 ) {
+ my $hexColor = hslHex($baseColorHue, $s, $l);
+ my ($r,$g,$b) = hexToRGB( $hexColor );
+ my $dist = abs($r-$target[0])
+ + abs($g-$target[1])
+ + abs($b-$target[2]);
+ if (not defined($best) or $dist < $min_dist) {
+ $best = [ $s, $l, $hexColor ];
+ $min_dist = $dist;
+ }
+ }
+}
+warn sprintf( 's%1.3f, l%1.3f â %s',
+ @$best );
-my $baseTheme = "AppTheme.NoActionBar";
+my $baseTheme = "AppTheme";
+
+use constant STEP_DEGREES => 5;
# # hsb
-# for( my $hue = 0; $hue < 360; $hue += 15 ) {
-# printf "\n";
+
+ return $result;
+}
+
+my $xml = shift;
+
+if ($xml) {
+ my $start_marker = '';
+ my $end_marker = '';
+ my ($fh, $filename) = tempfile(basename($0).'.XXXXXXXX', DIR => dirname($xml));
+ $fh->binmode(':utf8');
+ open(my $in, '<', $xml);
+ my $base_indent = '';
+ my $state = 'waiting-for-start-marker';
+ while (<$in>) {
+ if ( $state eq 'waiting-for-start-marker' ) {
+ print $fh $_;
+ $state = 'skipping-styles', $base_indent = $1
+ if /^(\s*)\Q$start_marker\E/;
+ next;
+ }
+ if ( $state eq 'skipping-styles' ) {
+ next unless /^\s*\Q$end_marker\E/;
+ outputThemes($fh, $base_indent);
+ print $fh $_;
+ $state = 'copying-the-rest';
+ next;
+ }
+ if ( $state eq 'copying-the-rest') {
+ print $fh $_;
+ next;
+ }
+
+ die "Unexpected state '$state'";
}
- printf " - #%s
\n",
- hslHex($hue/360.0, 0.60, 0.60);
- printf " - #%s
\n",
- hslHex($hue/360.0, 0.85, 0.50);
- printf " - #ffffffff
\n";
- printf " - #%s
\n",
- hslHex($hue/360.0, 0.85, 0.95);
- printf " - #%s
\n",
- hslHex($hue/360.0, 0.85, 0.98);
- printf "\n";
+
+ close($fh);
+ close($in);
+
+ rename($filename, $xml);
+}
+else {
+ outputThemes(\*STDOUT);
}