Moving to Doom Emacs!

2026-04-22 11:00:27 +10:00 · 2019-12-16 20:21:19 -06:00
parent d9f2f456f1
commit d4b4c33550
683 changed files with 51877 additions and 100 deletions
--- a/.emacs.d/modules/tools/debugger/config.el
+++ b/.emacs.d/modules/tools/debugger/config.el
@@ -0,0 +1,112 @@
+;;; 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)
+  :hook (dap-mode . dap-ui-mode)
+  :after lsp-mode
+  :init
+  (setq dap--breakpoints-file (concat doom-etc-dir "dap-breakpoints"))
+  :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)))