[elpa] externals/consult-recoll fe7a09b99d 13/50: new consult--async-command protocol

[ELPA Syncer]

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

    new consult--async-command protocol
---
 consult-recoll.el | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/consult-recoll.el b/consult-recoll.el
index 90922589de..db95383197 100644
--- a/consult-recoll.el
+++ b/consult-recoll.el
@@ -4,8 +4,8 @@
 ;; Maintainer: Jose A Ortega Ruiz
 ;; Keywords: docs, convenience
 ;; License: GPL-3.0-or-later
-;; Version: 0.1
-;; Package-Requires: ((emacs "26.1") (consult "0.8"))
+;; Version: 0.2
+;; Package-Requires: ((emacs "26.1") (consult "0.9"))
 ;; Homepage: https://codeberg.org/jao/consult-recoll
 
 ;; Copyright (C) 2021  Jose A Ortega Ruiz
@@ -67,9 +67,9 @@ Set to nil to use the default 'title (path)' format."
 
 (defvar consult-recoll-history nil "History for `consult-recoll'.")
 
-(defvar consult-recoll--command
-  "recollq -a -F \"url title mtype\" ARG"
-  "Command used to perform queries.")
+(defun consult-recoll--command (text)
+  "Command used to perform queries for TEXT."
+  `("recollq" "-a" "-F" "url title mtype" ,text))
 
 (defun consult-recoll--transformer (str)
   "Decode STR, as returned by recollq."
@@ -101,7 +101,8 @@ Set to nil to use the default 'title (path)' format."
 (defun consult-recoll--search (&optional initial)
   "Perform an asynchronous recoll search via `consult--read'.
 If given, use INITIAL as the starting point of the query."
-  (consult--read (consult--async-command consult-recoll--command
+  (consult--read (consult--async-command
+                     #'consult-recoll--command
                    (consult--async-filter #'identity)
                    (consult--async-map #'consult-recoll--transformer))
                  :prompt consult-recoll-prompt