X-Git-Url: https://git.ktnx.net/?a=blobdiff_plain;f=tools%2Fgen-styles;h=5b958f53b338eb8f907052e5eb6b2a72258632c2;hb=557db86d7b67be4d05083f394f78958aa7820891;hp=0b8759c2942e9b5b9bdf68dc700952e3918c011a;hpb=fbaaba448b36e6f43d357c7651acef6746670f6e;p=mobile-ledger.git

diff --git a/tools/gen-styles b/tools/gen-styles
index 0b8759c2..5b958f53 100644
--- a/tools/gen-styles
+++ b/tools/gen-styles
@@ -1,6 +1,6 @@
 #!/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);
@@ -209,9 +209,9 @@ sub hslStyleForHue {
         else {
                 $result .= sprintf "$baseIndent<style name=\"%s\">\n",
                         $baseTheme;
-                $result .= "$indent<item name=\"windowActionBar\">false</item>\n";
-                $result .= "$indent<item name=\"windowNoTitle\">true</item>\n";
-                $result .= "$indent<item name=\"textColor\">#757575</item>\n";
+#                $result .= "$indent<item name=\"windowActionBar\">false</item>\n";
+#                $result .= "$indent<item name=\"windowNoTitle\">true</item>\n";
+#                $result .= "$indent<item name=\"textColor\">#757575</item>\n";
         }
         my $S = 0.845;
         $result .= sprintf "$indent<item name=\"colorPrimary\">#%s</item>\n",
@@ -220,6 +220,8 @@ sub hslStyleForHue {
                 hslHex($hue, $S, $l1);
         $result .= sprintf "$indent<item name=\"colorAccent\">#%s</item>\n",
                 hslHex($hue, $S, $l2);
+        $result .= sprintf "$indent<item name=\"colorPrimaryDark\">#%s</item>\n",
+                hslHex($hue, $S, $l2);
         $result .= sprintf "$indent<item name=\"table_row_dark_bg\">#%s</item>\n",
                 hslHex($hue, $S, $l3);
         $result .= sprintf "$indent<item name=\"table_row_light_bg\">#%s</item>\n",
@@ -235,6 +237,7 @@ if ($xml) {
 	my $start_marker = '<!-- theme list start -->';
 	my $end_marker = '<!-- theme list end -->';
 	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';