From 1f3ff337626ccd39d8cb2b16c99434e2ac1f23a7 Mon Sep 17 00:00:00 2001
From: Henrik Lissner <henrik@lissner.net>
Date: Mon, 24 Feb 2020 14:59:14 -0500
Subject: [PATCH] Add +lsp/uninstall-server command

---
 modules/tools/lsp/autoload.el | 10 ++++++++++
 1 file changed, 10 insertions(+)

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)))