branch: externals/consult-recoll
commit 00105e94a4bda67a19ca2baa9d5329db3c198bbf
Author: jao <j...@gnu.org>
Commit: jao <j...@gnu.org>
customization group
---
consult-recoll.el | 18 ++++++++++++------
1 file changed, 12 insertions(+), 6 deletions(-)
diff --git a/consult-recoll.el b/consult-recoll.el
index 1a57abb130..62cf1bc60c 100644
--- a/consult-recoll.el
+++ b/consult-recoll.el
@@ -32,12 +32,14 @@
(require 'consult)
-(defvar consult-recoll--command
- "recollq -a -F \"url title\" ARG"
- "Command used to perform queries.")
+(defgroup consult-recoll nil
+ "Options for consult recoll."
+ :group 'consult)
-(defvar consult-recoll--open-fn #'find-file
- "Function used to open candidate URL.")
+(defcustom consult-recoll-open-fn #'find-file
+ "Function used to open candidate URL.
+It receives a single argument, the full path to the file to open."
+ :type 'function)
(defface consult-recoll-url-face '((t :inherit default))
"Face used to display URLs of candidates.")
@@ -47,6 +49,10 @@
(defvar consult-recoll-history nil "History for `consult-recoll'.")
+(defvar consult-recoll--command
+ "recollq -a -F \"url title\" ARG"
+ "Command used to perform queries.")
+
(defun consult-recoll--transformer (str)
"Decode STR, as returned by recollq."
(unless (string-match-p "^\\(Recoll query:\\|[0-9]+ results\\| *$\\)" str)
@@ -62,7 +68,7 @@
(defun consult-recoll--open (candidate)
"Open file of corresponding completion CANDIDATE."
(when (string-match ".+ (\\(.+\\))$" (or candidate ""))
- (funcall consult-recoll--open-fn (match-string 1 candidate))))
+ (funcall consult-recoll-open-fn (match-string 1 candidate))))
(defun consult-recoll--search (&optional initial)
"Perform an asynchronous recoll search via `consult--read'.
