From 751bd326db0c62a8c3836b315d807b4cda3b68b9 Mon Sep 17 00:00:00 2001 From: Mark Skilbeck Date: Sat, 4 Apr 2020 12:10:02 -0700 Subject: [PATCH] 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 d715318..2937aeb 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)))))