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

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

[elpa] externals/vertico-posframe 144330e66a: * vertico-posframe.el (ver


From: ELPA Syncer
Subject: [elpa] externals/vertico-posframe 144330e66a: * vertico-posframe.el (vertico-posframe--show): different minibuffer depth use different color border.
Date: Sat, 8 Jan 2022 03:58:09 -0500 (EST)

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

    * vertico-posframe.el (vertico-posframe--show): different minibuffer depth 
use different color border.
---
 vertico-posframe.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/vertico-posframe.el b/vertico-posframe.el
index eab5d2a4db..a83fb8a931 100644
--- a/vertico-posframe.el
+++ b/vertico-posframe.el
@@ -203,7 +203,11 @@ is called, window-point will be set to WINDOW-POINT."
                          :background-color (face-attribute 'vertico-posframe 
:background nil t)
                          :foreground-color (face-attribute 'vertico-posframe 
:foreground nil t)
                          :border-width vertico-posframe-border-width
-                         :border-color (face-attribute 
'vertico-posframe-border :background nil t)
+                         :border-color
+                         (let ((color (face-attribute 'vertico-posframe-border 
:background nil t)))
+                           (or (nth (- (minibuffer-depth) 1)
+                                    (list color "red" "yellow" "green" "blue" 
"purple"))
+                               color))
                          :override-parameters vertico-posframe-parameters
                          :refposhandler vertico-posframe-refposhandler
                          :hidehandler #'vertico-posframe-hidehandler



reply via email to

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