#!/bin/sh

cd ~/recoll
idx="-c main"
while : ; do
    [ -d "$1" ] || break
    idx="$idx -i $1/xapiandb"
    shift
done

recollq $idx -A "$@" 2>/dev/null | perl -ne '
    if (/^ABSTRACT/../^\/ABSTRACT/) {
        print "\t$_" unless /^.?ABSTRACT/;
        next;
    };
    next unless /^(.*)\t\[file:\/\/(.*)\]\t\[.*\]\t\d+\t.*\t.*$/;
    print "$2\t$1\n";
' | spc -e grn,"(^/.*)"