github/doom-modeline
1
0
Fork 0
mirror of https://github.com/correl/doom-modeline.git synced 2024-11-23 19:19:50 +00:00
Code Issues Projects Releases Packages Wiki Activity

Improve DAP indicator.

Browse source
This commit is contained in:
Vincent Zhang 2019-03-17 00:00:32 +07:00
parent 2213a238df
commit d3bebe6b2e
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
doom-modeline-segments.el
View file

@ -93,6 +93,7 @@
(declare-function battery-format 'battery) (declare-function battery-format 'battery)
(declare-function dap--cur-session 'dap-mode) (declare-function dap--cur-session 'dap-mode)
(declare-function dap-debug-recent 'dap-mode) (declare-function dap-debug-recent 'dap-mode)
(declare-function dap-disconnect 'dap-mode)
(declare-function dap-hydra 'dap-hydra) (declare-function dap-hydra 'dap-hydra)
(declare-function dap-mode-line 'dap-mode) (declare-function dap-mode-line 'dap-mode)
(declare-function edebug-help 'edebug) (declare-function edebug-help 'edebug)
@ -1768,7 +1769,8 @@ mouse-3: Fetch notifications"
(doom-modeline-debug-icon 'doom-modeline-urgent) (doom-modeline-debug-icon 'doom-modeline-urgent)
'help-echo (format "DAP (%s) 'help-echo (format "DAP (%s)
mouse-1: Display debug hydra mouse-1: Display debug hydra
mouse-2: Display recent configurations" mouse-2: Display recent configurations
mouse-3: Disconnect session"
(dap-mode-line)) (dap-mode-line))
'mouse-face '(:box 0) 'mouse-face '(:box 0)
'local-map (let ((map (make-sparse-keymap))) 'local-map (let ((map (make-sparse-keymap)))
@ -1776,6 +1778,8 @@ mouse-2: Display recent configurations"
#'dap-hydra) #'dap-hydra)
(define-key map [mode-line mouse-2] (define-key map [mode-line mouse-2]
#'dap-debug-recent) #'dap-debug-recent)
(define-key map [mode-line mouse-3]
#'dap-disconnect)
map))) map)))
;; For `edebug' ;; For `edebug'