#!/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);
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",
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",
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';