From e30338bda1cb19dc9ee2e3ad8f4cc50974f6e626 Mon Sep 17 00:00:00 2001 From: Herman Rimm Date: Tue, 24 Dec 2024 11:11:47 +0100 Subject: [PATCH] gnu: rust-x11-clipboard-0.8: Order alphabetically. * gnu/packages/crates-graphics.scm (rust-x11-clipboard-0.8): Order. Change-Id: I808c9257b4528b4e569d8a92112aac590f914007 Signed-off-by: Efraim Flashner --- gnu/packages/crates-graphics.scm | 50 ++++++++++++++++---------------- 1 file changed, 25 insertions(+), 25 deletions(-) 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)