[elpa] externals/consult-recoll c81d40c70b: customizable recollq program (see #11)

[ELPA Syncer]

branch: externals/consult-recoll
commit c81d40c70b73a7351d7a4591b14f222682b7a084
Author: jao <jao@gnu.org>
Commit: jao <jao@gnu.org>

    customizable recollq program (see #11)
---
 consult-recoll.el | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/consult-recoll.el b/consult-recoll.el
index deca8a3fa8..934623262b 100644
--- a/consult-recoll.el
+++ b/consult-recoll.el
@@ -8,7 +8,7 @@
 ;; Package-Requires: ((emacs "26.1") (consult "0.19"))
 ;; Homepage: https://codeberg.org/jao/consult-recoll
 
-;; Copyright (C) 2021-2023  Free Software Foundation, Inc.
+;; Copyright (C) 2021-2024  Free Software Foundation, Inc.
 
 ;; This program is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
@@ -56,6 +56,15 @@
   "Prompt used by `consult-recoll'."
   :type 'string)
 
+(defcustom consult-recoll-program "recollq"
+  "Program (or full path to program) used to perform text searches.
+
+This is typically recollq if you have a standard recoll distribution,
+but can be also be set to recoll, or the full path to it if it's
+not in your PATH. In the latter case, you'll want to add -t to
+`consult-recoll-search-flags'."
+  :type 'string)
+
 (defcustom consult-recoll-search-flags 'query
   "List of flags used to perform queries via recollq.
 
@@ -132,7 +141,7 @@ Set to nil to use the default `title (path)' format."
   (setq consult-recoll--current nil)
   (setq consult-recoll--index 0)
   (setq consult-recoll--snippets nil)
-  `("recollq" ,@(consult-recoll--search-flags) ,text))
+  `(,consult-recoll-program ,@(consult-recoll--search-flags) ,text))
 
 (defun consult-recoll--format (title urln mime)
   (if consult-recoll-format-candidate