143 lines
5.3 KiB
EmacsLisp
143 lines
5.3 KiB
EmacsLisp
;;; packages.el --- DAP mode functions File for Spacemacs
|
|
;;
|
|
;; Copyright (c) 2012-2021 Sylvain Benner & Contributors
|
|
;;
|
|
;; Author: Ivan Yonchovski (yyoncho@gmail.com)
|
|
;; URL: https://github.com/syl20bnr/spacemacs
|
|
;;
|
|
;; This file is not part of GNU Emacs.
|
|
;;
|
|
;; This program is free software; you can redistribute it and/or modify
|
|
;; it under the terms of the GNU General Public License as published by
|
|
;; the Free Software Foundation, either version 3 of the License, or
|
|
;; (at your option) any later version.
|
|
;;
|
|
;; This program is distributed in the hope that it will be useful,
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
;; GNU General Public License for more details.
|
|
;;
|
|
;; You should have received a copy of the GNU General Public License
|
|
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
|
|
(defconst dap-packages
|
|
'(dap-mode
|
|
posframe))
|
|
|
|
(defun dap/init-dap-mode ()
|
|
(use-package dap-mode
|
|
:after (lsp-mode)
|
|
:hook ((dap-ui-sessions-mode . evil-evilified-state)
|
|
(dap-ui-breakpoints-ui-list-mode . evil-evilified-state)
|
|
(dap-ui-locals-mode . evil-evilified-state)
|
|
(dap-ui-inspect-mode . evil-evilified-state))
|
|
:config
|
|
(progn
|
|
(dap-mode 1)
|
|
(dap-ui-mode 1)
|
|
;; mouse support
|
|
(spacemacs|add-toggle dap-mouse
|
|
:status dap-tooltip-mode
|
|
:on (progn (dap-tooltip-mode)
|
|
(tooltip-mode))
|
|
:off (progn (dap-tooltip-mode -1)
|
|
(tooltip-mode -1))
|
|
:documentation "Enable mouse support in DAP mode.")
|
|
(when dap-enable-mouse-support
|
|
(spacemacs/toggle-dap-mouse-on))
|
|
|
|
(spacemacs|add-toggle dap-ui-controls
|
|
:status dap-ui-controls-mode
|
|
:on (dap-ui-controls-mode)
|
|
:off (dap-ui-controls-mode -1)
|
|
:documentation "Enable dap-ui-controls-mode")
|
|
|
|
(when dap-enable-ui-controls
|
|
(spacemacs/toggle-dap-ui-controls-on))
|
|
|
|
;; key bindings
|
|
(let ((bindings (list
|
|
;; transient state
|
|
"d." #'dap-hydra
|
|
;; repl
|
|
"d'" #'dap-ui-repl
|
|
;; abandon
|
|
"da" #'dap-disconnect
|
|
"dA" #'dap-delete-all-sessions
|
|
;; breakpoints
|
|
"dbb" #'dap-breakpoint-toggle
|
|
"dbc" #'dap-breakpoint-condition
|
|
"dbl" #'dap-breakpoint-log-message
|
|
"dbh" #'dap-breakpoint-hit-condition
|
|
"dba" #'dap-breakpoint-add
|
|
"dbd" #'dap-breakpoint-delete
|
|
"dbD" #'dap-breakpoint-delete-all
|
|
;; debuging/running
|
|
"ddd" #'dap-debug
|
|
"dde" #'dap-debug-edit-template
|
|
"ddl" #'dap-debug-last
|
|
"ddr" #'dap-debug-recent
|
|
;; eval
|
|
"dee" #'dap-eval
|
|
"der" #'dap-eval-region
|
|
"det" #'dap-eval-thing-at-point
|
|
"det" #'dap-ui-expressions-add
|
|
;; inspect
|
|
"dIi" #'dap-ui-inspect
|
|
"dIr" #'dap-ui-inspect-region
|
|
"dIt" #'dap-ui-inspect-thing-at-point
|
|
;; stepping
|
|
"dc" #'dap-continue
|
|
"di" #'dap-step-in
|
|
"do" #'dap-step-out
|
|
"dr" #'dap-restart-frame
|
|
"ds" #'dap-next
|
|
"dv" #'dap-ui-inspect-thing-at-point
|
|
;; switching
|
|
"dSs" #'dap-switch-session
|
|
"dSt" #'dap-switch-thread
|
|
"dSf" #'dap-switch-frame
|
|
;; toggles
|
|
"dTm" 'spacemacs/toggle-dap-mouse
|
|
;; windows
|
|
"dwo" #'dap-go-to-output-buffer
|
|
"dwl" #'dap-ui-locals
|
|
"dws" #'dap-ui-sessions
|
|
"dwb" #'dap-ui-breakpoints))
|
|
(prefixes '("d" "debug"
|
|
"db" "breakpoints"
|
|
"dd" "debugging"
|
|
"de" "eval"
|
|
"dI" "inspect"
|
|
"dS" "switch"
|
|
"dT" "toggles"
|
|
"dw" "debug windows")))
|
|
|
|
;; Set global prefixes
|
|
(apply #'spacemacs/declare-prefix prefixes)
|
|
|
|
;; Set global key bindings
|
|
(apply #'spacemacs/set-leader-keys bindings)
|
|
|
|
;; Do all mode specific dap bindings
|
|
(dolist (mode spacemacs--dap-supported-modes)
|
|
|
|
;; avoid clash with other debug key bindings
|
|
(spacemacs/set-leader-keys-for-major-mode mode "db" nil)
|
|
(spacemacs/set-leader-keys-for-major-mode mode "dd" nil)
|
|
|
|
;; Set prefixes
|
|
(cl-do* ((x prefixes (cddr x))
|
|
(y (cdr x) (cdr x)))
|
|
((or (null x) (null y)))
|
|
(spacemacs/declare-prefix-for-mode mode
|
|
(concat "m" (car x)) (car y)))
|
|
|
|
;; Set bindings
|
|
(apply #'spacemacs/set-leader-keys-for-major-mode mode bindings))))))
|
|
|
|
|
|
(defun dap/init-posframe ()
|
|
(use-package posframe))
|