Add modules/feature/debug

2017-02-13 17:56:43 -05:00 · 2017-02-13 17:56:43 -05:00 · 9173d79eb8
commit 9173d79eb8
parent 77ce31d8e0
3 changed files with 113 additions and 0 deletions
--- a/modules/feature/debug/config.el
+++ b/modules/feature/debug/config.el
@ -0,0 +1,67 @@
+;;; feature/debug/config.el
+
+(@after debug
+  ;; For elisp debugging
+  (@map :map debugger-mode-map
+        :n "RET" 'debug-help-follow
+        :n "n" 'debugger-step-through
+        :n "c" 'debugger-continue))
+
+
+(@def-package realgud
+  :commands (realgud:gdb realgud:trepanjs realgud:bashdb realgud:zshdb)
+  :config
+  (@map :map realgud:shortkey-mode-map
+        :n "j" 'evil-next-line
+        :n "k" 'evil-previous-line
+        :n "h" 'evil-backward-char
+        :n "l" 'evil-forward-char
+        :m "n" 'realgud:cmd-next
+        :m "b" 'realgud:cmd-break
+        :m "B" 'realgud:cmd-clear
+        :n "c" 'realgud:cmd-continue)
+
+  ;; Popup rules
+  (@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]" . doom: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 +debug*realgud-run-process
+      (debugger-name script-filename cmd-args minibuffer-history &optional no-reset)
+    (let ((cmd-buf))
+      (setq cmd-buf
+            (apply 'realgud-exec-shell debugger-name script-filename
+                   (car cmd-args) no-reset (cdr cmd-args)))
+      (let ((process (get-buffer-process cmd-buf)))
+        (if (and process (eq 'run (process-status process)))
+            (progn
+              (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
+                         (list-utils-uniq (cons cmd-str (eval minibuffer-history))))))))
+          (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 '+debug*realgud-run-process))
+