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(-)
@@ -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