branch: externals/consult-recoll
commit 93f37e139405368d44d7cb831d343045b63dfa96
Author: jao <j...@gnu.org>
Commit: jao <j...@gnu.org>
new consult API: consult--async-pipeline/consult--process-collection
---
changelog.org | 5 +++++
consult-recoll.el | 12 ++++++------
2 files changed, 11 insertions(+), 6 deletions(-)
diff --git a/changelog.org b/changelog.org
index ba9d631387..60f19d574e 100644
--- a/changelog.org
+++ b/changelog.org
@@ -1,6 +1,11 @@
#+title: Change log for consult-recoll
+* Version 0.9 unreleased
+
+ - Upgrade to new consult async API
+ - Customizable recollq program path
+
* Version O.8.1 on 2023-12-12
- Minor fixes.
diff --git a/consult-recoll.el b/consult-recoll.el
index 934623262b..1b687d9b91 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-2024 Free Software Foundation, Inc.
+;; Copyright (C) 2021-2025 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
@@ -294,10 +294,10 @@ 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--async-filter #'identity)
- (consult--async-map #'consult-recoll--transformer))
+ (consult--read (consult--async-pipeline
+ (consult--process-collection #'consult-recoll--command)
+ (consult--async-map #'consult-recoll--transformer)
+ (consult--async-filter #'identity))
:annotate #'consult-recoll--annotation
:prompt consult-recoll-prompt
:require-match t
@@ -307,7 +307,7 @@ If given, use INITIAL as the starting point of the query."
#'consult-recoll--preview)
:group (and consult-recoll-group-by-mime
#'consult-recoll--group)
- :initial (consult--async-split-initial initial)
+ :initial initial
:history '(:input consult-recoll-history)
:category 'recoll-result))
