2019-02-21 16:08:27 -05:00
|
|
|
;;; feature/lsp/autoload.el -*- lexical-binding: t; -*-
|
|
|
|
|
|
2019-05-21 00:34:32 -04:00
|
|
|
;;;###autodef
|
2019-10-18 20:28:28 -04:00
|
|
|
(defalias 'lsp! #'lsp-deferred)
|
2020-02-24 14:59:14 -05:00
|
|
|
|
|
|
|
|
;;;###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)))
|
