lib/PublicInbox/Feed.pm | 7 +++---- lib/PublicInbox/View.pm | 43 ++++++++++++++++++------------------------- diff --git a/lib/PublicInbox/Feed.pm b/lib/PublicInbox/Feed.pm index 0b7ef7f84290633efdaf28b5ce231e0e8258cebd..8bfd19e789a67e213fa057ddbd8c847808e40385 100644 --- a/lib/PublicInbox/Feed.pm +++ b/lib/PublicInbox/Feed.pm @@ -12,7 +12,6 @@ use PublicInbox::View; use constant { DATEFMT => '%Y-%m-%dT%H:%M:%SZ', # atom standard MAX_PER_PAGE => 25, # this needs to be tunable - PRE_WRAP => "", }; # main function @@ -60,7 +59,7 @@ my $html = "$title" . '{atomurl} . "\"\ntype=\"application/atom+xml\"/>" . - '' . PRE_WRAP; + ''; my $state; my $git = PublicInbox::GitCatFile->new($ctx->{git_dir}); @@ -80,9 +79,9 @@ my $footer = nav_footer($ctx->{cgi}, $last, $feed_opts, $state); if ($footer) { my $list_footer = $ctx->{footer}; $footer .= "\n" . $list_footer if $list_footer; - $footer = "
" . PRE_WRAP . "$footer"; + $footer = "
$footer
"; } - $html . "$footer"; + $html .= "$footer"; } # private subs diff --git a/lib/PublicInbox/View.pm b/lib/PublicInbox/View.pm index 4a8e54aa566c762f9098daf1c1f6bb2b0a42e5d5..800c1a2e6e0f686b09d492d0d3d2fd467eddf5e8 100644 --- a/lib/PublicInbox/View.pm +++ b/lib/PublicInbox/View.pm @@ -33,8 +33,9 @@ $footer = ''; } headers_to_html_header($mime, $full_pfx, $srch) . multipart_text_as_html($mime, $full_pfx) . - '
' . PRE_WRAP . - html_footer($mime, 1, $full_pfx, $srch) . $footer . + '
' .
+		html_footer($mime, 1, $full_pfx, $srch) .
+		$footer .
 		'
'; } @@ -51,7 +52,6 @@ my (undef, $mime, $level, $state) = @_; 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 @@ (defined($from) && length($from)) or $from = $from[0]->address; $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 @@ $t_anchor = T_ANCHOR; } else { $t_anchor = ''; } - if (defined $srch) { $subj = "$subj"; } @@ -103,7 +96,12 @@ } my $fmt = '%Y-%m-%d %H:%M'; $ts = POSIX::strftime($fmt, gmtime($ts)); - $rv .= "$pfx$subj\n$pfx"; + my $rv = ""; + if ($level) { + $rv .= '
' . ('  ' x $level) . '
'; + } + $rv .= '' . PRE_WRAP; + $rv .= "$subj\n"; $rv .= "- by $from @ $ts UTC - "; $rv .= "next"; if ($prev >= 0) { @@ -115,13 +113,12 @@ my $mhref = "${path}m/$href.html"; 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$more "; + $rv .= "\n$more "; my $txt = "${path}m/$href.txt"; $rv .= "raw "; $rv .= html_footer($mime, 0); @@ -141,7 +138,7 @@ $rv .= " " . "threadlink"; } - $rv . "\n\n"; + $rv .= ''; } sub thread_html { @@ -168,7 +165,7 @@ $next .= 'end of thread'; } $next .= ", back to index\n"; - $rv .= "
" . PRE_WRAP . $next . $foot . ""; + $rv .= "
" . PRE_WRAP . $next . $foot . ""; } sub subject_path_html { @@ -188,13 +185,13 @@ thread_entry(\$rv, $state, $_, 0) for $th->rootset; my $final_anchor = $state->[3]; my $next = "end of thread\n"; - $rv .= "
" . PRE_WRAP . $next . $foot . ""; + $rv .= "
" . PRE_WRAP . $next . $foot . ""; } # 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 @@ 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 @@ $s =~ s/^\s*$//sgm; $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; - "$s" . PRE_WRAP - + "$s"; } sub thread_entry {