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

restore more terminal properties

This commit is contained in:
Jay McCarthy 2018-12-11 20:11:19 -05:00
parent 49f4d3ee84
commit c45bdacb26
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lux-chaos.rkt
View File

@ -109,7 +109,13 @@
(set! t (open-term)) (set! t (open-term))
(set! rows 24) (set! rows 24)
(set! cols 80) (set! cols 80)
(set! buf (make-cached-buffer rows cols #:output (term-out t))) (set! buf
(make-terminal-buffer rows cols #:output (term-out t))
#;
(make-cached-buffer rows cols #:output (term-out t)))
;; Save the current title
(display/term t "\e[22t")
;; Initialize term ;; Initialize term
(when alternate? (when alternate?
@ -159,6 +165,11 @@
(when alternate? (when alternate?
(display/term t (reset-mode alternate-screen-mode))) (display/term t (reset-mode alternate-screen-mode)))
(display/term t "\e[?12l\e[?25h")
;; Restore the old title
(display/term t "\e[23t")
(close-term t))]) (close-term t))])
(provide (provide