[elpa] externals/embark ba30b46502: Support for consult-man and consult-info

[ELPA Syncer]

branch: externals/embark
commit ba30b46502a90baec42e51f0e8017e7a4997c4f4
Author: Omar Antolín Camarena <omar.antolin@gmail.com>
Commit: Omar Antolín Camarena <omar.antolin@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)