[elpa] externals/ef-themes b564d1e743 1/2: Add support for Company

[ELPA Syncer]

branch: externals/ef-themes
commit b564d1e74351472d25234ff45be51eb5787ae116
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Add support for Company
    
    Thanks to Alan Schmitt for reminding me about it:
    <https://lists.sr.ht/~protesilaos/ef-themes/%3C87pmgjw3j9.fsf%40m4x.org%3E>.
---
 README.org   |  7 ++++---
 ef-themes.el | 18 ++++++++++++++++++
 2 files changed, 22 insertions(+), 3 deletions(-)

diff --git a/README.org b/README.org
index 5f262d22cd..a424ab979f 100644
--- a/README.org
+++ b/README.org
@@ -776,6 +776,7 @@ everything most users need.
 - calendar and diary
 - change-log and log-view (part of VC)
 - chart
+- company [ Part of {{{development-version}}} ]
 - compilation
 - completions
 - consult
@@ -1091,9 +1092,9 @@ matters.
 + Contributions to code or the manual :: Christopher League, Philip
   Kaludercic.
 
-+ Ideas and/or user feedback :: Anthony Chavez, Iris Garcia,
-  Jean-Philippe Gagné Guay, Spike-Leung, Steve Molitor, Summer Emacs,
-  Zoltán Király.
++ Ideas and/or user feedback :: Alan Schmitt, Anthony Chavez, Iris
+  Garcia, Jean-Philippe Gagné Guay, Spike-Leung, Steve Molitor, Summer
+  Emacs, Zoltán Király.
 
 * GNU Free Documentation License
 :PROPERTIES:
diff --git a/ef-themes.el b/ef-themes.el
index c78b5fd8f4..9a6050420f 100644
--- a/ef-themes.el
+++ b/ef-themes.el
@@ -654,6 +654,24 @@ Helper function for `ef-themes-preview-colors'."
     `(log-view-commit-body (( )))
     `(log-view-file ((,c :inherit bold)))
     `(log-view-message ((,c :foreground ,fg-dim)))
+;;;; company-mode
+    `(company-echo-common ((,c :inherit bold :foreground ,accent-0)))
+    `(company-preview ((,c :background ,bg-dim :foreground ,fg-dim)))
+    `(company-preview-common ((,c :inherit company-echo-common)))
+    `(company-preview-search ((,c :inherit modus-themes-special-calm)))
+    `(company-scrollbar-bg ((,c :background ,bg-active)))
+    `(company-scrollbar-fg ((,c :background ,fg-main)))
+    `(company-template-field ((,c :background ,bg-active :foreground 
,fg-intense)))
+    `(company-tooltip ((,c :background ,bg-dim)))
+    `(company-tooltip-annotation ((,c :inherit completions-annotations)))
+    `(company-tooltip-common ((,c :inherit company-echo-common)))
+    `(company-tooltip-deprecated ((,c :inherit company-tooltip :strike-through 
t)))
+    `(company-tooltip-mouse ((,c :inherit highlight)))
+    `(company-tooltip-scrollbar-thumb ((,c :background ,fg-alt)))
+    `(company-tooltip-scrollbar-track ((,c :background ,bg-alt)))
+    `(company-tooltip-search ((,c :inherit secondary-selection)))
+    `(company-tooltip-search-selection ((,c :inherit secondary-selection 
:underline t)))
+    `(company-tooltip-selection ((,c :background ,bg-completion)))
 ;;;; compilation
     `(compilation-column-number ((,c :inherit compilation-line-number)))
     `(compilation-error ((,c :inherit error)))