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

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

[nongnu] elpa/alect-themes 3c0f552 125/269: Add faces for company-mode


From: ELPA Syncer
Subject: [nongnu] elpa/alect-themes 3c0f552 125/269: Add faces for company-mode
Date: Thu, 21 Oct 2021 17:59:03 -0400 (EDT)

branch: elpa/alect-themes
commit 3c0f552cfe4840d877b1ea951c228289b22d3ae7
Author: Alex Kost <alezost@gmail.com>
Commit: Alex Kost <alezost@gmail.com>

    Add faces for company-mode
---
 alect-themes.el | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/alect-themes.el b/alect-themes.el
index 2cba07b..c63ddcc 100644
--- a/alect-themes.el
+++ b/alect-themes.el
@@ -476,6 +476,23 @@ For INVERT, see `alect-get-color'."
          (comint-highlight-prompt ((,c :inherit alect-prompt)))
          (comint-highlight-input  ((,c :weight bold)))
 
+         ;; company
+         (company-tooltip                   ((,c :foreground ,(gc 'fg-1)
+                                                 :background ,(gc 'bg+1))))
+         (company-tooltip-selection         ((,c :foreground ,(gc 'fg-1)
+                                                 :background ,(gc 'bg-2))))
+         (company-tooltip-mouse             ((,c :inherit highlight)))
+         (company-tooltip-annotation        ((,c :inherit company-tooltip
+                                                 :foreground ,(gc 'blue))))
+         (company-tooltip-common            ((,c :inherit company-tooltip
+                                                 :foreground ,(gc 'fg+1))))
+         (company-tooltip-common-selection  ((,c :inherit 
company-tooltip-selection
+                                                 :foreground ,(gc 'fg+1))))
+         (company-preview                   ((,c :foreground ,(gc 'fg-1))))
+         (company-preview-common            ((,c :inherit company-preview 
:underline t)))
+         (company-scrollbar-fg              ((,c :background ,(gc 'gray+1))))
+         (company-scrollbar-bg              ((,c :background ,(gc 'gray))))
+
          ;; compilation
          (compilation-column-face           ((,c :foreground ,(gc 'yellow))))
          (compilation-enter-directory-face  ((,c :foreground ,(gc 'green))))



reply via email to

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