[Feature] Support dap-mode in debug indicator.

doom-modeline-segments.el

@@ -91,6 +91,10 @@
 (declare-function aw-update 'ace-window)
 (declare-function aw-window-list 'ace-window)
 (declare-function battery-format 'battery)
+(declare-function dap--cur-session 'dap-mode)
+(declare-function dap-debug-recent 'dap-mode)
+(declare-function dap-hydra 'dap-hydra)
+(declare-function dap-mode-line 'dap-mode)
 (declare-function edebug-help 'edebug)
 (declare-function edebug-next-mode 'edebug)
 (declare-function edebug-stop 'edebug)
@@ -1756,6 +1760,24 @@ mouse-3: Fetch notifications"
               (bound-and-true-p edebug-x-mode))
           " ")
 
+     ;; For `dap-mode'
+     (when (and (bound-and-true-p dap-mode)
+                (bound-and-true-p lsp-mode)
+                (dap--cur-session))
+       (propertize
+        (doom-modeline-debug-icon 'doom-modeline-urgent)
+        'help-echo (format "DAP (%s)
+mouse-1: Display debug hydra
+mouse-2: Display recent configurations"
+                           (dap-mode-line))
+        'mouse-face '(:box 0)
+        'local-map (let ((map (make-sparse-keymap)))
+                     (define-key map [mode-line mouse-1]
+                       #'dap-hydra)
+                     (define-key map [mode-line mouse-2]
+                       #'dap-debug-recent)
+                     map)))
+
      ;; For `edebug'
      (when (or (bound-and-true-p edebug-mode)
                (bound-and-true-p edebug-x-mode))

doom-modeline.el

@@ -4,7 +4,7 @@
 
 ;; Author: Vincent Zhang <seagle0128@gmail.com>
 ;; Homepage: https://github.com/seagle0128/doom-modeline
-;; Version: 1.9.2
+;; Version: 1.9.3
 ;; Package-Requires: ((emacs "25.1") (all-the-icons "1.0.0") (shrink-path "0.2.0") (eldoc-eval "0.1") (dash "2.11.0"))
 ;; Keywords: faces mode-line