From 2f9f01c6d1ef0b690b3121d4a85b263634f988a4 Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Sun, 28 Apr 2024 09:15:41 +0200
Subject: emacs: make eglot quiet on connection

---
 user/emacs/init.el | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'user')

diff --git a/user/emacs/init.el b/user/emacs/init.el
index c7b995fa..9f8d18e4 100644
--- a/user/emacs/init.el
+++ b/user/emacs/init.el
@@ -1063,6 +1063,8 @@ _C-k_: prev  _u_pper              _=_: upper/lower       _s_mart resolve
             haskell-mode-hook)
           #'eglot-ensure)
   :config (progn
+            (advice-add 'eglot--message :before-while (lambda (formatstring &rest rest)
+                                                        (s-starts-with-p "Connected!" formatstring)))
             (defun my/setup-eglot-eldoc ()
               (push 'flymake-eldoc-function eldoc-documentation-functions))
             (add-hook 'eglot-managed-mode-hook 'my/setup-eglot-eldoc)
-- 
cgit 1.4.1