[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/elpa d0b7773 117/139: Reduce log chatter
From: |
João Távora |
Subject: |
[elpa] externals/elpa d0b7773 117/139: Reduce log chatter |
Date: |
Mon, 14 May 2018 09:53:47 -0400 (EDT) |
branch: externals/elpa
commit d0b777334941075d8c6ef1d28d256272973f33f0
Author: João Távora <address@hidden>
Commit: João Távora <address@hidden>
Reduce log chatter
* eglot.el (eglot--process-sentinel, eglot--request): Use
eglot--log-event.
(eglot--log-event): Print "message" if type unknown.
(eglot--debug, eglot--log): Remove.
(eglot--server-window/logMessage, eglot--server-telemetry/event):
Make noops.
(eglot--call-deferred): Also reduce chatter here.
---
eglot.el | 48 ++++++++++++++++--------------------------------
1 file changed, 16 insertions(+), 32 deletions(-)
diff --git a/eglot.el b/eglot.el
index 8b8d712..d1e4d15 100644
--- a/eglot.el
+++ b/eglot.el
@@ -341,7 +341,7 @@ INTERACTIVE is t if called interactively."
(defun eglot--process-sentinel (proc change)
"Called when PROC undergoes CHANGE."
- (eglot--debug "(sentinel) Process state changed to %s" change)
+ (eglot--log-event proc `(:message "Process state changed" :change ,change))
(when (not (process-live-p proc))
;; Cancel outstanding timers
(maphash (lambda (_id triplet)
@@ -474,8 +474,7 @@ is a symbol saying if this is a client or server
originated."
(subtype (cond ((and method id) 'request)
(method 'notification)
(id 'reply)
- ;; pyls keeps on sending these
- (t 'unexpected-thingy)))
+ (t 'message)))
(type
(format "%s-%s" (or type :internal) subtype)))
(goto-char (point-max))
@@ -553,7 +552,7 @@ is a symbol saying if this is a client or server
originated."
(defun eglot--call-deferred (proc)
"Call PROC's deferred actions, who may again defer themselves."
- (let ((actions (hash-table-values (eglot--deferred-actions proc))))
+ (when-let ((actions (hash-table-values (eglot--deferred-actions proc))))
(eglot--log-event proc `(:running-deferred ,(length actions)))
(mapc #'funcall (mapcar #'car actions))))
@@ -619,16 +618,15 @@ timeout keeps counting."
;; Really run it
;;
(puthash id
- (list (or success-fn (eglot--lambda (&rest result-body)
- (eglot--debug
- "Request %s, id=%s replied to with
result=%s"
- method id result-body)))
- (or error-fn (eglot--lambda
- (&key code message &allow-other-keys)
- (setf (eglot--status proc) `(,message t))
- (eglot--warn
- "Request %s, id=%s errored with code=%s: %s"
- method id code message)))
+ (list (or success-fn
+ (eglot--lambda (&rest _ignored)
+ (eglot--log-event
+ proc (eglot--obj :message "success ignored" :id
id))))
+ (or error-fn
+ (eglot--lambda (&key code message &allow-other-keys)
+ (setf (eglot--status proc) `(,message t))
+ proc (eglot--obj :message "error ignored, status set"
+ :id id :error code)))
(funcall make-timeout))
(eglot--pending-continuations proc))
(eglot--process-send proc (eglot--obj :jsonrpc "2.0"
@@ -680,12 +678,6 @@ DEFERRED is passed to `eglot--request', which see."
;;; Helpers
;;;
-(defun eglot--debug (format &rest args)
- "Debug message FORMAT with ARGS."
- (display-warning 'eglot
- (apply #'format format args)
- :debug))
-
(defun eglot--error (format &rest args)
"Error out with FORMAT with ARGS."
(error (apply #'format format args)))
@@ -694,10 +686,6 @@ DEFERRED is passed to `eglot--request', which see."
"Message out with FORMAT with ARGS."
(message (concat "[eglot] " (apply #'format format args))))
-(defun eglot--log (format &rest args)
- "Log out with FORMAT with ARGS."
- (message (concat "[eglot-log] " (apply #'format format args))))
-
(defun eglot--warn (format &rest args)
"Warning message with FORMAT and ARGS."
(apply #'eglot--message (concat "(warning) " format) args)
@@ -954,15 +942,11 @@ called interactively."
:error (eglot--obj :code -32800
:message "User cancelled"))))))
-(cl-defun eglot--server-window/logMessage (_process &key type message)
- "Handle notification window/logMessage"
- (eglot--log (propertize "Server reports (type=%s): %s"
- 'face (if (<= type 1) 'error))
- type message))
+(cl-defun eglot--server-window/logMessage (_proc &key _type _message)
+ "Handle notification window/logMessage") ;; noop, use events buffer
-(cl-defun eglot--server-telemetry/event (_process &rest any)
- "Handle notification telemetry/event"
- (eglot--log "Server telemetry: %s" any))
+(cl-defun eglot--server-telemetry/event (_proc &rest _any)
+ "Handle notification telemetry/event") ;; noop, use events buffer
(defvar-local eglot--unreported-diagnostics nil
"Unreported diagnostics for this buffer.")
- [elpa] externals/elpa ef80455 121/139: Support :completionItem/resolve, (continued)
- [elpa] externals/elpa ef80455 121/139: Support :completionItem/resolve, João Távora, 2018/05/14
- [elpa] externals/elpa 77856c2 130/139: Reinstate the catch/loop/throw idiom in eglot-request, João Távora, 2018/05/14
- [elpa] externals/elpa d1cdcf1 119/139: Friendlier M-x eglot, João Távora, 2018/05/14
- [elpa] externals/elpa 4c0bfc3 139/139: Support didChangeWatchedFiles with dynamic registration, João Távora, 2018/05/14
- [elpa] externals/elpa fceb6bb 090/139: Get rid of eglot--special-buffer-process, João Távora, 2018/05/14
- [elpa] externals/elpa 714e5be 086/139: Half-baked textDocument/hover support, João Távora, 2018/05/14
- [elpa] externals/elpa e9b5e54 077/139: ETOOMANYLAMBDAS, João Távora, 2018/05/14
- [elpa] externals/elpa f257d63 089/139: * eglot.el: Reformat to shave off some lines., João Távora, 2018/05/14
- [elpa] externals/elpa 5ce9ab0 106/139: Call eglot-eldoc-function after completion finishes, João Távora, 2018/05/14
- [elpa] externals/elpa d431d41 088/139: Fix bug in hover support, João Távora, 2018/05/14
- [elpa] externals/elpa d0b7773 117/139: Reduce log chatter,
João Távora <=
- [elpa] externals/elpa 9af84a2 124/139: Prepare to sumbit to GNU ELPA, João Távora, 2018/05/14
- [elpa] externals/elpa 9577dfc 125/139: Duh, json.el is in Emacs, and json-mode.el is useless here, João Távora, 2018/05/14
- [elpa] externals/elpa 6e76b08 100/139: Support workspace/applyEdit, João Távora, 2018/05/14
- [elpa] externals/elpa 3e0f1c3 122/139: Misc little adjustments for readability, João Távora, 2018/05/14
- [elpa] externals/elpa 9bf3166 136/139: Don't define a menu if nothing to show there for now, João Távora, 2018/05/14
- [elpa] externals/elpa 1fb2bcb 132/139: Ask server for textDocument/signatureHelp if it supports it, João Távora, 2018/05/14
- [elpa] externals/elpa c7bd095 118/139: Improve eglot-eldoc-function, João Távora, 2018/05/14
- [elpa] externals/elpa ab575d2 120/139: Rename functions. eglot--request is now the synchronous one, João Távora, 2018/05/14
- [elpa] externals/elpa 8448d9b 133/139: Work with any old directory, no formal project needed, João Távora, 2018/05/14
- [elpa] externals/elpa 589e1ea 138/139: Remove an unused variable, João Távora, 2018/05/14