www: label sections and hopefully improve navigation

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.

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 ";