recoll/bin/rcl

   1 #!/bin/sh
   2
   3 cd ~/recoll
   4 idx="-c main"
   5 while : ; do
   6     [ -d "$1" ] || break
   7     idx="$idx -i $1/xapiandb"
   8     shift
   9 done
  10
  11 recollq $idx -A "$@" 2>/dev/null | perl -ne '
  12     if (/^ABSTRACT/../^\/ABSTRACT/) {
  13         print "\t$_" unless /^.?ABSTRACT/;
  14         next;
  15     };
  16     next unless /^(.*)\t\[file:\/\/(.*)\]\t\[.*\]\t\d+\t.*\t.*$/;
  17     print "$2\t$1\n";
  18 ' | spc -e grn,"(^/.*)"