[elpa] externals/consult-recoll c68b79f130 05/50: customizable prompt

[ELPA Syncer]

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

    customizable prompt
---
 consult-recoll.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/consult-recoll.el b/consult-recoll.el
index 70268d085d..e4cdc26143 100644
--- a/consult-recoll.el
+++ b/consult-recoll.el
@@ -32,12 +32,17 @@
 
 ;;; Code:
 
+(require 'seq)
 (require 'consult)
 
 (defgroup consult-recoll nil
   "Options for consult recoll."
   :group 'consult)
 
+(defcustom consult-recoll-prompt "Recoll search: "
+  "Prompt used by `consult-recoll'."
+  :type 'string)
+
 (defcustom consult-recoll-open-fn #'find-file
   "Default function used to open candidate URL.
 It receives a single argument, the full path to the file to open.
@@ -98,7 +103,7 @@ If given, use INITIAL as the starting point of the query."
   (consult--read (consult--async-command consult-recoll--command
                    (consult--async-filter (lambda (x) (not (null x))))
                    (consult--async-map #'consult-recoll--transformer))
-                 :prompt "Recoll search: "
+                 :prompt consult-recoll-prompt
                  :require-match t
                  :lookup (lambda (_ cs c)
                            (seq-find (lambda (x) (string= c x)) cs))