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

Add newlines to scratch buffer; start point at bottom of scratch buffer

This commit is contained in:
Tony Garnock-Jones 2014-12-28 01:05:25 -05:00
parent 8d92bb8c13
commit d34a230ca6
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rmacs/editor.rkt
View File

@ -41,8 +41,10 @@
(define (make-editor #:tty [tty (stdin-tty)] (define (make-editor #:tty [tty (stdin-tty)]
#:default-modeset [default-modeset (make-modeset)]) #:default-modeset [default-modeset (make-modeset)])
(define g (make-buffergroup)) (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)) (define w (make-window scratch))
(window-move-to! w (buffer-size scratch))
(define e (editor g (define e (editor g
tty tty
(list->circular-list (list (list w (relative-size 1)))) (list->circular-list (list (list w (relative-size 1))))