[elpa] externals/ace-window 751bd326db 2/3: Allow configuration of the posframe position

[ELPA Syncer]

branch: externals/ace-window
commit 751bd326db0c62a8c3836b315d807b4cda3b68b9
Author: Mark Skilbeck <mark.skilbeck@rigetti.com>
Commit: Oleh Krehel <ohwoeowho@gmail.com>

    Allow configuration of the posframe position
---
 ace-window-posframe.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/ace-window-posframe.el b/ace-window-posframe.el
index d7153183f2..2937aeba3c 100644
--- a/ace-window-posframe.el
+++ b/ace-window-posframe.el
@@ -1,5 +1,7 @@
 (defvar aw--posframe-frames '())
 
+(defvar aw-posframe-position-handler #'posframe-poshandler-window-center)
+
 (defun aw--lead-overlay-posframe (path leaf)
   (let* ((wnd (cdr leaf))
          (str (apply #'string path))
@@ -8,7 +10,7 @@
       (push bufname aw--posframe-frames)
       (posframe-show bufname
                      :string str
-                     :poshandler 'posframe-poshandler-window-center
+                     :poshandler aw-posframe-position-handler
                      :font (face-font 'aw-leading-char-face)
                      :foreground-color (face-foreground 'aw-leading-char-face)
                      :background-color (face-background 
'aw-leading-char-face)))))