branch: externals/consult-hoogle
commit 3dbf4403dfc0c98c109f949464070814c5a5fa86
Author: Rahguzar <rahgu...@zohomail.eu>
Commit: Rahguzar <rahgu...@zohomail.eu>
Adapt to new consult async api
---
consult-hoogle.el | 15 +++++++--------
1 file changed, 7 insertions(+), 8 deletions(-)
diff --git a/consult-hoogle.el b/consult-hoogle.el
index eb11e6f362..93943ca970 100644
--- a/consult-hoogle.el
+++ b/consult-hoogle.el
@@ -56,7 +56,7 @@
"Build command line given INPUT."
(pcase-let ((`(,arg . ,opts) (consult--command-split input)))
(unless (string-blank-p arg)
- (cons (append hoogle-base-args (list arg) opts)
+ (cons (append hoogle-base-args opts (list arg))
(cdr (consult--default-regexp-compiler input 'basic t))))))
(defun consult-hoogle--fontify (text)
@@ -161,20 +161,19 @@ STATE is the optional state function passed to the
`consult--read'."
(hoogle-base--haskell-mode))
(unwind-protect
(funcall fun (consult--read
- (consult--async-command #'consult-hoogle--builder
- (consult--async-map #'consult-hoogle--format-result)
- (consult--async-highlight #'consult-hoogle--builder))
+ (consult--async-pipeline
+ (consult--async-process #'consult-hoogle--builder)
+ (consult--async-map #'consult-hoogle--format-result)
+ (consult--async-highlight #'consult-hoogle--builder))
:prompt "Hoogle: "
:require-match t
- :initial (consult--async-split-initial "")
:lookup #'consult--lookup-candidate
:state state
:sort nil
:keymap consult-hoogle-map
:add-history (or (and (fboundp 'haskell-ident-at-point)
- (consult--async-split-initial
- (haskell-ident-at-point)))
- (consult--async-split-thingatpt 'symbol))
+ (haskell-ident-at-point))
+ (thing-at-point 'symbol))
:category 'consult-hoogle
:history '(:input consult-hoogle--history)))
(when-let ((buf (get-buffer " *Hoogle Fontification*")))
