|
|
@ -18,7 +18,8 @@
|
|
|
|
(line-first-visible-char tbox current-line))
|
|
|
|
(line-first-visible-char tbox current-line))
|
|
|
|
(- prev-indent indent-width)]
|
|
|
|
(- prev-indent indent-width)]
|
|
|
|
[else prev-indent]))
|
|
|
|
[else prev-indent]))
|
|
|
|
(and (exact-positive-integer? current-indent) current-indent))
|
|
|
|
(and (exact-positive-integer? current-indent)
|
|
|
|
|
|
|
|
current-indent))
|
|
|
|
(provide
|
|
|
|
(provide
|
|
|
|
(contract-out
|
|
|
|
(contract-out
|
|
|
|
[indent-jsonic (((is-a?/c text%))
|
|
|
|
[indent-jsonic (((is-a?/c text%))
|
|
|
|