[elpa] externals/hydra 406988f6e9 02/35: hydra.el (hydra-posframe-show-params): Add

[ELPA Syncer]

branch: externals/hydra
commit 406988f6e94a6844b38594f8e7b8fb7f98c89710
Author: Oleh Krehel <ohwoeowho@gmail.com>
Commit: Oleh Krehel <ohwoeowho@gmail.com>

    hydra.el (hydra-posframe-show-params): Add
    
    Fixes #328
---
 hydra.el | 17 +++++++++++------
 1 file changed, 11 insertions(+), 6 deletions(-)

diff --git a/hydra.el b/hydra.el
index ae8b0dc2db..daf94043eb 100644
--- a/hydra.el
+++ b/hydra.el
@@ -211,16 +211,21 @@ the body or the head."
 (declare-function posframe-hide "posframe")
 (declare-function posframe-poshandler-window-center "posframe")
 
+(defvar hydra-posframe-show-params
+  '(:internal-border-width 1
+    :internal-border-color "red"
+    :poshandler posframe-poshandler-window-center)
+  "List of parameters passed to `posframe-show'.")
+
 (defun hydra-posframe-show (str)
   (require 'posframe)
-  (posframe-show
-   " *hydra-posframe*"
-   :string str
-   :internal-border-width 1
-   :internal-border-color "red"
-   :poshandler #'posframe-poshandler-window-center))
+  (apply #'posframe-show
+         " *hydra-posframe*"
+         :string str
+         hydra-posframe-show-params))
 
 (defun hydra-posframe-hide ()
+  (require 'posframe)
   (posframe-hide " *hydra-posframe*"))
 
 (defvar hydra-hint-display-alist