branch: externals/ivy-posframe
commit 80036e7f6bb35df772a04ca54ef950ea92f3127a
Author: conao3 <[email protected]>
Commit: conao3 <[email protected]>
define keybind with ivy-posframe-keybind-list
---
ivy-posframe.el | 20 +++++++++++++-------
1 file changed, 13 insertions(+), 7 deletions(-)
diff --git a/ivy-posframe.el b/ivy-posframe.el
index a9e0706..365d6c7 100644
--- a/ivy-posframe.el
+++ b/ivy-posframe.el
@@ -439,10 +439,18 @@ selection, non-nil otherwise."
(insert prompt " \n")
(add-text-properties point (1+ point) '(face
ivy-posframe-cursor)))))))
+;;; variables
+
(defvar ivy-posframe-advice-alist
'((ivy--minibuffer-setup . ivy-posframe--minibuffer-setup)
(ivy--queue-exhibit . ivy-posframe--add-prompt)))
+(defvar ivy-posframe-keybind-list
+ '((ivy-minibuffer-map [remap ivy-read-action] ivy-posframe-read-action)
+ (ivy-minibuffer-map [remap ivy-dispatching-done]
ivy-posframe-dispatching-done)
+ (ivy-minibuffer-map [remap ivy-avy] ivy-posframe-avy)
+ (ivy-minibuffer-map [remap swiper-avy] ivy-posframe-swiper-avy)))
+
;;;###autoload
(defun ivy-posframe-enable ()
"Enable ivy-posframe."
@@ -454,13 +462,11 @@ selection, non-nil otherwise."
ivy-posframe-display-functions)
(mapcar (lambda (elm)
`(advice-add ',(car elm) :around #',(cdr elm)))
- ivy-posframe-advice-alist)))
- (define-key ivy-minibuffer-map
- [remap ivy-read-action] 'ivy-posframe-read-action)
- (define-key ivy-minibuffer-map
- [remap ivy-dispatching-done] 'ivy-posframe-dispatching-done)
- (define-key ivy-minibuffer-map [remap ivy-avy] 'ivy-posframe-avy)
- (define-key ivy-minibuffer-map [remap swiper-avy] 'ivy-posframe-swiper-avy)
+ ivy-posframe-advice-alist)
+ (mapcar (lambda (elm)
+ (let ((map (nth 0 elm)) (key (nth 1 elm)) (cmd (nth 2 elm)))
+ `(define-key ,map ,key ',cmd)))
+ ivy-posframe-keybind-list)))
(message "ivy-posframe is enabled, disabling it need to reboot emacs."))
;;;###autoload
