[elpa] master ff1dfe9 078/215: Change fringe arrow background colors based on dark or light background.

[Rocky Bernstein]

branch: master
commit ff1dfe994b212780397eacae06da7dd047e08451
Author: rocky <address@hidden>
Commit: rocky <address@hidden>

    Change fringe arrow background colors based on dark or light background.
---
 realgud/common/buffer/backtrace.el |    2 +-
 realgud/common/fringe.el           |   65 +++++++++++++++++++++++++-----------
 2 files changed, 46 insertions(+), 21 deletions(-)

diff --git a/realgud/common/buffer/backtrace.el 
b/realgud/common/buffer/backtrace.el
index ff098c4..9a4863b 100644
--- a/realgud/common/buffer/backtrace.el
+++ b/realgud/common/buffer/backtrace.el
@@ -23,7 +23,7 @@
 (require 'load-relative)
 (eval-when-compile (require 'cl-lib))
 (require-relative-list
- '("../key" "helper" "follow" "loc") "realgud-")
+ '("../key" "helper" "../follow" "../loc") "realgud-")
 
 (require-relative-list
  '("command") "realgud-buffer-")
diff --git a/realgud/common/fringe.el b/realgud/common/fringe.el
index 7256ed5..da6ade0 100644
--- a/realgud/common/fringe.el
+++ b/realgud/common/fringe.el
@@ -16,26 +16,51 @@
 
 ;; FIXME: Figure out how to do this as a macro.
 
-(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)
+(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)))
 
 
 (defvar realgud-overlay-arrow1 nil