b8948aa6ef
Previously, this would put the .extension directory in `user-emacs-directory' which in doom's case will be in the root of the doom directory. So, we move the directory to doom's etc dir and also name it something descriptive instead of 'extension'.
113 lines
4.6 KiB
EmacsLisp
113 lines
4.6 KiB
EmacsLisp
;;; tools/debugger/config.el -*- lexical-binding: t; -*-
|
|
|
|
(defvar +debugger--realgud-alist
|
|
'((realgud:zshdb :modes (sh-mode))
|
|
(realgud:kshdb :modes (sh-mode))
|
|
(realgud:rdebug :modes (ruby-mode enh-ruby-mode))
|
|
(realgud:pdb :modes (python-mode))
|
|
(realgud:trepan2 :modes (python-mode))
|
|
(realgud:gub :modes (go-mode))
|
|
(realgud:gdb)
|
|
(realgud:trepan :modes (perl-mode perl6-mode))
|
|
(realgud:trepanpl :modes (perl-mode perl6-mode))
|
|
(realgud:trepanjs :modes (javascript-mode js2-mode js3-mode))
|
|
(realgud:remake)
|
|
(realgud:trepan3k :modes (python-mode))
|
|
(realgud:bashdb :modes (sh-mode))
|
|
(realgud:perldb :modes (perl-mode perl6-mode))))
|
|
|
|
|
|
;;
|
|
;;; Packages
|
|
|
|
(use-package! dap-mode
|
|
:when (featurep! :tools lsp)
|
|
:after lsp-mode
|
|
:preface
|
|
(add-hook 'dap-mode-hook #'dap-ui-mode) ; use a hook so users can remove it
|
|
(setq dap--breakpoints-file (concat doom-etc-dir "dap-breakpoints")
|
|
dap-utils-extension-path (concat doom-etc-dir "dap-extension/"))
|
|
:config
|
|
(dap-mode 1)
|
|
(dolist (module '(((:lang . cc) ccls dap-lldb dap-gdb-lldb)
|
|
((:lang . elixir) elixir-mode dap-elixir)
|
|
((:lang . go) go-mode dap-go)
|
|
((:lang . java) lsp-java dap-java)
|
|
((:lang . php) php-mode dap-php)
|
|
((:lang . python) python dap-python)
|
|
((:lang . ruby) enh-ruby-mode dap-ruby)
|
|
((:lang . rust) rust-mode dap-lldb)))
|
|
(when (doom-module-p (caar module) (cdar module) '+lsp)
|
|
(with-eval-after-load (nth 1 module)
|
|
(mapc #'require (cddr module)))))
|
|
|
|
(when (featurep! :lang javascript +lsp)
|
|
(with-eval-after-load 'js2-mode
|
|
(require 'dap-node)
|
|
(require 'dap-chrome)
|
|
(require 'dap-firefox)
|
|
(when IS-WINDOWS
|
|
(require 'dap-edge)))))
|
|
|
|
|
|
(use-package! realgud
|
|
:defer t
|
|
:init
|
|
(use-package! realgud-trepan-ni
|
|
:defer t
|
|
:init (add-to-list '+debugger--realgud-alist
|
|
'(realgud:trepan-ni :modes (javascript-mode js2-mode js3-mode)
|
|
:package realgud-trepan-ni)))
|
|
|
|
;; Realgud doesn't generate its autoloads properly so we do it ourselves
|
|
(dolist (debugger +debugger--realgud-alist)
|
|
(autoload (car debugger)
|
|
(if-let (sym (plist-get (cdr debugger) :package))
|
|
(symbol-name sym)
|
|
"realgud")
|
|
nil t))
|
|
|
|
:config
|
|
(set-popup-rule! "^\\*\\(?:trepanjs:\\(?:g\\|zsh\\|bash\\)db\\|pdb \\)"
|
|
:size 20 :select nil :quit nil)
|
|
|
|
(defadvice! +debugger--cleanup-after-realgud-a (&optional buf)
|
|
"Kill command buffer when debugging session ends (which closes its popup)."
|
|
:after #'realgud:terminate
|
|
(when (stringp buf)
|
|
(setq buf (get-buffer buf)))
|
|
(when-let (cmdbuf (realgud-get-cmdbuf buf))
|
|
(let (kill-buffer-hook)
|
|
(kill-buffer buf))))
|
|
|
|
;; Monkey-patch `realgud:run-process' to run in a popup.
|
|
;; TODO Find a more elegant solution
|
|
;; FIXME Causes realgud:cmd-* to focus popup on every invocation
|
|
(defadvice! +debugger--realgud-open-in-other-window-a
|
|
(debugger-name script-filename cmd-args minibuffer-history-var &optional no-reset)
|
|
:override #'realgud:run-process
|
|
(let* ((cmd-buf (apply #'realgud-exec-shell debugger-name script-filename
|
|
(car cmd-args) no-reset (cdr cmd-args)))
|
|
(process (get-buffer-process cmd-buf)))
|
|
(cond ((and process (eq 'run (process-status process)))
|
|
(pop-to-buffer cmd-buf)
|
|
(when (boundp 'evil-emacs-state-local-map)
|
|
(define-key evil-emacs-state-local-map (kbd "ESC ESC") #'+debugger/quit))
|
|
(realgud:track-set-debugger debugger-name)
|
|
(realgud-cmdbuf-info-in-debugger?= 't)
|
|
(realgud-cmdbuf-info-cmd-args= cmd-args)
|
|
(when cmd-buf
|
|
(switch-to-buffer cmd-buf)
|
|
(when realgud-cmdbuf-info
|
|
(let* ((info realgud-cmdbuf-info)
|
|
(cmd-args (realgud-cmdbuf-info-cmd-args info))
|
|
(cmd-str (mapconcat #'identity cmd-args " ")))
|
|
(if (boundp 'starting-directory)
|
|
(realgud-cmdbuf-info-starting-directory= starting-directory))
|
|
(set minibuffer-history-var
|
|
(cl-remove-duplicates (cons cmd-str minibuffer-history)
|
|
:from-end t))))))
|
|
(t
|
|
(if cmd-buf (switch-to-buffer cmd-buf))
|
|
(message "Error running command: %s" (mapconcat #'identity cmd-args " "))))
|
|
cmd-buf)))
|