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

Slow terminals prefer minimal changes; don't gratuitously alter statusline.

This commit is contained in:
Tony Garnock-Jones 2014-12-28 00:21:06 -05:00
parent 0d61ef7de7
commit b7d54ef1f7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rmacs/render.rkt
View File

@ -118,10 +118,10 @@
(list (+ line-count window-top) cursor-offset)
cursor-coordinates))])))
(tty-statusline-style t is-active?)
(tty-display t (if is-active? "== " "-- ") (buffer-title buf) " ")
(tty-display t "-- " (buffer-title buf) " ")
(let ((remaining-length (- (tty-columns t) 4 (string-length (buffer-title buf)))))
(when (positive? remaining-length)
(tty-display t (make-string remaining-length (if is-active? #\= #\-)))))
(tty-display t (make-string remaining-length #\-))))
cursor-coordinates)
(define (layout-windows ws total-height [minimum-height 4])