Allow configuration of the posframe position

6 years ago · 751bd326db
parent b2cc22a164
commit 751bd326db
1 changed files with 3 additions and 1 deletions
--- 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)))))