From fd58d38118e2c409db524ccc8ff213e8d98a43bf Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sat, 22 Oct 2022 23:55:53 +0100
Subject: debugging commands up to the specific scheme implementation

the half backed attempt at standardising guile's model won't work well with
other schemes, and it's not really well thought-out anyway: let's guile do its
thing, and we'll see what we can do in chez.
---
 elisp/geiser-debug.el | 59 +++------------------------------------------------
 elisp/geiser-edit.el  |  4 +++-
 elisp/geiser.el       |  2 +-
 3 files changed, 7 insertions(+), 58 deletions(-)

(limited to 'elisp')

diff --git a/elisp/geiser-debug.el b/elisp/geiser-debug.el
index dc60fb6..a0c2c51 100644
--- a/elisp/geiser-debug.el
+++ b/elisp/geiser-debug.el
@@ -129,21 +129,9 @@ all ANSI sequences."
 (defvar-local geiser-debug--debugger-active nil)
 (defvar-local geiser-debug--sender-buffer nil)
 
-(defun geiser-debug--send-dbg (thing)
-  (geiser-eval--send/wait (cons :debug (if (listp thing) thing (list thing)))))
-
-(defun geiser-debug--debugger-display (thing ret)
-  (geiser-debug--display-retort (format ",%s" thing)
-                                ret
-                                (geiser-eval--retort-result-str ret nil)))
-
-(defun geiser-debug--send-to-repl (thing)
-  (unless (and geiser-debug--debugger-active geiser-debug--sender-buffer)
-    (error "Debugger not active"))
-  (save-window-excursion
-    (with-current-buffer geiser-debug--sender-buffer
-      (when-let (ret (geiser-debug--send-dbg thing))
-        (geiser-debug--debugger-display thing ret)))))
+(defun geiser-debug-active-p ()
+  "Check whether debugger has been entered by a scheme buffer operation."
+  (and geiser-debug--debugger-active geiser-debug--sender-buffer))
 
 (defun geiser-debug-switch-to-buffer ()
   "Return to the scheme buffer that pooped this debug window."
@@ -151,52 +139,11 @@ all ANSI sequences."
   (when geiser-debug--sender-buffer
     (geiser-repl--switch-to-buffer geiser-debug--sender-buffer)))
 
-(defun geiser-debug-debugger-quit ()
-  "Quit the current debugging session level."
-  (interactive)
-  (geiser-debug--send-to-repl 'quit))
-
-(defun geiser-debug-debugger-backtrace ()
-  "Quit the current debugging session level."
-  (interactive)
-  (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."
-  [:description (lambda () (format "%s debugger" (geiser-impl--impl-str)))
-   :if (lambda () geiser-debug--debugger-active)
-   ["Display"
-    ("b" "backtrace" geiser-debug-debugger-backtrace)
-    ("e" "error" geiser-debug-debugger-error)
-    ("l" "locals" geiser-debug-debugger-locals)
-    ("r" " registers" geiser-debug-debugger-registers)]
-   ["Go"
-    ("jn" "Jump to next error" next-error)
-    ("jp" "Jump to previous error" previous-error)
-    ("x" "Exit debug level" geiser-debug-debugger-quit)]])
-
 (geiser-menu--defmenu debug geiser-debug-mode-map
   ("Next error" ("n" [?\t]) compilation-next-error)
   ("Previous error" ("p" "\e\t" [backtab]) compilation-previous-error)
   ("Next error location" ((kbd "M-n")) next-error)
   ("Previous error location" ((kbd "M-p")) previous-error)
-  ("Debugger command ..." "," geiser-debug--debugger-transient
-   :enable geiser-debug--debugger-active)
   ("Source buffer" ("z" (kbd "C-c C-z")) geiser-debug-switch-to-buffer)
   --
   ("Quit" nil View-quit))
diff --git a/elisp/geiser-edit.el b/elisp/geiser-edit.el
index 310ef28..a5a9c78 100644
--- a/elisp/geiser-edit.el
+++ b/elisp/geiser-edit.el
@@ -69,7 +69,9 @@ or following links in error buffers.")
   (geiser-edit--to-number (cdr (assoc "char" loc))))
 
 (defsubst geiser-edit--make-location (name file line column)
-  `(("name" . ,name) ("file" . ,file) ("line" . ,line) ("column" . ,column)))
+  (if (equal line "")
+      `(("name" . ,name) ("file" . ,file) ("char" . ,column))
+    `(("name" . ,name) ("file" . ,file) ("line" . ,line) ("column" . ,column))))
 
 (defconst geiser-edit--def-re
   (regexp-opt '("define"
diff --git a/elisp/geiser.el b/elisp/geiser.el
index 73c0073..442c4c3 100644
--- a/elisp/geiser.el
+++ b/elisp/geiser.el
@@ -11,7 +11,7 @@
 ;; Maintainer: Jose Antonio Ortega Ruiz (jao@gnu.org)
 ;; Keywords: languages, scheme, geiser
 ;; Homepage: https://gitlab.com/emacs-geiser/
-;; Package-Requires: ((emacs "25.1") (transient "0.3") (project "0.8.1"))
+;; Package-Requires: ((emacs "25.1") (project "0.8.1"))
 ;; SPDX-License-Identifier: BSD-3-Clause
 ;; Version: 0.27
 
-- 
cgit v1.2.3