Uniformize clipboard messages.

source/buffer.lisp

@@ -1190,7 +1190,7 @@ proceeding."
 (define-command copy-url ()
   "Save current URL to clipboard."
   (copy-to-clipboard (render-url (url (current-buffer))))
-  (echo "~a copied to clipboard." (render-url (url (current-buffer)))))
+  (echo "~s copied to clipboard." (render-url (url (current-buffer)))))
 
 (define-command copy-title ()
   "Save current page title to clipboard."

source/color.lisp

@@ -31,7 +31,7 @@
           "Copy the color as hex #XXXXXX string."
           (let ((hex (cl-colors2:print-hex (first colors))))
             (ffi-buffer-copy (current-buffer) hex)
-            (echo "Copied ~a to clipboard!" hex)))
+            (echo "~s copied to clipboard." hex)))
         (lambda-command copy-as-rgb* (colors)
           "Copy the color as CSS rgb() function string."
           (let ((rgb (cl-colors2:print-css-rgb/a (first colors))))

source/foreign-interface.lisp

@@ -303,7 +303,7 @@ Should return the copied text or NIL, if something goes wrong."
 
       (sera:lret ((input (if text-provided-p text (copy))))
         (copy-to-clipboard input)
-        (echo "Text copied: ~s" input)))))
+        (echo "~s copied to clipboard." input)))))
 
 (define-ffi-generic ffi-buffer-paste (buffer &optional text)
   "Paste the last clipboard entry into BUFFER.

source/mode/prompt-buffer.lisp

@@ -456,7 +456,7 @@ Only available if `prompter:enable-marks-p' is non-nil."
          (text (str:join +newline+ (reverse props))))
     (unless (str:emptyp text)
       (trivial-clipboard:text text)
-      (echo "Copied ~s to clipboard." text))))
+      (echo "~s copied to clipboard." text))))
 
 (define-command-prompt paste (prompt-buffer)
   "Paste clipboard text to input."

source/renderer/gtk.lisp

@@ -2097,9 +2097,10 @@ As a second value, return the current buffer index starting from 0."
                (progn
                  (webkit:webkit-web-view-execute-editing-command
                   (gtk-object gtk-buffer) webkit2:+webkit-editing-command-copy+)
-                 (calispel:! channel t))
+                 (calispel:! channel t)
+                 (echo "~s copied to clipboard." text))
                (calispel:! channel nil)))
-         (lambda (e) (echo-warning "Cannot copy: ~a" e)))
+         (lambda (e) (echo-warning "~s failed to copy to clipboard." e)))
         (if (calispel:? channel)
             (trivial-clipboard:text)
             nil))))
@@ -2113,7 +2114,7 @@ As a second value, return the current buffer index starting from 0."
          (trivial-clipboard:text text))
        (webkit:webkit-web-view-execute-editing-command
         (gtk-object gtk-buffer) webkit2:+webkit-editing-command-paste+)))
-   (lambda (e) (echo-warning "Cannot paste: ~a" e))))
+   (lambda (e) (echo-warning "~s failed to paste to clipboard." e))))
 
 (defmethod ffi-buffer-cut ((gtk-buffer gtk-buffer))
   (let ((channel (nyxt::make-channel 1)))