stop bugging the server for a favicon; i don't have one right now

[~bandali/bndl.org] / txt2html
diff --git a/txt2html b/txt2html

index 5b0acb8..10de15d 100644 (file)
--- a/txt2html
+++ b/txt2html
@@ -118,6 +118,7 @@ print("<!doctype html>",
  <meta http-equiv="Content-Type"
  content="text/html; charset=utf-8" />\n),
        "<title>$title</title>\n",
  <meta http-equiv="Content-Type"
  content="text/html; charset=utf-8" />\n),
        "<title>$title</title>\n",
+      qq(<link rel="icon" href="data:,">\n),
        $url ? qq(<link rel="alternate" href="$url"
  title="plain text" type="text/plain" />\n) : '',
        ($opt_index and $opt_lang eq 'en')
        $url ? qq(<link rel="alternate" href="$url"
  title="plain text" type="text/plain" />\n) : '',
        ($opt_index and $opt_lang eq 'en')
@@ -127,10 +128,14 @@ hreflang="fa" title="persian" />\n)
        ? qq(<link rel="alternate" href="https://bndl.org/"
  hreflang="en" title="english" />\n)
        : '',
        ? qq(<link rel="alternate" href="https://bndl.org/"
  hreflang="en" title="english" />\n)
        : '',
+      qq(<style>\@media(prefers-color-scheme:dark){
+body{background:#1c1c1c;color:white;}a:link{color:#acdeff;}
+a:visited{color:#f8f;}a:active{color:#e00;}}),
        $opt_lang eq 'fa'
        $opt_lang eq 'fa'
-      ? qq(<style>\@font-face{font-family:sahel;font-weight:normal;
+      ? qq(\n\@font-face{font-family:sahel;font-weight:normal;
  src:local('Sahel WOL'),local('Sahel'),
  src:local('Sahel WOL'),local('Sahel'),
-url('sahel.woff2')format('woff2');}pre{font-family:sahel}</style>\n)
+url('sahel.woff2')format('woff2');}pre{font-family:sahel})
        : '',
        : '',
+      "</style>\n",
        "</head><body><pre>$txt</pre></body></html>\n");
  STDOUT->flush;
        "</head><body><pre>$txt</pre></body></html>\n");
  STDOUT->flush;