More recoll related tunes

[dotfiles.git] / recoll / bin / rcl

diff --git a/recoll/bin/rcl b/recoll/bin/rcl
new file mode 100755 (executable)
index 0000000..d4f995b
--- /dev/null
+++ b/recoll/bin/rcl
@@ -0,0 +1,10 @@
+#!/bin/sh
+
+recollq -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,"(^/.*)"