branch: externals/embark
commit ba30b46502a90baec42e51f0e8017e7a4997c4f4
Author: Omar Antolín Camarena <omar.anto...@gmail.com>
Commit: Omar Antolín Camarena <omar.anto...@gmail.com>
Support for consult-man and consult-info
Thanks to @minad for writing these.
---
embark-consult.el | 18 ++++++++++++++++++
1 file changed, 18 insertions(+)
diff --git a/embark-consult.el b/embark-consult.el
index 38d71bd7bf..bd11ee57f6 100644
--- a/embark-consult.el
+++ b/embark-consult.el
@@ -273,6 +273,24 @@ This function is meant to be added to
`embark-collect-mode-hook'."
(setf (alist-get 'consult-isearch embark-transformer-alist)
#'embark-consult--target-strip)
+;;; Support for consult-man and consult-info
+
+(defun embark-consult-man (cand)
+ (man (get-text-property 0 'consult-man cand)))
+
+(setf (alist-get 'consult-man embark-default-action-overrides)
+ #'embark-consult-man)
+
+(defun embark-consult-info (cand)
+ (consult-info--action cand)
+ (pulse-momentary-highlight-one-line (point)))
+
+(setf (alist-get 'consult-info embark-default-action-overrides)
+ #'embark-consult-info)
+
+(setf (alist-get 'consult-info embark-transformer-alist)
+ #'embark-consult--target-strip)
+
;;; Bindings for consult commands in embark keymaps
(define-key embark-become-file+buffer-map "Cb" #'consult-buffer)
