#!/bin/sh
-recollq -A "$@" 2>/dev/null | perl -ne '
+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;