branch: externals/realgud
commit 2eb9519df850ca6ff61f8576bc9d0bc3176c87b4
Author: rocky <[email protected]>
Commit: rocky <[email protected]>
small changes
debugger-(not)running now has realgud- namespace prefix
inherit stopped arrow color from debugger-running
---
realgud/common/buffer/command.el | 26 +++-----------------------
realgud/common/fringe.el | 29 ++++++++++++++++++++++-------
realgud/common/track-mode.el | 2 +-
3 files changed, 26 insertions(+), 31 deletions(-)
diff --git a/realgud/common/buffer/command.el b/realgud/common/buffer/command.el
index 8e0e66c..89659b5 100644
--- a/realgud/common/buffer/command.el
+++ b/realgud/common/buffer/command.el
@@ -1,4 +1,4 @@
-;; Copyright (C) 2015-2017 Free Software Foundation, Inc
+;; Copyright (C) 2015-2018 Free Software Foundation, Inc
;; Author: Rocky Bernstein <[email protected]>
;; This program is free software; you can redistribute it and/or modify
@@ -33,26 +33,6 @@
)
(require 'cl-lib)
-(defface debugger-running
- '((((class color) (min-colors 16) (background light))
- (:foreground "Green4" :weight bold))
- (((class color) (min-colors 88) (background dark))
- (:foreground "Green1" :weight bold))
- (((class color) (min-colors 16) (background dark))
- (:foreground "Green" :weight bold))
- (((class color)) (:foreground "green" :weight bold))
- (t (:weight bold)))
- "Face used to highlight debugger run information."
- :group 'realgud
- :version "24.3")
-
-(defface debugger-not-running
- '((t :inherit font-lock-warning-face))
- "Face used when debugger or process is not running."
- :group 'realgud
- :version "24.3")
-
-
(cl-defstruct realgud-cmdbuf-info
"The debugger object/structure specific to a process buffer."
debugger-name ;; Name of debugger
@@ -468,9 +448,9 @@ command-process buffer has stored."
(list (propertize
(format ":%s%s"
(process-status cmd-process) debug-status)
- 'face 'debugger-running))
+ 'face 'realgud-debugger-running))
(list (propertize ":not running" 'face
- 'debugger-not-running))
+ 'realgud-debugger-not-running))
))
(setq mode-line-process status)
;; Force mode line redisplay soon.
diff --git a/realgud/common/fringe.el b/realgud/common/fringe.el
index f974e28..52a68f3 100644
--- a/realgud/common/fringe.el
+++ b/realgud/common/fringe.el
@@ -1,4 +1,4 @@
-;; Copyright (C) 2010, 2012, 2014-2016 Free Software Foundation, Inc
+;; Copyright (C) 2010, 2012, 2014-2016, 2018 Free Software Foundation, Inc
;; Author: Rocky Bernstein <[email protected]>
@@ -27,15 +27,30 @@
(define-fringe-bitmap 'hollow-right-triangle
"\xe0\x90\x88\x84\x84\x88\x90\xe0"))
+(defface realgud-debugger-running
+ '((((class color) (min-colors 16) (background light))
+ (:foreground "Green4" :weight bold))
+ (((class color) (min-colors 88) (background dark))
+ (:foreground "Green1" :weight bold))
+ (((class color) (min-colors 16) (background dark))
+ (:foreground "Green" :weight bold))
+ (((class color)) (:foreground "green" :weight bold))
+ (t (:weight bold)))
+ "Face used to highlight debugger run information."
+ :group 'realgud
+ :version "24.3")
+
+(defface realgud-debugger-not-running
+ '((t :inherit font-lock-warning-face))
+ "Face used when debugger or process is not running."
+ :group 'realgud
+ :version "24.3")
+
+
;; FIXME: Figure out how to do this as a macro.
(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))
+ '((t :inherit realgud-debugger-running))
"Realgud fringe face for current position indicator."
:group 'realgud)
diff --git a/realgud/common/track-mode.el b/realgud/common/track-mode.el
index bb30e5b..4ca2c63 100644
--- a/realgud/common/track-mode.el
+++ b/realgud/common/track-mode.el
@@ -168,7 +168,7 @@ of this mode."
(status (if cmd-process
(list (propertize (format ":%s"
(process-status cmd-process))
- 'face 'debugger-running))
+ 'face 'realgud-debugger-running))
""))
)
(setq mode-line-process status)
