ad6a3d0f33
featurep! will be renamed modulep! in the future, so it's been deprecated. They have identical interfaces, and can be replaced without issue. featurep! was never quite the right name for this macro. It implied that it had some connection to featurep, which it doesn't (only that it was similar in purpose; still, Doom modules are not features). To undo such implications and be consistent with its namespace (and since we're heading into a storm of breaking changes with the v3 release anyway), now was the best opportunity to begin the transition.
57 lines
2.2 KiB
EmacsLisp
57 lines
2.2 KiB
EmacsLisp
;;; tools/lsp/+eglot.el -*- lexical-binding: t; -*-
|
|
|
|
(use-package! eglot
|
|
:commands eglot eglot-ensure
|
|
:hook (eglot-managed-mode . +lsp-optimization-mode)
|
|
:init
|
|
(setq eglot-sync-connect 1
|
|
eglot-connect-timeout 10
|
|
eglot-autoshutdown t
|
|
eglot-send-changes-idle-time 0.5
|
|
;; NOTE We disable eglot-auto-display-help-buffer because :select t in
|
|
;; its popup rule causes eglot to steal focus too often.
|
|
eglot-auto-display-help-buffer nil)
|
|
(when (modulep! :checkers syntax)
|
|
(setq eglot-stay-out-of '(flymake)))
|
|
|
|
:config
|
|
(set-popup-rule! "^\\*eglot-help" :size 0.15 :quit t :select t)
|
|
(set-lookup-handlers! 'eglot--managed-mode
|
|
:definition #'xref-find-definitions
|
|
:references #'xref-find-references
|
|
:implementations #'eglot-find-implementation
|
|
:type-definition #'eglot-find-typeDefinition
|
|
:documentation #'+eglot-lookup-documentation)
|
|
|
|
(add-to-list 'doom-debug-variables '(eglot-events-buffer-size . 0))
|
|
|
|
(when (modulep! :checkers syntax)
|
|
(after! flycheck
|
|
(load! "autoload/flycheck-eglot")))
|
|
|
|
(defadvice! +lsp--defer-server-shutdown-a (fn &optional server)
|
|
"Defer server shutdown for a few seconds.
|
|
This gives the user a chance to open other project files before the server is
|
|
auto-killed (which is a potentially expensive process). It also prevents the
|
|
server getting expensively restarted when reverting buffers."
|
|
:around #'eglot--managed-mode
|
|
(letf! (defun eglot-shutdown (server)
|
|
(if (or (null +lsp-defer-shutdown)
|
|
(eq +lsp-defer-shutdown 0))
|
|
(prog1 (funcall eglot-shutdown server)
|
|
(+lsp-optimization-mode -1))
|
|
(run-at-time
|
|
(if (numberp +lsp-defer-shutdown) +lsp-defer-shutdown 3)
|
|
nil (lambda (server)
|
|
(unless (eglot--managed-buffers server)
|
|
(prog1 (funcall eglot-shutdown server)
|
|
(+lsp-optimization-mode -1))))
|
|
server)))
|
|
(funcall fn server))))
|
|
|
|
|
|
(use-package! consult-eglot
|
|
:defer t
|
|
:when (modulep! :completion vertico)
|
|
:init
|
|
(map! :map eglot-mode-map [remap xref-find-apropos] #'consult-eglot-symbols))
|