[elpa] externals/corfu 15b0eee 05/29: Improve face definitions

[Stefan Monnier]

branch: externals/corfu
commit 15b0eee457ddecd54c802a348e1b4df11095d609
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Improve face definitions
---
 corfu.el | 28 ++++++++++++++++++++++++----
 1 file changed, 24 insertions(+), 4 deletions(-)

diff --git a/corfu.el b/corfu.el
index f38d35d..f6c51d5 100644
--- a/corfu.el
+++ b/corfu.el
@@ -56,16 +56,36 @@
   :group 'corfu
   :group 'faces)
 
-(defface corfu-background '((t :background "#FFE" :inherit default))
+(defface corfu-background
+  '((((class color) (min-colors 88) (background dark))
+     :background "#222" :inherit default)
+    (((class color) (min-colors 88) (background light))
+     :background "#ffe" :inherit default)
+    (t :background "gray" :foreground "black" :inherit default))
   "Face used to for the overlay background.")
 
-(defface corfu-current '((t :background "#CEF" :inherit default))
+(defface corfu-current
+  '((((class color) (min-colors 88) (background dark))
+     :background "#137" :inherit default)
+    (((class color) (min-colors 88) (background light))
+     :background "#cef" :inherit default)
+    (t :background "blue" :foreground "white" :inherit default))
   "Face used to highlight the currently selected candidate.")
 
-(defface corfu-bar '((t :foreground "#666"))
+(defface corfu-bar
+  '((((class color) (min-colors 88) (background dark))
+     :foreground "#888")
+    (((class color) (min-colors 88) (background light))
+     :foreground "#666")
+    (t :background "black"))
   "Face used for the scrollbar.")
 
-(defface corfu-border '((t :foreground "#BBB"))
+(defface corfu-border
+  '((((class color) (min-colors 88) (background dark))
+     :foreground "#444")
+    (((class color) (min-colors 88) (background light))
+     :foreground "#bbb")
+    (t :background "gray"))
   "Face used for the background of the scrollbar.")
 
 (defvar corfu-map