From: Eric Wong Date: Fri, 17 Jun 2016 19:26:45 +0000 (+0000) Subject: feed: split out top-of-page generation X-Git-Tag: v1.0.0~418 X-Git-Url: http://www.git.stargrave.org/?p=public-inbox.git;a=commitdiff_plain;h=aab9613eb8f335c1cfeaec37c0794656a3cbcfee feed: split out top-of-page generation This will eventually allow us to reuse code to generate a common header. --- diff --git a/lib/PublicInbox/Feed.pm b/lib/PublicInbox/Feed.pm index 07774cbf..045e495f 100644 --- a/lib/PublicInbox/Feed.pm +++ b/lib/PublicInbox/Feed.pm @@ -109,20 +109,11 @@ sub emit_atom_thread { end_feed($fh); } -sub emit_html_index { - my ($res, $ctx) = @_; - my $feed_opts = get_feedopts($ctx); - my $fh = $res->([200,['Content-Type'=>'text/html; charset=UTF-8']]); - - my $max = $ctx->{max} || MAX_PER_PAGE; +sub _html_index_top { + my ($feed_opts, $srch) = @_; my $title = ascii_html($feed_opts->{description} || ''); - my ($footer, $param, $last); - my $state = { ctx => $ctx, seen => {}, anchor_idx => 0, fh => $fh }; - my $srch = $ctx->{srch}; - my $top = "$title (Atom feed)"; - if ($srch) { $top = qq{
$top} .
 			  qq{ } .
@@ -132,11 +123,24 @@ sub emit_html_index {
 		$top = '
' . $top . "\n";
 	}
 
-	$fh->write("$title" .
-		   "" .
-		   PublicInbox::Hval::STYLE .
-		   "$top");
+	"$title" .
+		"" .
+		PublicInbox::Hval::STYLE .
+		"$top";
+}
+
+sub emit_html_index {
+	my ($res, $ctx) = @_;
+	my $feed_opts = get_feedopts($ctx);
+	my $fh = $res->([200,['Content-Type'=>'text/html; charset=UTF-8']]);
+
+	my $max = $ctx->{max} || MAX_PER_PAGE;
+
+	my ($footer, $param, $last);
+	my $state = { ctx => $ctx, seen => {}, anchor_idx => 0, fh => $fh };
+	my $srch = $ctx->{srch};
+	$fh->write(_html_index_top($feed_opts, $srch));
 
 	# if the 'r' query parameter is given, it is a legacy permalink
 	# which we must continue supporting: