diff options
| author | Leah Neukirchen <leah@vuxu.org> | 2022-10-31 23:52:32 +0100 |
|---|---|---|
| committer | Leah Neukirchen <leah@vuxu.org> | 2022-10-31 23:52:32 +0100 |
| commit | a5892920175dc7d5cf5b25a26b06476d7ef0b9fd (patch) | |
| tree | 1d5fa350e2f6f5607b5f9a8f064b71bb7641e8c9 | |
| parent | e822d10530fc291f722a628b430fa8f08eb9dd5d (diff) | |
| download | mew-a5892920175dc7d5cf5b25a26b06476d7ef0b9fd.tar.gz mew-a5892920175dc7d5cf5b25a26b06476d7ef0b9fd.tar.xz mew-a5892920175dc7d5cf5b25a26b06476d7ef0b9fd.zip | |
tweak prompt in mew a little
| -rw-r--r-- | mew.scm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/mew.scm b/mew.scm index 71bb99a..02d0dd5 100644 --- a/mew.scm +++ b/mew.scm @@ -34,8 +34,9 @@ (complement negate) (compose comp)) (chicken module) - (chicken syntax) (chicken port) + (chicken repl) + (chicken syntax) srfi-17 (rename (srfi-69) (hash-table-keys keys) @@ -673,4 +674,11 @@ (define (act x . fs) ((apply per fs) x)) + + (let ((old-repl-prompt (repl-prompt))) + (repl-prompt (lambda () + (let ((old-prompt (old-repl-prompt))) + (str (substring old-prompt 0 2) + "^_^;" + (substring old-prompt 2)))))) ) |