diff --git a/modules/tools/lsp/autoload.el b/modules/tools/lsp/autoload.el index ae45c1ef1..5d9ed2c52 100644 --- a/modules/tools/lsp/autoload.el +++ b/modules/tools/lsp/autoload.el @@ -2,3 +2,13 @@ ;;;###autodef (defalias 'lsp! #'lsp-deferred) + +;;;###autoload +(defun +lsp/uninstall-server (dir) + "Delete a LSP server from `lsp-server-install-dir'." + (interactive + (list (read-directory-name "Uninstall LSP server: " lsp-server-install-dir nil t))) + (unless (file-directory-p dir) + (user-error "Couldn't find %S directory" dir)) + (delete-directory dir 'recursive) + (message "Uninstalled %S" (file-name-nondirectory dir)))