branch: externals/ivy-posframe
commit 1f3dbf41cda9745c4f67f333d9d305bce717f4c8
Author: Feng Shu <[email protected]>
Commit: Feng Shu <[email protected]>
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:
