[elpa] externals/frog-menu 75f5243 39/43: Merge pull request #3 from waymondo/posframe-parameters

[Clemens Radermacher]

branch: externals/frog-menu
commit 75f5243da58e99d1f30e256dad49ffb6f30555dc
Merge: 6373133 3d84ba3
Author: Clemens Radermacher <address@hidden>
Commit: GitHub <address@hidden>

    Merge pull request #3 from waymondo/posframe-parameters
    
    allow flexible way to customize any posframe parameters that frog-menu 
creates
---
 frog-menu.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/frog-menu.el b/frog-menu.el
index e621b49..f2291e8 100644
--- a/frog-menu.el
+++ b/frog-menu.el
@@ -165,6 +165,10 @@ exits through an error."
   "If non-nil use padding between avy hints and candidates."
   :type 'boolean)
 
+(defcustom frog-menu-posframe-parameters nil
+  "Explicit frame parameters to be used by the posframe `frog-menu' creates."
+  :type 'list)
+
 (defcustom frog-menu-format-actions-function #'frog-menu-action-format
   "Function used to format the actions passed to `frog-menu-read'."
   :type 'function)
@@ -397,7 +401,8 @@ Returns window of displayed buffer."
                  :poshandler(or display-option
                                 #'posframe-poshandler-point-bottom-left-corner)
                  :internal-border-width 1
-                 :background-color (face-attribute 
'frog-menu-posframe-background-face :background))
+                 :background-color (face-attribute 
'frog-menu-posframe-background-face :background)
+                 :override-parameters frog-menu-posframe-parameters)
   (set-face-attribute 'internal-border
                       (buffer-local-value 'posframe--frame buf)
                       :inherit 'frog-menu-border)