[elpa] externals/ivy-posframe 80036e7 103/195: define keybind with ivy-posframe-keybind-list

[Feng Shu]

branch: externals/ivy-posframe
commit 80036e7f6bb35df772a04ca54ef950ea92f3127a
Author: conao3 <conao3@gmail.com>
Commit: conao3 <conao3@gmail.com>

    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