[elpa] externals/ivy-posframe 1f3dbf4 026/195: Add ivy-posframe-setup and use it.

[Feng Shu]

branch: externals/ivy-posframe
commit 1f3dbf41cda9745c4f67f333d9d305bce717f4c8
Author: Feng Shu <tumashu@163.com>
Commit: Feng Shu <tumashu@163.com>

    Add ivy-posframe-setup and use it.
---
 ivy-posframe.el | 23 +++++++++++++----------
 1 file changed, 13 insertions(+), 10 deletions(-)

diff --git a/ivy-posframe.el b/ivy-posframe.el
index cb748af..bc47716 100644
--- a/ivy-posframe.el
+++ b/ivy-posframe.el
@@ -94,16 +94,6 @@
 (require 'posframe)
 (require 'ivy)
 
-(dolist (f '(ivy-posframe-display
-             ivy-posframe-display-at-frame-center
-             ivy-posframe-display-at-window-center
-             ivy-posframe-display-at-frame-bottom-left
-             ivy-posframe-display-at-window-bottom-left
-             ivy-posframe-display-at-frame-bottom-window-center
-             ivy-posframe-display-at-point))
-  (push `(,f :cleanup ivy-posframe-cleanup)
-        ivy-display-functions-props))
-
 (defgroup ivy-posframe nil
   "Using posframe to show ivy"
   :group 'ivy
@@ -192,6 +182,19 @@ When nil, Using current frame's font as fallback."
                 emacs-basic-display
                 (not (display-graphic-p))))))
 
+(defun ivy-posframe-setup ()
+  "Regedit all display functions of ivy-posframe to 
`ivy-display-functions-props'."
+  (interactive)
+  (mapatoms
+   #'(lambda (func)
+       (when (and (functionp func)
+                  (string-match-p "^ivy-posframe-display" (symbol-name func))
+                  (not (assq func ivy-display-functions-props)))
+         (push `(,func :cleanup ivy-posframe-cleanup)
+               ivy-display-functions-props)))))
+
+(ivy-posframe-setup)
+
 (provide 'ivy-posframe)
 
 ;; Local Variables: