Add +lsp/uninstall-server command

This commit is contained in:
Henrik Lissner 2020-02-24 14:59:14 -05:00
parent acf6d5b78b
commit 1f3ff33762
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -2,3 +2,13 @@
;;;###autodef ;;;###autodef
(defalias 'lsp! #'lsp-deferred) (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)))