Support Create workspace edit operation.

Fixes #51

Author: ericdallo

CHANGELOG.md

@@ -2,6 +2,8 @@
 
 ## [Unreleased]
 
+- Support Create workspace edit operation. Fixes #51
+
 ## 2.5.0
 
 - Add syntax highlighting to Clojure documentation codeblocks

src/main/clojure/com/github/clojure_lsp/intellij/editor.clj

@@ -1,6 +1,7 @@
 (ns com.github.clojure-lsp.intellij.editor
   (:require
    [clojure-lsp.shared :as lsp.shared]
+   [clojure.java.io :as io]
    [com.github.clojure-lsp.intellij.editor :as editor]
    [com.github.ericdallo.clj4intellij.app-manager :as app-manager]
    [com.github.ericdallo.clj4intellij.util :as util])
@@ -11,7 +12,7 @@
    [com.intellij.openapi.project Project ProjectLocator]
    [com.intellij.openapi.util TextRange]
    [com.intellij.openapi.util.text StringUtil]
-   [com.intellij.openapi.vfs VirtualFile]
+   [com.intellij.openapi.vfs VfsUtil VirtualFile]
    [com.intellij.psi PsiFile]
    [com.intellij.psi PsiManager]))
 
@@ -56,9 +57,42 @@
   (.guessProjectForFile (ProjectLocator/getInstance)
                         v-file))
 
+(defn ^:private create-document
+  [{:keys [uri]}]
+  (let [f (io/file (java.net.URI. uri))
+        parent-vfile (VfsUtil/createDirectories (.getAbsolutePath (.getParentFile f)))]
+    (.findOrCreateChildData parent-vfile nil (.getName f))))
+
+(defn ^:private apply-document-change
+  [{{:keys [uri]} :text-document :keys [edits]} project move-caret?]
+  (let [editor (util/uri->editor uri project false)
+        document (.getDocument editor)
+        sorted-edits (sort-by (comp #(document+position->offset % document) :start :range) > edits)]
+    (doseq [{:keys [new-text range]} sorted-edits
+            :let [start (document+position->offset (:start range) document)
+                  end (document+position->offset (:end range) document)]]
+      (cond
+        (>= end 0)
+        (if (<= (- end start) 0)
+          (.insertString document start new-text)
+          (.replaceString document start end new-text))
+
+        (= 0 start)
+        (.setText document new-text)
+
+        (> start 0)
+        (.insertString document start new-text)
+
+        :else
+        (.insertString document (.getTextLength document) (str "\n" new-text)))
+      (when move-caret?
+        (.moveToOffset (.getCaretModel editor)
+                       (+ (count new-text) start))))
+    (.saveDocument (FileDocumentManager/getInstance) document)))
+
 (defn apply-workspace-edit ^Boolean
   [^Project project label move-caret? {:keys [document-changes]}]
-  ;; TODO Handle resourceOperations like creating, renaming and deleting files
+  ;; TODO Handle more resourceOperations like renaming and deleting files
   ;; TODO Improve to check version to known if file changed
   (app-manager/invoke-later!
    {:invoke-fn
@@ -71,29 +105,7 @@
             :project project
             :command-fn
             (fn []
-              (doseq [{{:keys [uri]} :text-document
-                       :keys [edits]} document-changes
-                      :let [editor (util/uri->editor uri project false)
-                            document (.getDocument editor)
-                            sorted-edits (sort-by (comp #(document+position->offset % document) :start :range) > edits)]]
-                (doseq [{:keys [new-text range]} sorted-edits
-                        :let [start (document+position->offset (:start range) document)
-                              end (document+position->offset (:end range) document)]]
-                  (cond
-                    (>= end 0)
-                    (if (<= (- end start) 0)
-                      (.insertString document start new-text)
-                      (.replaceString document start end new-text))
-
-                    (= 0 start)
-                    (.setText document new-text)
-
-                    (> start 0)
-                    (.insertString document start new-text)
-
-                    :else
-                    nil)
-                  (when move-caret?
-                    (.moveToOffset (.getCaretModel editor)
-                                   (+ (count new-text) start))))
-                (.saveDocument (FileDocumentManager/getInstance) document)))}))}))}))
+              (doseq [document-change document-changes]
+                (case (:kind document-change)
+                  "create" (create-document document-change)
+                  (apply-document-change document-change project move-caret?))))}))}))}))

src/main/clojure/com/github/clojure_lsp/intellij/workspace_edit.clj

@@ -3,6 +3,7 @@
    [com.github.clojure-lsp.intellij.client :as lsp-client]
    [com.github.clojure-lsp.intellij.editor :as editor]
    [com.github.ericdallo.clj4intellij.app-manager :as app-manager]
+   [com.github.ericdallo.clj4intellij.logger :as logger]
    [com.github.ericdallo.clj4intellij.util :as util]))
 
 (set! *warn-on-reflection* true)
@@ -14,6 +15,7 @@
 (defmethod lsp-client/show-document :default [{:keys [project]} {:keys [uri take-focus selection]}]
   (app-manager/invoke-later!
    {:invoke-fn (fn []
+                 (logger/info "--------->" uri (util/uri->v-file uri))
                  (let [editor (util/uri->editor uri project (boolean take-focus))]
                    (.moveToOffset (.getCaretModel editor)
                                   (editor/document+position->offset (:start selection) (.getDocument editor)))))})