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

adjust indentation so that hyphens at the start of sexp causes subsequent

Browse Source 
lines to not indent
This commit is contained in:
Robby Findler 2016-06-22 20:44:29 -05:00
parent 9f3635f399
commit c3322ca05d
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -708,7 +708,8 @@
(- id-end contains) (- id-end contains)
0)) 0))
(cond (cond
[(first-sexp-is-keyword? contains) [(or (first-sexp-is-keyword? contains)
(sexp-is-all-hyphens? contains))
(visual-offset contains)] (visual-offset contains)]
[(second-sexp-is-ellipsis? contains) [(second-sexp-is-ellipsis? contains)
(visual-offset contains)] (visual-offset contains)]

2
gui-test/framework/tests/racket.rkt
View File

@ -177,6 +177,8 @@
"(#:x 0\n 1)") "(#:x 0\n 1)")
(test-indentation "(a b c d\n---)" (test-indentation "(a b c d\n---)"
"(a b c d\n ---)") "(a b c d\n ---)")
(test-indentation "[---- \"β\"\na"
"[---- \"β\"\n a")
(define (test-magic-square-bracket which before after) (define (test-magic-square-bracket which before after)