- refactored clipboard utitlity function.

src/os-utils.lisp

@@ -213,3 +213,6 @@
            (exit-code (sb-ext:process-exit-code process)))
       (when (/= exit-code 0)
         (error (format nil "File ~s extraction from ~s failed" file-entry zip-file))))))
+
+(defun copy-to-clipboard (text)
+  (trivial-clipboard:text text))

src/package.lisp

@@ -369,7 +369,8 @@
    :open-link-with-program
    :open-resource-with-external-program
    :unzip-file
-   :unzip-single-file))
+   :unzip-single-file
+   :copy-to-clipboard))
 
 (defpackage :text-utils
   (:use

src/ui-goodies.lisp

@@ -1362,7 +1362,7 @@ This makes sense only for gemini file stream, if not this command performs the s
   (when-let* ((selected-line (line-oriented-window:selected-row *open-message-link-window*))
               (url           (line-oriented-window:normal-text selected-line)))
     (with-notify-errors
-      (trivial-clipboard:text url)
+      (os-utils:copy-to-clipboard url)
       (info-message (_ "Address copied to clipboard")))))
 
 (defun close-open-message-link-window ()