anchor.diff:                                  :options (make-formatting-options buffer))))))))
   
   (define-command lsp-document-format () ()
  +  (check-connection)
     (text-document/formatting (current-buffer)))
   
   ;;; range formatting
  
positive.code:                                       (make-text-document-position-arguments point))))))))
  
  (defun find-definitions (point)
    (with-jsonrpc-error ()
      (text-document/definition point)))
  
  
negative.code:                                            :diagnostics (json:json-array)))))))))
  
  (define-command lsp-code-action () ()
    (check-connection)
    (let ((response (text-document/code-action (current-point)))
          (workspace (buffer-workspace (current-buffer))))
      (cond ((typep response 'protocol:command)
  