Improve the warning buttons

1 files changed, 4 insertions, 5 deletions

diff --git a/cider-repl.el b/cider-repl.el
index b514b9c0..f774a758 100644
--- a/cider-repl.el
+++ b/cider-repl.el
@@ -565,12 +565,11 @@ If BOL is non-nil insert at the beginning of line."
   "Emit a warning to the REPL and link to the online manual.
 SECTION-ID is the section to link to.  The link is added on the last line.
 FORMAT is a format string to compile with ARGS and display on the REPL."
-  (let ((message (split-string (apply #'format format args) "\n")))
+  (let ((message (apply #'format format args)))
     (cider-repl-emit-interactive-stderr
-     (concat "WARNING: "
-             (mapconcat #'identity (butlast message) "\n  ")
-             (when (cdr message) "\n  ")
-             (cider--manual-button (car (last message)) section-id)))))
+     (concat "WARNING: " message "\n         "
+             (cider--manual-button "More information" section-id)
+             "."))))
 
 (defun cider-repl--emit-output (buffer string face &optional bol)
   "Using BUFFER, emit STRING font-locked with FACE.