unicode: silence perl warning about empty query range offsets

[sheet.git] / common.inc.plp
diff --git a/common.inc.plp b/common.inc.plp

index 4bc68a67ba10379fe6041fb19d1a70a060afb7d0..fec7b570a263cd7875aff05418fb0c71d25e2948 100644 (file)
--- 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} )) {
@@ -72,8 +71,8 @@ sub stylesheet {
                 } or warn "Unable to create style cookie: $@";
         }
  
-       $style ||= $styles{$_} for $cookie{style} || ();
         my $setstyle = $style;
+       $style ||= $styles{$_} for $cookie{style} || ();
         $style ||= $avail[0];
         return $setstyle;
  }
@@ -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');
@@ -180,19 +178,7 @@ sub Html {
                 say '<link rel="icon" type="image/png" href="/clip.png">';
                 say for map { @{$_} } $meta->{raw} || ();
                 say '<meta name="robots" content="noindex">' if $Dev;
-               say "<script>$_</script>" for join($/,
-                       "docroot = document.documentElement;",
-                       "if (docroot.className == '') {",
-                       "new Map([",
-                               "['s-mono','(monochrome)'],",
-                               "['s-dark','(prefers-color-scheme: dark)'],",
-                               "['s-circus','(prefers-contrast: more)'],",
-                       "]).forEach((q,c) => {",
-                               "if (m = window.matchMedia(q))",
-                               "(m.onchange = e => docroot.classList.toggle(c, e.matches))(m)",
-                       "})",
-                       "}",
-               );
+               say '<script src="/prefer.js"></script>';
                 say '</head>';
                 say '';
                 say sprintf '<body id="%s">', $file;