suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

adjust tabifying behavior to mess with blank lines less

Browse Source 
Be more like Emacs: when indenting only change the whitespace
on a blank line when indenting just a single line (e.g. when
hitting return or when hitting tab with a selection that
doesn't span multiple lines)

closes racket/drracket#65
This commit is contained in:
Robby Findler 2016-07-06 16:03:52 -05:00
parent b10086ed13
commit 8272f99035
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
gui-lib/framework/private/racket.rkt
View File

@ -777,6 +777,7 @@
(unless (is-stopped?) (unless (is-stopped?)
(define first-para (position-paragraph start-pos)) (define first-para (position-paragraph start-pos))
(define end-para (position-paragraph end-pos)) (define end-para (position-paragraph end-pos))
(define tabifying-multiple-paras? (not (= first-para end-para)))
(with-handlers ([exn:break? (with-handlers ([exn:break?
(λ (x) #t)]) (λ (x) #t)])
(dynamic-wind (dynamic-wind
@ -787,7 +788,14 @@
(λ () (λ ()
(let loop ([para first-para]) (let loop ([para first-para])
(when (<= para end-para) (when (<= para end-para)
(tabify (paragraph-start-position para)) (define start (paragraph-start-position para))
(define end (paragraph-end-position para))
(define skip-this-line?
(and tabifying-multiple-paras?
(for/and ([i (in-range start (+ end 1))])
(char-whitespace? (get-character i)))))
(unless skip-this-line?
(tabify start))
(parameterize-break #t (void)) (parameterize-break #t (void))
(loop (add1 para)))) (loop (add1 para))))
(when (and (>= (position-paragraph start-pos) end-para) (when (and (>= (position-paragraph start-pos) end-para)