branch: externals/consult-recoll
commit c68b79f1303d526f8f4717dbaa91112ecaca4ceb
Author: jao <j...@gnu.org>
Commit: jao <j...@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))
