formatting all

* remove trailing whitespace
* remove end without \n
* fix indent

Author: dannypsnl

autocomplete.rkt

@@ -285,4 +285,4 @@
          (for ([id (in-set e)])
            (set-add! ids (string->symbol (string-append (symbol->string (caddr jm))
                                                         (symbol->string id)))))))])
-  ids)
+  ids)

docs-helpers.rkt

@@ -57,4 +57,4 @@
 
 (provide find-containing-paren
          get-docs-for-tag
-         id-to-tag)
+         id-to-tag)

error-codes.rkt

@@ -14,4 +14,4 @@
 ;; Defined by LSP protocol
 (define REQUEST-CANCELLED -32800)
 
-(provide (all-defined-out))
+(provide (all-defined-out))

methods.rkt

@@ -75,7 +75,7 @@
        (text-document/document-symbol id params)]
       ["textDocument/rename"
        (text-document/rename id params)]
-       ["textDocument/prepareRename"
+      ["textDocument/prepareRename"
        (text-document/prepareRename id params)]
       ["textDocument/formatting"
        (text-document/formatting! id params)]
@@ -117,7 +117,7 @@
                'willSaveWaitUntil #f))
      (define renameProvider
        (match capabilities
-         [(hash-table ['textDocument 
+         [(hash-table ['textDocument
                        (hash-table ['rename
                                     (hash-table ['prepareSupport #t])])])
           (hasheq 'prepareProvider #t)]
@@ -135,7 +135,7 @@
                'documentFormattingProvider #t
                'documentRangeFormattingProvider #t
                'documentOnTypeFormattingProvider (hasheq 'firstTriggerCharacter ")" 'moreTriggerCharacter (list "\n" "]"))))
-
+     
      (define resp (success-response id (hasheq 'capabilities server-capabilities)))
      (set! already-initialized? #t)
      resp]

msg-io.rkt

@@ -46,4 +46,4 @@
                         void?)]
   [display-message/flush (->* (jsexpr?)
                               (output-port?)
-                              void?)]))
+                              void?)]))

queue-only-latest.rkt

@@ -19,19 +19,19 @@
       (channel-put out-ch doc)
       (run #f #f))
     (sync (handle-evt in-ch
-            (lambda (doc)
-              (cond
-                [ready? (send-doc! doc)]
-                [else   (run doc #f)])))
+                      (lambda (doc)
+                        (cond
+                          [ready? (send-doc! doc)]
+                          [else   (run doc #f)])))
           (handle-evt ready-ch
-            (lambda (ignore)
-              (cond
-                [doc  (send-doc! doc)]
-                [else (run #f #t)])))))
+                      (lambda (ignore)
+                        (cond
+                          [doc  (send-doc! doc)]
+                          [else (run #f #t)])))))
   (run #f #t))
 
 (define (check in-ch ready-ch)
-  (define (run)    
+  (define (run)
     (define doc (sync in-ch))
     (do-check-and-stuff! doc)
     (channel-put ready-ch #t)
@@ -47,9 +47,9 @@
 (define server-th (thread (lambda () (check wait->check ready-ch))))
 
 (define (try-queue-check src doc)
-    (when (and (thread-running? waiter-th) (thread-running? server-th))
-        (define txt (send (doc-text doc) get-text))
-        (maybe-debug-file txt)
-        (channel-put in-ch (list src txt doc))))
+  (when (and (thread-running? waiter-th) (thread-running? server-th))
+    (define txt (send (doc-text doc) get-text))
+    (maybe-debug-file txt)
+    (channel-put in-ch (list src txt doc))))
 
 (provide try-queue-check)

responses.rkt

@@ -46,4 +46,4 @@
         (any/c)
         jsexpr?)]
   [diagnostics-message
-   (string? list? . -> . jsexpr?)]))
+   (string? list? . -> . jsexpr?)]))

symbol-kinds.rkt

@@ -27,4 +27,4 @@
 (define SymbolKind-Operator 25)
 (define SymbolKind-TypeParameter 26)
 
-(provide (all-defined-out))
+(provide (all-defined-out))

text-document.rkt

@@ -237,7 +237,7 @@
   (define-values (src-dir file dir?)
     (split-path path))
   (define in (open-input-string (send doc-text get-text)))
-
+  
   (define ns (make-base-namespace))
   (define-values (add-syntax done)
     (make-traversal ns src-dir))
@@ -492,7 +492,7 @@
           (Range
            #:start (abs-pos->Pos doc-text (or (find-containing-paren pos (send doc-text get-text)) 0))
            #:end (abs-pos->Pos doc-text pos))]))
-
+     
      (range-formatting!
       id
       (hash-set params