Put color in running status for track mode.

diff --git a/dbgr/common/buffer/command.el b/dbgr/common/buffer/command.el
index b418ab24170b9bbb6c65e521b8e5c3730d639ce9..72f10cc1d94fec9d8b19cf0461830683fbb7c4b3 100644 (file)
--- a/dbgr/common/buffer/command.el
+++ b/dbgr/common/buffer/command.el
@@ -15,6 +15,26 @@
   )
 (require 'cl)
 
+(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 'dbgr
+  :version "23.1")
+
+(defface debugger-not-running
+  '((t :inherit font-lock-warning-face))
+  "Face used when debugger or process is not running."
+  :group 'dbgr
+  :version "23.1")
+
+
 (defstruct dbgr-cmdbuf-info
   "The debugger object/structure specific to a process buffer."
   in-srcbuf?           ;; If true, selected window be the source buffer.
@@ -107,8 +127,9 @@
 
 (defun dbgr-cmdbuf-info-in-debugger-toggle ()
   "Toggle state of whether we think we running a debugger or not"
-  (dbgr-cmdbuf-info-in-debugger?= (not (dbgr-sget 'cmdbuf-info 'cmd-args)))
-  (dbgr-cmdbuf-force-mode-line-update)
+  (interactive "")
+  (dbgr-cmdbuf-info-in-debugger?= (not (dbgr-sget 'cmdbuf-info 'in-debugger?)))
+  (dbgr-cmdbuf-mode-line-update)
 )
 
 (defun dbgr-cmdbuf-add-srcbuf(srcbuf &optional cmdbuf)
@@ -220,7 +241,7 @@ command-process buffer has stored."
     (lexical-let* ((loc (dbgr-loc-hist-item (dbgr-cmdbuf-loc-hist cmd-buf))))
       (and loc (dbgr-loc-marker loc)))))
 
-(defun dbgr-cmdbuf-force-mode-line-update (&optional opt-cmdbuf)
+(defun dbgr-cmdbuf-mode-line-update (&optional opt-cmdbuf)
   "Force update of command buffer to include process status"
   (let ((cmdbuf (dbgr-get-cmdbuf opt-cmdbuf))
        (debug-status)
@@ -232,13 +253,17 @@ command-process buffer has stored."
          (setq cmd-process (get-buffer-process cmdbuf))
          (setq debug-status
                (if (dbgr-sget 'cmdbuf-info 'in-debugger?)
-                   "debugger"
-                 "no debugger"))
+                   " debugger"
+                 ""))
          (setq status 
                (if cmd-process
-                   (format ":%s [%s]" 
-                           (process-status cmd-process) debug-status)
-                 ":not running"))
+                   (list (propertize
+                          (format ":%s%s" 
+                                  (process-status cmd-process) debug-status)
+                          'face 'debugger-running))
+                 (list (propertize ":not running" 'face
+                       'debugger-not-running))
+                 ))
          (setq mode-line-process status)
          ;; Force mode line redisplay soon.
          (force-mode-line-update))

diff --git a/dbgr/common/core.el b/dbgr/common/core.el
index f2f3cbe7fc7378abeb93ed2cd798eda741147303..21f48535c519890ab95c9a956e4ec5d7f2e06fac 100644 (file)
--- a/dbgr/common/core.el
+++ b/dbgr/common/core.el
@@ -138,7 +138,7 @@ resets short-key mode."
     (if cmdbuf
        (with-current-buffer cmdbuf
          (dbgr-cmdbuf-info-in-debugger?= nil)
-         (dbgr-cmdbuf-force-mode-line-update)
+         (dbgr-cmdbuf-mode-line-update)
          (dbgr-fringe-erase-history-arrows)
          (if dbgr-cmdbuf-info
              (dolist (srcbuf (dbgr-cmdbuf-info-srcbuf-list dbgr-cmdbuf-info))

diff --git a/dbgr/common/track-mode.el b/dbgr/common/track-mode.el
index 2327528b8a77f9e6dfd76bcaae89e9719c9ec752..ce5adba467f6ba0fd263ed42923b0ffb4209ffca 100644 (file)
--- a/dbgr/common/track-mode.el
+++ b/dbgr/common/track-mode.el
@@ -99,9 +99,11 @@ of this mode."
                    'dbgr-track-eshell-output-filter-hook)
       (let* ((cmd-process (get-buffer-process (current-buffer)))
             (status (if cmd-process
-                        (format ":%s"
-                           (process-status cmd-process))
-                      "")))
+                        (list (propertize (format ":%s"
+                                                  (process-status cmd-process))
+                           'face 'debugger-running))
+                      ""))
+            )
        (setq mode-line-process status)
        ;; Force mode line redisplay soon.
        (force-mode-line-update)

diff --git a/dbgr/common/track.el b/dbgr/common/track.el
index 7d1291f4aeec899fc3410d1466266bf831a24237..0b964ea99aa5e251454f9fce132de6484397c8e4 100644 (file)
--- a/dbgr/common/track.el
+++ b/dbgr/common/track.el
@@ -103,7 +103,7 @@ evaluating (dbgr-cmdbuf-info-loc-regexp dbgr-cmdbuf-info)"
                  (progn 
                    (dbgr-track-loc-action loc cmdbuf)
                    (dbgr-cmdbuf-info-in-debugger?= 't)
-                   (dbgr-cmdbuf-force-mode-line-update)
+                   (dbgr-cmdbuf-mode-line-update)
                    )
                )
              )