Make size of default view match size of target terminal

This commit is contained in:
John Lorentzson 2025-07-18 21:06:26 +02:00
parent 78487f1c24
commit 5ad61839c2

View file

@ -126,6 +126,7 @@ serial connection the editor normally runs under.")
(defun move-cursor (row col)
(assert (and (integerp row) (integerp col)))
(write-byte #x1B *eio*)
(write-char #\[ *eio*)
(format *eio* "~D;~DH" row (1+ col))
@ -474,7 +475,7 @@ Additionally ensures correct line numbers on the way, as a bonus."
((%buffer :accessor buffer :initarg :buffer)
(%top-line :accessor top-line :initform nil)
(%bottom-line :accessor bottom-line :initform nil)
(%height :accessor height :initform 20)))
(%height :accessor height :initform 23)))
(defmacro do-view-lines ((line local-line-number) view &body body)
`(loop :repeat (height ,view)