X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=lib%2FPublicInbox%2FWwwText.pm;h=adadc37aab3da1f32ee40a7eb0687444281b9696;hb=8b8577f91109e76d12fcfa55a2e7388f54a41be6;hp=b8beb97c6d5983e9c319a2f7733a4e232fc7f884;hpb=adecbd43d2eed046fe6e88a459d03567461fd84b;p=public-inbox.git diff --git a/lib/PublicInbox/WwwText.pm b/lib/PublicInbox/WwwText.pm index b8beb97c..adadc37a 100644 --- a/lib/PublicInbox/WwwText.pm +++ b/lib/PublicInbox/WwwText.pm @@ -1,7 +1,7 @@ -# Copyright (C) 2016 all contributors +# Copyright (C) 2016-2018 all contributors # License: AGPL-3.0+ -# -# serves the /$INBOX/_/* endpoints from :text/* of the git tree + +# used for displaying help texts and other non-mail content package PublicInbox::WwwText; use strict; use warnings; @@ -10,6 +10,10 @@ use PublicInbox::WwwStream; use PublicInbox::Hval qw(ascii_html); our $QP_URL = 'https://xapian.org/docs/queryparser.html'; our $WIKI_URL = 'https://en.wikipedia.org/wiki'; +my $hl = eval { + require PublicInbox::HlMod; + PublicInbox::HlMod->new +}; # /$INBOX/_/text/$KEY/ # KEY may contain slashes # For now, "help" is the only supported $KEY @@ -61,7 +65,13 @@ sub get_text { sub _do_linkify { my $l = PublicInbox::Linkify->new; - $_[0] = $l->linkify_2(ascii_html($l->linkify_1($_[0]))); + $l->linkify_1($_[0]); + if ($hl) { + $hl->do_hl_text(\($_[0])); + } else { + $_[0] = ascii_html($_[0]); + } + $_[0] = $l->linkify_2($_[0]); } sub _srch_prefix ($$) { @@ -88,9 +98,33 @@ sub _srch_prefix ($$) { 1; } +sub _colors_help ($$) { + my ($ctx, $txt) = @_; + my $ibx = $ctx->{-inbox}; + my $env = $ctx->{env}; + my $base_url = $ibx->base_url($env); + $$txt .= "color customization for $base_url\n"; + $$txt .= <{-inbox}; @@ -134,7 +168,7 @@ search in other search engines. We also support search prefixes to limit the scope of the - search to certain fields using prefixes. + search to certain fields. Prefixes supported in this installation include: @@ -142,6 +176,10 @@ EOF _srch_prefix($srch, $txt); $$txt .= <