[elpa] externals/company fdd4037 1/2: Improve default colors for dark themes

[ELPA Syncer]

branch: externals/company
commit fdd4037a9a70e1febc4625ffc0d7fec43802c073
Author: Y. E <yugenekr@gmail.com>
Commit: Y. E <yugenekr@gmail.com>

    Improve default colors for dark themes
    
    Closes #949
---
 NEWS.md    |  1 +
 company.el | 38 ++++++++++++--------------------------
 2 files changed, 13 insertions(+), 26 deletions(-)

diff --git a/NEWS.md b/NEWS.md
index 2addb01..71bfd70 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -2,6 +2,7 @@
 
 ## Next
 
+* Change default colors for dark themes 
([#949](https://github.com/company-mode/company-mode/issues/949)).
 * Default key bindings have been changed, moving `company-select-next` and
   `company-select-previous` from `M-n` and `M-p` to `C-n` and `C-p`
   ([#1098](https://github.com/company-mode/company-mode/pull/1098)). The
diff --git a/company.el b/company.el
index e61e29d..e071098 100644
--- a/company.el
+++ b/company.el
@@ -77,20 +77,18 @@
   :group 'faces)
 
 (defface company-tooltip
-  '((default :foreground "black")
-    (((class color) (min-colors 88) (background light))
-     (:background "cornsilk"))
+  '((((class color) (min-colors 88) (background light))
+     (:foreground "black" :background "cornsilk"))
     (((class color) (min-colors 88) (background dark))
-     (:background "yellow"))
-    (t
-     (:background "yellow")))
+     (:background "gray26"))
+    (t (:foreground "black" :background "yellow")))
   "Face used for the tooltip.")
 
 (defface company-tooltip-selection
   '((((class color) (min-colors 88) (background light))
      (:background "light blue"))
     (((class color) (min-colors 88) (background dark))
-     (:background "orange1"))
+     (:background "gray31"))
     (t (:background "green")))
   "Face used for the selection in the tooltip.")
 
@@ -110,7 +108,7 @@
   '((((background light))
      :foreground "darkred")
     (((background dark))
-     :foreground "red"))
+     :foreground "pale turquoise"))
   "Face used for the common completion in the tooltip.")
 
 (defface company-tooltip-common-selection
@@ -121,7 +119,7 @@
   '((((background light))
      :foreground "firebrick4")
     (((background dark))
-     :foreground "red4"))
+     :foreground "LightCyan3"))
   "Face used for the completion annotation in the tooltip.")
 
 (defface company-tooltip-annotation-selection
@@ -132,38 +130,26 @@
   '((((background light))
      :background "darkred")
     (((background dark))
-     :background "red"))
+     :background "gray33"))
   "Face used for the tooltip scrollbar thumb.")
 
 (defface company-scrollbar-bg
   '((((background light))
      :background "wheat")
     (((background dark))
-     :background "gold"))
+     :background "gray28"))
   "Face used for the tooltip scrollbar background.")
 
 (defface company-preview
-  '((((background light))
-     :inherit (company-tooltip-selection company-tooltip))
-    (((background dark))
-     :background "blue4"
-     :foreground "wheat"))
+  '((default :inherit (company-tooltip-selection company-tooltip)))
   "Face used for the completion preview.")
 
 (defface company-preview-common
-  '((((background light))
-     :inherit company-tooltip-common-selection)
-    (((background dark))
-     :inherit company-preview
-     :foreground "red"))
+  '((default :inherit company-tooltip-common-selection))
   "Face used for the common part of the completion preview.")
 
 (defface company-preview-search
-  '((((background light))
-     :inherit company-tooltip-common-selection)
-    (((background dark))
-     :inherit company-preview
-     :background "blue1"))
+  '((default :inherit company-tooltip-common-selection))
   "Face used for the search string in the completion preview.")
 
 (defface company-echo nil