[elpa] externals/ivy-explorer 6245f34 28/29: Change some frame paramaters for better posframe display

[Clemens Radermacher]

branch: externals/ivy-explorer
commit 6245f34d085949b83b25308781b4deacd759ea4d
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>

    Change some frame paramaters for better posframe display
---
 ivy-explorer.el | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/ivy-explorer.el b/ivy-explorer.el
index 66976d0..6c7ce55 100644
--- a/ivy-explorer.el
+++ b/ivy-explorer.el
@@ -331,10 +331,21 @@ the menu string as `cdr'."
      :poshandler (lambda (info)
                    (cons (frame-parameter nil 'left-fringe)
                          (- 0
+                            ;; TODO: calculate based on ivy-explorer-height
                             (plist-get info :mode-line-height)
                             (plist-get info :minibuffer-height))))
-     :background-color (face-attribute 'fringe :background)
+     :background-color (or (and (facep 'ivy-posframe)
+                                (face-attribute 'ivy-posframe :background))
+                           (face-attribute 'fringe :background))
+     :foreground-color (or (and (facep 'ivy-posframe)
+                                (face-attribute 'ivy-posframe :foreground)
+                                (face-attribute 'default :foreground)))
+     :internal-border-width (or (and (bound-and-true-p 
ivy-posframe-border-width)
+                                     ivy-posframe-border-width)
+                                0)
      :height ivy-explorer-height
+     :left-fringe (frame-parameter nil 'left-fringe)
+     :right-fringe (frame-parameter nil 'right-fringe)
      :width (frame-width))))