Rename feature/debug => feature/debugger

modules/feature/debugger/autoload/debug.el

@@ -0,0 +1,9 @@
+;;; feature/debugger/autoload/debug.el -*- lexical-binding: t; -*-
+
+;;;###autoload
+(defun +debugger/quit ()
+  (interactive)
+  (ignore-errors (call-interactively 'realgud:cmd-quit))
+  (doom/popup-close)
+  (evil-normal-state))
+

modules/feature/debugger/autoload/evil.el

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

modules/feature/debugger/config.el

@@ -0,0 +1,46 @@
+;;; feature/debugger/config.el -*- lexical-binding: t; -*-
+
+(def-package! realgud
+  :commands (realgud:gdb realgud:trepanjs realgud:bashdb realgud:zshdb)
+  :config
+  (set! :popup
+     '("^\\*\\(g\\|zsh\\|bash\\)db.*?\\*$" :size 20 :regexp t)
+     '("^\\*trepanjs.*?\\*$"               :size 20 :regexp t))
+
+  ;; TODO Temporary Ex commands for the debugger
+  ;; (def-tmp-excmd! doom:def-debug-on doom:def-debug-off
+  ;;   ("n[ext]" . realgud:cmd-next)
+  ;;   ("s[tep]" . realgud:cmd-step)
+  ;;   ("b[reak]" . +debug:toggle-breakpoint)
+  ;;   ("c[ontinue]" . realgud:cmd-continue))
+  ;; (advice-add #'realgud-cmdbuf-init :after #'doom:def-debug-on)
+  ;; (advice-add #'realgud:cmd-quit :after #'doom:def-debug-off)
+
+  ;; 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
+  (defun +debugger*realgud-run-process
+      (debugger-name script-filename cmd-args minibuffer-history-var &optional no-reset)
+    (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)
+             (define-key evil-emacs-state-local-map (kbd "ESC ESC") #'+debug/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 " ")))
+                   (set minibuffer-history-var
+                        (list-utils-uniq (cons cmd-str (eval minibuffer-history-var))))))))
+            (t
+             (if cmd-buf (switch-to-buffer cmd-buf))
+             (message "Error running command: %s" (mapconcat #'identity cmd-args " "))))
+      cmd-buf))
+  (advice-add #'realgud:run-process :override #'+debugger*realgud-run-process))
+

modules/feature/debugger/packages.el

@@ -0,0 +1,4 @@
+;; -*- no-byte-compile: t; -*-
+;;; feature/debugger/packages.el
+
+(package! realgud)