From b6e1f3f4083914e77d254521444d77406a1372b5 Mon Sep 17 00:00:00 2001 From: jao Date: Sun, 19 Dec 2021 04:56:30 +0000 Subject: Debugger level in Dbg buffer --- geiser-guile.el | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/geiser-guile.el b/geiser-guile.el index 9a8d4b7..f5a6991 100644 --- a/geiser-guile.el +++ b/geiser-guile.el @@ -162,7 +162,7 @@ This function uses `geiser-guile-init-file' if it exists." (defconst geiser-guile--prompt-regexp "^[^@(\n]+@([^)]*)> ") (defconst geiser-guile--debugger-prompt-regexp - "^[^@(\n]+@([^)]*?) \\[[0-9]+\\]> ") + "^[^@(\n]+@([^)]*?) \\[\\([0-9]+\\)\\]> ") (defconst geiser-guile--clean-rx (format "\\(%s\\)\\|\\(^\\$[0-9]+ = [^\n]+$\\)" @@ -188,7 +188,9 @@ This function uses `geiser-guile-init-file' if it exists." (t (format "ge:%s (%s)" proc (geiser-guile--linearize-args args))))) (defun geiser-guile--clean-up-output (str) - (replace-regexp-in-string geiser-guile--clean-rx "" str)) + (let ((msg (when (string-match geiser-guile--debugger-prompt-regexp str) + (format "\n[Debugging level: %s]" (match-string 1 str))))) + (concat (replace-regexp-in-string geiser-guile--clean-rx "" str) msg))) (defconst geiser-guile--module-re "(define-module +\\(([^)]+)\\)") @@ -265,9 +267,6 @@ This function uses `geiser-guile-init-file' if it exists." (not (member file '("socket" "stdin" "unknown file")))) (message "Resolving %s" file) (cond ((file-name-absolute-p file) file) - ((string= "current input" file) - (when geiser-debug--sender-buffer - (buffer-file-name geiser-debug--sender-buffer))) (t (when-let (f (geiser-guile--find-file file)) (puthash file f geiser-guile--file-cache)))))) -- cgit v1.2.3