+ $qsp->psgi_return($env, undef, \&stream_blob_parse_hdr, $ctx);
+}
+
+sub show_other_result ($$) { # tag
+ my ($bref, $ctx) = @_;
+ if (my $qsp_err = delete $ctx->{-qsp_err}) {
+ return html_page($ctx, 500, dbg_log($ctx) .
+ "git show error:$qsp_err");
+ }
+ my $l = PublicInbox::Linkify->new;
+ utf8::decode($$bref);
+ html_page($ctx, 200, '<pre>', $l->to_html($$bref), '</pre><hr>',
+ dbg_log($ctx));
+}
+
+sub cmt_title { # git->cat_async callback
+ my ($bref, $oid, $type, $size, $ctx) = @_;
+ utf8::decode($$bref);
+ my $title = $$bref =~ /\r?\n\r?\n([^\r\n]+)\r?\n?/ ? $1 : '';
+ push(@{$ctx->{-cmt_pt}} , ascii_html($title)) == @{$ctx->{-cmt_P}} and
+ cmt_finalize($ctx);
+}
+
+sub show_commit_start { # ->psgi_qx callback
+ my ($bref, $ctx) = @_;
+ if (my $qsp_err = delete $ctx->{-qsp_err}) {
+ return html_page($ctx, 500, dbg_log($ctx) .
+ "git show/patch-id error:$qsp_err");
+ }
+ my $patchid = (split(/ /, $$bref))[0]; # ignore commit
+ $ctx->{-q_value_html} = "patchid:$patchid" if defined $patchid;
+ open my $fh, '<:utf8', "$ctx->{-tmp}/h" or
+ die "open $ctx->{-tmp}/h: $!";
+ chop(my $buf = do { local $/ = "\0"; <$fh> });
+ chomp $buf;
+ my ($P, $p);
+ ($P, $p, @{$ctx->{cmt_info}}) = split(/\n/, $buf, 9);
+ return cmt_finalize($ctx) if !$P;
+ @{$ctx->{-cmt_P}} = split(/ /, $P);
+ @{$ctx->{-cmt_p}} = split(/ /, $p); # abbreviated
+ if ($ctx->{env}->{'pi-httpd.async'}) {
+ for (@{$ctx->{-cmt_P}}) {
+ ibx_async_cat($ctx, $_, \&cmt_title, $ctx);
+ }
+ } else { # synchronous
+ for (@{$ctx->{-cmt_P}}) {
+ $ctx->{git}->cat_async($_, \&cmt_title, $ctx);
+ }
+ $ctx->{git}->cat_async_wait;
+ }
+}
+
+sub cmt_finalize {
+ my ($ctx) = @_;
+ $ctx->{-linkify} //= PublicInbox::Linkify->new;
+ my $upfx = $ctx->{-upfx} = '../../'; # from "/$INBOX/$OID/s/"
+ my ($H, $T, $s, $f, $au, $co, $bdy) = @{delete $ctx->{cmt_info}};
+ # try to keep author and committer dates lined up
+ my $x = length($au) - length($co);
+ if ($x > 0) {
+ $x = ' ' x $x;
+ $co =~ s/>/>$x/;
+ } elsif ($x < 0) {
+ $x = ' ' x (-$x);
+ $au =~ s/>/>$x/;
+ }
+ $_ = ascii_html($_) for ($au, $co);
+ $au =~ s!(> +)([0-9]{4,}-\S+ \S+)!
+ my ($gt, $t) = ($1, $2);
+ $t =~ tr/ :-//d;
+ qq($gt<a
+href="$upfx?t=$t"
+title="list contemporary emails">$2</a>)
+ !e;
+ $ctx->{-title_html} = $s = $ctx->{-linkify}->to_html($s);
+ my ($P, $p, $pt) = delete @$ctx{qw(-cmt_P -cmt_p -cmt_pt)};
+ $_ = qq(<a href="$upfx$_/s/">).shift(@$p).'</a> '.shift(@$pt) for @$P;
+ if (@$P == 1) {
+ $x = qq{ (<a
+href="$f.patch">patch</a>)\n <a href=#parent>parent</a> $P->[0]};
+ } elsif (@$P > 1) {
+ $x = qq(\n <a href=#parents>parents</a> $P->[0]\n);
+ shift @$P;
+ $x .= qq( $_\n) for @$P;
+ chop $x;
+ } else {
+ $x = ' (<a href=#root_commit>root commit</a>)';
+ }
+ PublicInbox::WwwStream::html_init($ctx);
+ $ctx->zmore(<<EOM);
+<pre> <a href=#commit>commit</a> $H$x
+ <a href=#tree>tree</a> <a href="$upfx$T/s/">$T</a>
+ author $au
+committer $co
+
+<b>$s</b>
+EOM
+ $ctx->zmore("\n", $ctx->{-linkify}->to_html($bdy)) if length($bdy);
+ $bdy = '';
+ open my $fh, '<:utf8', "$ctx->{-tmp}/p" or
+ die "open $ctx->{-tmp}/p: $!";
+ if (-s $fh > $MAX_SIZE) {
+ $ctx->zmore("---\n patch is too large to show\n");
+ } else { # prepare flush_diff:
+ read($fh, $x, -s _);
+ $ctx->{obuf} = \$bdy;
+ $ctx->{-apfx} = $ctx->{-spfx} = $upfx;
+ $x =~ s/\r?\n/\n/gs;
+ $ctx->{-anchors} = {} if $x =~ /^diff --git /sm;
+ flush_diff($ctx, \$x); # undefs $x
+ $ctx->zmore($bdy);
+ undef $bdy;
+ # TODO: should there be another textarea which attempts to
+ # search for the exact email which was applied to make this
+ # commit?
+ if (my $qry = delete $ctx->{-qry}) {
+ my $q = '';
+ for (@{$qry->{dfpost}}, @{$qry->{dfpre}}) {
+ # keep blobs as short as reasonable, emails
+ # are going to be older than what's in git
+ substr($_, 7, 64, '');
+ $q .= "dfblob:$_ ";