diff options
| author | jao <jao@gnu.org> | 2026-07-18 01:06:41 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2026-07-18 01:06:41 +0100 |
| commit | e9743982bac463c992440787e2c9e0b187f38892 (patch) | |
| tree | 3564c5d6145637c0be428361dd5dcab6a79864f9 | |
| parent | a362ba4ab844e696d0c65fb012ce155457b38ecb (diff) | |
| download | geiser-e9743982bac463c992440787e2c9e0b187f38892.tar.gz geiser-e9743982bac463c992440787e2c9e0b187f38892.tar.bz2 | |
a better refactoring
| -rw-r--r-- | elisp/geiser-repl.el | 13 |
1 files 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)) |