[elpa] externals/realgud dcb87ed 004/140: Merge pull request #177 from realgud/fringe-arrow

[Rocky Bernstein]

branch: externals/realgud
commit dcb87edd2756ee4daa653b97db151a92436744ce
Merge: 3d0fcb8 f884fe7
Author: R. Bernstein <address@hidden>
Commit: GitHub <address@hidden>

    Merge pull request #177 from realgud/fringe-arrow
    
    Simplify and perhaps generalize
---
 realgud/common/fringe.el | 66 +++++++++++++++---------------------------------
 1 file changed, 21 insertions(+), 45 deletions(-)

diff --git a/realgud/common/fringe.el b/realgud/common/fringe.el
index c50153b..f974e28 100644
--- a/realgud/common/fringe.el
+++ b/realgud/common/fringe.el
@@ -29,51 +29,27 @@
 
 ;; FIXME: Figure out how to do this as a macro.
 
-(if (equal 'dark (frame-parameter nil 'background-mode))
-    (progn
-      (defface realgud-overlay-arrow1
-       '((t
-          :foreground "green"
-          :weight bold))
-       "Fringe face for current position."
-       :group 'realgud)
-
-      (defface realgud-overlay-arrow2
-       '((t
-          :foreground "white"
-          :weight bold))
-       "Fringe face for position one back in fringe."
-       :group 'realgud)
-
-      (defface realgud-overlay-arrow3
-       '((t
-          :foreground "gray"
-          :weight bold))
-       "Fringe face for position two back in fringe."
-       :group 'realgud)
-      )
-  ;; else
-  (progn
-    (defface realgud-overlay-arrow1
-      '((t
-        :foreground "black"
-        :weight bold))
-      "Fringe face for current position."
-      :group 'realgud)
-
-    (defface realgud-overlay-arrow2
-      '((t
-        :foreground "gray"
-        :weight bold))
-      "Fringe face for position one back in fringe."
-      :group 'realgud)
-
-    (defface realgud-overlay-arrow3
-      '((t
-        :foreground "gainsboro"
-        :weight bold))
-      "Fringe face for position two back in fringe."
-      :group 'realgud)))
+(defface realgud-overlay-arrow1
+  '((((class color) (min-colors 16) (background light)) :foreground 
"ForestGreen" :weight bold)
+    (((class color) (min-colors 16) (background dark))  :foreground 
"PaleGreen" :weight bold)
+    (((class color) (min-colors 8)) :foreground "green")
+    (((class grayscale) (background light)) :foreground "Black" :weight bold)
+    (((class grayscale) (background dark))  :foreground "White" :weight bold)
+    (t :weight bold))
+    "Realgud fringe face for current position indicator."
+    :group 'realgud)
+
+(defface realgud-overlay-arrow2
+  '((((background  dark)) :foreground "white" :weight bold)
+    (((background light)) :foreground "black" :weight bold))
+  "Fringe face for current position."
+  :group 'realgud)
+
+(defface realgud-overlay-arrow3
+  '((((background  dark)) :foreground "DimGray")
+    (((background light)) :foreground "DarkGray"))
+  "Fringe face for current position."
+  :group 'realgud)
 
 
 (defvar realgud-overlay-arrow1 nil