diff --git a/buffer.rkt b/buffer.rkt index 645d4b3..d59d7b8 100644 --- a/buffer.rkt +++ b/buffer.rkt @@ -62,8 +62,8 @@ (define last-s 'normal) (define last-f #f) (define last-b #f) - (define cur-r 1) - (define cur-c 1) + (define cur-r -1) + (define cur-c -1) (values term-rows term-cols (λ (s f b r c ch) diff --git a/lux-chaos.rkt b/lux-chaos.rkt index a36b453..417e3fe 100644 --- a/lux-chaos.rkt +++ b/lux-chaos.rkt @@ -109,10 +109,7 @@ (set! t (open-term)) (set! rows 24) (set! cols 80) - (set! buf - (make-terminal-buffer rows cols #:output (term-out t)) - #; - (make-cached-buffer rows cols #:output (term-out t))) + (set! buf (make-cached-buffer rows cols #:output (term-out t))) ;; Save the current title (display/term t "\e[22t")