From 682883c393a571b058b75bc2e493f5722945a448 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 15 Jun 2024 03:36:55 +0200
Subject: [PATCH] common: global style options without page exceptions

Assume site-wide support now, as selected by client media regardless of
given page availability.
---
 apl.plp                      | 1 -
 base.plp                     | 1 -
 browser.plp                  | 1 -
 chars.plp                    | 1 -
 charset.plp                  | 1 -
 codec.plp                    | 1 -
 common.inc.plp               | 6 ++----
 countries.plp                | 1 -
 digits.plp                   | 1 -
 digraphs.plp                 | 1 -
 font.plp                     | 1 -
 keyboard.plp                 | 1 -
 keyboard/altgr/index.inc.plp | 1 -
 latin.plp                    | 1 -
 perl.plp                     | 1 -
 sample.plp                   | 1 -
 sc.plp                       | 1 -
 shell.plp                    | 1 -
 source.plp                   | 1 -
 termcol.plp                  | 1 -
 unicode.plp                  | 1 -
 writing.plp                  | 1 -
 22 files changed, 2 insertions(+), 25 deletions(-)

diff --git a/apl.plp b/apl.plp
index 302a55d..349376e 100644
--- a/apl.plp
+++ b/apl.plp
@@ -7,7 +7,6 @@ Html({
 	],
 	keywords => [qw'
 	'],
-	stylesheet => [qw'light circus dark red'],
 	data => [qw'apl.inc.pl'],
 	raw => <<'EOT',
 <style>
diff --git a/base.plp b/base.plp
index a68a71f..be5a611 100644
--- a/base.plp
+++ b/base.plp
@@ -9,7 +9,6 @@ Html({
 	keywords => [qw'
 		sheet cheat reference software overview summary help keyboard map unicode
 	'],
-	stylesheet => [qw'light dark circus mono red'],
 });
 
 my @cols = (2, 6, 8, 9, 10, 12, 16, 18, 20);
diff --git a/browser.plp b/browser.plp
index 6d75d4a..c32e808 100644
--- a/browser.plp
+++ b/browser.plp
@@ -14,7 +14,6 @@ Html({
 		html html5 css css3 svg javascript js dom mobile
 		ie internet explorer firefox chrome safari webkit opera
 	'],
-	stylesheet => [qw'circus dark mono red light'],
 	data => ['data/browser/support.inc.pl'],
 });
 
diff --git a/chars.plp b/chars.plp
index 91df3b8..1723699 100644
--- a/chars.plp
+++ b/chars.plp
@@ -6,7 +6,6 @@ Html({
 	keywords => [qw'
 		unicode glyph char character reference common ipa symbol sign mark table digraph
 	'],
-	stylesheet => [qw'light dark mono circus red'],
 	data => [qw( data/unicode-cover.inc.pl data/font data/unicode-char.inc.pl )],
 	raw => <<'EOT',
 <style>
diff --git a/charset.plp b/charset.plp
index f5b934c..d832d65 100644
--- a/charset.plp
+++ b/charset.plp
@@ -15,7 +15,6 @@ Html({
 		charset codepage unicode ascii utf8 latin glyph character encoding
 		reference common overview table
 	'],
-	(stylesheet => [qw'light dark']) x !$mode,
 	data => [qw(
 		charset.inc.pl charset-encoding.inc.pl
 		charset-unicode.inc.pl charset-ucplanes.inc.pl charset-utf8.inc.pl
diff --git a/codec.plp b/codec.plp
index f13b93a..1aeaa3b 100644
--- a/codec.plp
+++ b/codec.plp
@@ -14,7 +14,6 @@ Html({
 	version => '1.1',
 	description => $info->{intro},
 	keywords => [@{ $info->{keywords} // [] }, qw' feature comparison support benchmark '],
-	stylesheet => [qw'light circus dark red'],
 	data => ["codec-$page.inc.pl"],
 	raw => '<style>td,th {width:8%} tbody th {white-space:nowrap}</style>',
 });
diff --git a/common.inc.plp b/common.inc.plp
index 4bc68a6..ff84a9a 100644
--- a/common.inc.plp
+++ b/common.inc.plp
@@ -54,8 +54,7 @@ our $style;
 $header{content_type} = 'text/html; charset=utf-8';
 
 sub stylesheet {
-	my ($avail) = @_;
-	my @avail = ref $avail eq 'ARRAY' ? @{$avail} : $avail or return;
+	my @avail = qw( light dark circus mono red );
 	my %styles = map {$_ => $_} @avail;
 
 	if (defined( my $setstyle = $get{style} )) {
@@ -127,7 +126,6 @@ sub Html {
 	}
 
 	# default fallbacks
-	$meta->{stylesheet} ||= [qw( light dark circus mono red )];
 	$meta->{charset} ||= 'utf-8';
 	$meta->{lang} ||= 'en';
 
@@ -143,7 +141,7 @@ sub Html {
 	unshift @{ $meta->{raw} }, (
 		'<link rel="stylesheet" type="text/css" media="all" href="/light.css?1.20">',
 	);
-	$meta->{stylesheet} = stylesheet($meta->{stylesheet});
+	$meta->{stylesheet} = stylesheet();
 
 	if (my $img = $meta->{image}) {
 		my $proto = sprintf('http%s://', !!$ENV{HTTPS} && 's');
diff --git a/countries.plp b/countries.plp
index efd2f25..c11a3e8 100644
--- a/countries.plp
+++ b/countries.plp
@@ -6,7 +6,6 @@ Html({
 	description =>
 		"Table of ISO-3166-1 country codes with the names of reserved territories.",
 	keywords => [qw'country code cc tld cctld continent territory land table'],
-	stylesheet => [qw'light dark circus mono red'],
 	data => ['data/countries.inc.pl'],
 });
 
diff --git a/digits.plp b/digits.plp
index a55b49a..ea44418 100644
--- a/digits.plp
+++ b/digits.plp
@@ -11,7 +11,6 @@ Html({
 		script glyph unicode writing comparison list character
 		history sample test language multilingual
 	)],
-	stylesheet => [qw( light dark circus mono red )],
 	data => [qw'writing-digits.inc.pl'],
 	raw => <<'EOT',
 <style>
diff --git a/digraphs.plp b/digraphs.plp
index 0fb9223..65d2a3b 100644
--- a/digraphs.plp
+++ b/digraphs.plp
@@ -18,7 +18,6 @@ Html({
 		digraph mnemonic compose composition pair
 		character char glyph table unicode vim
 	'],
-	stylesheet => [qw'light dark'],
 	data => ["data/$include.json"],
 });
 
diff --git a/font.plp b/font.plp
index d789262..d69903e 100644
--- a/font.plp
+++ b/font.plp
@@ -9,7 +9,6 @@ Html({
 		unicode font glyph char character support overview cover coverage
 		script block symbol sign mark reference table
 	)],
-	stylesheet => [qw( light dark mono circus red )],
 	data => [qw( data/unicode-cover.inc.pl )],
 });
 
diff --git a/keyboard.plp b/keyboard.plp
index 3a40a4d..5515910 100644
--- a/keyboard.plp
+++ b/keyboard.plp
@@ -33,7 +33,6 @@ Html({
 		sheet cheat reference overview keyboard control commands shortkey
 	'],
 	image => $info->{image},
-	stylesheet => [qw( light dark circus mono red )],
 	data => ["$include.inc.pl"],
 	raw => \@keystyle,
 });
diff --git a/keyboard/altgr/index.inc.plp b/keyboard/altgr/index.inc.plp
index c6accc7..bf11415 100644
--- a/keyboard/altgr/index.inc.plp
+++ b/keyboard/altgr/index.inc.plp
@@ -18,7 +18,6 @@ Html({
 		sheet cheat reference overview keyboard altgr option
 	'],
 	image => "$dirbase/thumb/ibm-m.jpg",
-	stylesheet => [qw( light dark circus mono red )],
 	data => ["$dirbase/index.inc.plp", "$indexfile.inc.pl"],
 	raw => <<'.',
 <style>
diff --git a/latin.plp b/latin.plp
index 578d858..e2f52dc 100644
--- a/latin.plp
+++ b/latin.plp
@@ -11,7 +11,6 @@ Html({
 		secret cursive fraktur blind braille morse deaf asl hand
 		barcode bar color semaphore flag
 	'],
-	stylesheet => [qw( light dark red mono )],
 	data => ['writing-latn.inc.pl'],
 });
 
diff --git a/perl.plp b/perl.plp
index cdfe47f..d6dfd9d 100644
--- a/perl.plp
+++ b/perl.plp
@@ -8,7 +8,6 @@ Html({
 		sheet cheat overview summary
 	'],
 	image => 'data/camels.jpg',
-	stylesheet => [qw'light dark red'],
 	data => ['perl.inc.pl'],
 });
 
diff --git a/sample.plp b/sample.plp
index 36ad2b4..f7d06c9 100644
--- a/sample.plp
+++ b/sample.plp
@@ -5,7 +5,6 @@ my $textinc = 'sample.txt';
 Html({
 	title => "unicode sampler",
 	version => '2.1',
-	stylesheet => [qw'light dark mono red'],
 	data => [$textinc],
 	image => 'sample.png',
 });
diff --git a/sc.plp b/sc.plp
index 753ea4c..255d28f 100644
--- a/sc.plp
+++ b/sc.plp
@@ -52,7 +52,6 @@ Html({
 		$scver{major} < 2 ? qw' bw broodwar brood war ' :
 		qw' starcraft2 lotv hots wol ',
 	],
-	stylesheet => [qw( light dark mono )],
 	raw => '<link rel="stylesheet" type="text/css" media="all" href="/sc.css?1.3">',
 	data => ["$datafile.inc.pl"],
 });
diff --git a/shell.plp b/shell.plp
index 75ea57e..23ff526 100644
--- a/shell.plp
+++ b/shell.plp
@@ -4,7 +4,6 @@ use List::Util qw(sum max first);
 Html({
 	title => 'Shell compatibility cheat sheet',
 	version => '1.0',
-	stylesheet => [qw'circus dark mono red light'],
 	data => ['shell.inc.pl'],
 });
 
diff --git a/source.plp b/source.plp
index 81b3408..7385218 100644
--- a/source.plp
+++ b/source.plp
@@ -37,7 +37,6 @@ Html({
 	keywords => [qw'
 		sheet cheat source code perl plp html agpl
 	'],
-	stylesheet => [qw'light dark mono red'],
 	data => [$source =~ m{\A($incname)\z}],
 });
 
diff --git a/termcol.plp b/termcol.plp
index f76e293..a02ba35 100644
--- a/termcol.plp
+++ b/termcol.plp
@@ -31,7 +31,6 @@ Html({
 		ansi vt100 8bit 4bit cga ega vga rgb hsv game emulator display
 	'],
 	data => ['termcol.inc.pl'],
-	stylesheet => [qw'light dark'],
 });
 
 my @draw = map { [$_, s/\W+\z//] } grep { $_ } split m(/),
diff --git a/unicode.plp b/unicode.plp
index a7d5459..ffee44f 100644
--- a/unicode.plp
+++ b/unicode.plp
@@ -10,7 +10,6 @@ Html({
 	keywords => [qw'
 		unicode glyph char character reference common ipa symbol sign mark table digraph
 	'],
-	stylesheet => [qw'light dark mono circus red'],
 	data => [qw( unicode-table.inc.pl data/unicode-char.inc.pl )],
 });
 
diff --git a/writing.plp b/writing.plp
index dfd78a4..5691082 100644
--- a/writing.plp
+++ b/writing.plp
@@ -14,7 +14,6 @@ Html({
 		writing script glyph unicode character letter comparison history
 		alphabet sample test language multilingual
 	)],
-	stylesheet => [qw'light circus dark red mono'],
 	data => ["$include.inc.pl"],
 });
 
-- 
2.30.2