Sloth/sloth
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Allow merging lines by backspacing at the beginning of a line

Browse source
This commit is contained in:
Skylar Hill 2023-11-08 11:58:12 -06:00
parent cd851bffc7
commit 55a251642f
1 changed files with 12 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
sloth/editor.scm
View file

@ -99,12 +99,22 @@
(string-take s k) (string-take s k)
(string-drop s (1+ k)))) (string-drop s (1+ k))))
;;; merges k and k+1
(define (merge-lines buffer k)
(append (list-head buffer k)
(list
(string-append (list-ref buffer k)
(list-ref buffer (1+ k))))
(list-tail buffer (+ k 2))))
(define (backward-delete-char state) (define (backward-delete-char state)
(define buf (buffer state)) (define buf (buffer state))
(define x (curx state)) (define x (curx state))
(define y (cury state)) (define y (cury state))
(list-set! buf y (if (> x 0)
(string-delete-kth (list-ref buf y) (1- x))) (list-set! buf y
(string-delete-kth (list-ref buf y) (1- x)))
(set! (buffer state) (merge-lines buf (1- y))))
(move-cursor state #:x -1 #:relative? #t)) (move-cursor state #:x -1 #:relative? #t))
(define (delete-char state) (define (delete-char state)