recoll/bin/rcl

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