add tide-rename-file command (#258)

* add tide-rename-file command

* use get-file-buffer

* apply edits after rename

tsserver might return edits for the rename file

Author: ananthakumaran

README.md

@@ -154,6 +154,9 @@ project. Errors can be navigated using <kbd>n</kbd> and
 <kbd>M-x tide-rename-symbol</kbd> Rename all occurrences of the symbol
 at point.
 
+<kbd>M-x tide-rename-file</kbd> Rename current file and all it's
+references in other files.
+
 <kbd>M-x tide-format</kbd> Format the current region or buffer.
 
 <kbd>M-x tide-fix</kbd> Apply code fix for the error at point. When

tide.el

@@ -1676,6 +1676,36 @@ number."
 
             (message "Renamed %d occurrences." count)))))))
 
+(defun tide-command:getEditsForFileRename (old new)
+  (tide-send-command-sync "getEditsForFileRename" `(:oldFilePath ,old :newFilePath ,new :file ,old)))
+
+(defun tide-rename-file ()
+  "Rename current file and all it's references in other files."
+  (interactive)
+  (let* ((name (buffer-name))
+         (old (tide-buffer-file-name))
+         (basename (file-name-nondirectory old)))
+    (when (not (and old (file-exists-p old)))
+      (error "Buffer '%s' is not visiting a file." name))
+    (let ((new (read-file-name "New name: " (file-name-directory old) basename nil basename)))
+      (when (get-file-buffer new)
+        (error "A buffer named '%s' already exists." new))
+      (when (file-exists-p new)
+        (error "A file named '%s' already exists." new))
+      (let* ((response (tide-command:getEditsForFileRename (expand-file-name old) (expand-file-name new)))
+             (edits (tide-on-response-success response (:min-version "2.9")
+                      (plist-get response :body))))
+        (tide-cleanup-buffer)
+        (mkdir (file-name-directory new) t)
+        (rename-file old new)
+        (rename-buffer new)
+        (set-visited-file-name new)
+        (set-buffer-modified-p nil)
+        (when edits
+          (tide-apply-code-edits edits))
+        (tide-configure-buffer)
+        (message "Renamed '%s to '%s'." name (file-name-nondirectory new))))))
+
 ;;; Format
 
 ;;;###autoload