[elpa] externals/frog-menu c555913 35/43: add face for customizing posframe background

[Clemens Radermacher]

branch: externals/frog-menu
commit c555913fe5605dc0942ea22442f62684f467261c
Author: justin talbott <jus...@waymondo.com>
Commit: justin talbott <jus...@waymondo.com>

    add face for customizing posframe background
---
 frog-menu.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/frog-menu.el b/frog-menu.el
index 4ad977d..76228c1 100644
--- a/frog-menu.el
+++ b/frog-menu.el
@@ -229,6 +229,10 @@ be drawn by single characters."
   '((t (:inherit default)))
   "Face used for menu actions.")
 
+(defface frog-menu-posframe-background-face
+  '((t (:inherit default)))
+  "Face used for the background color of the posframe.")
+
 (defvar frog-menu--buffer " *frog-menu-menu*"
   "Buffer used for the frog menu.")
 
@@ -383,7 +387,8 @@ Returns window of displayed buffer."
   (posframe-show buf
                  :poshandler(or display-option
                                 #'posframe-poshandler-point-bottom-left-corner)
-                 :internal-border-width 1)
+                 :internal-border-width 1
+                 :background-color (face-attribute 
'frog-menu-posframe-background-face :background))
   (set-face-attribute 'internal-border
                       (buffer-local-value 'posframe--frame buf)
                       :inherit 'frog-menu-border)