[PATCH 03/11] viewvcs: prepopulate search bar with dfpost + dfn

[Eric Wong <e@80x24.org>]

I'm not sure if this will get overlooked by users, but maybe
it can serve as a hint...
---
 lib/PublicInbox/RepoTree.pm | 2 ++
 lib/PublicInbox/ViewVCS.pm  | 6 +++++-
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/lib/PublicInbox/RepoTree.pm b/lib/PublicInbox/RepoTree.pm
index 7434e9b2..4c6ed840 100644
--- a/lib/PublicInbox/RepoTree.pm
+++ b/lib/PublicInbox/RepoTree.pm
@@ -56,6 +56,8 @@ sub tree_show { # git check_async callback
 	my ($bn) = ($ctx->{-path} =~ m!/?([^/]+)\z!);
 	if ($type eq 'blob') {
 		my $obj = ascii_html($ctx->{-obj});
+		$ctx->{-q_value_html} = 'dfn:'.ascii_html($ctx->{-path}) .
+			' dfpost:'.substr($oid, 0, 7);
 		$ctx->{-paths} = [ $bn, qq[(<a
 href="$ctx->{-upfx}$oid/s/$bn">raw</a>)
 \$ git show $obj\t# shows this blob on the CLI] ];
diff --git a/lib/PublicInbox/ViewVCS.pm b/lib/PublicInbox/ViewVCS.pm
index 00db8ff2..51a7bcbc 100644
--- a/lib/PublicInbox/ViewVCS.pm
+++ b/lib/PublicInbox/ViewVCS.pm
@@ -500,8 +500,8 @@ sub solve_result {
 	return show_tree($ctx, $res) if $type eq 'tree';
 	return show_tag($ctx, $res) if $type eq 'tag';
 	return show_other($ctx, $res) if $type ne 'blob';
+	my $fn = $di->{path_b} // $hints->{path_b};
 	my $paths = $ctx->{-paths} //= do {
-		my $fn = $di->{path_b} // $hints->{path_b};
 		my $path = to_filename($fn // 'blob');
 		my $raw_more = qq[(<a\nhref="$path">raw</a>)];
 
@@ -510,6 +510,10 @@ sub solve_result {
 "\nname: ${\ascii_html($fn)} \t # note: path name is non-authoritative";
 		[ $path, $raw_more ];
 	};
+	$ctx->{-q_value_html} //= do {
+		my $s = defined($fn) ? 'dfn:'.ascii_html($fn).' ' : '';
+		$s.'dfpost:'.substr($oid, 0, 7);
+	};
 
 	if ($size > $MAX_SIZE) {
 		return stream_large_blob($ctx, $res) if defined $ctx->{fn};