71 lines
2.4 KiB
EmacsLisp
71 lines
2.4 KiB
EmacsLisp
;; -*- coding: utf-8; lexical-binding: t; -*-
|
|
|
|
(require 'lazy-load)
|
|
|
|
(defun creature/eglot-load-markdown-for-doc ()
|
|
(when (and (fboundp 'eglot-managed-p)
|
|
(eglot-managed-p)
|
|
(not (featurep 'markdown-mode))
|
|
(locate-library "markdown-mode"))
|
|
(require 'markdown-mode)))
|
|
|
|
(defun creature/eglot-hover-eldoc-function (cb)
|
|
"Multiple line version of `eglot-hover-eldoc-function'."
|
|
(let ((eglot-server-capable-fn
|
|
(if (fboundp 'eglot-server-capable)
|
|
'eglot-server-capable
|
|
'eglot--server-capable)))
|
|
(when (funcall eglot-server-capable-fn :hoverProvider)
|
|
(let ((buf (current-buffer)))
|
|
(jsonrpc-async-request
|
|
(eglot--current-server-or-lose)
|
|
:textDocument/hover (eglot--TextDocumentPositionParams)
|
|
:success-fn (eglot--lambda ((Hover) contents range)
|
|
(eglot--when-buffer-window buf
|
|
(let ((info (unless (seq-empty-p contents)
|
|
(eglot--hover-info contents range))))
|
|
(funcall cb info :buffer t))))
|
|
:deferred :textDocument/hover))
|
|
(eglot--highlight-piggyback cb)
|
|
t)))
|
|
|
|
(with-eval-after-load 'eglot
|
|
(setq eglot-events-buffer-size 0)
|
|
(setq eglot-confirm-server-initiated-edits nil)
|
|
(setq eglot-autoshutdown t)
|
|
(add-to-list 'eglot-ignored-server-capabilities :inlayHintProvider)
|
|
|
|
(add-hook 'eglot-managed-mode-hook #'creature/eglot-load-markdown-for-doc)
|
|
|
|
;; variable `eglot-prefer-plaintext' invoked in eglot-1.14
|
|
;; and document only show one line by eldoc since eglot-1.14
|
|
(when (boundp 'eglot-prefer-plaintext)
|
|
(advice-add 'eglot-hover-eldoc-function :override #'creature/eglot-hover-eldoc-function))
|
|
|
|
(lazy-load-set-keys
|
|
'(("M-." . xref-find-definitions)
|
|
("M-?" . xref-find-references)
|
|
("C-c r" . eglot-rename)
|
|
("C-c o" . eglot-code-actions))
|
|
eglot-mode-map))
|
|
|
|
|
|
;; json mode is derived from `js-mode', but json file don't need `eglot'
|
|
(add-hook 'js-base-mode-hook
|
|
(lambda ()
|
|
(unless (derived-mode-p 'js-json-mode 'json-mode)
|
|
(eglot-ensure))))
|
|
|
|
(dolist (hook '(css-mode-hook
|
|
typescript-mode-hook
|
|
typescript-ts-base-mode-hook
|
|
sh-mode-hook
|
|
bash-ts-mode
|
|
cmake-mode-hook
|
|
c-mode-hook
|
|
c++-mode-hook))
|
|
(add-hook hook #'eglot-ensure))
|
|
|
|
|
|
(provide 'init-eglot)
|