diff options
author | Eric Wong <e@80x24.org> | 2016-08-18 04:44:07 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2016-08-18 09:31:55 +0000 |
commit | adecbd43d2eed046fe6e88a459d03567461fd84b (patch) | |
tree | 7900b8ee9e908daa6fa8ddbef3c7ad846ecd8c8b /lib/PublicInbox/WwwStream.pm | |
parent | dfe55f5ee5bd6e3a12d933a6570eb94f294d1c54 (diff) | |
download | public-inbox-adecbd43d2eed046fe6e88a459d03567461fd84b.tar.gz |
Begin documenting some basic help functionality. I may tweak the anchor names of the various HTML endpoints to be more consistent with each other (old ones will be supported for a short while), so I'm not documenting those, for now. This may become part of a builtin key-value store for basic texts, but this probably shouldn't become a wiki engine, either.
Diffstat (limited to 'lib/PublicInbox/WwwStream.pm')
-rw-r--r-- | lib/PublicInbox/WwwStream.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/PublicInbox/WwwStream.pm b/lib/PublicInbox/WwwStream.pm index 9ed25e1d..c89e6de4 100644 --- a/lib/PublicInbox/WwwStream.pm +++ b/lib/PublicInbox/WwwStream.pm @@ -31,10 +31,12 @@ sub _html_top ($) { my $desc = ascii_html($obj->description); my $title = $ctx->{-title_html} || $desc; my $upfx = $ctx->{-upfx} || ''; + my $help = $upfx.'_/text/help'; my $atom = $ctx->{-atom} || $upfx.'new.atom'; my $tip = $ctx->{-html_tip} || ''; my $top = "<b>$desc</b>"; - my $links = "<a\nhref=\"$atom\">Atom feed</a>"; + my $links = "<a\nhref=\"$help\">help</a> / ". + "<a\nhref=\"$atom\">Atom feed</a>"; if ($obj->search) { my $q_val = $ctx->{-q_value_html}; if (defined $q_val && $q_val ne '') { |