quick p6 doc

pd.p6

#!/usr/bin/env perl6
use JSON::Fast;

sub MAIN($term) {
  my $got = %*ENV<HOME>.IO.child('.p6index.json') or do
    shell 'curl https://docs.perl6.org/js/search.js?v=3 > ~/.p6index.json';

  my $js = $got.slurp.subst( /^ .* 'var items ='/, '' )
    .subst(/';'\s* 'var results =' .* $/, '' )
    .subst('category:','"category":',:g)
    .subst('value:','"value":',:g)
    .subst('url:','"url":',:g)
    ;

  my $data = from-json($js);

  my @matches = $data.grep({ .<value> ~~ /:i $term /}) or exit note "no matches";
  for @matches {
    say ++$ ~ ": {.<value>} ( {.<category>} )"
  }
  my $which = prompt "Choose: ";
  my $url = 'https://docs.perl6.org' ~ trim(@matches[$which-1]<url>);
    shell "lynx $url";
}