[elpa] externals/posframe 82b3760 09/13: Add posframe-arghandler

[Feng Shu]

branch: externals/posframe
commit 82b3760b0978888de0e90a7f623879a9fd3fce1f
Author: Feng Shu <address@hidden>
Commit: Feng Shu <address@hidden>

    Add posframe-arghandler
    
    * posframe.el (posframe-arghandler): New variable.
    (posframe-arghandler-default): New function.
    (posframe-show): Use posframe-arghandler.
---
 posframe.el | 52 +++++++++++++++++++++++++++++++++++++++++++++++-----
 1 file changed, 47 insertions(+), 5 deletions(-)

diff --git a/posframe.el b/posframe.el
index 88b6019..6f1c836 100644
--- a/posframe.el
+++ b/posframe.el
@@ -114,6 +114,17 @@
 ;; (setq posframe-mouse-banish nil)
 ;; #+END_EXAMPLE
 
+;; *** Set fallback argument of posframe-show
+
+;; user can set fallback values of posframe-show's arguments with the
+;; help of `posframe-arghandler'. the below example set fallback
+;; border-width to 10 and fallback background color to green.
+
+;; (setq posframe-arghandler #'my-posframe-arghandler)
+;; (defun my-posframe-arghandler (posframe-buffer arg-name value)
+;;   (let ((info '(:internal-border-width 10 :background-color "green")))
+;;     (or (plist-get info arg-name) value)))
+
 
 ;;; Code:
 ;; * posframe's code                         :CODE:
@@ -134,6 +145,14 @@
   :group 'posframe
   :type 'boolean)
 
+(defcustom posframe-arghandler #'posframe-arghandler-default
+  "A function used to handle posframe-show's argument.
+
+User can use this feature to set the default value of
+posframe-show's argument."
+  :group 'posframe
+  :type 'function)
+
 (defvar-local posframe--frame nil
   "Record posframe's frame.")
 
@@ -285,6 +304,10 @@ This posframe's buffer is POSFRAME-BUFFER."
           (set-window-buffer posframe-window posframe-buffer)))
       posframe--frame)))
 
+(defun posframe-arghandler-default (posframe-buffer arg-name value)
+  "The default value of `posframe-arghandler'"
+  value)
+
 (cl-defun posframe-show (posframe-buffer
                          &key
                          string
@@ -409,12 +432,31 @@ If REFRESH is a number, posframe's frame-size will be 
re-adjust
 every mumber seconds.
 
 you can use `posframe-delete-all' to delete all posframes."
-  (let* ((position (or position (point)))
+  (let* ((position (or (funcall posframe-arghandler posframe-buffer :position 
position) (point)))
+         (poshandler (funcall posframe-arghandler posframe-buffer :poshandler 
poshandler))
+         (width (funcall posframe-arghandler posframe-buffer :width width))
+         (height (funcall posframe-arghandler posframe-buffer :height height))
+         (min-width (or (funcall posframe-arghandler posframe-buffer 
:min-width min-width) 1))
+         (min-height (or (funcall posframe-arghandler posframe-buffer 
:min-height min-height) 1))
+         (x-pixel-offset (or (funcall posframe-arghandler posframe-buffer 
:x-pixel-offset x-pixel-offset) 0))
+         (y-pixel-offset (or (funcall posframe-arghandler posframe-buffer 
:y-pixel-offset y-pixel-offset) 0))
+         (left-fringe (funcall posframe-arghandler posframe-buffer 
:left-fringe left-fringe))
+         (right-fringe (funcall posframe-arghandler posframe-buffer 
:right-fringe right-fringe))
+         (internal-border-width (funcall posframe-arghandler posframe-buffer 
:internal-border-width internal-border-width))
+         (internal-border-color (funcall posframe-arghandler posframe-buffer 
:internal-border-color internal-border-color))
+         (font (funcall posframe-arghandler posframe-buffer :font font))
+         (foreground-color (funcall posframe-arghandler posframe-buffer 
:foreground-color foreground-color))
+         (background-color (funcall posframe-arghandler posframe-buffer 
:background-color background-color))
+         (respect-header-line (funcall posframe-arghandler posframe-buffer 
:respect-header-line respect-header-line))
+         (respect-mode-line (funcall posframe-arghandler posframe-buffer 
:respect-mode-line respect-mode-line))
+         (initialize (funcall posframe-arghandler posframe-buffer :initialize 
initialize))
+         (no-properties (funcall posframe-arghandler posframe-buffer 
:no-properties no-properties))
+         (keep-ratio (funcall posframe-arghandler posframe-buffer :keep-ratio 
keep-ratio))
+         (override-parameters (funcall posframe-arghandler posframe-buffer 
:override-parameters override-parameters))
+         (timeout (funcall posframe-arghandler posframe-buffer :timeout 
timeout))
+         (refresh (funcall posframe-arghandler posframe-buffer :refresh 
refresh))
+         ;;-----------------------------------------------------
          (posframe-buffer (get-buffer-create posframe-buffer))
-         (x-pixel-offset (or x-pixel-offset 0))
-         (y-pixel-offset (or y-pixel-offset 0))
-         (min-width (or min-width 1))
-         (min-height (or min-height 1))
          (parent-window (selected-window))
          (parent-window-top (window-pixel-top parent-window))
          (parent-window-left (window-pixel-left parent-window))