gnu: Add rust-x11-clipboard-0.9.

* gnu/packages/crates-graphics.scm (rust-x11-clipboard-0.9): New
variable.
(rust-x11-clipboard-0.8): Inherit from rust-x11-clipboard-0.9.

Change-Id: I15615e0214d9f16fee2c81a7aa40f1c401e66dc8

1 files changed, 32 insertions, 4 deletions

diff --git a/gnu/packages/crates-graphics.scm b/gnu/packages/crates-graphics.scm
index 523897d5e3..a6254c0ae7 100644
--- a/gnu/packages/crates-graphics.scm
+++ b/gnu/packages/crates-graphics.scm
@@ -6145,20 +6145,23 @@ the platform-specific getters provided by winit, or another library.")
        #:cargo-development-inputs
        (("rust-criterion" ,rust-criterion-0.3))))))
 
-(define-public rust-x11-clipboard-0.8
+(define-public rust-x11-clipboard-0.9
   (package
     (name "rust-x11-clipboard")
-    (version "0.8.1")
+    (version "0.9.3")
     (source
      (origin
        (method url-fetch)
        (uri (crate-uri "x11-clipboard" version))
        (file-name (string-append name "-" version ".tar.gz"))
        (sha256
-        (base32 "1ps0fk1912vzy382fc8l926q8w1l8bxmw72l3kr9bwdi2l8wl6ml"))))
+        (base32 "18rmsm0lrcc4hy2wqs7gn90czv59sv5bj07bbf76nfbysyrp8bb6"))))
     (build-system cargo-build-system)
     (arguments
-     `(#:cargo-inputs (("rust-x11rb" ,rust-x11rb-0.12))
+     `(#:cargo-test-flags '("--release" "--"
+                            "--skip=tests::should_work_but_does_not")
+       #:cargo-inputs (("rust-libc" ,rust-libc-0.2)
+                       ("rust-x11rb" ,rust-x11rb-0.13))
        #:phases
        (modify-phases %standard-phases
          (add-before 'check 'pre-check
@@ -6175,6 +6178,31 @@ the platform-specific getters provided by winit, or another library.")
     (description "This package provides x11 clipboard support for Rust.")
     (license license:expat)))
 
+(define-public rust-x11-clipboard-0.8
+  (package
+    (inherit rust-x11-clipboard-0.9)
+    (name "rust-x11-clipboard")
+    (version "0.8.1")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (crate-uri "x11-clipboard" version))
+       (file-name (string-append name "-" version ".tar.gz"))
+       (sha256
+        (base32 "1ps0fk1912vzy382fc8l926q8w1l8bxmw72l3kr9bwdi2l8wl6ml"))))
+    (arguments
+     `(#:cargo-inputs (("rust-x11rb" ,rust-x11rb-0.12))
+       #:phases
+       (modify-phases %standard-phases
+         (add-before 'check 'pre-check
+           (lambda* (#:key native-inputs inputs #:allow-other-keys)
+             ;; Most tests require an X server.
+             (let ((xvfb (search-input-file (or native-inputs inputs)
+                                            "bin/Xvfb"))
+                   (display ":1"))
+               (setenv "DISPLAY" display)
+               (system (string-append xvfb " " display " &"))))))))))
+
 (define-public rust-x11-clipboard-0.7
   (package
     (inherit rust-x11-clipboard-0.8)