From 5ad61839c2855729a00c2c0a171f121cf3c20fa0 Mon Sep 17 00:00:00 2001 From: John Lorentzson Date: Fri, 18 Jul 2025 21:06:26 +0200 Subject: [PATCH] Make size of default view match size of target terminal --- wip-duuqnd/editor/editor.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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)