config/emacs/site-lisp/my-eglot.el


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

;; -*- lexical-binding: t; -*-
(use-package eglot
  :after eldoc
  :custom
  (eglot-sync-connect 1)
  (eglot-autoshutdown t)
  (eglot-ignored-server-apabilities '(:documentHighlightProvider))
  :init
  (defun my/eglot-override-completion ()
    (setq-local completion-at-point-functions
                (list
                 (cape-capf-super
                  #'eglot-completion-at-point
                  #'tempel-complete))))
  :hook
  (eglot-managed-mode . eldoc-mode)
  (eglot-managed-mode . my/eglot-override-completion)
  (eglot-managed-mode . (lambda () (local-set-key (kbd "C-c a") 'eglot-code-actions)))
  )
(use-package eglot-tempel
  :after eglot tempel
  :config
  (eglot-tempel-mode 1))
;; (use-package flycheck-eglot
;;   :ensure t
;;   :after (flycheck eglot)
;;   :custom (flycheck-eglot-exclusive nil)
;;   :config
;;   (global-flycheck-eglot-mode 1))