diff options
author | Eric Wong <e@80x24.org> | 2016-07-21 01:23:02 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2016-07-21 01:23:18 +0000 |
commit | 803914775816f7de5485fa397bad64e1bd404381 (patch) | |
tree | a73ce57ebdbd843b8450a9b64861effb54b47ec5 /lib/PublicInbox/View.pm | |
parent | 8888a03c12dcd0f17ff611f4617523942a3aed49 (diff) | |
download | public-inbox-803914775816f7de5485fa397bad64e1bd404381.tar.gz |
Clearly label "Thread overview" and "Reply instructions" so users can quickly skip stuff they're not interested in. Additionally, note the fact the thread view allows quick navigation within the thread to avoid extra network requests and improve the display for single-message threads. Finally, use <hr> to better-delineate sections of each page.
Diffstat (limited to 'lib/PublicInbox/View.pm')
-rw-r--r-- | lib/PublicInbox/View.pm | 19 |
1 files changed, 12 insertions, 7 deletions
diff --git a/lib/PublicInbox/View.pm b/lib/PublicInbox/View.pm index 49068641..5f99644f 100644 --- a/lib/PublicInbox/View.pm +++ b/lib/PublicInbox/View.pm @@ -61,10 +61,12 @@ sub msg_reply { push @$arg, '/path/to/YOUR_REPLY'; $arg = join(" \\\n ", '', @$arg); <<EOF -<pre -id=R>You may reply publically to <a -href=#t>this message</a> via -plain-text email using any one of the following methods: +<hr><pre +id=R><b>Reply instructions:</b> + +You may reply publically to <a +href=#t>this message</a> via plain-text email +using any one of the following methods: * Save the following mbox file, import it into your mail client, and reply-to-all from there: <a @@ -326,10 +328,12 @@ sub thread_html { return missing_thread($ctx) if $nr == 0; my $skel = '<hr><pre>'; $skel .= $nr == 1 ? 'only message in thread' : 'end of thread'; - $skel .= ", back to <a\nhref=\"../../\">index</a>"; - $skel .= "\n<a\nid=t>$nr+ messages in thread:</a> (download: "; - $skel .= "<a\nhref=\"../t.mbox.gz\">mbox.gz</a>"; + $skel .= ", back to <a\nhref=\"../../\">index</a>\n\n"; + $skel .= "<b\nid=t>Thread overview:</b> "; + $skel .= $nr == 1 ? '(only message)' : "$nr+ messages"; + $skel .= " (download: <a\nhref=\"../t.mbox.gz\">mbox.gz</a>"; $skel .= " / follow: <a\nhref=\"../t.atom\">Atom feed</a>)\n"; + $skel .= "-- links below jump to the message on this page --\n"; $ctx->{-upfx} = '../../'; $ctx->{cur_level} = 0; $ctx->{dst} = \$skel; @@ -523,6 +527,7 @@ sub thread_skel { qq(/ <a\nhref="${tpfx}t.atom">Atom feed</a>); my $parent = in_reply_to($hdr); + $$dst .= "\n<b>Thread overview: </b>"; if ($nr <= 1) { if (defined $parent) { $$dst .= "($expand)\n "; |