diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-30 14:35:10 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-30 14:35:10 +0200 |
commit | 77c76949e5998b6914e71aae97c953b8ac796f57 (patch) | |
tree | a10af691df8b2b839a3f4abe2b5d28f1869529fd /module/output/terminal.scm | |
parent | Add stream-paginate. (diff) | |
download | calp-77c76949e5998b6914e71aae97c953b8ac796f57.tar.gz calp-77c76949e5998b6914e71aae97c953b8ac796f57.tar.xz |
vulgar fixups.
Diffstat (limited to 'module/output/terminal.scm')
-rw-r--r-- | module/output/terminal.scm | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/module/output/terminal.scm b/module/output/terminal.scm index 52d34331..20740cac 100644 --- a/module/output/terminal.scm +++ b/module/output/terminal.scm @@ -146,7 +146,16 @@ ((#\k #\K) (unless (= cur-event 0) (set! cur-event = (- 1)))) ((#\g) (set! cur-event 0)) - ((#\G) (set! cur-event (1- (length events))))) + ((#\G) (set! cur-event (1- (length events)))) + ((#\() (set-cursor-pos 0 (1- height)) + (let* ((attr (make-termios))) + (tcgetattr! attr) + (set! (lflag attr) (logior ECHO (lflag attr))) + (tcsetattr! attr) + (display (readline ">") + (current-error-port)) + (set! (lflag attr) (logand (lognot ECHO) (lflag attr))) + (tcsetattr! attr)))) (when (or (eof-object? char) (memv char '(#\q))) |