me/guix
Archived
1
0
Fork 0
Code Activity

gnu: xvfb-run: Update to 1.20.11-1.

Browse source 
* gnu/packages/xorg.scm (xvfb-run): Update to 1.20.11-1.
[phases]: Use gexps.
{build}: Use search-input-file.
This commit is contained in:
Maxim Cournoyer 2022-08-22 21:26:49 -04:00
parent 8ec901a885
commit 8784bbd510
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 54 additions and 52 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
gnu/packages/xorg.scm
View file

@ -24,7 +24,7 @@
;;; Copyright © 2020 Liliana Marie Prikler <liliana.prikler@gmail.com>
;;; Copyright © 2020 Florian Pelz <pelzflorian@pelzflorian.de>
;;; Copyright © 2020, 2021 Michael Rohleder <mike@rohleder.de>
;;; Copyright © 2020, 2021 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2020, 2021, 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2020 Jean-Baptiste Note <jean-baptiste.note@m4x.org>
;;; Copyright © 2021 Matthew James Kraai <kraai@ftbfs.org>
;;; Copyright © 2021 Nicolò Balzarotti <nicolo@nixo.xyz>
@ -6715,33 +6715,33 @@ 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
(list
#: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))
(let* ((diff.gz (basename #$source))
(diff (substring diff.gz 0 (string-rindex diff.gz #\.))))
(mkdir "source")
(chdir "source")
(copy-file source diff.gz)
(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 _
(lambda* (#:key inputs #:allow-other-keys)
(chmod "xvfb-run" #o755)
(substitute* "xvfb-run"
(("(\\(| )(fmt|stty|awk|cat|kill|getopt|mktemp|touch|rm|mcookie)"
@ -6750,7 +6750,9 @@ box, and a calendar. It uses GTK+, and will match your desktop theme.")
;; These also feature in UI messages, so be more strict.
(("(AUTHFILE |command -v |exec )(Xvfb|xauth)"
_ prefix command)
(string-append prefix (which 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
@ -6764,15 +6766,15 @@ box, and a calendar. It uses GTK+, and will match your desktop theme.")
(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")))
(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))
xauth
xorg-server))
(native-inputs
(list xterm)) ; for the test
;; This script is not part of the upstream xorg-server. It is provided only