lib/PublicInbox/UserContent.pm

   1 # Copyright (C) 2019 all contributors <meta@public-inbox.org>
   2 # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
   3
   4 # Self-updating module containing a sample CSS for client-side
   5 # customization by users of public-inbox.  Used by Makefile.PL
   6 package PublicInbox::UserContent;
   7 use strict;
   8 use warnings;
   9
  10 # this sub is updated automatically:
  11 sub CSS () {
  12         <<'_'
  13         /*
  14          * Dark color scheme using 216 web-safe colors, inspired
  15          * somewhat by the default color scheme in mutt.
  16          * It reduces eyestrain for me, and energy usage for all:
  17          * https://en.wikipedia.org/wiki/Light-on-dark_color_scheme
  18          */
  19         * { background:#000; color:#ccc }
  20
  21         /*
  22          * Underlined links add visual noise which make them hard-to-read.
  23          * Use colors to make them stand out, instead.
  24          */
  25         a { color:#69f; text-decoration:none }
  26         a:visited { color:#96f }
  27
  28         /* quoted text gets a different color */
  29         *.q { color:#09f }
  30
  31         /*
  32          * these may be used with cgit, too
  33          * (cgit uses <div>, public-inbox uses <span>)
  34          */
  35         *.add { color:#0ff }
  36         *.del { color:#f0f }
  37         *.head { color:#fff }
  38         *.hunk { color:#c93 }
  39
  40         /*
  41          * highlight 3.x colors (tested 3.18)
  42          * this doesn't use most of the colors available (I find too many
  43          * colors overwhelming).  So the #ccc default is commented out.
  44          */
  45         .hl.num { color:#f30 }
  46         .hl.esc { color:#f0f }
  47         .hl.str { color:#f30 }
  48         .hl.pps { color:#f30 }
  49         /* .hl.slc { color:#ccc } */
  50         .hl.com { color:#09f }
  51         .hl.ppc { color:#f0f }
  52         /* .hl.opt { color:#ccc } */
  53         /* .hl.ipl { color:#ccc } */
  54         /* .hl.lin { color:#ccc } */
  55         .hl.kwa { color:#ff0 }
  56         .hl.kwb { color:#0ff }
  57         .hl.kwc { color:#ff0 }
  58         /* .hl.kwd { color:#ccc } */
  59 _
  60 }
  61 # end of auto-updated sub
  62
  63 # return a sample CSS
  64 sub sample ($$) {
  65         my ($ibx, $env) = @_;
  66         my $url_prefix = $ibx->base_url($env);
  67         my $preamble = <<"";
  68 /*
  69  * Firefox users: this goes in \$PROFILE_FOLDER/chrome/userContent.css
  70  * where \$PROFILE_FOLDER is platform-specific
  71  *
  72  * cf. http://kb.mozillazine.org/UserContent.css
  73  *     http://kb.mozillazine.org/Profile_folder_-_Firefox
  74  *
  75  * Users of dillo can remove the entire lines with "moz-only"
  76  * in them and place the resulting file in ~/.dillo/style.css
  77  */
  78 \@-moz-document url-prefix($url_prefix) { /* moz-only */
  79
  80         $preamble . CSS() . "\n} /* moz-only */\n";
  81 }
  82
  83 # Auto-update this file based on the contents of a CSS file:
  84 # usage: perl -I lib __FILE__ contrib/css/216dark.css
  85 # (See Makefile.PL)
  86 if (scalar(@ARGV) == 1 && -r __FILE__) {
  87         use autodie;
  88         open my $ro, '<', $ARGV[0];
  89         my $css = do { local $/; <$ro> };
  90         $css =~ s/^([ \t]*\S)/\t$1/smg;
  91         open my $rw, '+<', __FILE__;
  92         my $out = do { local $/; <$rw> };
  93         $out =~ s/^sub CSS.*^_\n\}/sub CSS () {\n\t<<'_'\n${css}_\n}/sm;
  94         seek $rw, 0, 0;
  95         print $rw $out;
  96 }
  97
  98 1;