Add a command to remove workspace folders

Sometimes it is useful to remove a lot of workspace folders at once.
Calling `lsp-workspace-folders-remove' repeatedly is not very convenient though,
so wrap it in `ivy', allowing the user to simply invoke `ivy-call'.

Author: nbfalcon

lsp-ivy.el

@@ -220,5 +220,17 @@ When called with prefix ARG the default selection will be symbol at point."
    "Global workspace symbols: "
    (when arg (thing-at-point 'symbol))))
 
+
+;;;###autoload
+(defun lsp-ivy-workspace-folder-remove ()
+  "Remove a project-root from the list of workspace folders."
+  (interactive)
+  (let ((session (lsp-session)))
+    (ivy-read "Select workspace folder to remove: " (lsp-session-folders session)
+              :preselect (-some->> default-directory (lsp-find-session-folder session))
+              :action (lambda (x)
+                        (lsp-workspace-folders-remove x)
+                        (ivy--kill-current-candidate)))))
+
 (provide 'lsp-ivy)
 ;;; lsp-ivy.el ends here