line breaks

pull/10/head
Matthew Butterick 7 years ago
parent 8e405f6287
commit 101ec6c41a

@ -1,5 +1,6 @@
#lang br #lang br
(require brag/support syntax-color/racket-lexer racket/contract) (require brag/support syntax-color/racket-lexer
racket/contract)
(define jsonic-lexer (define jsonic-lexer
(lexer (lexer

@ -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%))

Loading…
Cancel
Save