15/18: gnu: sbcl-trivial-clipboard: Replace xclip with xsel to reduce closure size.

[guix-commits]

ambrevar pushed a commit to branch master
in repository guix.

commit 1004c54c2e0786ceb210405de96f1106e043ba76
Author: Pierre Neidhardt <mail@ambrevar.xyz>
AuthorDate: Thu Jul 7 13:59:52 2022 +0200

    gnu: sbcl-trivial-clipboard: Replace xclip with xsel to reduce closure size.
    
    * gnu/packages/lisp-xyz.scm (sbcl-trivial-clipboard)[inputs]: Replace xclip
    with xsel.
    [arguments]: Adapt reference.
    
    This takes the closure size of cl-trivial-clipboard from 90 MiB down to 78 
MiB.
---
 gnu/packages/lisp-xyz.scm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm
index 1a8491a00f..90c89419b9 100644
--- a/gnu/packages/lisp-xyz.scm
+++ b/gnu/packages/lisp-xyz.scm
@@ -3853,7 +3853,9 @@ client and server.")
            "0apkgqrscylw3hhm5x2vs0z3hz6h7zd7dl5y3wr2zl8qjpvpc80k"))))
       (build-system asdf-build-system/sbcl)
       (inputs
-       (list xclip))
+       ;; Pick xsel instead of xclip because its closure size is slightly
+       ;; smaller.
+       (list xsel))
       (native-inputs
        (list sbcl-fiveam))
       (arguments
@@ -3862,8 +3864,8 @@ client and server.")
            (add-after 'unpack 'fix-paths
              (lambda* (#:key inputs #:allow-other-keys)
                (substitute* "src/text.lisp"
-                 (("\"xclip\"")
-                  (string-append "\"" (assoc-ref inputs "xclip") 
"/bin/xclip\""))))))))
+                 (("\"xsel\"")
+                  (string-append "\"" (assoc-ref inputs "xsel") 
"/bin/xsel\""))))))))
       (home-page "https://github.com/snmsts/trivial-clipboard";)
       (synopsis "Access system clipboard in Common Lisp")
       (description