From e9743982bac463c992440787e2c9e0b187f38892 Mon Sep 17 00:00:00 2001 From: jao Date: Sat, 18 Jul 2026 01:06:41 +0100 Subject: a better refactoring --- elisp/geiser-repl.el | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el index 6fa1484..08941ba 100644 --- a/elisp/geiser-repl.el +++ b/elisp/geiser-repl.el @@ -585,13 +585,16 @@ to standard output face." (geiser--font-lock-ensure geiser-repl--last-output-start geiser-repl--last-output-end))) +(defun geiser-repl--prompt-rx () + (or (geiser-con--connection-prompt geiser-repl--connection) "\\b\\B")) + +(defun geiser-repl--debug-prompt-rx () + (or (geiser-con--connection-debug-prompt geiser-repl--connection) "\\b\\B")) + (defun geiser-repl--matches-prompt-p (txt) (and (stringp txt) - (not (string-empty-p txt)) - (or (let ((p (geiser-con--connection-prompt geiser-repl--connection))) - (and p (string-match-p p txt))) - (let ((p (geiser-con--connection-debug-prompt geiser-repl--connection))) - (and p (string-match-p p txt)))))) + (or (string-match-p (geiser-repl--prompt-rx) txt) + (string-match-p (geiser-repl--debug-prompt-rx) txt)))) (defun geiser-repl--output-filter (txt) (when (geiser-repl--find-output-region) (geiser-repl--treat-output-region)) -- cgit v1.2.3