diff options
| author | jao <jao@gnu.org> | 2021-12-19 05:37:20 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2021-12-19 05:37:20 +0000 |
| commit | fcd697f487fcc585d521e0565f70f6251c5f2a9f (patch) | |
| tree | cd8c885ace625bf8713854a6812a4d5f959dd052 | |
| parent | ec580a16e10168eb8f12b686dca051719d37fcc4 (diff) | |
| download | geiser-fcd697f487fcc585d521e0565f70f6251c5f2a9f.tar.gz geiser-fcd697f487fcc585d521e0565f70f6251c5f2a9f.tar.bz2 | |
New debugger commands: locals, registers, error
| -rw-r--r-- | elisp/geiser-debug.el | 32 |
1 files changed, 25 insertions, 7 deletions
diff --git a/elisp/geiser-debug.el b/elisp/geiser-debug.el index f73b6cd..b0705c6 100644 --- a/elisp/geiser-debug.el +++ b/elisp/geiser-debug.el @@ -107,7 +107,7 @@ all ANSI sequences." (buffer-disable-undo) (set-syntax-table scheme-mode-syntax-table) (setq next-error-function 'geiser-edit--open-next) - (compilation-minor-mode 1) + (compilation-setup t) (setq buffer-read-only t)) (defvar-local geiser-debug--debugger-active-p nil) @@ -138,21 +138,39 @@ all ANSI sequences." (geiser-repl--switch-to-buffer geiser-debug--sender-buffer))) (defun geiser-debug-debugger-quit () - "Quit the current debugging session level" + "Quit the current debugging session level." (interactive) (geiser-debug--send-to-repl 'quit)) (defun geiser-debug-debugger-backtrace () - "Quit the current debugging session level" + "Quit the current debugging session level." (interactive) - (geiser-debug--send-to-repl 'bt)) + (geiser-debug--send-to-repl 'backtrace)) + +(defun geiser-debug-debugger-locals () + "Show local variables." + (interactive) + (geiser-debug--send-to-repl 'locals)) + +(defun geiser-debug-debugger-registers () + "Show register values." + (interactive) + (geiser-debug--send-to-repl 'registers)) + +(defun geiser-debug-debugger-error () + "Show error message." + (interactive) + (geiser-debug--send-to-repl 'error)) (transient-define-prefix geiser-debug--debugger-transient () - "Debugging meta-commands" + "Debugging meta-commands." [:description (lambda () (format "%s debugger" (geiser-impl--impl-str))) :if (lambda () geiser-debug--debugger-active-p) - ("q" "Quit current debugger level" geiser-debug-debugger-quit) - ("bt" "Display backtrace" geiser-debug-debugger-backtrace)]) + ("x" "Quit current debugger level" geiser-debug-debugger-quit) + ("e" "Display error" geiser-debug-debugger-error) + ("b" "Display backtrace" geiser-debug-debugger-backtrace) + ("l" "Display locals" geiser-debug-debugger-locals) + ("r" "Display registers" geiser-debug-debugger-registers)]) ;;; Implementation-dependent functionality |