X-Git-Url: https://git.ktnx.net/?p=mobile-ledger.git;a=blobdiff_plain;f=tools%2Fgen-styles;h=60b01a6325a7cd849135051c0c9894fba4986694;hp=1c2c4c8524af8796d0c35ce33214857f70a3a069;hb=112fd782066d4eb759a104eaf7116b310e0d47d5;hpb=da3450cd594a3f9ad6f0a76b2b2fc219949a6695

diff --git a/tools/gen-styles b/tools/gen-styles
index 1c2c4c85..60b01a63 100644
--- a/tools/gen-styles
+++ b/tools/gen-styles
@@ -140,9 +140,11 @@ warn sprintf( 's%1.3f, l%1.3f -> %s',
 
 my $baseTheme = "AppTheme.NoActionBar";
 
+use constant STEP_DEGREES => 5;
+
 # # hsb
-# for( my $hue = 0; $hue < 360; $hue += 15 ) {
-# 	printf "<style name=\"%s.%d\" parent=\"%s\">\n",
+# for( my $hue = 0; $hue < 360; $hue += STEP_DEGREES ) {
+# 	printf "<style name=\"%s.%03d\" parent=\"%s\">\n",
 # 		$baseTheme, $hue, $baseTheme;
 # 	printf "  <item name=\"colorPrimary\">#%s</item>\n",
 #        		hsvHex($hue/360.0, 0.61, 0.95);
@@ -163,53 +165,62 @@ my $baseTheme = "AppTheme.NoActionBar";
 # HSL
 sub outputThemes {
 	my $out = shift;
-	$out->print(hslStyleForHue($baseColorHue));
-	for( my $hue = 0; $hue < 360; $hue += 15 ) {
-		$out->print(hslStyleForHue($hue, $baseTheme));
+	my $baseIndent = shift;
+	$out->print(hslStyleForHue($baseColorHue, undef, $baseIndent));
+	for( my $hue = 0; $hue < 360; $hue += STEP_DEGREES ) {
+		$out->print("\n");
+		$out->print(hslStyleForHue($hue, $baseTheme, $baseIndent));
 	}
 }
 
 sub hslStyleForHue {
 	my $hue = shift;
 	my $base = shift;
+	my $baseIndent = shift // '';
 
 	my $blueL = 0.665;
 	my $yellowL = 0.350;
 
+	my $blueL2 = 0.350;
+	my $yellowL2 = 0.500;
+
+	# $y == 0 for yellow
 	my $y = $hue - 60;
 	$y += 360 if $y < 0;
+	# $q == 0 for yellow, 1 for blue
 	my $q = cos(deg2rad(abs($y-180)/2.0));
 	my $l1 = $yellowL + ($blueL - $yellowL) * $q;
-	my $l2 = 0.150 + 0.350 * $q;
+	my $l2 = 0.250 + 0.250 * $q;
 	my $l3 = 0.950;
 	my $l4 = 0.980;
 
 	my $result = "";
+	my $indent = "$baseIndent    ";
 
 	if ($base) {
-		$result .= sprintf "<style name=\"%s.%d\" parent=\"%s\">\n",
+		$result .= sprintf "$baseIndent<style name=\"%s.%03d\" parent=\"%s\">\n",
                         $baseTheme, $hue, $baseTheme;
         }
         else {
-                $result .= sprintf "<style name=\"%s\">\n",
+                $result .= sprintf "$baseIndent<style name=\"%s\">\n",
                         $baseTheme;
-                $result .= "  <item name=\"windowActionBar\">false</item>\n";
-                $result .= "  <item name=\"windowNoTitle\">true</item>\n";
-                $result .= "  <item name=\"textColor\">#d0000000</item>\n";
+                $result .= "$indent<item name=\"windowActionBar\">false</item>\n";
+                $result .= "$indent<item name=\"windowNoTitle\">true</item>\n";
+                $result .= "$indent<item name=\"textColor\">#8a000000</item>\n";
         }
         my $S = 0.845;
-        $result .= sprintf "  <item name=\"colorPrimary\">#%s</item>\n",
+        $result .= sprintf "$indent<item name=\"colorPrimary\">#%s</item>\n",
                 hslHex($hue, $S, $l1);
-        $result .= sprintf "  <item name=\"colorPrimaryTransparent\">#00%s</item>\n",
+        $result .= sprintf "$indent<item name=\"colorPrimaryTransparent\">#00%s</item>\n",
                 hslHex($hue, $S, $l1);
-        $result .= sprintf "  <item name=\"colorAccent\">#%s</item>\n",
+        $result .= sprintf "$indent<item name=\"colorAccent\">#%s</item>\n",
                 hslHex($hue, $S, $l2);
-        $result .= "  <item name=\"drawer_background\">#ffffffff</item>\n";
-        $result .= sprintf "  <item name=\"table_row_dark_bg\">#%s</item>\n",
+        $result .= "$indent<item name=\"drawer_background\">#ffffffff</item>\n";
+        $result .= sprintf "$indent<item name=\"table_row_dark_bg\">#%s</item>\n",
                 hslHex($hue, $S, $l3);
-        $result .= sprintf "  <item name=\"table_row_light_bg\">#%s</item>\n",
+        $result .= sprintf "$indent<item name=\"table_row_light_bg\">#%s</item>\n",
                 hslHex($hue, $S, $l4);
-        $result .= "</style>\n";
+        $result .= "$baseIndent</style>\n";
 
         return $result;
 }
@@ -221,16 +232,18 @@ if ($xml) {
 	my $end_marker = '<!-- theme list end -->';
 	my ($fh, $filename) = tempfile(basename($0).'.XXXXXXXX', DIR => dirname($xml));
 	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' if /^\s*\Q$start_marker\E/;
+			$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);
+			outputThemes($fh, $base_indent);
 			print $fh $_;
 			$state = 'copying-the-rest';
 			next;