Merge pull request #27 from emacs-languagetool/feature/mute

feat(lsp-ltex.el): Remove noises from some operations

Author: jcs090218

CHANGELOG.md

@@ -11,6 +11,7 @@ Check [Keep a Changelog](http://keepachangelog.com/) for recommendations on how
 * Allow latest version return `nil` value if fails.
 * Fix server installation on Unix system (#20)
 * Allow globally installed language server (#23)
+* Implement code actions for "Add to dictionary", "Disable rule" and "Hide false positive" (#26)
 
 ## 0.2.0
 > Released Aug 26, 2021

lsp-ltex.el

@@ -267,14 +267,21 @@ The editor need to send a completion request.")
 ;; (@* "Util" )
 ;;
 
+(defmacro lsp-ltex--mute-apply (&rest body)
+  "Execute BODY without message."
+  (declare (indent 0) (debug t))
+  `(let (message-log-max)
+     (with-temp-message (or (current-message) nil)
+       (let ((inhibit-message t)) ,@body))))
+
 (defun lsp-ltex--s-replace (old new s)
   "Replace OLD with NEW in S."
   (replace-regexp-in-string (regexp-quote old) new s t t))
 
 (defun lsp-ltex--execute (cmd &rest args)
   "Return non-nil if CMD executed succesfully with ARGS."
   (save-window-excursion
-    (let ((inhibit-message t) (message-log-max nil))
+    (lsp-ltex--mute-apply
       (= 0 (shell-command (concat cmd " "
                                   (mapconcat #'shell-quote-argument
                                              (cl-remove-if #'null args)
@@ -291,15 +298,15 @@ Return the written file name, or nil if SYM is not bound."
       (lsp-message "[INFO] Saving `%s' to file \"%s\"" (symbol-name sym) out-file)
       (with-temp-buffer
         (prin1 (eval sym) (current-buffer))
-        (write-file out-file))
+        (lsp-ltex--mute-apply (write-file out-file)))
       out-file)))
 
 (defun lsp-ltex--deserialize-symbol (sym dir &optional mutate)
   "Deserialize SYM from DIR, if MUTATE is non-nil, assign the object to SYM.
 Return the deserialized object, or nil if the SYM.el file dont exist."
   (let ((in-file (expand-file-name
                   (lsp-ltex--s-replace "lsp-ltex--" ""
-                         (symbol-name sym))
+                                       (symbol-name sym))
                   dir))
         res)
     (when (file-exists-p in-file)
@@ -382,7 +389,7 @@ This is use to active language server and check if language server's existence."
    'ltex-ls
    '(:system "ltex-ls")
    `(:download :url ,lsp-ltex--server-download-url
-     :store-path ,(lsp-ltex--downloaded-extension-path))))
+               :store-path ,(lsp-ltex--downloaded-extension-path))))
 
 (defcustom lsp-ltex-version (or (lsp-ltex--current-version)
                                 (lsp-ltex--latest-version)