[elpa] externals/elpa 72895ca 006/139: Handle notifications

[João Távora]

branch: externals/elpa
commit 72895ca4565db0ffa5d076718729072d47465f55
Author: João Távora <address@hidden>
Commit: João Távora <address@hidden>

    Handle notifications
---
 eglot.el | 17 +++++++++++++++--
 1 file changed, 15 insertions(+), 2 deletions(-)

diff --git a/eglot.el b/eglot.el
index 5ca6833..6e3a136 100644
--- a/eglot.el
+++ b/eglot.el
@@ -287,8 +287,13 @@
                  (t
                   (apply (first continuations) (plist-get message :result)))))
           (t
-           (eglot--debug "No implemetation for notification %s yet"
-                         (plist-get message :method))))))
+           (let* ((method (plist-get message :method))
+                  (handler-sym (intern (concat "eglot--"
+                                              method))))
+             (if (functionp handler-sym)
+                 (apply handler-sym proc (plist-get message :params))
+               (eglot--debug "No implemetation for notification %s yet"
+                         method)))))))
 
 (defvar eglot--expect-carriage-return nil)
 
@@ -391,6 +396,14 @@
           (length all)))))))
 
 (defun eglot--debug (format &rest args)
+
+;;; Notifications
+;;;
+(cl-defun eglot--textDocument/publishDiagnostics
+    (_process &key uri diagnostics)
+  "Handle notification publishDiagnostics"
+  (eglot--message "So yeah I got %s for %s"
+                  diagnostics uri))
   (display-warning 'eglot
      (apply #'format format args)
      :debug))