[nongnu] elpa/gruvbox-theme 96349d9b3b 033/258: Added support for Comint and the like

[ELPA Syncer]

branch: elpa/gruvbox-theme
commit 96349d9b3b25f236bcce16695f0a4b915b7c1330
Author: Greduan <eduanlavaque@gmail.com>
Commit: Greduan <eduanlavaque@gmail.com>

    Added support for Comint and the like
---
 README.md        |  2 +-
 gruvbox-theme.el | 14 ++++++++++----
 2 files changed, 11 insertions(+), 5 deletions(-)

diff --git a/README.md b/README.md
index a8bdcf8cb4..f138b706bb 100644
--- a/README.md
+++ b/README.md
@@ -18,7 +18,7 @@ This theme contains custom support for the following features 
and plugins:
 - [ag.el](https://github.com/Wilfred/ag.el)
 - Diffs
 - Term
-- Shell(?)
+- Comint (and the like)
 
 ## Installation and usage
 
diff --git a/gruvbox-theme.el b/gruvbox-theme.el
index 73fa1a6d87..d716513d54 100644
--- a/gruvbox-theme.el
+++ b/gruvbox-theme.el
@@ -75,7 +75,7 @@
 (custom-theme-set-faces
   'gruvbox
 
-  ;;ui
+  ;;UI
   `(default ((t (:background ,gruvbox-dark-0 :foreground ,gruvbox-light-0))))
   `(cursor ((t (:background ,gruvbox-yellow))))
   `(mode-line ((t (:box nil :background ,gruvbox-dark-4 :foreground 
,gruvbox-dark-0))))
@@ -88,7 +88,7 @@
   `(ag-hit-face ((t (:foreground ,gruvbox-green))))
   `(ag-match-face ((t (:foreground ,gruvbox-red))))
 
-  ;;basic
+  ;;Built-in syntax
   `(font-lock-builtin-face ((t (:foreground ,gruvbox-orange))))
   `(font-lock-constant-face ((t (:foreground ,gruvbox-purple))))
   `(font-lock-comment-face ((t (:foreground ,gruvbox-dark-4))))
@@ -133,8 +133,8 @@
   `(sp-pair-overlay-face ((t (:background ,gruvbox-dark-2))))
   ;`(sp-wrap-overlay-face ((t (:inherit sp-wrap-overlay-face))))
   ;`(sp-wrap-tag-overlay-face ((t (:inherit sp-wrap-overlay-face))))
-  `(sp-show-pair-match-face ((t (:background ,gruvbox-light-2)))) ;;pair tags 
highlight
-  `(sp-show-pair-mismatch-face ((t (:background "red")))) ;;highlight for 
bracket without pair
+  `(sp-show-pair-match-face ((t (:background ,gruvbox-light-2)))) ;;Pair tags 
highlight
+  `(sp-show-pair-mismatch-face ((t (:background "red")))) ;;Highlight for 
bracket without pair
 
   ;;elscreen
   `(elscreen-tab-background-face ((t (:box nil :background ,gruvbox-dark-0)))) 
;;tab bar, not tabs
@@ -173,6 +173,12 @@
     ,gruvbox-blue ,gruvbox-purple ,gruvbox-aqua ,gruvbox-light-1]))
 )
 
+(defun gruvbox-set-ansi-color-names-vector ()
+  "Give comint and the like the same colours as the term colours we set"
+  (setq ansi-color-names-vector
+    [term-color-black term-color-red term-color-green term-color-yellow 
term-color-blue
+     term-color-purple term-color-aqua term-color-white]))
+
 ;;;###autoload
 (when load-file-name
   (add-to-list 'custom-theme-load-path