From d34a230ca650ad1ae7a3cce500a92ae95097fb30 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Sun, 28 Dec 2014 01:05:25 -0500 Subject: [PATCH] Add newlines to scratch buffer; start point at bottom of scratch buffer --- rmacs/editor.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/rmacs/editor.rkt b/rmacs/editor.rkt index 8a45f54..e5973c1 100644 --- a/rmacs/editor.rkt +++ b/rmacs/editor.rkt @@ -41,8 +41,10 @@ (define (make-editor #:tty [tty (stdin-tty)] #:default-modeset [default-modeset (make-modeset)]) (define g (make-buffergroup)) - (define scratch (make-buffer g "*scratch*" #:initial-contents ";; This is the scratch buffer.")) + (define scratch (make-buffer g "*scratch*" + #:initial-contents ";; This is the scratch buffer.\n\n")) (define w (make-window scratch)) + (window-move-to! w (buffer-size scratch)) (define e (editor g tty (list->circular-list (list (list w (relative-size 1))))