[elpa] externals/consult-recoll 00105e94a4 03/50: customization group

[ELPA Syncer]

branch: externals/consult-recoll
commit 00105e94a4bda67a19ca2baa9d5329db3c198bbf
Author: jao <jao@gnu.org>
Commit: jao <jao@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'.