131 lines
4.9 KiB
EmacsLisp
131 lines
4.9 KiB
EmacsLisp
;;; core-eval.el
|
|
|
|
;; + Running inline code + REPLs (using `quickrun' + `repl-toggle')
|
|
;; + Almost-universal debugging (with `realgud')
|
|
;; + Simple code navigation (using `dump-jump' and `imenu-list')
|
|
;; + A universal tags config (WIP)
|
|
|
|
;; remove ellipsis when printing sexp in message buffer
|
|
(setq eval-expression-print-length nil
|
|
eval-expression-print-level nil)
|
|
|
|
(use-package quickrun
|
|
:commands (quickrun
|
|
quickrun-region
|
|
quickrun-with-arg
|
|
quickrun-shell
|
|
quickrun-compile-only
|
|
quickrun-replace-region)
|
|
:init (add-hook 'quickrun/mode-hook 'linum-mode)
|
|
:config
|
|
(setq quickrun-focus-p nil)
|
|
(def-popup! "*quickrun*" :align below :size 10)
|
|
|
|
;;; Popup hacks
|
|
(defun doom*quickrun-close-popup (&optional _ _ _ _)
|
|
"Allows us to re-run quickrun from inside the quickrun buffer."
|
|
(let ((buffer (get-buffer quickrun/buffer-name))
|
|
window)
|
|
(when buffer
|
|
(setq window (get-buffer-window buffer))
|
|
(shut-up! (quickrun/kill-running-process))
|
|
(doom/popup-close window nil t))))
|
|
(advice-add 'quickrun :before 'doom*quickrun-close-popup)
|
|
(advice-add 'quickrun-region :before 'doom*quickrun-close-popup)
|
|
|
|
(defun doom|quickrun-after-run ()
|
|
"Ensures window is scrolled to BOF"
|
|
(with-selected-window (get-buffer-window quickrun/buffer-name)
|
|
(goto-char (point-min))))
|
|
(add-hook 'quickrun-after-run-hook 'doom|quickrun-after-run))
|
|
|
|
(use-package repl-toggle
|
|
:commands (rtog/toggle-repl rtog/add-repl)
|
|
:preface (defvar rtog/mode-repl-alist nil)
|
|
:init
|
|
(defvar doom-repl-buffer nil "The current REPL buffer.")
|
|
(add-hook! repl-toggle-mode (evil-initialize-state 'emacs))
|
|
:config
|
|
(def-popup!
|
|
(:custom (lambda (b &rest _)
|
|
(when (and (featurep 'repl-toggle)
|
|
(string-prefix-p "*" (buffer-name (get-buffer b))))
|
|
(with-current-buffer b repl-toggle-mode))))
|
|
:popup t :align below :size 16 :select t)
|
|
|
|
(map! :map repl-toggle-mode-map
|
|
:ei "C-n" 'comint-next-input
|
|
:ei "C-p" 'comint-previous-input
|
|
:ei "<down>" 'comint-next-input
|
|
:ei "<up>" 'comint-previous-input))
|
|
|
|
;;
|
|
(after! debug
|
|
;; For elisp debugging
|
|
(map! :map debugger-mode-map
|
|
:n "RET" 'debug-help-follow
|
|
:n "n" 'debugger-step-through
|
|
:n "c" 'debugger-continue))
|
|
|
|
(use-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
|
|
;; FIXME Greedy command buffer always grabs focus
|
|
:m "n" 'realgud:cmd-next
|
|
:m "b" 'realgud:cmd-break
|
|
:m "B" 'realgud:cmd-clear
|
|
:n "c" 'realgud:cmd-continue)
|
|
|
|
;; Popup rules
|
|
(def-popup! "\\`\\*\\(g\\|zsh\\|bash\\)db.*?\\*\\'" :size 20 :regexp t)
|
|
(def-popup! "\\`\\*trepanjs.*?\\*\\'" :size 20 :regexp t)
|
|
|
|
;; 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))
|
|
|
|
;; TODO does this work with shackle?
|
|
(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 advice-based solution
|
|
;; FIXME Causes realgud:cmd-* to focus popup on every invocation
|
|
(defun 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") 'doom/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))))))))
|
|
;; else
|
|
(progn
|
|
(if cmd-buf (switch-to-buffer cmd-buf))
|
|
(message "Error running command: %s" (mapconcat 'identity cmd-args " ")))))
|
|
cmd-buf)))
|
|
|
|
(provide 'core-eval)
|
|
;;; core-eval.el ends here
|