anchor.diff:          (apply-workspace-edit response)))))
   
   (define-command lsp-rename (new-name) ("sNew name: ")
  +  (check-connection)
     (text-document/rename (current-point) new-name))
   
   ;;;
  
positive.code:                                            :diagnostics (json:json-array)))))))))
  
  (define-command lsp-code-action () ()
    (let ((response (text-document/code-action (current-point)))
          (workspace (buffer-workspace (current-buffer))))
      (cond ((typep response 'protocol:command)
  
negative.code:                                       (make-text-document-position-arguments point))))))))
  
  (defun find-references (point)
    (check-connection)
    (text-document/references point))
  
  ;;; document highlights
  