diff --git a/gnu/packages/crates-graphics.scm b/gnu/packages/crates-graphics.scm index 8cf87808ac..eae3ede451 100644 --- a/gnu/packages/crates-graphics.scm +++ b/gnu/packages/crates-graphics.scm @@ -6478,6 +6478,31 @@ 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-x11rb-0.13 (package (name "rust-x11rb") @@ -6676,31 +6701,6 @@ 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 - (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)