viewvcs: prepopulate search bar with dfpost + dfn

[public-inbox.git] / lib / PublicInbox / RepoTree.pm

diff --git a/lib/PublicInbox/RepoTree.pm b/lib/PublicInbox/RepoTree.pm
index 7434e9b275f08d2dd8f5c19e1333bb0b2b40ff0e..4c6ed840ee5e7e9a04859a4315cf52e0632b6a2e 100644 (file)
--- 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] ];