From 101ec6c41a11c196765a43898916f30e592fdfd7 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Wed, 15 Mar 2017 13:38:13 -0700 Subject: [PATCH] line breaks --- beautiful-racket-demo/jsonic-demo-2/colorer.rkt | 3 ++- beautiful-racket-demo/jsonic-demo-2/indenter.rkt | 3 ++- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/beautiful-racket-demo/jsonic-demo-2/colorer.rkt b/beautiful-racket-demo/jsonic-demo-2/colorer.rkt index fcaa1ee..70ad1fa 100644 --- a/beautiful-racket-demo/jsonic-demo-2/colorer.rkt +++ b/beautiful-racket-demo/jsonic-demo-2/colorer.rkt @@ -1,5 +1,6 @@ #lang br -(require brag/support syntax-color/racket-lexer racket/contract) +(require brag/support syntax-color/racket-lexer + racket/contract) (define jsonic-lexer (lexer diff --git a/beautiful-racket-demo/jsonic-demo-2/indenter.rkt b/beautiful-racket-demo/jsonic-demo-2/indenter.rkt index 7c2b5ac..54c4f52 100644 --- a/beautiful-racket-demo/jsonic-demo-2/indenter.rkt +++ b/beautiful-racket-demo/jsonic-demo-2/indenter.rkt @@ -18,7 +18,8 @@ (line-first-visible-char tbox current-line)) (- prev-indent indent-width)] [else prev-indent])) - (and (exact-positive-integer? current-indent) current-indent)) + (and (exact-positive-integer? current-indent) + current-indent)) (provide (contract-out [indent-jsonic (((is-a?/c text%))