402/470: gnu: Add rust-x11-clipboard-0.7.

[guix-commits]

efraim pushed a commit to branch rust-team
in repository guix.

commit 0c907f5d871913bbefecefb29f6f9b67230e3bb4
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Sun Apr 23 17:53:18 2023 +0300

    gnu: Add rust-x11-clipboard-0.7.
    
    * gnu/packages/crates-graphics.scm (rust-x11-clipboard-0.7): New variable.
    (rust-x11-clipboard-0.5): Inherit from rust-x11-clipboard-0.7.
---
 gnu/packages/crates-graphics.scm | 28 ++++++++++++++++++++++------
 1 file changed, 22 insertions(+), 6 deletions(-)

diff --git a/gnu/packages/crates-graphics.scm b/gnu/packages/crates-graphics.scm
index afd8337bbe..a587c11b3a 100644
--- a/gnu/packages/crates-graphics.scm
+++ b/gnu/packages/crates-graphics.scm
@@ -3609,8 +3609,29 @@ the platform-specific getters provided by winit, or 
another library.")
     (description "This package provides Rust bindings to X11")
     (license (list license:expat license:asl2.0))))
 
+(define-public rust-x11-clipboard-0.7
+  (package
+    (name "rust-x11-clipboard")
+    (version "0.7.1")
+    (source (origin
+              (method url-fetch)
+              (uri (crate-uri "x11-clipboard" version))
+              (file-name (string-append name "-" version ".tar.gz"))
+              (sha256
+               (base32
+                "0r3lgslbbdf0mb914n0f9q2pqci407r1pcddwbl7sfvc4alrl2wq"))))
+    (build-system cargo-build-system)
+    (arguments
+     `(#:tests? #f      ; Wants a running X server.
+       #:cargo-inputs (("rust-x11rb" ,rust-x11rb-0.10))))
+    (home-page "https://github.com/quininer/x11-clipboard";)
+    (synopsis "x11 clipboard support for Rust")
+    (description "This package provides x11 clipboard support for Rust.")
+    (license license:expat)))
+
 (define-public rust-x11-clipboard-0.5
   (package
+    (inherit rust-x11-clipboard-0.7)
     (name "rust-x11-clipboard")
     (version "0.5.1")
     (source
@@ -3620,15 +3641,10 @@ the platform-specific getters provided by winit, or 
another library.")
        (file-name (string-append name "-" version ".tar.gz"))
        (sha256
         (base32 "17c5yxxhknrp7y9mc7mp85ra8q4jw12c174m9yzbfr1vs2pkgsg5"))))
-    (build-system cargo-build-system)
     (arguments
      `(#:skip-build? #t
        #:cargo-inputs
-       (("rust-xcb" ,rust-xcb-0.9))))
-    (home-page "https://github.com/quininer/x11-clipboard";)
-    (synopsis "x11 clipboard support for Rust")
-    (description "This package provides x11 clipboard support for Rust.")
-    (license license:expat)))
+       (("rust-xcb" ,rust-xcb-0.9))))))
 
 (define-public rust-x11-dl-2
   (package