1 # Copyright (C) 2019 all contributors <meta@public-inbox.org>
2 # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
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;
10 # this sub is updated automatically:
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
19 * { background:#000; color:#ccc }
22 * Underlined links add visual noise which make them hard-to-read.
23 * Use colors to make them stand out, instead.
25 a { color:#69f; text-decoration:none }
26 a:visited { color:#96f }
28 /* quoted text gets a different color */
32 * these may be used with cgit, too
33 * (cgit uses <div>, public-inbox uses <span>)
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.
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 } */
61 # end of auto-updated sub
66 my $url_prefix = $ibx->base_url($env);
69 * Firefox users: this goes in \$PROFILE_FOLDER/chrome/userContent.css
70 * where \$PROFILE_FOLDER is platform-specific
72 * cf. http://kb.mozillazine.org/UserContent.css
73 * http://kb.mozillazine.org/Profile_folder_-_Firefox
75 * Users of dillo can remove the entire lines with "moz-only"
76 * in them and place the resulting file in ~/.dillo/style.css
78 \@-moz-document url-prefix($url_prefix) { /* moz-only */
80 $preamble . CSS() . "\n} /* moz-only */\n";
83 # Auto-update this file based on the contents of a CSS file:
84 # usage: perl -I lib __FILE__ contrib/css/216dark.css
86 if (scalar(@ARGV) == 1 && -r __FILE__) {
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;