refactor(lsp): configure loggers for lsp in elsa-lsp

Author: Fuco1

elsa-lsp-core.el

@@ -36,12 +36,6 @@
        :message (lgr-format-event (oref this layout) event)))))
   this)
 
-(defconst elsa-lsp-logger (-> (lgr-get-logger "elsa")
-                              (lgr-add-appender
-                               (-> (elsa-lsp-appender)
-                                   (lgr-set-layout (elsa-plain-layout))
-                                   (lgr-set-threshold lgr-level-info)))))
-
 (defclass elsa-lsp-file ()
   ((name :type string :initarg :name)
    (buffer :type buffer :initarg :buffer)))

elsa-lsp.el

@@ -7,6 +7,17 @@
 (defun elsa-lsp-stdin-loop ()
   "Reads from standard input in a loop and process incoming requests."
   (elsa-load-config)
+  (-> (lgr-get-logger "elsa")
+      (lgr-reset-appenders)
+      (lgr-add-appender
+       (-> (elsa-lsp-appender)
+           (lgr-set-layout (elsa-plain-layout))
+           (lgr-set-threshold lgr-level-info)))
+      (lgr-add-appender
+       (-> (lgr-appender)
+           (lgr-set-layout (lgr-layout-format :format "[%K] (%n) %m"))))
+      (lgr-set-threshold lgr-level-debug))
+
   (prettify-symbols-mode -1)
   (let ((input (read-from-minibuffer ""))
         (has-header nil))