emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/vertico-posframe aa1b013 2/5: * vertico-posframe.el (ve


From: ELPA Syncer
Subject: [elpa] externals/vertico-posframe aa1b013 2/5: * vertico-posframe.el (vertico-posframe--create-minibuffer-cover): Add background/foreground color.
Date: Fri, 29 Oct 2021 20:57:30 -0400 (EDT)

branch: externals/vertico-posframe
commit aa1b013a5da180e6c2f17a4bb5564b3bb6a252a2
Author: Feng Shu <tumashu@163.com>
Commit: Feng Shu <tumashu@163.com>

    * vertico-posframe.el (vertico-posframe--create-minibuffer-cover): Add 
background/foreground color.
---
 vertico-posframe.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/vertico-posframe.el b/vertico-posframe.el
index aff3bee..8cd40c3 100644
--- a/vertico-posframe.el
+++ b/vertico-posframe.el
@@ -208,12 +208,15 @@ Show STRING when it is a string."
 
 (defun vertico-posframe--create-minibuffer-cover ()
   "Create minibuffer cover."
-  (let* ((win (active-minibuffer-window))
+  (let* ((color (face-background 'default nil))
+         (win (active-minibuffer-window))
          (x (window-pixel-left win))
          (y (window-pixel-top win)))
     (posframe-show vertico-posframe--minibuffer-cover
                    :string (make-string 120 ? )
                    :position (cons x y)
+                   :background-color color
+                   :foreground-color color
                    :lines-truncate t
                    :timeout 3)))
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]