[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/geiser 21dcac5 3/8: 'debug commands so that each impl can
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/geiser 21dcac5 3/8: 'debug commands so that each impl can take care of them |
Date: |
Sun, 19 Dec 2021 18:57:40 -0500 (EST) |
branch: elpa/geiser
commit 21dcac5de1c99bbdfd81eb5de6e50fb002be4535
Author: jao <jao@gnu.org>
Commit: jao <jao@gnu.org>
'debug commands so that each impl can take care of them
---
elisp/geiser-debug.el | 31 +++++++++++++++++++++++++++++++
elisp/geiser-eval.el | 7 ++++++-
elisp/geiser-repl.el | 5 ++++-
3 files changed, 41 insertions(+), 2 deletions(-)
diff --git a/elisp/geiser-debug.el b/elisp/geiser-debug.el
index e3f2bb5..e1f37b7 100644
--- a/elisp/geiser-debug.el
+++ b/elisp/geiser-debug.el
@@ -23,6 +23,7 @@
(require 'geiser-base)
(require 'geiser-image)
+(require 'transient)
(require 'ansi-color)
@@ -112,12 +113,40 @@ all ANSI sequences."
(let ((m (funcall (if nextp 'next-button 'previous-button) (point))))
(and m (funcall (if nextp '< '>) (point) (marker-position m)))))
+(defvar-local geiser-debug--debugger-active-p nil)
+(defvar-local geiser-debug--sender-buffer nil)
+
(geiser-menu--defmenu debug geiser-debug-mode-map
("Next error" "n" forward-button :enable (geiser-debug--button-p t))
("Previous error" "p" backward-button :enable (geiser-debug--button-p t))
+ ("Debugger command" ","
+ geiser-debug--debugger-transient :enable geiser-debug--debugger-active-p)
--
("Quit" nil View-quit))
+(defun geiser-debug--send-to-repl (thing)
+ (unless geiser-debug--sender-buffer (error "Debugger not active"))
+ (with-current-buffer geiser-debug--sender-buffer
+ (let* ((ret (geiser-eval--send/wait (list :debug thing)))
+ (res (geiser-eval--retort-result-str ret nil)))
+ (geiser-debug--display-retort "" ret res))))
+
+(defun geiser-debug-debugger-quit ()
+ "Quit the current debugging session level"
+ (interactive)
+ (geiser-debug--send-to-repl ",q"))
+
+(defun geiser-debug-debugger-backtrace ()
+ "Quit the current debugging session level"
+ (interactive)
+ (geiser-debug--send-to-repl ",bt"))
+
+(transient-define-prefix geiser-debug--debugger-transient ()
+ "Debugging meta-commands"
+ ["Debugger"
+ ("q" "Quit current debugger level" geiser-debug-debugger-quit)
+ ("bt" "Display backtrace" geiser-debug-debugger-quit)])
+
;;; Buffer for displaying evaluation results:
@@ -182,6 +211,8 @@ buffer.")
(after (geiser-debug--display-after what)))
(unless debug-entered
(geiser-debug--with-buffer
+ (setq geiser-debug--debugger-active-p debug
+ geiser-debug--sender-buffer buffer)
(erase-buffer)
(when dir (setq default-directory dir))
(unless after (insert what "\n\n"))
diff --git a/elisp/geiser-eval.el b/elisp/geiser-eval.el
index 80a40fd..7b7ab64 100644
--- a/elisp/geiser-eval.el
+++ b/elisp/geiser-eval.el
@@ -69,6 +69,10 @@ module-exports, autodoc, callers, callees and
generic-methods.")
;;; Code formatting:
+(defsubst geiser-eval--debug (cmd)
+ (geiser-eval--form 'debug
+ (geiser-eval--scheme-str file)))
+
(defsubst geiser-eval--load-file (file)
(geiser-eval--form 'load-file
(geiser-eval--scheme-str file)))
@@ -103,7 +107,8 @@ module-exports, autodoc, callers, callees and
generic-methods.")
((eq code :f) "#f")
((eq code :t) "#t")
((listp code)
- (cond ((eq (car code) :eval) (geiser-eval--eval (cdr code)))
+ (cond ((eq (car code) :debug) (geiser-eval--debug (cdr code)))
+ ((eq (car code) :eval) (geiser-eval--eval (cdr code)))
((eq (car code) :comp) (geiser-eval--comp (cdr code)))
((eq (car code) :load-file)
(geiser-eval--load-file (cadr code)))
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el
index 58fa810..3fd9f92 100644
--- a/elisp/geiser-repl.el
+++ b/elisp/geiser-repl.el
@@ -694,8 +694,11 @@ If SAVE-HISTORY is non-nil, save CMD in the REPL history."
(setq geiser-repl--repls (remove cb geiser-repl--repls))
(unless (eq cb geiser-repl--connection-buffer)
(when (buffer-live-p geiser-repl--connection-buffer)
+ (kill-buffer geiser-repl--connection-buffer)
(setq geiser-repl--connection-buffer nil)
- (kill-buffer geiser-repl--connection-buffer)))
+ (when-let (a (geiser-repl--connection-address
+ geiser-impl--implementation))
+ (delete-file a))))
(dolist (buffer (buffer-list))
(when (buffer-live-p buffer)
(with-current-buffer buffer
- [nongnu] elpa/geiser updated (476897e -> ba290b4), ELPA Syncer, 2021/12/19
- [nongnu] elpa/geiser a789a6c 2/8: Allowing debuggers to use Dbg buffer for output, ELPA Syncer, 2021/12/19
- [nongnu] elpa/geiser d857699 1/8: initial support for connection-address, ELPA Syncer, 2021/12/19
- [nongnu] elpa/geiser ec580a1 4/8: Debugger: fixes and better determination of debugging status, ELPA Syncer, 2021/12/19
- [nongnu] elpa/geiser be6d808 6/8: Tweaks to geiser-debug-mode keymap, ELPA Syncer, 2021/12/19
- [nongnu] elpa/geiser ba290b4 8/8: Requiring Emacs 25.1, for transient's sake, ELPA Syncer, 2021/12/19
- [nongnu] elpa/geiser 21dcac5 3/8: 'debug commands so that each impl can take care of them,
ELPA Syncer <=
- [nongnu] elpa/geiser fcd697f 5/8: New debugger commands: locals, registers, error, ELPA Syncer, 2021/12/19
- [nongnu] elpa/geiser cf188fd 7/8: Docs, news and version, ELPA Syncer, 2021/12/19