From 8784bbd510c08991b47cd1141ce222b0ad9c92dc Mon Sep 17 00:00:00 2001 From: Maxim Cournoyer Date: Mon, 22 Aug 2022 21:26:49 -0400 Subject: gnu: xvfb-run: Update to 1.20.11-1. * gnu/packages/xorg.scm (xvfb-run): Update to 1.20.11-1. [phases]: Use gexps. {build}: Use search-input-file. --- gnu/packages/xorg.scm | 106 +++++++++++++++++++++++++------------------------- 1 file changed, 54 insertions(+), 52 deletions(-) (limited to 'gnu/packages') diff --git a/gnu/packages/xorg.scm b/gnu/packages/xorg.scm index 61eae0554a..4cde48aa1b 100644 --- a/gnu/packages/xorg.scm +++ b/gnu/packages/xorg.scm @@ -24,7 +24,7 @@ ;;; Copyright © 2020 Liliana Marie Prikler ;;; Copyright © 2020 Florian Pelz ;;; Copyright © 2020, 2021 Michael Rohleder -;;; Copyright © 2020, 2021 Maxim Cournoyer +;;; Copyright © 2020, 2021, 2022 Maxim Cournoyer ;;; Copyright © 2020 Jean-Baptiste Note ;;; Copyright © 2021 Matthew James Kraai ;;; Copyright © 2021 Nicolò Balzarotti @@ -6715,66 +6715,68 @@ box, and a calendar. It uses GTK+, and will match your desktop theme.") (define-public xvfb-run (package (name "xvfb-run") - (version "1.20.10-3") + (version "1.20.11-1") (source (origin (method url-fetch) (uri (string-append "mirror://debian/pool/main/x/xorg-server/" "xorg-server_" version ".diff.gz")) (sha256 - (base32 "08gs9ni8ss8rw4n9cql1s8q05mj517vk1vm1varj1dsx75k4j25v")))) + (base32 "0hq8a2rw2ginxsifrpj3rsf2shxl69ylkc1650ij5vwjhxdr82hh")))) (build-system gnu-build-system) (arguments - `(#:phases - (modify-phases %standard-phases - (replace 'unpack - ;; Apply the source patch to an empty directory. - (lambda* (#:key inputs #:allow-other-keys) - (let* ((source (assoc-ref inputs "source")) - (diff.gz (basename source)) - (diff (substring diff.gz 0 (string-rindex diff.gz #\.)))) - (mkdir "source") - (chdir "source") - (copy-file source diff.gz) - (invoke "gunzip" diff.gz) - (invoke "patch" "-Np1" "-i" diff) - (chdir "debian/local")))) - (delete 'configure) ; nothing to configure - (replace 'build - (lambda _ - (chmod "xvfb-run" #o755) - (substitute* "xvfb-run" - (("(\\(| )(fmt|stty|awk|cat|kill|getopt|mktemp|touch|rm|mcookie)" - _ prefix command) - (string-append prefix (which command))) - ;; These also feature in UI messages, so be more strict. - (("(AUTHFILE |command -v |exec )(Xvfb|xauth)" - _ prefix command) - (string-append prefix (which command)))))) - (replace 'check - ;; There are no tests included. Here we test whether we can run - ;; a simple client and whether xvfb-run --help succeeds - ;; without xvfb-run itself relying on $PATH. - (lambda* (#:key tests? #:allow-other-keys) - (when tests? - (let ((old-PATH (getenv "PATH")) - (xterm (which "xterm"))) - (unsetenv "PATH") - (invoke "./xvfb-run" xterm "-e" "true") - (invoke "./xvfb-run" "--help") - (setenv "PATH" old-PATH))))) - (replace 'install - (lambda* (#:key outputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (bin (string-append out "/bin")) - (man (string-append out "/share/man/man1"))) - (install-file "xvfb-run" bin) - (install-file "xvfb-run.1" man))))))) + (list + #:phases + #~(modify-phases %standard-phases + (replace 'unpack + ;; Apply the source patch to an empty directory. + (lambda* (#:key inputs #:allow-other-keys) + (let* ((diff.gz (basename #$source)) + (diff (substring diff.gz 0 (string-rindex diff.gz #\.)))) + (mkdir "source") + (chdir "source") + (copy-file #$source diff.gz) + (invoke "gunzip" diff.gz) + (invoke "patch" "-Np1" "-i" diff) + (chdir "debian/local")))) + (delete 'configure) ; nothing to configure + (replace 'build + (lambda* (#:key inputs #:allow-other-keys) + (chmod "xvfb-run" #o755) + (substitute* "xvfb-run" + (("(\\(| )(fmt|stty|awk|cat|kill|getopt|mktemp|touch|rm|mcookie)" + _ prefix command) + (string-append prefix (which command))) + ;; These also feature in UI messages, so be more strict. + (("(AUTHFILE |command -v |exec )(Xvfb|xauth)" + _ prefix command) + (string-append prefix + (search-input-file + inputs (string-append "bin/" command))))))) + (replace 'check + ;; There are no tests included. Here we test whether we can run + ;; a simple client and whether xvfb-run --help succeeds + ;; without xvfb-run itself relying on $PATH. + (lambda* (#:key tests? #:allow-other-keys) + (when tests? + (let ((old-PATH (getenv "PATH")) + (xterm (which "xterm"))) + (unsetenv "PATH") + (invoke "./xvfb-run" xterm "-e" "true") + (invoke "./xvfb-run" "--help") + (setenv "PATH" old-PATH))))) + (replace 'install + (lambda _ + (let ((bin (string-append #$output "/bin")) + (man (string-append #$output "/share/man/man1"))) + (install-file "xvfb-run" bin) + (install-file "xvfb-run.1" man))))))) (inputs - (list util-linux ; for getopt - xauth xorg-server)) + (list util-linux ; for getopt + xauth + xorg-server)) (native-inputs - (list xterm)) ; for the test + (list xterm)) ; for the test ;; This script is not part of the upstream xorg-server. It is provided only ;; as a patch added to Debian's package. (home-page "https://packages.debian.org/sid/xorg-server-source") @@ -6785,7 +6787,7 @@ within a virtual X server environment. It sets up an X authority file or uses an existing user-specified one, writes a cookie to it, and then starts the @command{Xvfb} X server as a background process. It also takes care of killing the server and cleaning up before returning the exit status of the command.") - (license (list license:x11 ; the script + (license (list license:x11 ; the script license:gpl2+)))) ; the man page (define-public setroot -- cgit v1.2.3