about summary refs log tree commit homepage
path: root/lib/PublicInbox/View.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/PublicInbox/View.pm')
-rw-r--r--lib/PublicInbox/View.pm43
1 files changed, 18 insertions, 25 deletions
diff --git a/lib/PublicInbox/View.pm b/lib/PublicInbox/View.pm
index 4a8e54aa..800c1a2e 100644
--- a/lib/PublicInbox/View.pm
+++ b/lib/PublicInbox/View.pm
@@ -33,8 +33,9 @@ sub msg_html {
         }
         headers_to_html_header($mime, $full_pfx, $srch) .
                 multipart_text_as_html($mime, $full_pfx) .
-                '</pre><hr />' . PRE_WRAP .
-                html_footer($mime, 1, $full_pfx, $srch) . $footer .
+                '</pre><hr /><pre>' .
+                html_footer($mime, 1, $full_pfx, $srch) .
+                $footer .
                 '</pre></body></html>';
 }
 
@@ -51,7 +52,6 @@ sub index_entry {
         my ($srch, $seen, $first_commit) = @$state;
         my $midx = $state->[3]++;
         my ($prev, $next) = ($midx - 1, $midx + 1);
-        my $rv = '';
         my $part_nr = 0;
         my $enc_msg = enc_for($mime->header("Content-Type"));
         my $subj = $mime->header('Subject');
@@ -69,15 +69,9 @@ sub index_entry {
 
         $from = PublicInbox::Hval->new_oneline($from)->as_html;
         $subj = PublicInbox::Hval->new_oneline($subj)->as_html;
-        my $pfx = ('  ' x $level);
         my $root_anchor = $seen->{root_anchor};
-        my $path;
         my $more = 'permalink';
-        if ($root_anchor) {
-                $path = '../';
-        } else {
-                $path = '';
-        }
+        my $path = $root_anchor ? '../' : '';
         my $href = $mid->as_href;
         my $irt = $header_obj->header_raw('In-Reply-To');
         my ($anchor_idx, $anchor, $t_anchor);
@@ -88,7 +82,6 @@ sub index_entry {
         } else {
                 $t_anchor = '';
         }
-
         if (defined $srch) {
                 $subj = "<a\nhref=\"${path}t/$href.html#u\">$subj</a>";
         }
@@ -103,7 +96,12 @@ sub index_entry {
         my $fmt = '%Y-%m-%d %H:%M';
         $ts = POSIX::strftime($fmt, gmtime($ts));
 
-        $rv .= "$pfx<b\nid=\"$id\">$subj</b>\n$pfx";
+        my $rv = "<table\nsummary=l$level><tr>";
+        if ($level) {
+                $rv .= '<td><pre>' . ('  ' x $level) . '</pre></td>';
+        }
+        $rv .= '<td>' . PRE_WRAP;
+        $rv .= "<b\nid=\"$id\">$subj</b>\n";
         $rv .= "- by $from @ $ts UTC - ";
         $rv .= "<a\nid=\"s$midx\"\nhref=\"#s$next\">next</a>";
         if ($prev >= 0) {
@@ -115,13 +113,12 @@ sub index_entry {
         my $fhref = "${path}f/$href.html";
         # scan through all parts, looking for displayable text
         $mime->walk_parts(sub {
-                $rv .= index_walk($_[0], $pfx, $enc_msg, $part_nr, $fhref,
-                                  \$more);
+                $rv .= index_walk($_[0], $enc_msg, $part_nr, $fhref, \$more);
                 $part_nr++;
         });
         $mime->body_set('');
 
-        $rv .= "\n$pfx<a\nhref=\"$mhref\">$more</a> ";
+        $rv .= "\n<a\nhref=\"$mhref\">$more</a> ";
         my $txt = "${path}m/$href.txt";
         $rv .= "<a\nhref=\"$txt\">raw</a> ";
         $rv .= html_footer($mime, 0);
@@ -141,7 +138,7 @@ sub index_entry {
                        "threadlink</a>";
         }
 
-        $rv . "\n\n";
+        $rv .= '</pre></td></tr></table>';
 }
 
 sub thread_html {
@@ -168,7 +165,7 @@ sub thread_html {
         }
         $next .= "</a>, back to <a\nhref=\"../\">index</a>\n";
 
-        $rv .= "</pre><hr />" . PRE_WRAP . $next . $foot . "</pre>";
+        $rv .= "<hr />" . PRE_WRAP . $next . $foot . "</pre>";
 }
 
 sub subject_path_html {
@@ -188,13 +185,13 @@ sub subject_path_html {
         my $final_anchor = $state->[3];
         my $next = "<a\nid=\"s$final_anchor\">end of thread</a>\n";
 
-        $rv .= "</pre><hr />" . PRE_WRAP . $next . $foot . "</pre>";
+        $rv .= "<hr />" . PRE_WRAP . $next . $foot . "</pre>";
 }
 
 # only private functions below.
 
 sub index_walk {
-        my ($part, $pfx, $enc_msg, $part_nr, $fhref, $more) = @_;
+        my ($part, $enc_msg, $part_nr, $fhref, $more) = @_;
         my $rv = '';
         return $rv if $part->subparts; # walk_parts already recurses
         my $ct = $part->content_type;
@@ -207,7 +204,7 @@ sub index_walk {
         if ($part_nr > 0) {
                 my $fn = $part->filename;
                 defined($fn) or $fn = "part #" . ($part_nr + 1);
-                $rv .= $pfx . add_filename_line($enc->decode($fn));
+                $rv .= add_filename_line($enc->decode($fn));
         }
 
         my $s = add_text_body_short($enc, $part, $part_nr, $fhref);
@@ -224,9 +221,6 @@ sub index_walk {
         $s =~ s/\s+\z//s;
 
         if (length $s) {
-                # add prefix:
-                $s =~ s/^/$pfx/sgm;
-
                 # kill per-line trailing whitespace
                 $s =~ s/[ \t]+$//sgm;
 
@@ -549,8 +543,7 @@ sub thread_html_head {
         my ($mime) = @_;
         my $s = PublicInbox::Hval->new_oneline($mime->header('Subject'));
         $s = $s->as_html;
-        "<html><head><title>$s</title></head><body>" . PRE_WRAP
-
+        "<html><head><title>$s</title></head><body>";
 }
 
 sub thread_entry {