      ,@body))
 
 (defmacro radian--with-silent-message (regexps &rest body)
-  "Execute BODY, silencing any messages that match REGEXPS.
+  "Silencing any messages that match REGEXPS, execute BODY.
 REGEXPS is a list of strings; if `message' would display a
 message string (not including the trailing newline) matching any
 element of REGEXPS, nothing happens. The REGEXPS need not match

`radian-directory'."
  (let ((truename (file-truename filename)))
    (string-prefix-p radian-directory truename
                     (when (file-name-case-insensitive-p truename)
                       'ignore-case))))

(defmacro radian--with-silent-load (&rest body)

    "Find LSP executables inside node_modules/.bin if present."
    (cl-block nil
      (prog1 command
        (when-let ((project-dir
                    (locate-dominating-file default-directory "node_modules"))
                   (binary
                    (radian--path-join
                     project-dir "node_modules" ".bin" (car command))))
          (when (file-executable-p binary)
            (cl-return (cons binary (cdr command))))))))

