[nongnu] externals/caml 4c414a0 180/197: Emacs: Improve colors on dark themes

[Stefan Monnier]

branch: externals/caml
commit 4c414a055c0d8a5136e430aaeecba319713c6741
Author: Wilfred Hughes <me@wilfred.me.uk>
Commit: Wilfred Hughes <me@wilfred.me.uk>

    Emacs: Improve colors on dark themes
    
    Previously, some of the background colors were close to white, making
    pale text difficult to read.
---
 caml-types.el | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/caml-types.el b/caml-types.el
index 6d6775a..e923685 100644
--- a/caml-types.el
+++ b/caml-types.el
@@ -85,7 +85,9 @@ type call ident")
   (setq caml-types-location-re
         (concat "^" caml-types-position-re " " caml-types-position-re)))
 
-(defface caml-types-expr-face '((t :background "#88FF44"))
+(defface caml-types-expr-face
+  '((((class color) (background light)) :background "#88FF44")
+    (((class color) (background  dark)) :background "dark green"))
   "Face for highlighting expressions and types")
 
 (defvar caml-types-expr-ovl (make-overlay 1 1))
@@ -97,7 +99,9 @@ type call ident")
 (defvar caml-types-typed-ovl (make-overlay 1 1))
 (overlay-put caml-types-typed-ovl 'face 'caml-types-typed-face)
 
-(defface caml-types-scope-face '((t :background "#BBFFFF"))
+(defface caml-types-scope-face
+  '((((class color) (background light)) :background "#BBFFFF")
+    (((class color) (background  dark)) :background "dark blue"))
   "Face for highlighting variable scopes.")
 
 (defvar caml-types-scope-ovl (make-overlay 1 1))
@@ -109,7 +113,9 @@ type call ident")
 (defvar caml-types-def-ovl (make-overlay 1 1))
 (overlay-put caml-types-def-ovl 'face 'caml-types-def-face)
 
-(defface caml-types-occ-face '((t :background "#44FF44"))
+(defface caml-types-occ-face
+  '((((class color) (background light)) :background "#44FF44")
+    (((class color) (background  dark)) :background "dark green"))
   "Face for highlighting variable occurrences.")
 
 (defvar caml-types-occ-ovl (make-overlay 1 1))