From 773edba506e21a678514d2b671c7574defb3b268 Mon Sep 17 00:00:00 2001
From: "Andre A. Gomes" <andremegafone@gmail.com>
Date: Mon, 21 Aug 2023 21:57:32 +0300
Subject: [PATCH] gnu: sbcl-trivial-clipboard: Update to 0.0.0-6.6ddf8d5.

* gnu/packages/lisp-xyz.scm (sbcl-trivial-clipboard): Update to 0.0.0-6.6ddf8d5.
---
 gnu/packages/lisp-xyz.scm | 17 ++++++++++++-----
 1 file changed, 12 insertions(+), 5 deletions(-)

diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm
index e1428d8131..13c40c03f4 100644
--- a/gnu/packages/lisp-xyz.scm
+++ b/gnu/packages/lisp-xyz.scm
@@ -5486,10 +5486,11 @@ (define-public cl-trivial-arguments
   (sbcl-package->cl-source-package sbcl-trivial-arguments))
 
 (define-public sbcl-trivial-clipboard
-  (let ((commit "13b53720306c0e6a13eccf4674d28ee5361127ae"))
+  (let ((commit "6ddf8d5dff8f5c2102af7cd1a1751cbe6408377b")
+        (revision "6"))
     (package
       (name "sbcl-trivial-clipboard")
-      (version (git-version "0.0.0.0" "5" commit))
+      (version (git-version "0.0.0" revision commit))
       (source
        (origin
          (method git-fetch)
@@ -5499,12 +5500,12 @@ (define-public sbcl-trivial-clipboard
          (file-name (git-file-name "trivial-clipboard" version))
          (sha256
           (base32
-           "0l198m1gg2ixc43lqjq1ffd80s1sjxhqf1w83qqa1cn51rra2jp8"))))
+           "04qmm69zyx8rs23pfhgzgxn0j108byv3b7skfdv0h01a76wlhplz"))))
       (build-system asdf-build-system/sbcl)
       (inputs
        ;; Pick xsel instead of xclip because its closure size is slightly
        ;; smaller.
-       (list xsel))
+       (list xsel wl-clipboard))
       (native-inputs
        (list sbcl-fiveam))
       (arguments
@@ -5514,7 +5515,13 @@ (define-public sbcl-trivial-clipboard
              (lambda* (#:key inputs #:allow-other-keys)
                (substitute* "src/text.lisp"
                  (("\"xsel\"")
-                  (string-append "\"" (assoc-ref inputs "xsel") "/bin/xsel\""))))))))
+                  (string-append "\"" (assoc-ref inputs "xsel") "/bin/xsel\"")))
+               (substitute* "src/text.lisp"
+                 (("\"wl-copy\"")
+                  (string-append "\"" (assoc-ref inputs "wl-clipboard") "/bin/wl-copy\"")))
+               (substitute* "src/text.lisp"
+                 (("\"wl-paste\"")
+                  (string-append "\"" (assoc-ref inputs "wl-clipboard") "/bin/wl-paste\""))))))))
       (home-page "https://github.com/snmsts/trivial-clipboard")
       (synopsis "Access system clipboard in Common Lisp")
       (description
-- 
2.41.0