summaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
Diffstat (limited to 'elisp')
-rw-r--r--elisp/geiser-debug.el32
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