misc-deps
/
raart
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix cursor problem

This commit is contained in:
Jay McCarthy 2018-12-11 20:16:27 -05:00
parent c45bdacb26
commit f6368eb94c
2 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
buffer.rkt
View File

@ -62,8 +62,8 @@
(define last-s 'normal) (define last-s 'normal)
(define last-f #f) (define last-f #f)
(define last-b #f) (define last-b #f)
(define cur-r 1) (define cur-r -1)
(define cur-c 1) (define cur-c -1)
(values (values
term-rows term-cols term-rows term-cols
(λ (s f b r c ch) (λ (s f b r c ch)

5
lux-chaos.rkt
View File

@ -109,10 +109,7 @@
(set! t (open-term)) (set! t (open-term))
(set! rows 24) (set! rows 24)
(set! cols 80) (set! cols 80)
(set! buf (set! buf (make-cached-buffer rows cols #:output (term-out t)))
(make-terminal-buffer rows cols #:output (term-out t))
#;
(make-cached-buffer rows cols #:output (term-out t)))
;; Save the current title ;; Save the current title
(display/term t "\e[22t") (display/term t "\e[22t")