diff --git a/wip-duuqnd/editor/editor.lisp b/wip-duuqnd/editor/editor.lisp index cf56cf1..acf2ef4 100644 --- a/wip-duuqnd/editor/editor.lisp +++ b/wip-duuqnd/editor/editor.lisp @@ -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)