Moving to Doom Emacs!

.emacs.d/modules/tools/debugger/autoload/debugger.el

@@ -0,0 +1,85 @@
+;;; tools/debugger/autoload/debugger.el -*- lexical-binding: t; -*-
+
+(defvar +debugger--last nil)
+
+(defun +debugger-list-for-dap ()
+  (when (and (bound-and-true-p lsp-mode)
+             (bound-and-true-p lsp--buffer-deferred)
+             (require 'dap-mode nil t)
+             dap-mode)
+    (mapcar #'car dap-debug-template-configurations)))
+
+(defun +debugger-list-for-realgud ()
+  (cl-loop for (sym . plist) in +debugger--realgud-alist
+           for sym-name = (symbol-name sym)
+           for modes = (plist-get plist :modes)
+           if (or (null modes) (apply #'derived-mode-p modes))
+           collect sym))
+
+
+(defun +debugger-list-available ()
+  "TODO"
+  (append (+debugger-list-for-dap)
+          (+debugger-list-for-realgud)
+          nil))
+
+
+;;
+;;; Interactive commands
+
+;;;###autoload
+(defun +debugger/start-last ()
+  "Relaunch the last debugger session."
+  (interactive)
+  (unless +debugger--last
+    (user-error "No last debugger to invoke"))
+  (call-interactively +debugger--last))
+
+;;;###autoload
+(defun +debugger/start (arg)
+  "Launch a debugger session.
+
+Launches the last used debugger, if one exists. Otherwise, you will be prompted
+for what debugger to use. If the prefix ARG is set, prompt anyway."
+  (interactive "P")
+  (if (or arg (null +debugger--last))
+      (let ((debugger (intern-soft (completing-read "Start debugger: " (+debugger-list-available)))))
+        (unless debugger
+          (user-error "No debugging session to quit"))
+        (unless (fboundp debugger)
+          (user-error "Couldn't find debugger backend %S" debugger))
+        (setq-local +debugger--last debugger)
+        (if (assoc debugger dap-debug-template-configurations)
+            (dap-debug debugger)
+          (call-interactively debugger)))
+    (+debugger/start-last)))
+
+;;;###autoload
+(defun +debugger/quit ()
+  "Quit the active debugger, if any."
+  (interactive)
+  (cond ((and (fboundp 'dap--cur-session) (dap--cur-session))
+         (dap-disconnect))
+        ((and (fboundp 'realgud-get-cmdbuf) (realgud-get-cmdbuf))
+         (let ((buf (realgud-get-cmdbuf)))
+           (ignore-errors
+             (call-interactively #'realgud:cmd-quit))
+           (let (realgud-safe-mode)
+             (kill-buffer buf))))
+        ((user-error "No debugging session to quit"))))
+
+;; TODO debugger breakpoint commands
+;; ;;;###autoload
+;; (defun +debugger/toggle-breakpoint ()
+;;   (interactive)
+;;   (user-error "not implemented yet"))
+
+;; ;;;###autoload
+;; (defun +debugger/next-breakpoint ()
+;;   (interactive)
+;;   (user-error "not implemented yet"))
+
+;; ;;;###autoload
+;; (defun +debugger/previous-breakpoint ()
+;;   (interactive)
+;;   (user-error "not implemented yet"))

.emacs.d/modules/tools/debugger/autoload/evil.el

@@ -0,0 +1,34 @@
+;; tools/debugger/autoload/evil.el -*- lexical-binding: t; -*-
+;;;###if (featurep! :editor evil)
+
+;;;###autoload (autoload '+debugger:start "tools/debugger/autoload/evil" nil t)
+(evil-define-command +debugger:start (&optional path)
+  "Initiate debugger for current major mode"
+  (interactive "<f>")
+  ;; TODO Add python debugging
+  (let ((default-directory (doom-project-root)))
+    (pcase major-mode
+      ((or 'c-mode 'c++-mode)
+       (realgud:gdb (if path (concat "gdb " path))))
+      ((or 'ruby-mode 'enh-ruby-mode)
+       ;; FIXME
+       (doom:repl nil (format "run '%s'" (file-name-nondirectory (or path buffer-file-name)))))
+      ('sh-mode
+       (let ((shell sh-shell))
+         (when (string= shell "sh")
+           (setq shell "bash"))
+         (pcase shell
+           ("bash"
+            (realgud:bashdb (if path (concat "bashdb " path))))
+           ("zsh"
+            (realgud:zshdb (if path (concat "zshdb " path))))
+           (_ (user-error "No shell debugger for %s" shell)))))
+      ((or 'js-mode 'js2-mode 'js3-mode)
+       (realgud:trepanjs))
+      ('haskell-mode (haskell-debug))
+      (_ (user-error "No debugger for %s" major-mode)))))
+
+;;;###autoload (autoload '+debugger:toggle-breakpoint "tools/debugger/autoload/evil" nil t)
+(evil-define-command +debugger:toggle-breakpoint (&optional bang)
+  (interactive "<!>")
+  (call-interactively (if bang #'realgud:cmd-clear #'realgud:cmd-break)))