From 45d74863c3287f559128f4125f5730e093467514 Mon Sep 17 00:00:00 2001
From: cage <cage@invalid>
Date: Fri, 4 Mar 2022 14:36:11 +0100
Subject: [PATCH] - refactored clipboard utitlity function.

---
 src/os-utils.lisp   | 3 +++
 src/package.lisp    | 3 ++-
 src/ui-goodies.lisp | 2 +-
 3 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/src/os-utils.lisp b/src/os-utils.lisp
index 450ccb2..24ef8bd 100644
--- a/src/os-utils.lisp
+++ b/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))
diff --git a/src/package.lisp b/src/package.lisp
index a57b510..0c6ac97 100644
--- a/src/package.lisp
+++ b/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
diff --git a/src/ui-goodies.lisp b/src/ui-goodies.lisp
index a62487f..3245e05 100644
--- a/src/ui-goodies.lisp
+++ b/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 ()