Formatting for define-api-endpoint

Author: pavpanchekha

.fmt.rkt

@@ -7,4 +7,5 @@
 (define (the-formatter-map s)
   (case s
     [("define-operators") (standard-formatter-map "begin")]
+    [("define-api-endpoint") (standard-formatter-map "define")]
     [else #f]))

src/api/demo.rkt

@@ -378,7 +378,8 @@
                      (header #"Access-Control-Allow-Origin" (string->bytes/utf-8 "*")))
                (curry write-json (hash-ref job-result 'timeline)))]))
 
-(define-syntax-rule (define-api-endpoint (name post-data) body ...)
+(define-syntax-rule (define-api-endpoint (name post-data)
+                      body ...)
   (begin
     (define (function post-data)
       body ...)
@@ -449,7 +450,12 @@
              #:timeline-disabled? #t))
 
 (define-api-endpoint ("cost" post-data)
-  (start-job 'cost (get-test post-data) #:seed #f #:pcontext #f #:profile? #f #:timeline-disabled? #f))
+  (start-job 'cost
+             (get-test post-data)
+             #:seed #f
+             #:pcontext #f
+             #:profile? #f
+             #:timeline-disabled? #f))
 
 (define ->mathjs-endpoint
   (post-with-json-response (lambda (post-data)

src/core/points.rkt

@@ -95,8 +95,7 @@
                (match-define (list pt ex) entry)
                (unless (and (list? pt) (= (length pt) (length var-reprs)))
                  (error 'json->pcontext "Invalid point ~a" pt))
-               (values (map json->value pt var-reprs)
-                       (json->value ex output-repr))))
+               (values (map json->value pt var-reprs) (json->value ex output-repr))))
   (mk-pcontext pts exs))
 
 (define (pcontext->json pcontext repr)