diff options
Diffstat (limited to 'gnu/packages/xorg.scm')
| -rw-r--r-- | gnu/packages/xorg.scm | 1765 |
1 files changed, 851 insertions, 914 deletions
diff --git a/gnu/packages/xorg.scm b/gnu/packages/xorg.scm index a63e3392f8..85a93dee30 100644 --- a/gnu/packages/xorg.scm +++ b/gnu/packages/xorg.scm @@ -2,11 +2,11 @@ ;;; Copyright © 2013, 2014 Andreas Enge <andreas@enge.fr> ;;; Copyright © 2014, 2015, 2017, 2018, 2020 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2014, 2015 Eric Bavier <bavier@member.fsf.org> -;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020, 2021 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2015 Eric Dvorsak <eric@dvorsak.fr> ;;; Copyright © 2016 Mathieu Lirzin <mthl@gnu.org> ;;; Copyright © 2015 Cyrill Schenkel <cyrill.schenkel@gmail.com> -;;; Copyright © 2016, 2017, 2019, 2020 Efraim Flashner <efraim@flashner.co.il> +;;; Copyright © 2016, 2017, 2019, 2020, 2021 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016 Nikita <nikita@n0.is> ;;; Copyright © 2016 Alex Kost <alezost@gmail.com> ;;; Copyright © 2016 David Craven <david@craven.ch> @@ -24,11 +24,12 @@ ;;; 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 Maxim Cournoyer <maxim.cournoyer@gmail.com> +;;; Copyright © 2020, 2021 Maxim Cournoyer <maxim.cournoyer@gmail.com> ;;; Copyright © 2020 Jean-Baptiste Note <jean-baptiste.note@m4x.org> ;;; Copyright © 2021 Nicolò Balzarotti <nicolo@nixo.xyz> ;;; Copyright © 2021 Matthew James Kraai <kraai@ftbfs.org> ;;; Copyright © 2021 Brice Waegeneire <brice@waegenei.re> +;;; Copyright © 2021 Matthew James Kraai <kraai@ftbfs.org> ;;; Copyright © 2021 Maxime Devos <maximedevos@telenet.be> ;;; Copyright © 2021 qblade <qblade@protonmail.com> ;;; @@ -52,7 +53,9 @@ #:use-module (guix packages) #:use-module (guix download) #:use-module (guix git-download) + #:use-module (guix build-system copy) #:use-module (guix build-system gnu) + #:use-module (guix build-system meson) #:use-module (guix build-system perl) #:use-module (guix build-system python) #:use-module (guix utils) @@ -66,6 +69,7 @@ #:use-module (gnu packages compression) #:use-module (gnu packages emacs) #:use-module (gnu packages flex) + #:use-module (gnu packages fonts) #:use-module (gnu packages fontutils) #:use-module (gnu packages freedesktop) #:use-module (gnu packages gettext) @@ -84,6 +88,7 @@ #:use-module (gnu packages llvm) #:use-module (gnu packages m4) #:use-module (gnu packages ncurses) + #:use-module (gnu packages onc-rpc) #:use-module (gnu packages pciutils) #:use-module (gnu packages perl) #:use-module (gnu packages perl-check) @@ -101,6 +106,16 @@ +;; When cross-compiling certain packages, "--disable-malloc0returnsnull" +;; needs to be passed. Otherwise, the configure script will try to run a +;; binary for the host on the build machine. +(define (malloc0-flags) + (if (%current-target-system) + ;; At least on glibc-based systems, malloc(0) evaluates to a non-NULL + ;; pointer (except in out-of-memory situations). On other systems, + ;; --enable-malloc0returnsnull might be required instead. + '("--disable-malloc0returnsnull") + '())) ;; packages without propagated input ;; (rationale for this separation: The packages in PROPAGATED_INPUTS need to @@ -137,7 +152,7 @@ (base32 "00m7l90ws72k1qm101sd2rx92ckd50cszyng5d4dd77jncbf9lmq")))) (build-system gnu-build-system) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (inputs `(("xorg-cf-files" ,xorg-cf-files) ("xorgproto" ,xorgproto))) @@ -188,9 +203,9 @@ autotools system.") "0pdngiy8zdhsiqx2am75yfcl36l7kd7d7nl0rss8shcdvsqgmx29")))) (build-system gnu-build-system) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (inputs - `(("xorgproto" ,xorgproto))) + (list xorgproto)) (home-page "https://www.x.org/") (synopsis "Symlink directory into tree") (description "Create a shadow directory of symbolic links to another @@ -213,9 +228,9 @@ directory tree.") "18hiscgljrz10zjcws25bis32nyrg3hzgmiq6scrh7izqmgz0kab")))) (build-system gnu-build-system) (inputs - `(("libxfont" ,libxfont2))) + (list libxfont2)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Convert X font from BDF to PCF") (description @@ -227,18 +242,18 @@ which can be read by any architecture.") (define-public xorgproto (package (name "xorgproto") - (version "2019.2") + (version "2021.5") (source (origin (method url-fetch) - (uri (string-append "mirror://xorg/individual/proto/" + (uri (string-append "ftp://ftp.freedesktop.org/pub/xorg//individual/proto/" "xorgproto-" version ".tar.bz2")) (sha256 (base32 - "13kvir8dz9dvzhvyfndpff1z7k8h14s7kkl7mbl427andhax1v26")))) + "05d0kib351qmnlfimaznaw0220fr0ym7fx2gn9h2jqxxilxncbxa")))) (build-system gnu-build-system) (propagated-inputs ;; To get util-macros in (almost?) all package inputs. - `(("util-macros" ,util-macros))) + (list util-macros)) (home-page "https://cgit.freedesktop.org/xorg/proto/xorgproto") (synopsis "Xorg protocol headers") (description @@ -261,7 +276,7 @@ the core protocol and (many) extensions for the X Window System.") (base32 "07hvfm84scz8zjw14riiln2v4w03jlhp756ypwhq27g48jmic8a6")))) (build-system gnu-build-system) - (native-inputs `(("pkg-config" ,pkg-config))) + (native-inputs (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg BigReqsProto protocol headers") (description @@ -286,9 +301,9 @@ requests that exceed 262140 bytes in length.") "1z0crmf669hirw4s7972mmp8xig80kfndja9h559haqbpvq5k4q4")))) (build-system gnu-build-system) (inputs - `(("xorgproto" ,xorgproto))) + (list xorgproto)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg CompositeProto protocol headers") (description @@ -312,7 +327,7 @@ the damage protocol.") (base32 "0nzwr5pv9hg7c21n995pdiv0zqhs91yz3r8rn3aska4ykcp12z2w")))) (build-system gnu-build-system) - (native-inputs `(("pkg-config" ,pkg-config))) + (native-inputs (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg DamageProto protocol headers") (description @@ -336,7 +351,7 @@ the damage protocol.") (base32 "02b5x9dkgajizm8dqyx2w6hmqx3v25l67mgf35nj6sz0lgk52877")))) (build-system gnu-build-system) - (native-inputs `(("pkg-config" ,pkg-config))) + (native-inputs (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg DMXProto protocol headers") (description @@ -418,11 +433,9 @@ provided.") (list (string-append "--with-appdefaultdir=" %output ,%app-defaults-dir)))) (inputs - `(("libxaw" ,libxaw) - ("libxmu" ,libxmu) - ("libxt" ,libxt))) + (list libxaw libxmu libxt)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Tool to browse and edit X Toolkit resource specifications") (description @@ -451,9 +464,9 @@ Resources file.") (base32 "0caafx0yqqnqyvbalxhh3mb0r9v36xmcy5zjhygb2i508dhy35mx")))) (build-system gnu-build-system) (inputs - `(("mkfontscale" ,mkfontscale))) + (list mkfontscale)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg font encoding files") (description "Xorg font encoding files.") @@ -488,11 +501,9 @@ Resources file.") "0m60f5bd0caambrk8ksknb5dks7wzsg7g7xaf0j21jxmx8rq9h5j")) (build-system gnu-build-system) (inputs - `(("bdftopcf" ,bdftopcf) - ("font-util" ,font-util) - ("mkfontdir" ,mkfontdir))) + (list bdftopcf font-util mkfontdir)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (arguments `(#:configure-flags (list ;; install fonts into subdirectory of package output instead of @@ -513,11 +524,9 @@ Resources file.") "02advcv9lyxpvrjv8bjh1b797lzg6jvhipclz49z8r8y98g4l0n6")) (build-system gnu-build-system) (inputs - `(("bdftopcf" ,bdftopcf) - ("font-util" ,font-util) - ("mkfontdir" ,mkfontdir))) + (list bdftopcf font-util mkfontdir)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (arguments `(#:configure-flags (list (string-append "--with-fontrootdir=" %output "/share/fonts/X11")))) @@ -541,7 +550,7 @@ Resources file.") name version "0xjjjindczv3g7m1597l0x19zz75xy70wh5garghz61fpzl1l4gk")) (build-system gnu-build-system) - (native-inputs `(("pkg-config" ,pkg-config))) + (native-inputs (list pkg-config)) (arguments `(#:phases (modify-phases %standard-phases (add-after @@ -576,10 +585,9 @@ For example: @code{6x10}, @code{9x15bold}, etc.") "1x246dfnxnmflzf0qzy62k8jdpkb6jkgspcjgbk8jcq9lw99npah")) (build-system gnu-build-system) (inputs - `(("mkfontdir" ,mkfontdir) - ("bdftopcf" ,bdftopcf))) + (list mkfontdir bdftopcf)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg arabic-misc font") (description "Xorg arabic-misc font.") @@ -606,10 +614,9 @@ For example: @code{6x10}, @code{9x15bold}, etc.") "0ai1v4n61k8j9x2a1knvfbl2xjxk3xxmqaq3p9vpqrspc69k31kf")) (build-system gnu-build-system) (inputs - `(("mkfontdir" ,mkfontdir) - ("bdftopcf" ,bdftopcf))) + (list mkfontdir bdftopcf)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg cronyx-cyrillic font") (description "Xorg cronyx-cyrillic font.") @@ -632,10 +639,9 @@ For example: @code{6x10}, @code{9x15bold}, etc.") "0yzza0l4zwyy7accr1s8ab7fjqkpwggqydbm2vc19scdby5xz7g1")) (build-system gnu-build-system) (inputs - `(("mkfontdir" ,mkfontdir) - ("bdftopcf" ,bdftopcf))) + (list mkfontdir bdftopcf)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg dec-misc font") (description "Xorg dec-misc font.") @@ -654,10 +660,9 @@ For example: @code{6x10}, @code{9x15bold}, etc.") "0rx8q02rkx673a7skkpnvfkg28i8gmqzgf25s9yi0lar915sn92q")) (build-system gnu-build-system) (inputs - `(("mkfontdir" ,mkfontdir) - ("bdftopcf" ,bdftopcf))) + (list mkfontdir bdftopcf)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg isas-misc font") (description "Xorg isas-misc font.") @@ -677,10 +682,9 @@ For example: @code{6x10}, @code{9x15bold}, etc.") "1dldxlh54zq1yzfnrh83j5vm0k4ijprrs5yl18gm3n9j1z0q2cws")) (build-system gnu-build-system) (inputs - `(("mkfontdir" ,mkfontdir) - ("bdftopcf" ,bdftopcf))) + (list mkfontdir bdftopcf)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg micro-misc font") (description "Xorg micro-misc font.") @@ -696,10 +700,9 @@ For example: @code{6x10}, @code{9x15bold}, etc.") "0q2ybxs8wvylvw95j6x9i800rismsmx4b587alwbfqiw6biy63z4")) (build-system gnu-build-system) (inputs - `(("mkfontdir" ,mkfontdir) - ("bdftopcf" ,bdftopcf))) + (list mkfontdir bdftopcf)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg misc-cyrillic fonts") (description "Xorg misc-cyrillic fonts.") @@ -715,10 +718,9 @@ For example: @code{6x10}, @code{9x15bold}, etc.") "1q2azkdwc4x3kh53xclwpf9q654k70lhiyns1cjq594wvxnhz339")) (build-system gnu-build-system) (inputs - `(("mkfontdir" ,mkfontdir) - ("mkfontscale" ,mkfontscale))) + (list mkfontdir mkfontscale)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg misc-ethiopic fonts") (description "Xorg misc-ethiopic fonts.") @@ -738,11 +740,9 @@ For example: @code{6x10}, @code{9x15bold}, etc.") "150pq6n8n984fah34n3k133kggn9v0c5k07igv29sxp1wi07krxq")) (build-system gnu-build-system) (inputs - `(("mkfontdir" ,mkfontdir) - ("font-util" ,font-util) - ("bdftopcf" ,bdftopcf))) + (list mkfontdir font-util bdftopcf)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (arguments `(#:configure-flags (list (string-append "--with-fontrootdir=" %output "/share/fonts/X11")))) @@ -761,10 +761,9 @@ For example: @code{6x10}, @code{9x15bold}, etc.") "13qghgr1zzpv64m0p42195k1kc77pksiv059fdvijz1n6kdplpxx")) (build-system gnu-build-system) (inputs - `(("mkfontdir" ,mkfontdir) - ("bdftopcf" ,bdftopcf))) + (list mkfontdir bdftopcf)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg mutt-misc fonts") (description "Xorg mutt-misc fonts.") @@ -780,11 +779,9 @@ For example: @code{6x10}, @code{9x15bold}, etc.") "0nkym3n48b4v36y4s927bbkjnsmicajarnf6vlp7wxp0as304i74")) (build-system gnu-build-system) (inputs - `(("mkfontdir" ,mkfontdir) - ("font-util" ,font-util) - ("bdftopcf" ,bdftopcf))) + (list mkfontdir font-util bdftopcf)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (arguments `(#:configure-flags (list (string-append "--with-fontrootdir=" %output "/share/fonts/X11")))) @@ -803,10 +800,9 @@ For example: @code{6x10}, @code{9x15bold}, etc.") "0yayf1qlv7irf58nngddz2f1q04qkpr5jwp4aja2j5gyvzl32hl2")) (build-system gnu-build-system) (inputs - `(("mkfontdir" ,mkfontdir) - ("bdftopcf" ,bdftopcf))) + (list mkfontdir bdftopcf)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg screen-cyrillic fonts") (description "Xorg screen-cyrillic fonts.") @@ -822,10 +818,9 @@ For example: @code{6x10}, @code{9x15bold}, etc.") "1xfgcx4gsgik5mkgkca31fj3w72jw9iw76qyrajrsz1lp8ka6hr0")) (build-system gnu-build-system) (inputs - `(("mkfontdir" ,mkfontdir) - ("bdftopcf" ,bdftopcf))) + (list mkfontdir bdftopcf)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg sony-misc fonts") (description "Xorg sony-misc fonts.") @@ -841,10 +836,9 @@ For example: @code{6x10}, @code{9x15bold}, etc.") "1q6jcqrffg9q5f5raivzwx9ffvf7r11g6g0b125na1bhpz5ly7s8")) (build-system gnu-build-system) (inputs - `(("mkfontdir" ,mkfontdir) - ("bdftopcf" ,bdftopcf))) + (list mkfontdir bdftopcf)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg sun-misc fonts") (description "Xorg sun-misc fonts.") @@ -865,7 +859,7 @@ For example: @code{6x10}, @code{9x15bold}, etc.") (sha256 (base32 "10i2a8b3d1h3w7klsqf31iz7zbd6l8wglil54fkhdb1385281n1s")))) (build-system gnu-build-system) - (native-inputs `(("pkg-config" ,pkg-config))) + (native-inputs (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg font utilities") (description @@ -882,10 +876,9 @@ For example: @code{6x10}, @code{9x15bold}, etc.") "181n1bgq8vxfxqicmy1jpm1hnr6gwn1kdhl6hr4frjigs1ikpldb")) (build-system gnu-build-system) (inputs - `(("mkfontdir" ,mkfontdir) - ("bdftopcf" ,bdftopcf))) + (list mkfontdir bdftopcf)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg winitzki-cyrillic font") (description "Xorg winitzki-cyrillic font.") @@ -901,10 +894,9 @@ For example: @code{6x10}, @code{9x15bold}, etc.") "0jp3zc0qfdaqfkgzrb44vi9vi0a8ygb35wp082yz7rvvxhmg9sya")) (build-system gnu-build-system) (inputs - `(("mkfontdir" ,mkfontdir) - ("mkfontscale" ,mkfontscale))) + (list mkfontdir mkfontscale)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg xfree86-type1 font") (description "Xorg xfree86-type1 font.") @@ -926,7 +918,7 @@ For example: @code{6x10}, @code{9x15bold}, etc.") (base32 "1f2sdsd74y34nnaf4m1zlcbhyv8xb6irnisc99f84c4ivnq4d415")))) (build-system gnu-build-system) - (native-inputs `(("pkg-config" ,pkg-config))) + (native-inputs (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg FontsProto protocol headers") (description @@ -950,7 +942,7 @@ the fonts protocol.") (base32 "0h5ykmcddwid5qj6sbrszgkcypwn3mslvswxpgy2n2iixnyr9amd")))) (build-system gnu-build-system) - (native-inputs `(("pkg-config" ,pkg-config))) + (native-inputs (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg GLProto protocol headers") (description @@ -975,9 +967,9 @@ rendering commands to the X server.") "1ik0mdidmyvy48hn8p2hwvf3535rf3m96hhf0mvcqrbj44x23vp6")))) (build-system gnu-build-system) (inputs - `(("libice" ,libice))) + (list libice)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "ICE authority file utility") (description @@ -1003,7 +995,7 @@ authentication records.") (base32 "07gk7v006zqn3dcfh16l06gnccy7xnqywf3vl9c209ikazsnlfl9")))) (build-system gnu-build-system) - (native-inputs `(("pkg-config" ,pkg-config))) + (native-inputs (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg InputProto protocol headers") (description @@ -1027,7 +1019,7 @@ devices management such as graphic tablets.") (base32 "0mxqj1pzhjpz9495vrjnpi10kv2n1s4vs7di0sh3yvipfq5j30pq")))) (build-system gnu-build-system) - (native-inputs `(("pkg-config" ,pkg-config))) + (native-inputs (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg KBProto protocol headers") (description @@ -1058,11 +1050,9 @@ of new capabilities and controls for text keyboards.") (arguments '(#:configure-flags '("--disable-static"))) (inputs - `(("xorgproto" ,xorgproto) - ("libxext" ,libxext) - ("libx11" ,libx11))) + (list xorgproto libxext libx11)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg DMX library") (description @@ -1085,8 +1075,8 @@ of new capabilities and controls for text keyboards.") (build-system gnu-build-system) (arguments '(#:configure-flags '("--disable-static"))) - (native-inputs `(("pkg-config" ,pkg-config))) - (inputs `(("xorgproto" ,xorgproto))) + (native-inputs (list pkg-config)) + (inputs (list xorgproto)) (home-page "https://www.x.org/") (synopsis "Xorg shared memory fences library") (description @@ -1115,10 +1105,9 @@ synchronization between the X server and direct-rendering clients.") (arguments '(#:configure-flags '("--disable-static"))) (inputs - `(("zlib" ,zlib) - ("xorgproto" ,xorgproto))) + (list zlib xorgproto)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://gitlab.freedesktop.org/xorg/lib/libfontenc") (synopsis "Xorg font encoding library") (description "Xorg font encoding library.") @@ -1140,10 +1129,9 @@ synchronization between the X server and direct-rendering clients.") (base32 "03xxyvpfa3rhqcld4p2chkil482jn9cp80hj17jdybcv2hkkgqf8")))) (build-system gnu-build-system) (inputs - `(("xtrans" ,xtrans) - ("xorgproto" ,xorgproto))) + (list xtrans xorgproto)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg Font Service client library") (description @@ -1189,10 +1177,9 @@ themselves.") (string-append "-L" zlib "/lib -lz"))) #t)))))) (inputs - `(("zlib" ,zlib) - ("pciutils" ,pciutils))) ;for 'pci.ids.gz' + (list zlib pciutils)) ;for 'pci.ids.gz' (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg PCI access library") (description "Xorg Generic PCI access library.") @@ -1214,7 +1201,7 @@ themselves.") (base32 "0cz7s9w8lqgzinicd4g36rjg08zhsbyngh0w68c3np8nlc8mkl74")))) (build-system gnu-build-system) - (native-inputs `(("pkg-config" ,pkg-config))) + (native-inputs (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Library with pthread stubs") (description @@ -1244,12 +1231,12 @@ hit when running single-threaded.") (arguments '(#:configure-flags '("--disable-static"))) (propagated-inputs - `(("libice" ,libice))) ; SMlib.h includes ICElib.h + (list libice)) ; SMlib.h includes ICElib.h (inputs `(("xtrans" ,xtrans) ("libuuid" ,util-linux "lib"))) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg Session Management library") (description "Xorg Session Management library.") @@ -1272,11 +1259,9 @@ hit when running single-threaded.") "1p0flwb67xawyv6yhri9w17m1i4lji5qnd0gq8v1vsfb8zw7rw15")))) (build-system gnu-build-system) (inputs - `(("xorgproto" ,xorgproto) - ("libxext" ,libxext) - ("libx11" ,libx11))) + (list xorgproto libxext libx11)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg WindowsWM library") (description @@ -1306,11 +1291,9 @@ with the Cygwin XWin server when running X11 in a rootless mode.") '(#:configure-flags '("--disable-static"))) (propagated-inputs ;; xcomposite.pc refers to all these. - `(("xorgproto" ,xorgproto) - ("libxfixes" ,libxfixes) - ("libx11" ,libx11))) + (list xorgproto libxfixes libx11)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg Composite library") (description @@ -1336,10 +1319,9 @@ with the Cygwin XWin server when running X11 in a rootless mode.") (arguments '(#:configure-flags '("--disable-static"))) (inputs - `(("libbsd" ,libbsd) - ("xorgproto" ,xorgproto))) + (list libbsd xorgproto)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg Display Manager Control Protocol library") (description "Xorg Display Manager Control Protocol library.") @@ -1369,10 +1351,9 @@ with the Cygwin XWin server when running X11 in a rootless mode.") ("freetype" ,freetype) ("fontconfig" ,fontconfig))) (inputs - `(("libx11" ,libx11) - ("xorgproto" ,xorgproto))) + (list libx11 xorgproto)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg FreeType library") (description @@ -1387,22 +1368,23 @@ configuration files.") (name "libxkbfile") (version "1.1.0") (source - (origin - (method url-fetch) - (uri (string-append - "mirror://xorg/individual/lib/libxkbfile-" - version - ".tar.bz2")) - (sha256 - (base32 - "1irq9crvscd3yb8sr802dhvvfr35jdy1n2yz094xplmd42mbv3bm")))) + (origin + (method url-fetch) + (uri (string-append + "mirror://xorg/individual/lib/libxkbfile-" + version + ".tar.bz2")) + (sha256 + (base32 + "1irq9crvscd3yb8sr802dhvvfr35jdy1n2yz094xplmd42mbv3bm")))) (build-system gnu-build-system) (arguments '(#:configure-flags '("--disable-static"))) - (inputs - `(("libx11" ,libx11))) + (propagated-inputs + ;; Required in xkbfile.pc. + (list libx11 kbproto)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg XKB file handling library") (description "Xorg XKB file handling library.") @@ -1427,11 +1409,9 @@ configuration files.") (arguments '(#:configure-flags '("--disable-static"))) (inputs - `(("libxt" ,libxt) - ("xorgproto" ,xorgproto) - ("libxext" ,libxext))) + (list libxt xorgproto libxext)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg Xmu library") (description @@ -1461,9 +1441,7 @@ treat it as part of their software base when porting.") (arguments '(#:configure-flags '("--disable-static"))) (inputs - `(("libxt" ,libxt) - ("xorgproto" ,xorgproto) - ("libxext" ,libxext))) + (list libxt xorgproto libxext)) (native-inputs `(("gettext" ,gettext-minimal) ("pkg-config" ,pkg-config))) @@ -1476,7 +1454,7 @@ treat it as part of their software base when porting.") (define-public libxres (package (name "libxres") - (version "1.2.0") + (version "1.2.1") (source (origin (method url-fetch) @@ -1486,16 +1464,14 @@ treat it as part of their software base when porting.") ".tar.bz2")) (sha256 (base32 - "1m0jr0lbz9ixpp9ihk68349q0i7ry2379lnfzdy4mrl86ijc2xgz")))) + "049b7dk6hx47161hg47ryjrm6pwsp27r5pby05b0wqb1pcggprmn")))) (build-system gnu-build-system) (arguments '(#:configure-flags '("--disable-static"))) (inputs - `(("xorgproto" ,xorgproto) - ("libxext" ,libxext) - ("libx11" ,libx11))) + (list xorgproto libxext libx11)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg Resource extension library") (description "X Resource extension library.") @@ -1520,11 +1496,9 @@ treat it as part of their software base when porting.") (arguments '(#:configure-flags '("--disable-static"))) (propagated-inputs - `(("libx11" ,libx11) - ("libxext" ,libxext) - ("xorgproto" ,xorgproto))) + (list libx11 libxext xorgproto)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg Screen Saver library") (description "X11 Screen Saver extension client library.") @@ -1546,12 +1520,11 @@ treat it as part of their software base when porting.") (arguments '(#:configure-flags '("--disable-static"))) (propagated-inputs - `(("xorgproto" ,xorgproto))) + (list xorgproto)) (inputs - `(("libx11" ,libx11) - ("libxext" ,libxext))) + (list libx11 libxext)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg XFree86-DGA library") (description "Client library for the XFree86-DGA extension.") @@ -1577,9 +1550,9 @@ treat it as part of their software base when porting.") (patches (search-patches "luit-posix.patch")))) (build-system gnu-build-system) (inputs - `(("libfontenc" ,libfontenc))) + (list libfontenc)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Convert terminal I/O from legacy encodings to UTF-8") (description @@ -1606,8 +1579,8 @@ input from UTF-8 into the locale's encoding.") "072h9nzh8s5vqfz35dli4fba36fnr219asjrb7p89n8ph0paan6m")))) (build-system gnu-build-system) (inputs - `(("xorgproto" ,xorgproto))) - (native-inputs `(("pkg-config" ,pkg-config))) + (list xorgproto)) + (native-inputs (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg makedepend utility") (description @@ -1630,12 +1603,9 @@ input from UTF-8 into the locale's encoding.") (base32 "1ixsnsm2mn0zy9ksdid0lj6irnhvasfik9mz8bbrs5sajzmra16a")))) (build-system gnu-build-system) (inputs - `(("zlib" ,zlib) - ("xorgproto" ,xorgproto) - ("freetype" ,freetype) - ("libfontenc" ,libfontenc))) + (list zlib xorgproto freetype libfontenc)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Create an index of scalable font files for X server") (description @@ -1685,7 +1655,7 @@ mechanism than copying the contents of the source pixmap.") (base32 "06liap8n4s25sgp27d371cc7yg9a08dxcr3pmdjp761vyin3360j")))) (build-system gnu-build-system) - (native-inputs `(("pkg-config" ,pkg-config))) + (native-inputs (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg PrintProto protocol headers") (description @@ -1709,7 +1679,7 @@ network-transparent printing system.") (base32 "0s4496z61y5q45q20gldwpf788b9nsa8hb13gnck1mwwwwrmarsc")))) (build-system gnu-build-system) - (native-inputs `(("pkg-config" ,pkg-config))) + (native-inputs (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg RandRProto protocol headers") (description @@ -1735,7 +1705,7 @@ window of a screen.") (base32 "0w3kgr1zabwf79bpc28dcnj0fpni6r53rpi82ngjbalj5s6m8xx7")))) (build-system gnu-build-system) - (native-inputs `(("pkg-config" ,pkg-config))) + (native-inputs (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg RecordProto protocol headers") (description @@ -1759,7 +1729,7 @@ of user actions in the X Window System.") (base32 "0dr5xw6s0qmqg0q5pdkb4jkdhaja0vbfqla79qh5j1xjj9dmlwq6")))) (build-system gnu-build-system) - (native-inputs `(("pkg-config" ,pkg-config))) + (native-inputs (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg RenderProto protocol headers") (description @@ -1783,7 +1753,7 @@ as the foundation of a new rendering model within the X Window System.") (base32 "0638iyfiiyjw1hg3139pai0j6m65gkskrvd9684zgc6ydcx00riw")))) (build-system gnu-build-system) - (native-inputs `(("pkg-config" ,pkg-config))) + (native-inputs (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg ResourceProto protocol headers") (description @@ -1807,7 +1777,7 @@ query the X server about its usage of various resources.") (base32 "0rfdbfwd35d761xkfifcscx56q0n56043ixlmv70r4v4l66hmdwb")))) (build-system gnu-build-system) - (native-inputs `(("pkg-config" ,pkg-config))) + (native-inputs (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg ScrnSaverProto protocol headers") (description @@ -1829,9 +1799,9 @@ features and to query screensaver info on specific windows.") (base32 "0crczl25zynkrslmm8sjaxszhrh4i33m7h5fg4wfdb3k8aarxjyz")))) (build-system gnu-build-system) (inputs - `(("xorgproto" ,xorgproto))) + (list xorgproto)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Register X sessions in system utmp/utmpx databases") (description @@ -1857,11 +1827,9 @@ used with other display managers such as gdm or kdm.") "1xdrxs65v7d0rw1yaz0vsz55w4hxym99216p085ya9978j379wlg")))) (build-system gnu-build-system) (inputs - `(("libxkbfile" ,libxkbfile) - ("xkeyboard-config" ,xkeyboard-config) - ("libx11" ,libx11))) + (list libxkbfile xkeyboard-config libx11)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (arguments `(#:configure-flags (list (string-append "--with-xkb-config-root=" @@ -1892,10 +1860,9 @@ listed on the command line.") "0rkjyzmsdqmlrkx8gy2j4q6iksk58hcc92xzdprkf8kml9ar3wbc")))) (build-system gnu-build-system) (inputs - `(("libxt" ,libxt) - ("libxmu" ,libxmu))) + (list libxt libxmu)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Session Manager Proxy") (description @@ -1907,7 +1874,7 @@ management to participate in an X11R6 session.") (define-public util-macros (package (name "util-macros") - (version "1.19.2") + (version "1.19.3") (source (origin (method url-fetch) @@ -1917,9 +1884,9 @@ management to participate in an X11R6 session.") ".tar.bz2")) (sha256 (base32 - "04p7ydqxgq37jklnfj18b70zsifiz4h50wvrk94i2112mmv37r6p")))) + "0w8ryfqylprz37zj9grl4jzdsqq67ibfwq5raj7vm1i7kmp2x08g")))) (build-system gnu-build-system) - (native-inputs `(("pkg-config" ,pkg-config))) + (native-inputs (list pkg-config)) (arguments `(#:phases (modify-phases %standard-phases @@ -1961,7 +1928,7 @@ generate new versions of their configure scripts with autoconf.") (base32 "00m7rh3pwmsld4d5fpii3xfk5ciqn17kkk38gfpzrrh8zn4ki067")))) (build-system gnu-build-system) - (native-inputs `(("pkg-config" ,pkg-config))) + (native-inputs (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg VideoProto protocol headers") (description @@ -1985,7 +1952,7 @@ mainly to rescale video playback in the video controller hardware.") (base32 "0syjxgy4m8l94qrm03nvn5k6bkxc8knnlld1gbllym97nvnv0ny0")))) (build-system gnu-build-system) - (native-inputs `(("pkg-config" ,pkg-config))) + (native-inputs (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg WindowsWMProto protocol headers") (description @@ -2012,12 +1979,9 @@ server.") "0d3wh6z6znwhfdiv0zaggfj0xgish98xa10yy76b9517zj7hnzhw")))) (build-system gnu-build-system) (inputs - `(("libx11" ,libx11) - ("libxft" ,libxft) - ("libxmu" ,libxmu) - ("libxrender" ,libxrender))) + (list libx11 libxft libxmu libxrender)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "X server performance benchmarker") (description @@ -2038,13 +2002,9 @@ server.") (base32 "032klzzw8r09z36x1272ssd79bcisz8j5p8gbdy111fiknvx27bd")))) (build-system gnu-build-system) (inputs - `(("libxmu" ,libxmu) - ("libxext" ,libxext) - ("libxau" ,libxau) - ("libx11" ,libx11))) + (list libxmu libxext libxau libx11)) (native-inputs - `(("cmdtest" ,cmdtest) - ("pkg-config" ,pkg-config))) + (list cmdtest pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "X authority file utility") (description @@ -2069,10 +2029,9 @@ information used in connecting to the X server.") "1plssg0s3pbslg6rfzxp9sx8ryvn8l32zyvc8zp9zsbsfwjg69rs")))) (build-system gnu-build-system) (inputs - `(("libxcb" ,libxcb) - ("xcb-util" ,xcb-util))) + (list libxcb xcb-util)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Control display backlight") (description @@ -2098,7 +2057,7 @@ the same way.") (base32 "1vh73sc13s7w5r6gnc6irca56s7998bja7wgdivkfn8jccawgw5r")))) (build-system gnu-build-system) - (native-inputs `(("pkg-config" ,pkg-config))) + (native-inputs (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "X bitmaps") (description @@ -2129,9 +2088,9 @@ legacy X clients.") ,%app-defaults-dir "\n"))) #t))))) (inputs - `(("libxaw" ,libxaw))) + (list libxaw)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Hand calculator for the X Window system") (description "Xcalc is a scientific calculator desktop accessory that can @@ -2150,8 +2109,15 @@ emulate a TI-30 or an HP-10C.") "https://xcb.freedesktop.org/dist/xcb-proto-" version ".tar.xz")) (sha256 - (base32 - "01d62r286yfc3rpz714nqdgkl0wk9j0wqkd4ylas1d7r4vmkqshq")))) + (base32 + "01d62r286yfc3rpz714nqdgkl0wk9j0wqkd4ylas1d7r4vmkqshq")) + (modules '((guix build utils))) + (snippet + '(begin + ;; fractions.gcd has been deprecated since python-3.5. + (substitute* "xcbgen/align.py" + (("from fractions import gcd") "from math import gcd")) + #t)))) (build-system gnu-build-system) (native-inputs `(("pkg-config" ,pkg-config) ("python" ,python-minimal-wrapper))) @@ -2185,7 +2151,7 @@ generators in individual language bindings.") (base32 "1pyjv45wivnwap2wvsbrzdvjc5ql8bakkbkrvcv6q9bjjf33ccmi")))) (build-system gnu-build-system) - (native-inputs `(("pkg-config" ,pkg-config))) + (native-inputs (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg XCMiscProto protocol headers") (description @@ -2210,9 +2176,9 @@ to query the server for available resource IDs.") "1ik7gzlp2igz183x70883000ygp99r20x3aah6xhaslbpdhm6n75")))) (build-system gnu-build-system) (inputs - `(("libx11" ,libx11))) + (list libx11)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Device Color Characterization utility") (description @@ -2239,10 +2205,9 @@ X11 Inter-Client Communication Conventions Manual (ICCCM).") "16a96li0s0ggg60v7f6ywxmsrmxdfizcw55ccv7sp4qjfisca7pf")))) (build-system gnu-build-system) (inputs - `(("libxcursor" ,libxcursor) - ("xcursorgen" ,xcursorgen))) + (list libxcursor xcursorgen)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (arguments `(#:configure-flags (list (string-append "--with-cursordir=" @@ -2255,65 +2220,56 @@ X11 Inter-Client Communication Conventions Manual (ICCCM).") X server: @code{handhelds}, @code{redglass} and @code{whiteglass}.") (license license:x11))) - (define-public hackneyed-x11-cursors - ;; The current release 0.8 suffers from non-deterministic build problems. - (let ((revision "1") - (commit "9423cef2e2e5ff6b1d65d61f7108c97bc7f5fdfb")) - (package - (name "hackneyed-x11-cursors") - (version (git-version "0.8.1" revision commit)) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://gitlab.com/Enthymeme/hackneyed-x11-cursors.git") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "0f637i76sdwz3nm1g1iynamq6j0i6k3c70fpl0fmd0dlynm8ga96")))) - (build-system gnu-build-system) - (arguments - `(#:tests? #f ;no test suite - #:make-flags (list (string-append "PREFIX=" %output)) - #:phases - (modify-phases %standard-phases - (delete 'configure) - (add-before 'build 'set-inkscape-environment-variable - (lambda* (#:key inputs #:allow-other-keys) - (let ((inkscape (string-append (assoc-ref inputs "inkscape") - "/bin/inkscape"))) - (setenv "INKSCAPE" inkscape) - #t))) - (add-before 'build 'placate-inkscape-warnings - (lambda _ - (setenv "HOME" (getcwd)) - #t)) - (add-after 'build 'generate-black-cursors - (lambda* (#:key make-flags parallel-build #:allow-other-keys) - (let ((build (assoc-ref %standard-phases 'build)) - (make-flags/extended - `(,@make-flags - "THEME_NAME=Hackneyed-Dark" - "COMMON_SOURCE=theme/common-dark.svg" - "RSVG_SOURCE=theme/right-handed-dark.svg" - "LSVG_SOURCE=theme/left-handed-dark.svg"))) - (build #:make-flags make-flags/extended - #:parallel-build parallel-build)))) - (add-after 'install 'install-black-cursors - (lambda* (#:key make-flags #:allow-other-keys) - (apply invoke `("make" "install" ,@make-flags - "THEME_NAME=Hackneyed-Dark"))))))) - (native-inputs `(("imagemagick" ,imagemagick) - ("inkscape" ,inkscape) - ("xcursorgen" ,xcursorgen))) - (home-page "https://gitlab.com/Enthymeme/hackneyed-x11-cursors") - (synopsis "Classic cursor theme for X11") - (description "Hackneyed is a scalable cursor theme mildly resembling old + (package + (name "hackneyed-x11-cursors") + (version "0.8.2") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://gitlab.com/Enthymeme/hackneyed-x11-cursors.git") + (commit version))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1mjwbny4rid9dzz6xfb8l5rkwki41sfhdp970cf3w2pi9kyg1njs")))) + (build-system gnu-build-system) + (arguments + `(#:tests? #f ;no test suite + #:make-flags (list (string-append "PREFIX=" %output)) + #:phases + (modify-phases %standard-phases + (delete 'configure) + (add-before 'build 'set-inkscape-environment-variable + (lambda* (#:key inputs #:allow-other-keys) + (let ((inkscape (search-input-file inputs "/bin/inkscape"))) + (setenv "INKSCAPE" inkscape)))) + (add-before 'build 'placate-inkscape-warnings + (lambda _ + (setenv "HOME" (getcwd)))) + (add-after 'build 'generate-black-cursors + (lambda* (#:key make-flags parallel-build #:allow-other-keys) + (let ((build (assoc-ref %standard-phases 'build)) + (make-flags/extended + `(,@make-flags + "THEME_NAME=Hackneyed-Dark" + "COMMON_SOURCE=theme/common-dark.svg" + "RSVG_SOURCE=theme/right-handed-dark.svg" + "LSVG_SOURCE=theme/left-handed-dark.svg"))) + (build #:make-flags make-flags/extended + #:parallel-build parallel-build)))) + (add-after 'install 'install-black-cursors + (lambda* (#:key make-flags #:allow-other-keys) + (apply invoke `("make" "install" ,@make-flags + "THEME_NAME=Hackneyed-Dark"))))))) + (native-inputs (list imagemagick inkscape xcursorgen)) + (home-page "https://gitlab.com/Enthymeme/hackneyed-x11-cursors") + (synopsis "Classic cursor theme for X11") + (description "Hackneyed is a scalable cursor theme mildly resembling old Windows 3.x cursors. The cursors are available in white and black colors. A left-handed version of the cursors is also included.") - (license license:x11)))) + (license license:x11))) (define-public xcursorgen (package @@ -2331,10 +2287,9 @@ left-handed version of the cursors is also included.") "0ggbv084cavp52hjgcz3vdj0g018axs0m23c03lpc5sgn92gidim")))) (build-system gnu-build-system) (inputs - `(("libxcursor" ,libxcursor) - ("libpng" ,libpng))) + (list libxcursor libpng)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Create an X cursor file from PNG images") (description @@ -2358,18 +2313,18 @@ left-handed version of the cursors is also included.") "0ldgrj4w2fa8jng4b3f3biaj0wyn8zvya88pnk70d7k12pcqw8rh")))) (build-system gnu-build-system) (inputs - `(("xorgproto" ,xorgproto) - ("libx11" ,libx11) - ("libxxf86vm" ,libxxf86vm) - ("libxxf86dga" ,libxxf86dga) - ("libxtst" ,libxtst) - ("libxrender" ,libxrender) - ("libxinerama" ,libxinerama) - ("libxi" ,libxi) - ("libxcomposite" ,libxcomposite) - ("libdmx" ,libdmx))) - (native-inputs - `(("pkg-config" ,pkg-config))) + (list xorgproto + libx11 + libxxf86vm + libxxf86dga + libxtst + libxrender + libxinerama + libxi + libxcomposite + libdmx)) + (native-inputs + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg display information utility") (description @@ -2397,10 +2352,9 @@ available.") "0lcx8h3zd11m4w8wf7dyp89826d437iz78cyrix436bqx31x5k6r")))) (build-system gnu-build-system) (inputs - `(("mesa" ,mesa) - ("libx11" ,libx11))) + (list mesa libx11)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Query DRI configuration information") (description @@ -2424,13 +2378,11 @@ DRI (Direct Rendering Infrastructure) drivers.") (base32 "1ql592pdhddhkipkrsxn929y9l2nn02a5fh2z3dx47kmzs5y006p")))) (build-system gnu-build-system) + (arguments `(#:configure-flags ',(malloc0-flags))) (inputs - `(("libxrender" ,libxrender) - ("libxrandr" ,libxrandr) - ("xorgproto" ,xorgproto) - ("libx11" ,libx11))) + (list libxrender libxrandr xorgproto libx11)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://gitlab.freedesktop.org/xorg/app/xev") (synopsis "Print contents of X events") (description @@ -2459,7 +2411,7 @@ usage.") (base32 "1c2vma9gqgc2v06rfxdiqgwhxmzk2cbmknwf1ng3m76vr0xb5x7k")))) (build-system gnu-build-system) - (native-inputs `(("pkg-config" ,pkg-config))) + (native-inputs (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg XExtProto protocol headers") (description @@ -2473,7 +2425,7 @@ XC-APPGROUP, XTEST.") (define-public libevdev (package (name "libevdev") - (version "1.9.1") + (version "1.11.0") (source (origin (method url-fetch) @@ -2481,11 +2433,11 @@ XC-APPGROUP, XTEST.") name "-" version ".tar.xz")) (sha256 (base32 - "1jvsphdrs1i54ccjcn6ll26jy42am7h28lbsvwa6pmxgqm43qq7m")))) + "1l628xblk36vh7aqia1fw6hh62af7va0pd70h28112l5i4afmx33")))) (build-system gnu-build-system) (arguments `(#:configure-flags '("--disable-static"))) - (native-inputs `(("python" ,python))) + (native-inputs (list python)) (home-page "https://www.freedesktop.org/wiki/Software/libevdev/") (synopsis "Wrapper library for evdev devices") (description @@ -2518,7 +2470,7 @@ devices, thus making direct access unnecessary.") ("libevdev" ,libevdev) ("mtdev" ,mtdev) ("xorg-server" ,xorg-server))) - (native-inputs `(("pkg-config" ,pkg-config))) + (native-inputs (list pkg-config)) (arguments `(#:configure-flags (list (string-append "--with-sdkdir=" @@ -2535,7 +2487,7 @@ including most mice, keyboards, tablets and touchscreens.") (define-public xf86-input-libinput (package (name "xf86-input-libinput") - (version "1.0.1") + (version "1.1.0") (source (origin (method url-fetch) (uri (string-append @@ -2543,14 +2495,14 @@ including most mice, keyboards, tablets and touchscreens.") name "-" version ".tar.bz2")) (sha256 (base32 - "0nr4r9x8c7y1l0ipivjch5zps093mxmg2nqmfn2934am26fc9ppx")))) + "05ldqr10f2rrnshyk3lc773rz0gp3ccdzwa8n7lsc94i850jl7g1")))) (build-system gnu-build-system) (arguments '(#:configure-flags (list (string-append "--with-sdkdir=" %output "/include/xorg")))) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (inputs `(("libinput" ,libinput-minimal) ("xorg-server" ,xorg-server))) @@ -2578,8 +2530,8 @@ provide all features that libinput supports it does little beyond.") (base32 "1awfq496d082brgjbr60lhm6jvr9537rflwxqdfqwfzjy3n6jxly")))) (build-system gnu-build-system) - (inputs `(("xorg-server" ,xorg-server))) - (native-inputs `(("pkg-config" ,pkg-config))) + (inputs (list xorg-server)) + (native-inputs (list pkg-config)) (arguments `(#:configure-flags (list (string-append "--with-sdkdir=" @@ -2608,8 +2560,8 @@ It is used to control the pointer with a joystick device.") (base32 "12032yg412kyvnmc5fha1in7mpi651d8sa1bk4138s2j2zr01jgp")))) (build-system gnu-build-system) - (inputs `(("xorg-server" ,xorg-server))) - (native-inputs `(("pkg-config" ,pkg-config))) + (inputs (list xorg-server)) + (native-inputs (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Keyboard input driver for X server") (description @@ -2632,8 +2584,8 @@ It is used to control the pointer with a joystick device.") (base32 "1iawr1wyl2qch1mqszcs0s84i92mh4xxprflnycbw1adc18b7v4k")))) (build-system gnu-build-system) - (inputs `(("xorg-server" ,xorg-server))) - (native-inputs `(("pkg-config" ,pkg-config))) + (inputs (list xorg-server)) + (native-inputs (list pkg-config)) (arguments `(#:configure-flags (list (string-append "--with-sdkdir=" @@ -2664,12 +2616,8 @@ as USB mice.") (base32 "0xhm03qywwfgkpfl904d08lx00y28m1b6lqmks5nxizixwk3by3s")))) (build-system gnu-build-system) - (inputs `(("libx11" ,libx11) - ("libxi" ,libxi) - ("libevdev" ,libevdev) - ("mtdev" ,mtdev) - ("xorg-server" ,xorg-server))) - (native-inputs `(("pkg-config" ,pkg-config))) + (inputs (list libx11 libxi libevdev mtdev xorg-server)) + (native-inputs (list pkg-config)) (arguments `(#:configure-flags (list (string-append "--with-sdkdir=" @@ -2700,8 +2648,8 @@ as USB mice.") (base32 "171k8b8s42s3w73l7ln9jqwk88w4l7r1km2blx1vy898c854yvpr")))) (build-system gnu-build-system) - (inputs `(("xorg-server" ,xorg-server))) - (native-inputs `(("pkg-config" ,pkg-config))) + (inputs (list xorg-server)) + (native-inputs (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Void (null) input driver for X server") (description @@ -2711,17 +2659,17 @@ as USB mice.") (define-public xf86-video-amdgpu (package (name "xf86-video-amdgpu") - (version "19.1.0") + (version "21.0.0") (source (origin (method url-fetch) (uri (string-append "mirror://xorg/individual/driver/" "xf86-video-amdgpu-" version ".tar.bz2")) (sha256 - (base32 "0pgy4ihnja0vm8504qw7qxh3pdpa3p9k6967nz15m6b1mvha83jg")))) + (base32 "125dq85n46yqmnmr2hknxwcqicwlvz2b2phf0m963fpg9l1j6y30")))) (build-system gnu-build-system) - (inputs `(("xorg-server" ,xorg-server))) - (native-inputs `(("pkg-config" ,pkg-config))) + (inputs (list xorg-server)) + (native-inputs (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "AMD Radeon video driver for X server") (description @@ -2745,8 +2693,8 @@ X server.") "07p5vdsj2ckxb6wh02s61akcv4qfg6s1d5ld3jn3lfaayd3f1466")) (patches (search-patches "xf86-video-ark-remove-mibstore.patch")))) (build-system gnu-build-system) - (inputs `(("xorg-server" ,xorg-server))) - (native-inputs `(("pkg-config" ,pkg-config))) + (inputs (list xorg-server)) + (native-inputs (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Ark Logic video driver for X server") (description @@ -2767,8 +2715,8 @@ X server.") (base32 "1pm2cy81ma7ldsw0yfk28b33h9z2hcj5rccrxhfxfgvxsiavrnqy")))) (build-system gnu-build-system) - (inputs `(("xorg-server" ,xorg-server))) - (native-inputs `(("pkg-config" ,pkg-config))) + (inputs (list xorg-server)) + (native-inputs (list pkg-config)) (synopsis "ASpeed Technologies video driver for X server") (description "xf86-video-ast is an ASpeed Technologies video driver for the Xorg @@ -2776,27 +2724,31 @@ X server.") (license license:x11))) (define-public xf86-video-ati - (package - (name "xf86-video-ati") - (version "19.1.0") - (source - (origin - (method url-fetch) - (uri (string-append "mirror://xorg/individual/driver/" - "xf86-video-ati-" version ".tar.bz2")) - (sha256 - (base32 "0j9w4axsqlycv4v14g53xyhkm9h7d27b2fcv9lrzb9gf54b5m7v5")))) - (build-system gnu-build-system) - (inputs `(("mesa" ,mesa) - ("xorgproto" ,xorgproto) - ("xorg-server" ,xorg-server))) - (native-inputs `(("pkg-config" ,pkg-config))) - (home-page "https://www.x.org/wiki/") - (synopsis "ATI Radeon video driver for X server") - (description - "xf86-video-ati is an ATI Radeon video driver for the Xorg + ;; The current release is too old to build with our inputs. + (let ((commit "5eba006e4129e8015b822f9e1d2f1e613e252cda") + (revision "1")) + (package + (name "xf86-video-ati") + (version (git-version "19.1.0" revision commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://gitlab.freedesktop.org/xorg/driver/xf86-video-ati.git") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 "1n49wx0v13jh8vv17sxgrmmpi1mk3n2wph07jfmxmzqahpcn4lkn")))) + (build-system gnu-build-system) + (inputs (list mesa xorgproto xorg-server)) + (native-inputs + (list pkg-config autoconf automake libtool)) + (home-page "https://www.x.org/wiki/") + (synopsis "ATI Radeon video driver for X server") + (description + "xf86-video-ati is an ATI Radeon video driver for the Xorg X server.") - (license license:x11))) + (license license:x11)))) (define-public xf86-video-cirrus @@ -2814,8 +2766,8 @@ X server.") (base32 "1asifc6ld2g9kap15vfhvsvyl69lj7pw3d9ra9mi4najllh7pj7d")))) (build-system gnu-build-system) - (inputs `(("xorg-server" ,xorg-server))) - (native-inputs `(("pkg-config" ,pkg-config))) + (inputs (list xorg-server)) + (native-inputs (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Cirrus Logic video driver for X server") (description @@ -2835,8 +2787,8 @@ X server.") (sha256 (base32 "1fcm9vwgv8wnffbvkzddk4yxrh3kc0np6w65wj8k88q7jf3bn4ip")))) (build-system gnu-build-system) - (inputs `(("xorg-server" ,xorg-server))) - (native-inputs `(("pkg-config" ,pkg-config))) + (inputs (list xorg-server)) + (native-inputs (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Dummy video driver for X server") (description @@ -2859,8 +2811,8 @@ X server.") (base32 "16a66zr0l1lmssa07i3rzy07djxnb45c17ks8c71h8l06xgxihyw")))) (build-system gnu-build-system) - (inputs `(("xorg-server" ,xorg-server))) - (native-inputs `(("pkg-config" ,pkg-config))) + (inputs (list xorg-server)) + (native-inputs (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Framebuffer device video driver for X server") (description @@ -2894,17 +2846,20 @@ framebuffer device.") ("xorg-server" ,xorg-server) ("zlib" ,zlib))) (native-inputs - `(("pkg-config" ,pkg-config) - ("autoconf" ,autoconf) - ("automake" ,automake) - ("libtool" ,libtool))) + (list pkg-config autoconf automake libtool)) ;; This driver is only supported on ARM systems. (supported-systems '("armhf-linux" "aarch64-linux")) (arguments `(#:configure-flags (list (string-append "--with-xorg-conf-dir=" (assoc-ref %outputs "out") - "/share/X11/xorg.conf.d")))) + "/share/X11/xorg.conf.d")) + #:phases + (modify-phases %standard-phases + (replace 'bootstrap + (lambda _ + ;; autogen.sh calls configure unconditionally. + (invoke "autoreconf" "-vfi")))))) (home-page "https://www.x.org/wiki/") (synopsis "Adreno video driver for X server") (description @@ -2925,8 +2880,8 @@ It supports a variety of Adreno graphics chipsets.") (sha256 (base32 "0r2dz0agg0k5wrqdbicji6mh6svzyl0xgqk76hpcfdlzn2zx15zl")))) (build-system gnu-build-system) - (inputs `(("xorg-server" ,xorg-server))) - (native-inputs `(("pkg-config" ,pkg-config))) + (inputs (list xorg-server)) + (native-inputs (list pkg-config)) (supported-systems ;; This driver is only supported on i686 systems. (filter (lambda (system) (string-prefix? "i686-" system)) @@ -2983,9 +2938,8 @@ compositing. Both support Xv overlay and dynamic rotation with XRandR.") (base32 "1lkpspvrvrp9s539bhfdjfh4andaqyk63l6zjn8m3km95smk6a45")))) (build-system gnu-build-system) - (inputs `(("xorgproto" ,xorgproto) - ("xorg-server" ,xorg-server))) - (native-inputs `(("pkg-config" ,pkg-config))) + (inputs (list xorgproto xorg-server)) + (native-inputs (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "GLINT/Permedia video driver for X server") (description @@ -3009,8 +2963,8 @@ X server.") (base32 "1snhpv1igrhifcls3r498kjd14ml6x2xvih7zk9xlsd1ymmhlb4g")))) (build-system gnu-build-system) - (inputs `(("xorg-server" ,xorg-server))) - (native-inputs `(("pkg-config" ,pkg-config))) + (inputs (list xorg-server)) + (native-inputs (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "I128 video driver for X server") (description @@ -3043,10 +2997,7 @@ X server.") ("libxfont" ,libxfont2) ("xorg-server" ,xorg-server))) (native-inputs - `(("pkg-config" ,pkg-config) - ("autoconf" ,autoconf) - ("automake" ,automake) - ("libtool" ,libtool))) + (list pkg-config autoconf automake libtool)) (supported-systems ;; This driver is only supported on Intel systems. (filter (lambda (system) (or (string-prefix? "i686-" system) @@ -3076,13 +3027,12 @@ It supports a variety of Intel graphics chipsets.") (sha256 (base32 "171wg8r6py1l138s58rlapin3rlpwsg9spmvhc7l68mm3g3hf1vs")) - (patches (search-patches "xf86-video-mach64-glibc-2.20.patch")))) + (patches (search-patches "xf86-video-mach64-glibc-2.20.patch" + "xf86-video-mach64-bool-to-boolean.patch")))) (build-system gnu-build-system) - (inputs `(("mesa" ,mesa) - ("xorgproto" ,xorgproto) - ("xorg-server" ,xorg-server))) + (inputs (list mesa xorgproto xorg-server)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Mach64 video driver for X server") (description @@ -3109,10 +3059,8 @@ the same level of support for generic VGA or 8514/A adapters.") (base32 "0yaxpgyyj9398nzzr5vnsfxcis76z46p9814yzj8179yl7hld296")))) (build-system gnu-build-system) - (inputs `(("mesa" ,mesa) - ("xorgproto" ,xorgproto) - ("xorg-server" ,xorg-server))) - (native-inputs `(("pkg-config" ,pkg-config))) + (inputs (list mesa xorgproto xorg-server)) + (native-inputs (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Matrox video driver for X server") (description @@ -3134,9 +3082,8 @@ the same level of support for generic VGA or 8514/A adapters.") (base32 "0r4h673kw8fl7afc30anwbjlbhp82mg15fvaxf470xg7z983k0wk")))) (build-system gnu-build-system) - (inputs `(("xorgproto" ,xorgproto) - ("xorg-server" ,xorg-server))) - (native-inputs `(("pkg-config" ,pkg-config))) + (inputs (list xorgproto xorg-server)) + (native-inputs (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "NeoMagic video driver for X server") (description @@ -3186,8 +3133,8 @@ the same level of support for generic VGA or 8514/A adapters.") (base32 "0bdk3pc5y0n7p53q4gc2ff7bw16hy5hwdjjxkm5j3s7hdyg6960z")))) (build-system gnu-build-system) - (inputs `(("xorg-server" ,xorg-server))) - (native-inputs `(("pkg-config" ,pkg-config))) + (inputs (list xorg-server)) + (native-inputs (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "NVIDIA video driver for X server") (description @@ -3208,10 +3155,11 @@ supported, and the RENDER extension is not accelerated by this driver.") (uri (string-append "mirror://xorg/individual/driver/xf86-video-nouveau-" version ".tar.bz2")) (sha256 - (base32 "0sqm1jwjg15sp8v7039y2hsbhph8gpjd2bdzcqqiij2mgbi254s9")))) + (base32 "0sqm1jwjg15sp8v7039y2hsbhph8gpjd2bdzcqqiij2mgbi254s9")) + (patches (search-patches "xf86-video-nouveau-fixup-ABI.patch")))) (build-system gnu-build-system) - (inputs `(("xorg-server" ,xorg-server))) - (native-inputs `(("pkg-config" ,pkg-config))) + (inputs (list xorg-server)) + (native-inputs (list pkg-config)) (home-page "https://nouveau.freedesktop.org") (synopsis "NVIDIA video driver for X server") (description @@ -3234,14 +3182,14 @@ graphics cards.") (base32 "0x9gq3hw6k661k82ikd1y2kkk4dmgv310xr5q59dwn4k6z37aafs")))) (build-system gnu-build-system) - (inputs `(("libx11" ,libx11) - ("libxext" ,libxext) - ("libxvmc" ,libxvmc) - ("mesa" ,mesa) - ("xorgproto" ,xorgproto) - ("xorg-server" ,xorg-server))) + (inputs (list libx11 + libxext + libxvmc + mesa + xorgproto + xorg-server)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Openchrome video driver for X server") (description @@ -3265,12 +3213,9 @@ UniChrome Pro and Chrome9 integrated graphics processors.") "14jc24znnahhmz4kqalafmllsg8awlz0y6gpgdpk5ih38ph851mi")))) (build-system gnu-build-system) (inputs - `(("libxfont" ,libxfont2) - ("spice-protocol" ,spice-protocol) - ("xorg-server" ,xorg-server) - ("xorgproto" ,xorgproto))) + (list libxfont2 spice-protocol xorg-server xorgproto)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (synopsis "Qxl video driver for X server") (description "xf86-video-qxl is a video driver for the Xorg X server. This driver is intended for the spice qxl virtio device.") @@ -3289,11 +3234,9 @@ This driver is intended for the spice qxl virtio device.") (base32 "0mz0v5mqmmbncr2drd5zvia1fb7frz2xqwflhhqbnaxx5j48c740")))) (build-system gnu-build-system) - (inputs `(("mesa" ,mesa) - ("xorgproto" ,xorgproto) - ("xorg-server" ,xorg-server))) + (inputs (list mesa xorgproto xorg-server)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "ATI Rage 128 video driver for X server") (description @@ -3317,10 +3260,8 @@ This driver is intended for ATI Rage 128 based cards.") (base32 "11pcrsdpdrwk0mrgv83s5nsx8a9i4lhmivnal3fjbrvi3zdw94rc")))) (build-system gnu-build-system) - (inputs `(("mesa" ,mesa) - ("xorgproto" ,xorgproto) - ("xorg-server" ,xorg-server))) - (native-inputs `(("pkg-config" ,pkg-config))) + (inputs (list mesa xorgproto xorg-server)) + (native-inputs (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Savage video driver for X server") (description @@ -3344,8 +3285,8 @@ This driver is intended for ATI Rage 128 based cards.") "1g2r6gxqrmjdff95d42msxdw6vmkg2zn5sqv0rxd420iwy8wdwyh")) (patches (search-patches "xf86-video-siliconmotion-fix-ftbfs.patch")))) (build-system gnu-build-system) - (inputs `(("xorg-server" ,xorg-server))) - (native-inputs `(("pkg-config" ,pkg-config))) + (inputs (list xorg-server)) + (native-inputs (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Silicon Motion video driver for X server") (description @@ -3369,11 +3310,9 @@ Xorg X server.") (base32 "0nrs6cjldlhakx5987fiiggjrlzilsbdc7l9pz22x1iwslbkz78i")))) (build-system gnu-build-system) - (inputs `(("mesa" ,mesa) - ("xorgproto" ,xorgproto) - ("xorg-server" ,xorg-server))) + (inputs (list mesa xorgproto xorg-server)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Sis video driver for X server") (description @@ -3397,8 +3336,8 @@ This driver supports SiS chipsets of 300/315/330/340 series.") (base32 "04fgwgk02m4nimlv67rrg1wnyahgymrn6rb2cjj1l8bmzkii4glr")))) (build-system gnu-build-system) - (inputs `(("xorg-server" ,xorg-server))) - (native-inputs `(("pkg-config" ,pkg-config))) + (inputs (list xorg-server)) + (native-inputs (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "GX/TurboGX video driver for X server") (description @@ -3421,8 +3360,8 @@ This driver supports SiS chipsets of 300/315/330/340 series.") (base32 "07z3ngifwg2d4jgq8pms47n5lr2yn0ai72g86xxjnb3k20n5ym7s")))) (build-system gnu-build-system) - (inputs `(("xorg-server" ,xorg-server))) - (native-inputs `(("pkg-config" ,pkg-config))) + (inputs (list xorg-server)) + (native-inputs (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "SUNFFB video driver for X server") (description @@ -3445,10 +3384,8 @@ This driver supports SiS chipsets of 300/315/330/340 series.") (base32 "0qc5wzwf1n65si9rc37bh224pzahh7gp67vfimbxs0b9yvhq0i9g")))) (build-system gnu-build-system) - (inputs `(("mesa" ,mesa) - ("xorgproto" ,xorgproto) - ("xorg-server" ,xorg-server))) - (native-inputs `(("pkg-config" ,pkg-config))) + (inputs (list mesa xorgproto xorg-server)) + (native-inputs (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "3Dfx video driver for X server") (description @@ -3472,9 +3409,8 @@ This driver supports SiS chipsets of 300/315/330/340 series.") "0cb161lvdgi6qnf1sfz722qn38q7kgakcvj7b45ba3i0020828r0")) (patches (search-patches "xf86-video-tga-remove-mibstore.patch")))) (build-system gnu-build-system) - (inputs `(("xorgproto" ,xorgproto) - ("xorg-server" ,xorg-server))) - (native-inputs `(("pkg-config" ,pkg-config))) + (inputs (list xorgproto xorg-server)) + (native-inputs (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "TGA video driver for X server") (description @@ -3498,9 +3434,8 @@ X server.") (base32 "0gxcar434kx813fxdpb93126lhmkl3ikabaljhcj5qn3fkcijlcy")))) (build-system gnu-build-system) - (inputs `(("xorgproto" ,xorgproto) - ("xorg-server" ,xorg-server))) - (native-inputs `(("pkg-config" ,pkg-config))) + (inputs (list xorgproto xorg-server)) + (native-inputs (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Trident video driver for X server") (description @@ -3527,8 +3462,8 @@ X server.") (base32 "0nf6ai74c60xk96kgr8q9mx6lrxm5id3765ws4d801irqzrj85hz")))) (build-system gnu-build-system) - (inputs `(("xorg-server" ,xorg-server))) - (native-inputs `(("pkg-config" ,pkg-config))) + (inputs (list xorg-server)) + (native-inputs (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "VESA video driver for X server") (description @@ -3586,8 +3521,7 @@ X server.") (format #t "decompressing x86emu source code~%") (with-directory-excursion "libs" (let ((srcs (assoc-ref inputs "xorg-server-sources")) - (tar-binary (string-append (assoc-ref inputs "tar") - "/bin/tar"))) + (tar-binary (search-input-file inputs "/bin/tar"))) (invoke tar-binary "xvf" srcs "--strip-components=3" "--wildcards" "*/hw/xfree86/x86emu/") ;; extract license: @@ -3652,14 +3586,13 @@ server driver works.") "0v06qhm059klq40m2yx4wypzb7h53aaassbjfmm6clcyclj1k5s7")))) (build-system gnu-build-system) (inputs - `(("libx11" ,libx11) - ("libxext" ,libxext) - ("llvm" ,llvm) - ("mesa" ,mesa) ; for xatracker - ("xorg-server" ,xorg-server))) + (list libx11 + libxext + llvm + mesa ; for xatracker + xorg-server)) (native-inputs - `(("eudev" ,eudev) - ("pkg-config" ,pkg-config))) + (list eudev pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "VMware SVGA video driver for X server") (description @@ -3684,9 +3617,8 @@ server driver works.") (patches (search-patches "xf86-video-voodoo-pcitag.patch")))) (build-system gnu-build-system) - (inputs `(("xorgproto" ,xorgproto) - ("xorg-server" ,xorg-server))) - (native-inputs `(("pkg-config" ,pkg-config))) + (inputs (list xorgproto xorg-server)) + (native-inputs (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Voodoo/Voodoo2 video driver for X server") (description @@ -3807,10 +3739,9 @@ configuring modelines and gamma.") "1lr2nb1fhg5fk2fchqxdxyl739602ggwhmgl2wiv5c8qbidw7w8f")))) (build-system gnu-build-system) (inputs - `(("libxxf86vm" ,libxxf86vm) - ("libx11" ,libx11))) + (list libxxf86vm libx11)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Alter a monitor's gamma correction") (description @@ -3835,11 +3766,9 @@ monitor via the X video mode extension.") "15n3mnd4i5kh4z32qv11580qjgvnng0wry2y753ljrqkkrbkrp52")))) (build-system gnu-build-system) (inputs - `(("libxmu" ,libxmu) - ("libxau" ,libxau) - ("libx11" ,libx11))) + (list libxmu libxau libx11)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://gitlab.freedesktop.org/xorg/app/xhost") (synopsis "Xorg server access control utility") (description @@ -3863,7 +3792,7 @@ allowed to make connections to the X server.") (base32 "0ns8abd27x7gbp4r44z3wc5k9zqxxj8zjnazqpcyr4n17nxp8xcp")))) (build-system gnu-build-system) - (native-inputs `(("pkg-config" ,pkg-config))) + (native-inputs (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg XineramaProto protocol headers") (description @@ -3894,15 +3823,15 @@ alternative implementations like XRandR or TwinView.") "1vb6xdd1xmk5f7pwc5zcbxfray5sf1vbnscqwf2yl8lv7gfq38im")))) (build-system gnu-build-system) (inputs - `(("libxrender" ,libxrender) - ("libxrandr" ,libxrandr) - ("libxinerama" ,libxinerama) - ("libxext" ,libxext) - ("libxi" ,libxi) - ("libx11" ,libx11) - ("xorgproto" ,xorgproto))) + (list libxrender + libxrandr + libxinerama + libxext + libxi + libx11 + xorgproto)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Configure input devices for X server") (description @@ -3910,10 +3839,10 @@ alternative implementations like XRandR or TwinView.") (license license:x11))) -(define xkbcomp-intermediate ;used as input for xkeyboard-config +(define-public xkbcomp-intermediate ;used as input for xkeyboard-config (package (name "xkbcomp-intermediate") - (version "1.4.4") + (version "1.4.5") (source (origin (method url-fetch) @@ -3921,14 +3850,12 @@ alternative implementations like XRandR or TwinView.") version ".tar.bz2")) (sha256 (base32 - "0zpjkbap9160pdd6jpgb5f0yg5281w0rkkx1l0i7g887lq1ydk2r")))) + "0pmhshqinwqh5rip670l3szjpywky67hv232ql6gvdj489n0hlb8")))) (build-system gnu-build-system) (inputs - `(("xorgproto" ,xorgproto) - ("libxkbfile" ,libxkbfile) - ("libx11" ,libx11))) + (list xorgproto libxkbfile libx11)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Compile XKB keyboard description") (description @@ -3943,11 +3870,16 @@ explicitly specify most aspects of keyboard behaviour on per-key basis and to more closely track the logical and physical state of the keyboard. It also includes a number of keyboard controls designed to make keyboards more accessible to people with physical impairments.") - (license license:x11))) + (license license:x11) + + ;; The only reason this package is public is to make sure it's built and + ;; published by the continuous integration tool. + (properties '((hidden? . #t))))) (define-public xkbcomp ; using xkeyboard-config as input (package (inherit xkbcomp-intermediate) (name "xkbcomp") + (properties '()) (inputs `(,@(package-inputs xkbcomp-intermediate) ("xkeyboard-config" ,xkeyboard-config))) @@ -3974,10 +3906,9 @@ make keyboards more accessible to people with physical impairments.") "0sprjx8i86ljk0l7ldzbz2xlk8916z5zh78cafjv8k1a63js4c14")))) (build-system gnu-build-system) (inputs - `(("libxkbfile" ,libxkbfile) - ("libx11" ,libx11))) + (list libxkbfile libx11)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "XKB event daemon demo") (description @@ -3998,11 +3929,9 @@ requested commands if they occur.") (base32 "1yi3232g25hhp241irncd8znv3090k2gm0yjcdnz08h89y1zwn2v")))) (build-system gnu-build-system) (inputs - `(("libx11" ,libx11) - ("libxkbfile" ,libxkbfile) - ("xorgproto" ,xorgproto))) + (list libx11 libxkbfile xorgproto)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Visualise an XKB keyboard layout description") (description @@ -4028,11 +3957,9 @@ one from a running X server.") "0c412isxl65wplhl7nsk12vxlri29lk48g3p52hbrs3m0awqm8fj")))) (build-system gnu-build-system) (inputs - `(("libxt" ,libxt) - ("libxaw" ,libxaw) - ("xorgproto" ,xorgproto))) + (list libxt libxaw xorgproto)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "XKB utilities") (description @@ -4050,21 +3977,20 @@ extension to the X11 protocol. It includes: (define-public xkeyboard-config (package (name "xkeyboard-config") - (version "2.31") + (version "2.34") (source (origin (method url-fetch) (uri (string-append - "mirror://xorg/individual/data/xkeyboard-config/xkeyboard-config-" + "ftp://ftp.freedesktop.org/pub/xorg//individual/data/xkeyboard-config/xkeyboard-config-" version ".tar.bz2")) (sha256 (base32 - "18xddaxh83zm698syh50w983jg6b7b8zgv0dfaf7ha485hgihi6s")))) + "1kmq2ykwmh10sd6155gml4jhdxmvsll6xdg7zw86czpfhrvd48dk")))) (build-system gnu-build-system) (inputs - `(("libx11" ,libx11) - ("xkbcomp-intermediate" ,xkbcomp-intermediate))) + (list libx11 xkbcomp-intermediate)) (native-inputs `(("gettext" ,gettext-minimal) ("perl" ,perl) @@ -4096,10 +4022,9 @@ can be combined together using the @code{rules} component of this database.") "0szzd9nzn0ybkhnfyizb876irwnjsnb78rcaxx6prb71jmmbpw65")))) (build-system gnu-build-system) (inputs - `(("libxmu" ,libxmu) - ("libx11" ,libx11))) + (list libxmu libx11)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Kill a client by its X resource") (description @@ -4125,9 +4050,9 @@ programs that have displayed undesired windows on a user's screen.") "10m3a046jvaw5ywx4y65kl84lsxqan70gww1g1r7cf96ijaqz1jp")))) (build-system gnu-build-system) (inputs - `(("libxcb" ,libxcb))) + (list libxcb)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://gitlab.freedesktop.org/xorg/app/xlsatoms") (synopsis "List interned X server atoms") (description @@ -4151,9 +4076,9 @@ programs that have displayed undesired windows on a user's screen.") "1h8931sn34mcip6vpi4v7hdmr1r58gkbw4s2p97w98kykks2lgvp")))) (build-system gnu-build-system) (inputs - `(("libxcb" ,libxcb))) + (list libxcb)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "List client applications running on a display") (description @@ -4178,10 +4103,9 @@ running on X server.") "0s6kxgv78chkwsqmhw929f4pf91gq63f4yvixxnan1h00cx0pf49")))) (build-system gnu-build-system) (inputs - `(("xorgproto" ,xorgproto) - ("libx11" ,libx11))) + (list xorgproto libx11)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "List fonts available from an X server") (description @@ -4207,12 +4131,9 @@ protocol.") (list (string-append "--with-appdefaultdir=" %output ,%app-defaults-dir)))) (inputs - `(("libx11" ,libx11) - ("libxaw" ,libxaw) - ("libxmu" ,libxmu) - ("libxt" ,libxt))) + (list libx11 libxaw libxmu libxt)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Browse and select X font names") (description @@ -4274,10 +4195,9 @@ containing one glyph per cell.") "0z28331i2pm16x671fa9qwsfqdmr6a43bzwmp0dm17a3sx0hjgs7")))) (build-system gnu-build-system) (inputs - `(("xorgproto" ,xorgproto) - ("libx11" ,libx11))) + (list xorgproto libx11)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://gitlab.freedesktop.org/xorg/app/xmodmap") (synopsis "Modify keymaps and button mappings on X server") (description @@ -4308,7 +4228,7 @@ tastes.") (base32 "0k5pffyi5bx8dmfn033cyhgd3gf6viqj3x769fqixifwhbgy2777")))) (build-system gnu-build-system) - (native-inputs `(("pkg-config" ,pkg-config))) + (native-inputs (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg SGML documentation tools") (description @@ -4337,11 +4257,9 @@ refers to the included common xorg.css stylesheet.") "07qy9lwjvxighcmg6qvjkgagad3wwvidrfx0jz85lgynz3qy0dmr")))) (build-system gnu-build-system) (inputs - `(("xorgproto" ,xorgproto) - ("libxmu" ,libxmu) - ("libx11" ,libx11))) + (list xorgproto libxmu libx11)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Print an X window dump from xwd") (description @@ -4364,10 +4282,9 @@ it for output on various types of printers.") "18ckr8g1z50zkc01hprkpm1npwbq32yqib4b3l98c95z2q1yv4lv")))) (build-system gnu-build-system) (inputs - `(("libx11" ,libx11) - ("xorgproto" ,xorgproto))) + (list libx11 xorgproto)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Display X server properties") (description @@ -4391,12 +4308,9 @@ an X server.") "0ql75s1n3dm2m3g1ilb9l6hqh15r0v709bgghpwazy3jknpnvivv")))) (build-system gnu-build-system) (inputs - `(("libxrender" ,libxrender) - ("libxrandr" ,libxrandr) - ("xorgproto" ,xorgproto) - ("libx11" ,libx11))) + (list libxrender libxrandr xorgproto libx11)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Command line interface to X RandR extension") (description @@ -4418,10 +4332,9 @@ and Reflect (RandR) extension.") (base32 "1d78prd8sfszq2rwwlb32ksph4fymf988lp75aj8iysg44f06pag")))) (build-system gnu-build-system) (inputs - `(("libxmu" ,libxmu) - ("libx11" ,libx11))) + (list libxmu libx11)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://gitlab.freedesktop.org/xorg/app/xrdb") (synopsis "X server resource database utility") (description @@ -4449,9 +4362,9 @@ file.") "0lv3rlshh7s0z3aqx5ahnnf8cl082m934bk7gv881mz8nydznz98")))) (build-system gnu-build-system) (inputs - `(("libx11" ,libx11))) + (list libx11)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Refresh all or part of an X screen") (description @@ -4477,12 +4390,9 @@ up your screen.") "0my987wjvra7l92ry6q44ky383yg3phzxhdbn3lqhapm1ll9bzg4")))) (build-system gnu-build-system) (inputs - `(("xorgproto" ,xorgproto) - ("libxmu" ,libxmu) - ("libxext" ,libxext) - ("libx11" ,libx11))) + (list xorgproto libxmu libxext libx11)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "User preference utility for X server") (description @@ -4506,11 +4416,9 @@ up your screen.") "0z21mqvmdl6rl63q77479wgkfygnll57liza1i3va7sr4fx45i0h")))) (build-system gnu-build-system) (inputs - `(("libxmu" ,libxmu) - ("libxcursor" ,libxcursor) - ("xbitmaps" ,xbitmaps))) + (list libxmu libxcursor xbitmaps)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Root window parameter setting utility for X server") (description @@ -4534,7 +4442,7 @@ a display running X server.") (base32 "0wyp0yc6gi72hwc3kjmvm3vkj9p6s407cb6dxx37jh9wb68l8z1p")))) (build-system gnu-build-system) - (native-inputs `(("pkg-config" ,pkg-config))) + (native-inputs (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg Network Transport layer library") (description @@ -4561,11 +4469,9 @@ libICE, the X font server, and related components.") "0gz7fvxavqlrqynpfbrm2nc9yx8h0ksnbnv34fj7n1q6cq6j4lq3")))) (build-system gnu-build-system) (inputs - `(("libxext" ,libxext) - ("libxv" ,libxv) - ("libx11" ,libx11))) + (list libxext libxv libx11)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://gitlab.freedesktop.org/xorg/app/xvinfo") (synopsis "Print out X-Video extension adaptor information") (description @@ -4588,11 +4494,9 @@ extension.") (base32 "06q36fh55r62ms0igfxsanrn6gv8lh794q1bw9xzw51p2qs2papv")))) (build-system gnu-build-system) (inputs - `(("libxt" ,libxt) - ("libxkbfile" ,libxkbfile) - ("xorgproto" ,xorgproto))) + (list libxt libxkbfile xorgproto)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Dump current contents of X window or screen to file") (description @@ -4621,10 +4525,9 @@ dump and twice when the dump is completed.") "03h8clirhw5ki1xxp18xbf5vynm7r0dwspsgfin6cxn4vx0m8h3s")))) (build-system gnu-build-system) (inputs - `(("libx11" ,libx11) - ("xorgproto" ,xorgproto))) + (list libx11 xorgproto)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Window information utility for X server") (description @@ -4649,10 +4552,9 @@ Various information is displayed depending on which options are selected.") "1a8hdgy40smvblnh3s9f0vkqckl68nmivx7d48zk34m8z18p16cr")))) (build-system gnu-build-system) (inputs - `(("xorgproto" ,xorgproto) - ("libx11" ,libx11))) + (list xorgproto libx11)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Display an X window dump from xwd") (description @@ -4676,9 +4578,9 @@ formatted dump file, such as produced by xwd.") "1c76zcjs39ljil6f6jpx1x17c8fnvwazz7zvl3vbjfcrlmm7rjmv")))) (build-system gnu-build-system) (inputs - `(("xorgproto" ,xorgproto))) + (list xorgproto)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "X color name database") (description @@ -4703,9 +4605,9 @@ formatted dump file, such as produced by xwd.") "1ki4wiq2iivx5g4w5ckzbjbap759kfqd72yg18m3zpbb4hqkybxs")))) (build-system gnu-build-system) (propagated-inputs - `(("xorgproto" ,xorgproto))) + (list xorgproto)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg FixesProto protocol headers") (description @@ -4732,11 +4634,9 @@ cannot be adequately worked around on the client side of the wire.") (build-system gnu-build-system) (propagated-inputs ;; These are all in the Requires or Requires.private field of xdamage.pc - `(("libxfixes" ,libxfixes) - ("xorgproto" ,xorgproto) - ("libx11" ,libx11))) + (list libxfixes xorgproto libx11)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg Damage Extension library") (description "Xorg library for the XDamage extension.") @@ -4758,20 +4658,20 @@ cannot be adequately worked around on the client side of the wire.") (base32 "0azqxllcsfxc3ilhz6kwc6x7m8wc477p59ir9p0yrsldx766zbar")))) (build-system gnu-build-system) + (outputs '("out" "doc")) ;man pages represent 40% of the total (arguments `(#:configure-flags (list "--disable-static" - ;; Disable zero malloc check that fails when cross-compiling. - ,@(if (%current-target-system) - '("--disable-malloc0returnsnull") - '())))) + (string-append "--mandir=" + (assoc-ref %outputs "doc") + "/share/man") + ,@(malloc0-flags)))) (propagated-inputs - `(("xorgproto" ,xorgproto))) + (list xorgproto)) (inputs - `(("libxau" ,libxau) - ("libx11" ,libx11))) + (list libxau libx11)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg Common extensions library") (description @@ -4795,14 +4695,13 @@ cannot be adequately worked around on the client side of the wire.") "086p0axqj57nvkaqa6r00dnr9kyrn1m8blgf0zjy25zpxkbxn200")))) (build-system gnu-build-system) (arguments - '(#:configure-flags '("--disable-static"))) + `(#:configure-flags '("--disable-static" ,@(malloc0-flags)))) (propagated-inputs - `(("xorgproto" ,xorgproto))) + (list xorgproto)) (inputs - `(("libxext" ,libxext) - ("libx11" ,libx11))) + (list libxext libx11)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg Xinerama protocol library") (description "API for Xinerama extension to X11 protocol.") @@ -4825,12 +4724,11 @@ cannot be adequately worked around on the client side of the wire.") "0mwc2jwmq03b1m9ihax5c6gw2ln8rc70zz4fsj3kb7440nchqdkz")))) (build-system gnu-build-system) (propagated-inputs - `(("printproto" ,printproto))) + (list printproto)) (inputs - `(("libx11" ,libx11) - ("libxext" ,libxext))) + (list libx11 libxext)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg Print Client library") (description "Xorg Print Client library.") @@ -4854,17 +4752,13 @@ cannot be adequately worked around on the client side of the wire.") (build-system gnu-build-system) (arguments `(#:configure-flags - (list "--disable-static" - ;; Disable zero malloc check that fails when cross-compiling. - ,@(if (%current-target-system) - '("--disable-malloc0returnsnull") - '())))) + (list "--disable-static" ,@(malloc0-flags)))) (propagated-inputs - `(("xorgproto" ,xorgproto))) + (list xorgproto)) (inputs - `(("libx11" ,libx11))) + (list libx11)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg Render Extension library") (description "Library for the Render Extension to the X11 protocol.") @@ -4888,12 +4782,11 @@ cannot be adequately worked around on the client side of the wire.") (arguments '(#:configure-flags '("--disable-static"))) (propagated-inputs - `(("libxi" ,libxi) - ("xorgproto" ,xorgproto))) + (list libxi xorgproto)) (inputs - `(("libx11" ,libx11))) + (list libx11)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg library for Xtest and Record extensions") (description @@ -4925,14 +4818,13 @@ protocol and arbitrary X extension protocol.") "125hn06bd3d8y97hm2pbf5j55gg4r2hpd3ifad651i4sr7m16v6j")))) (build-system gnu-build-system) (arguments - '(#:configure-flags '("--disable-static"))) + `(#:configure-flags '(,@(malloc0-flags) "--disable-static"))) (propagated-inputs - `(("xorgproto" ,xorgproto))) + (list xorgproto)) (inputs - `(("libxext" ,libxext) - ("libx11" ,libx11))) + (list libxext libx11)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg XVideo Extension library") (description "Library for the X Video Extension to the X11 protocol.") @@ -4974,14 +4866,12 @@ protocol and arbitrary X extension protocol.") (wrap-program (string-append (assoc-ref outputs "out") "/bin/mkfontdir") `("PATH" ":" prefix - (,(string-append (assoc-ref inputs "mkfontscale") - "/bin")))) - #t))))) + (,(dirname + (search-input-file inputs "/bin/mkfontscale")))))))))) (inputs - `(("mkfontscale" ,mkfontscale))) + (list mkfontscale)) (native-inputs - `(("pkg-config" ,pkg-config) - ("automake" ,automake))) ;For up to date 'config.guess' and 'config.sub'. + (list pkg-config automake)) ;For up to date 'config.guess' and 'config.sub'. (home-page "https://www.x.org/wiki/") (synopsis "Create an index of X font files in a directory") (description @@ -5006,9 +4896,9 @@ script around the mkfontscale program.") "0ivpxz0rx2a7nahkpkhfgymz7j0pwzaqvyqpdgw9afmxl1yp9yf6")))) (build-system gnu-build-system) (propagated-inputs - `(("util-macros" ,util-macros))) ; to get util-macros in (almost?) all package inputs + (list util-macros)) ; to get util-macros in (almost?) all package inputs (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg X11Proto protocol headers") (description @@ -5041,12 +4931,11 @@ common definitions and porting layer.") (arguments '(#:configure-flags '("--disable-static"))) (propagated-inputs - `(("xorgproto" ,xorgproto))) + (list xorgproto)) (inputs - `(("libbsd" ,libbsd) - ("xtrans" ,xtrans))) + (list libbsd xtrans)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg Inter-Client Exchange library") (description "Xorg Inter-Client Exchange library.") @@ -5071,9 +4960,9 @@ common definitions and porting layer.") (arguments '(#:configure-flags '("--disable-static"))) (propagated-inputs - `(("xorgproto" ,xorgproto))) + (list xorgproto)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg Authorization library") (description @@ -5084,7 +4973,7 @@ an X Window System display.") (define-public libxfixes (package (name "libxfixes") - (version "5.0.3") + (version "6.0.0") (source (origin (method url-fetch) @@ -5094,16 +4983,16 @@ an X Window System display.") ".tar.bz2")) (sha256 (base32 - "1miana3y4hwdqdparsccmygqr3ic3hs5jrqfzp70hvi2zwxd676y")))) + "0k2v4i4r24y3kdr5ici1qqhp69djnja919xfqp54c2rylm6s5hd7")))) (build-system gnu-build-system) (arguments '(#:configure-flags '("--disable-static"))) (propagated-inputs - `(("xorgproto" ,xorgproto))) + (list xorgproto)) (inputs - `(("libx11" ,libx11))) + (list libx11)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg Fixes Extension library") (description "Library for the XFixes Extension to the X11 protocol.") @@ -5127,14 +5016,11 @@ an X Window System display.") (arguments '(#:configure-flags '("--disable-static"))) (propagated-inputs - `(("freetype" ,freetype) - ("libfontenc" ,libfontenc) - ("xorgproto" ,xorgproto))) + (list freetype libfontenc xorgproto)) (inputs - `(("zlib" ,zlib) - ("xtrans" ,xtrans))) + (list zlib xtrans)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg Font handling library") (description @@ -5173,15 +5059,17 @@ new API's in libXft, or the legacy API's in libX11.") (base32 "0q8hz3slga3w3ch8wp0k7ay9ilhz315qnab0w1y2x9w3cf7hv8rn")))) (build-system gnu-build-system) + (outputs '("out" "doc")) ;man pages represent 28% of the total (arguments - '(#:configure-flags '("--disable-static"))) + `(#:configure-flags (list "--disable-static" + (string-append "--mandir=" + (assoc-ref %outputs "doc") + "/share/man") + ,@(malloc0-flags)))) (propagated-inputs - `(("xorgproto" ,xorgproto) - ("libx11" ,libx11) - ("libxext" ,libxext) - ("libxfixes" ,libxfixes))) + (list xorgproto libx11 libxext libxfixes)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg Input Extension library") (description "Library for the XInput Extension to the X11 protocol.") @@ -5203,15 +5091,12 @@ new API's in libXft, or the legacy API's in libX11.") "08z0mqywrm7ij8bxlfrx0d2wy6kladdmkva1nw5k6qix82z0xsla")))) (build-system gnu-build-system) (arguments - '(#:configure-flags '("--disable-static"))) + `(#:configure-flags '("--disable-static" ,@(malloc0-flags)))) (propagated-inputs ;; In accordance with xrandr.pc. - `(("libx11" ,libx11) - ("libxext" ,libxext) - ("libxrender" ,libxrender) - ("xorgproto" ,xorgproto))) + (list libx11 libxext libxrender xorgproto)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg Resize and Rotate Extension library") (description @@ -5234,15 +5119,13 @@ new API's in libXft, or the legacy API's in libX11.") "1kbdjsvkm5l7axv7g477qj18sab2wnqhliy6197syzizgfbsfgbb")))) (build-system gnu-build-system) (arguments - '(#:configure-flags '("--disable-static"))) + `(#:configure-flags '(,@(malloc0-flags) "--disable-static"))) (propagated-inputs - `(("libxv" ,libxv))) + (list libxv)) (inputs - `(("xorgproto" ,xorgproto) - ("libxext" ,libxext) - ("libx11" ,libx11))) + (list xorgproto libxext libx11)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg XvMC library") (description "Xorg XvMC library.") @@ -5264,14 +5147,13 @@ new API's in libXft, or the legacy API's in libX11.") "0mydhlyn72i7brjwypsqrpkls3nm6vxw0li8b2nw0caz7kwjgvmg")))) (build-system gnu-build-system) (arguments - '(#:configure-flags '("--disable-static"))) + `(#:configure-flags '("--disable-static" ,@(malloc0-flags)))) (propagated-inputs - `(("libxext" ,libxext) - ("xorgproto" ,xorgproto))) + (list libxext xorgproto)) (inputs - `(("libx11" ,libx11))) + (list libx11)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg XF86 Video Mode Extension library") (description @@ -5295,19 +5177,20 @@ protocol.") (base32 "0d2chjgyn5lr9sfhacfvqgnj9l9faz11vn322a06jd6lk3dxcpm5")))) (build-system gnu-build-system) + (outputs '("out" "doc")) ;5.5 MiB of man pages (propagated-inputs - `(("libpthread-stubs" ,libpthread-stubs) - ("libxau" ,libxau) - ("libxdmcp" ,libxdmcp))) + (list libpthread-stubs libxau libxdmcp)) (inputs - `(("xcb-proto" ,xcb-proto) - ("libxslt" ,libxslt))) + (list xcb-proto libxslt)) (native-inputs `(("pkg-config" ,pkg-config) ("python" ,python-minimal-wrapper))) (arguments - `(#:configure-flags '("--enable-xkb" - "--disable-static"))) + `(#:configure-flags (list "--enable-xkb" + "--disable-static" + (string-append "--mandir=" + (assoc-ref %outputs "doc") + "/share/man")))) (home-page "https://xcb.freedesktop.org/") (synopsis "The X C Binding (XCB) library") (description @@ -5326,78 +5209,97 @@ over Xlib, including: - easy extension implementation: interfaces auto-generated from XML-XCB.") (license license:x11))) +(define-public libxcvt + (package + (name "libxcvt") + (version "0.1.1") + (source (origin + (method url-fetch) + (uri (string-append "https://www.x.org/releases/individual" + "/lib/libxcvt-" version ".tar.xz")) + (sha256 + (base32 + "0acc7vrj5kfb19zvyl7f29rnsvx383dvwc19k70r8prm1lccxsr7")))) + (build-system meson-build-system) + (home-page "https://gitlab.freedesktop.org/xorg/lib/libxcvt") + (synopsis "VESA Coordinated Video Timings (CVT) library") + (description "@code{libxcvt} is a library providing a standalone version +of the X server implementation of the VESA Coordinated Video Timings (CVT) +standard timing modelines generator. @code{libxcvt} also provides a +standalone version of the command line tool @command{cvt} copied from the Xorg +implementation and is meant to be a direct replacement to the version provided +by the Xorg server.") + (license license:x11))) (define-public xorg-server (package (name "xorg-server") - (version "1.20.11") + (version "21.1.1") (source - (origin - (method url-fetch) - (uri (string-append "mirror://xorg/individual/xserver/" - "xorg-server-" version ".tar.bz2")) - (sha256 - (base32 - "0jacqgin8kcyy8fyv0lhgb4if8g9hp60rm3ih3s1mgps7xp7jk4i")) - (patches - (list - ;; See: - ;; https://lists.fedoraproject.org/archives/list/devel@lists. - ;; fedoraproject.org/message/JU655YB7AM4OOEQ4MOMCRHJTYJ76VFOK/ - (origin - (method url-fetch) - (uri (string-append - "http://pkgs.fedoraproject.org/cgit/rpms/xorg-x11-server.git" - "/plain/06_use-intel-only-on-pre-gen4.diff")) - (sha256 - (base32 - "0mm70y058r8s9y9jiv7q2myv0ycnaw3iqzm7d274410s0ik38w7q")) - (file-name "xorg-server-use-intel-only-on-pre-gen4.diff")))))) + (origin + (method url-fetch) + + (uri (string-append "https://xorg.freedesktop.org/archive/individual" + "/xserver/xorg-server-" version ".tar.xz")) + (sha256 + (base32 + "0md7dqsc5qb30gym06c4zc2cjsdc5ps8nywk1bkcpix05kppybkq")) + (patches + (list + ;; See: + ;; https://lists.fedoraproject.org/archives/list/devel@lists. + ;; fedoraproject.org/message/JU655YB7AM4OOEQ4MOMCRHJTYJ76VFOK/ + (origin + (method url-fetch) + (uri (string-append + "http://pkgs.fedoraproject.org/cgit/rpms/xorg-x11-server.git" + "/plain/06_use-intel-only-on-pre-gen4.diff")) + (sha256 + (base32 + "0mm70y058r8s9y9jiv7q2myv0ycnaw3iqzm7d274410s0ik38w7q")) + (file-name "xorg-server-use-intel-only-on-pre-gen4.diff")))))) (build-system gnu-build-system) (propagated-inputs - `(("libpciaccess" ,libpciaccess) - ("mesa" ,mesa) - ("pixman" ,pixman) - ("xorgproto" ,xorgproto))) + ;; The following libraries are required by xorg-server.pc. + (list libpciaccess libxcvt mesa pixman xorgproto)) (inputs - `(("udev" ,eudev) - ("dbus" ,dbus) - ("libdmx" ,libdmx) - ("libepoxy" ,libepoxy) - ("libgcrypt" ,libgcrypt) - ("libxau" ,libxau) - ("libxaw" ,libxaw) - ("libxdmcp" ,libxdmcp) - ("libxfixes" ,libxfixes) - ("libxfont2" ,libxfont2) - ("libxkbfile" ,libxkbfile) - ("libxrender" ,libxrender) - ("libxres" ,libxres) - ("libxshmfence" ,libxshmfence) - ("libxt" ,libxt) - ("libxv" ,libxv) - ("xkbcomp" ,xkbcomp) - ("xkeyboard-config" ,xkeyboard-config) - ("xtrans" ,xtrans) - ("zlib" ,zlib) - ;; Inputs for Xephyr - ("xcb-util" ,xcb-util) - ("xcb-util-image" ,xcb-util-image) - ("xcb-util-keysyms" ,xcb-util-keysyms) - ("xcb-util-renderutil" ,xcb-util-renderutil) - ("xcb-util-wm" ,xcb-util-wm))) + `(("udev" ,eudev) + ("dbus" ,dbus) + ("libdmx" ,libdmx) + ("libepoxy" ,libepoxy) + ("libgcrypt" ,libgcrypt) + ("libxau" ,libxau) + ("libxaw" ,libxaw) + ("libxdmcp" ,libxdmcp) + ("libxfixes" ,libxfixes) + ("libxfont2" ,libxfont2) + ("libxkbfile" ,libxkbfile) + ("libxrender" ,libxrender) + ("libxres" ,libxres) + ("libxshmfence" ,libxshmfence) + ("libxt" ,libxt) + ("libxv" ,libxv) + ("xkbcomp" ,xkbcomp) + ("xkeyboard-config" ,xkeyboard-config) + ("xtrans" ,xtrans) + ("zlib" ,zlib) + ;; Inputs for Xephyr + ("xcb-util" ,xcb-util) + ("xcb-util-image" ,xcb-util-image) + ("xcb-util-keysyms" ,xcb-util-keysyms) + ("xcb-util-renderutil" ,xcb-util-renderutil) + ("xcb-util-wm" ,xcb-util-wm))) (native-inputs `(("python" ,python-wrapper) ("pkg-config" ,pkg-config))) (arguments - `(#:parallel-tests? #f - #:configure-flags + `(#:configure-flags (list (string-append "--with-xkb-path=" (assoc-ref %build-inputs "xkeyboard-config") "/share/X11/xkb") (string-append "--with-xkb-output=" "/tmp") ; FIXME: This is a bit doubtful; where should - ; the compiled keyboard maps go? + ; the compiled keyboard maps go? (string-append "--with-xkb-bin-directory=" (assoc-ref %build-inputs "xkbcomp") "/bin") @@ -5406,19 +5308,19 @@ over Xlib, including: ;; It's not used anyway, so set it to empty. "--with-default-font-path=" + ;; Enable the X security extensions (ssh -X). + "--enable-xcsecurity" + ;; The default is to use "uname -srm", which captures the kernel ;; version and makes builds non-reproducible. "--with-os-name=GNU" - - "--with-os-vendor=GuixSD" ;not strictly needed, but looks nice - + "--with-os-vendor=Guix" ; not strictly needed, but looks nice ;; For the log file, etc. "--localstatedir=/var" - ;; For sddm + ;; For sddm. "--enable-kdrive" "--enable-xephyr") - #:phases (modify-phases %standard-phases (add-before 'configure 'pre-configure @@ -5437,9 +5339,7 @@ over Xlib, including: (("^BUILD_DATE=.*$") "BUILD_DATE=19700101\n") (("^BUILD_TIME=.*$") - "BUILD_TIME=000001\n")) - - #t))))) + "BUILD_TIME=000001\n"))))))) (home-page "https://www.x.org/wiki/") (synopsis "Xorg implementation of the X Window System") (description @@ -5460,47 +5360,147 @@ draggable titlebars and borders.") (define-public xorg-server-for-tests (hidden-package (package - (inherit xorg-server) - (version "1.20.10") - (source - (origin - (method url-fetch) - (uri (string-append "mirror://xorg/individual/xserver/" - "xorg-server-" version ".tar.bz2")) - (sha256 - (base32 - "16bwrf0ag41l7jbrllbix8z6avc5yimga7ihvq4ch3a5hb020x4p")) - (patches - (list - ;; See: - ;; https://lists.fedoraproject.org/archives/list/devel@lists. - ;; fedoraproject.org/message/JU655YB7AM4OOEQ4MOMCRHJTYJ76VFOK/ - (origin - (method url-fetch) - (uri (string-append - "http://pkgs.fedoraproject.org/cgit/rpms/xorg-x11-server.git" - "/plain/06_use-intel-only-on-pre-gen4.diff")) - (sha256 - (base32 - "0mm70y058r8s9y9jiv7q2myv0ycnaw3iqzm7d274410s0ik38w7q")) - (file-name "xorg-server-use-intel-only-on-pre-gen4.diff"))))))))) + (inherit xorg-server)))) + +(define-public eglexternalplatform + (package + (name "eglexternalplatform") + (version "1.1") + (source + (origin + (method git-fetch) + (uri + (git-reference + (url "https://github.com/NVIDIA/eglexternalplatform") + (commit version))) + (file-name + (git-file-name name version)) + (sha256 + (base32 "0lr5s2xa1zn220ghmbsiwgmx77l156wk54c7hybia0xpr9yr2nhb")))) + (build-system copy-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'patch-pkgconfig + (lambda* (#:key outputs #:allow-other-keys) + (substitute* "eglexternalplatform.pc" + (("/usr") + (assoc-ref outputs "out"))))) + (add-after 'install 'revise + (lambda* (#:key outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out"))) + (mkdir-p (string-append out "/include/EGL")) + (rename-file + (string-append out "/interface") + (string-append out "/include/EGL")) + (mkdir-p (string-append out "/share/pkgconfig")) + (rename-file + (string-append out "/eglexternalplatform.pc") + (string-append out "/share/pkgconfig/eglexternalplatform.pc")) + (for-each delete-file-recursively + (list + (string-append out "/samples") + (string-append out "/COPYING") + (string-append out "/README.md"))))))))) + (synopsis "EGL External Platform interface") + (description "EGLExternalPlatform is an specification of the EGL External +Platform interface for writing EGL platforms and their interactions with modern +window systems on top of existing low-level EGL platform implementations. This +keeps window system implementation specifics out of EGL drivers by using +application-facing EGL functions.") + (home-page "https://github.com/NVIDIA/eglexternalplatform") + (license license:expat))) + +(define-public egl-wayland + (package + (name "egl-wayland") + (version "1.1.9") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/NVIDIA/egl-wayland") + (commit version))) + (file-name (git-file-name name version)) + (sha256 + (base32 "1iz86cpc4v7izckrcslllnw0vvvgsxg1sr65yb8s9d0f8xa8djdd")))) + (build-system meson-build-system) + (native-inputs + (list libglvnd ;needed for headers + mesa-headers pkg-config)) + (inputs + (list mesa wayland wayland-protocols)) + (propagated-inputs + (list eglexternalplatform)) + (synopsis "EGLStream-based Wayland external platform") + (description "EGL-Wayland is an implementation of a EGL External Platform +library to add client-side Wayland support to EGL on top of EGLDevice and +EGLStream families of extensions.") + (home-page "https://github.com/NVIDIA/egl-wayland") + (license license:expat))) (define-public xorg-server-xwayland - (package/inherit xorg-server + (package (name "xorg-server-xwayland") - (inputs - `(("wayland" ,wayland) - ("wayland-protocols" ,wayland-protocols) - ,@(package-inputs xorg-server))) + (version "21.1.3") + (source + (origin + (method url-fetch) + (uri (string-append "https://xorg.freedesktop.org/archive/individual" + "/xserver/xwayland-" version ".tar.xz")) + (sha256 + (base32 + "18pqvg76grbsyxa3mm3j06i1l8cwb28nbn2gcnqpsk7x75zpbhpb")))) + (inputs (list font-dejavu + dbus + egl-wayland + eudev + libfontenc + libdrm + libepoxy + libgcrypt + libtirpc + libxfont2 + libxkbfile + pixman + wayland + wayland-protocols + xkbcomp + xkeyboard-config + xorgproto + xtrans)) + (native-inputs (list pkg-config)) + (build-system meson-build-system) (arguments - (substitute-keyword-arguments (package-arguments xorg-server) - ((#:configure-flags flags) - `(cons* "--enable-xwayland" "--disable-xorg" - "--disable-docs" "--disable-devel-docs" - "--disable-xvfb" "--disable-xnest" - "--disable-xquartz" "--disable-xwin" - ,flags)))) - (synopsis "Xorg server with wayland backend"))) + `(#:configure-flags + (list "-Dxwayland_eglstream=true" + (string-append "-Dxkb_dir=" + (assoc-ref %build-inputs "xkeyboard-config") + "/share/X11/xkb") + (string-append "-Dxkb_bin_dir=" + (assoc-ref %build-inputs "xkbcomp") "/bin") + ;; The build system insist on providing a default font path; give + ;; that of dejavu, the same used for our fontconfig package. + (string-append "-Ddefault_font_path=" + (assoc-ref %build-inputs "font-dejavu") + "/share/fonts") + "-Dxkb_output_dir=/tmp" + (format #f "-Dbuilder_string=\"Build ID: ~a ~a\"" ,name ,version) + "-Dxcsecurity=true" + "-Ddri3=true" + "-Dglamor=true" + ;; For the log file, etc. + "--localstatedir=/var") + #:phases (modify-phases %standard-phases + (add-after 'unpack 'patch-/bin/sh + (lambda _ + (substitute* (find-files "." "\\.c$") + (("/bin/sh") (which "sh")))))))) + (synopsis "Xorg server with Wayland backend") + (description "Xwayland is an X server for running X clients under +Wayland.") + (home-page "https://www.x.org/wiki/") + (license license:x11))) ;; packages of height 4 in the propagated-inputs tree @@ -5508,18 +5508,15 @@ draggable titlebars and borders.") (define-public libx11 (package (name "libx11") - (version "1.6.10") + (version "1.7.2") (source (origin (method url-fetch) - (uri (string-append - "mirror://xorg/individual/lib/libX11-" - version - ".tar.bz2")) + (uri (string-append "mirror://xorg/individual/lib/libX11-" + version ".tar.bz2")) (sha256 (base32 - "09k2pqmqbn2m1bpgl7jfxyqxaaxsnzbnp2bp8ycmqldqi5ln4j5g")))) - (replacement libx11/fixed) + "0v7aj8q3rlchdyfwdna7n7vgpyzyir391dlv5rwy9fxagbikbyhw")))) (build-system gnu-build-system) (outputs '("out" "doc")) ;8 MiB of man pages + XML @@ -5529,36 +5526,18 @@ draggable titlebars and borders.") (assoc-ref %outputs "doc") "/share/man") "--disable-static" - - ;; Disable zero malloc check that fails when cross-compiling. - ,@(if (%current-target-system) - '("--disable-malloc0returnsnull") - '())))) + ,@(malloc0-flags)))) (propagated-inputs - `(("xorgproto" ,xorgproto) - ("libxcb" ,libxcb))) + (list xorgproto libxcb)) (inputs - `(("xtrans" ,xtrans))) + (list xtrans)) (native-inputs - `(("pkg-config" ,pkg-config) - ("xorgproto" ,xorgproto))) + (list pkg-config xorgproto)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg Core X11 protocol client library") (description "Xorg Core X11 protocol client library.") (license license:x11))) -(define-public libx11/fixed - (package - (inherit libx11) - (version "1.7.1A") - (source - (origin - (method url-fetch) - (uri "mirror://xorg/individual/lib/libX11-1.7.1.tar.bz2") - (sha256 - (base32 - "0isxad59hvdwggbxqqjjjg3zmih9xiq4d9mdsnqbyb2nmbg46kp6")))))) - ;; packages of height 5 in the propagated-inputs tree (define-public libxcursor @@ -5566,34 +5545,28 @@ draggable titlebars and borders.") (name "libxcursor") (version "1.2.0") (source - (origin - (method url-fetch) - (uri (string-append - "mirror://xorg/individual/lib/libXcursor-" - version - ".tar.bz2")) - (sha256 - (base32 - "10l7c9fm0jmpkm9ab9dz8r6m1pr87vvgqjnbx1psz50h4pwfklrs")))) + (origin + (method url-fetch) + (uri (string-append + "mirror://xorg/individual/lib/libXcursor-" + version + ".tar.bz2")) + (sha256 + (base32 + "10l7c9fm0jmpkm9ab9dz8r6m1pr87vvgqjnbx1psz50h4pwfklrs")))) (build-system gnu-build-system) (arguments '(#:configure-flags '("--disable-static"))) (propagated-inputs - `(("libx11" ,libx11) - ("libxrender" ,libxrender) - ("libxfixes" ,libxfixes) - ("xorgproto" ,xorgproto))) + (list libx11 libxrender libxfixes xorgproto)) (native-inputs - `(("pkg-config" ,pkg-config))) -;; TODO: add XCURSOR_PATH=.../share/icons to profile search paths, so -;; libXcursor finds cursors installed into a profile. If we solve bugs -;; <http://bugs.gnu.org/20255> and <http://bugs.gnu.org/22138>, we can fix -;; this with a search-path as follows: -;; -;; (native-search-paths -;; (list (search-path-specification -;; (variable "XCURSOR_PATH") -;; (files '("share/icons"))))) + (list pkg-config)) + ;; FIXME: The search path below won't be very effective until the bugs + ;; <http://bugs.gnu.org/20255> and <http://bugs.gnu.org/22138> are solved. + (native-search-paths + (list (search-path-specification + (variable "XCURSOR_PATH") + (files '("share/icons"))))) (home-page "https://www.x.org/wiki/") (synopsis "Xorg Cursor management library") (description "Xorg Cursor management library.") @@ -5602,7 +5575,7 @@ draggable titlebars and borders.") (define-public libxt (package (name "libxt") - (version "1.2.0") + (version "1.2.1") (source (origin (method url-fetch) @@ -5612,7 +5585,7 @@ draggable titlebars and borders.") ".tar.bz2")) (sha256 (base32 - "0cbqlyssr8aia88c8i7z59z9d0kp3p2hp6683xhz9ndyv8qza7dk")) + "0q1x7842r8rcn2m0q4q9f69h4qa097fyizs8brzx5ns62s7w1737")) (patches (search-patches "libxt-guix-search-paths.patch")))) (build-system gnu-build-system) (outputs '("out" @@ -5623,18 +5596,13 @@ draggable titlebars and borders.") (assoc-ref %outputs "doc") "/share/man") "--disable-static" - ;; Disable zero malloc check that fails when cross-compiling. - ,@(if (%current-target-system) - '("--disable-malloc0returnsnull") - '())))) + ,@(malloc0-flags)))) (propagated-inputs - `(("libx11" ,libx11) - ("libice" ,libice) - ("libsm" ,libsm))) + (list libx11 libice libsm)) (inputs - `(("libx11" ,libx11))) + (list libx11)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg XToolkit Intrinsics library") (description "Xorg XToolkit Intrinsics library.") @@ -5644,7 +5612,7 @@ draggable titlebars and borders.") (define-public libxaw (package (name "libxaw") - (version "1.0.13") + (version "1.0.14") (source (origin (method url-fetch) @@ -5654,19 +5622,16 @@ draggable titlebars and borders.") ".tar.bz2")) (sha256 (base32 - "1kdhxplwrn43d9jp3v54llp05kwx210lrsdvqb6944jp29rhdy4f")))) + "13kg59r3086383g1dyhnwxanhp2frssh9062mrgn34nzlf7gkbkn")))) (build-system gnu-build-system) (arguments '(#:configure-flags '("--disable-static"))) (propagated-inputs - `(("libxext" ,libxext) - ("libxmu" ,libxmu) - ("libxpm" ,libxpm) - ("libxt" ,libxt))) + (list libxext libxmu libxpm libxt)) (inputs - `(("xorgproto" ,xorgproto))) + (list xorgproto)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg Xaw library") (description @@ -5688,13 +5653,9 @@ Intrinsics (Xt) Library.") "1iv8kdb18n9vk3is5fyh6l40ipq9mkgx8ppj86byf464vr1ais7l")))) (build-system gnu-build-system) (inputs - `(("libxt" ,libxt) - ("libxmu" ,libxmu) - ("libxext" ,libxext) - ("xorgproto" ,xorgproto))) + (list libxt libxmu libxext xorgproto)) (native-inputs - `(("bison" ,bison) - ("pkg-config" ,pkg-config))) + (list bison pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Tab Window Manager for the X Window System") (description "Twm is a window manager for the X Window System. @@ -5718,9 +5679,9 @@ keyboard focus, and user-specified key and pointer button bindings.") (arguments '(#:configure-flags '("--disable-static"))) (propagated-inputs - `(("libxcb" ,libxcb))) + (list libxcb)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://cgit.freedesktop.org/xcb/util/") (synopsis "Core XCB utility functions") (description @@ -5756,13 +5717,11 @@ The XCB util module provides the following libraries: (arguments '(#:configure-flags '("--disable-static"))) (native-inputs - `(("m4" ,m4) - ("pkg-config" ,pkg-config))) + (list m4 pkg-config)) (inputs - `(("libxcb" ,libxcb))) + (list libxcb)) (propagated-inputs - `(("xcb-util-renderutil" ,xcb-util-renderutil) - ("xcb-util-image" ,xcb-util-image))) + (list xcb-util-renderutil xcb-util-image)) (home-page "https://cgit.freedesktop.org/xcb/util-cursor/") (synopsis "Port of libxcursor") (description "XCB-util-cursor is a port of libxcursor.") @@ -5791,10 +5750,9 @@ The XCB util module provides the following libraries: (build-system gnu-build-system) (outputs '("out")) (inputs - `(("util-macros" ,util-macros) - ("xcb-proto" ,xcb-proto))) + (list util-macros xcb-proto)) (propagated-inputs - `(("libxcb" ,libxcb))) + (list libxcb)) (native-inputs `(("autoconf" ,autoconf) ("automake" ,automake) @@ -5840,11 +5798,11 @@ numbers.") (arguments '(#:configure-flags '("--disable-static"))) (propagated-inputs - `(("libxcb" ,libxcb))) + (list libxcb)) (inputs - `(("xcb-util" ,xcb-util))) + (list xcb-util)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://cgit.freedesktop.org/xcb/util-image/") (synopsis "XCB port of Xlib's XImage and XShmImage") (description @@ -5876,9 +5834,9 @@ The XCB util-image module provides the following library: (arguments '(#:configure-flags '("--disable-static"))) (propagated-inputs - `(("libxcb" ,libxcb))) + (list libxcb)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://cgit.freedesktop.org/xcb/util-keysyms/") (synopsis "Standard X constants and conversion to/from keycodes") (description @@ -5910,9 +5868,9 @@ The XCB util-keysyms module provides the following library: (arguments '(#:configure-flags '("--disable-static"))) (propagated-inputs - `(("libxcb" ,libxcb))) + (list libxcb)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://cgit.freedesktop.org/xcb/util-renderutil/") (synopsis "Convenience functions for the Render extension") (description @@ -5944,10 +5902,9 @@ The XCB util-renderutil module provides the following library: (arguments '(#:configure-flags '("--disable-static"))) (propagated-inputs - `(("libxcb" ,libxcb))) + (list libxcb)) (native-inputs - `(("m4" ,m4) - ("pkg-config" ,pkg-config))) + (list m4 pkg-config)) (home-page "https://cgit.freedesktop.org/xcb/util-wm/") (synopsis "Client and window-manager helpers for ICCCM and EWMH") (description @@ -5978,12 +5935,11 @@ The XCB util-wm module provides the following libraries: "1fdbakx59vyh474skjydj1bbglpby3y03nl7mxn0z9v8gdhqz6yy")))) (build-system gnu-build-system) (inputs - `(("xorgproto" ,xorgproto) - ("libx11" ,libx11))) + (list xorgproto libx11)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (propagated-inputs - `(("xauth" ,xauth))) + (list xauth)) (home-page "https://www.x.org/") (synopsis "Commands to start the X Window server") (description @@ -6011,13 +5967,11 @@ user-friendly mechanism to start the X server.") "0i653s8g25cc0mimkwid9366bqkbyhdyjhckx7bw77j20hzrkfid")))) (build-system gnu-build-system) (propagated-inputs - `(("libxext" ,libxext) - ("libxmu" ,libxmu) - ("libxt" ,libxt))) + (list libxext libxmu libxt)) (inputs - `(("libx11" ,libx11))) + (list libx11)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Xorg Xaw3d library") (description @@ -6042,14 +5996,14 @@ Intrinsics (Xt) Library.") (list (string-append "--with-appdefaultdir=" %output ,%app-defaults-dir)))) (inputs - `(("libxmu" ,libxmu) - ("libx11" ,libx11) - ("libxaw" ,libxaw) - ("libxrender" ,libxrender) - ("libxft" ,libxft) - ("libxkbfile" ,libxkbfile))) - (native-inputs - `(("pkg-config" ,pkg-config))) + (list libxmu + libx11 + libxaw + libxrender + libxft + libxkbfile)) + (native-inputs + (list pkg-config)) (home-page "https://gitlab.freedesktop.org/xorg/app/xclock") (synopsis "Analog / digital clock for X") (description "The xclock program displays the time in analog or digital @@ -6076,9 +6030,9 @@ form.") (list (string-append "--with-appdefaultdir=" %output ,%app-defaults-dir)))) (inputs - `(("libxaw" ,libxaw))) + (list libxaw)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Display or capture a magnified part of a X11 screen") (description "Xmag displays and captures a magnified snapshot of a portion @@ -6105,9 +6059,9 @@ of an X11 screen.") (list (string-append "--with-appdefaultdir=" %output ,%app-defaults-dir)))) (inputs - `(("libxaw" ,libxaw))) + (list libxaw)) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (home-page "https://www.x.org/wiki/") (synopsis "Displays a message or query in a window") (description @@ -6149,7 +6103,7 @@ to answer a question. Xmessage can also exit after a specified time.") (("=xterm") (string-append "=" out "/bin/xterm"))))))))) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (inputs `(("luit" ,luit) ("libXft" ,libxft) @@ -6208,24 +6162,18 @@ programs that cannot use the window system directly.") ;; Tests require a running X11 server. #:tests? #f)) (native-inputs - `(("perl-extutils-depends" ,perl-extutils-depends) - ("perl-extutils-pkgconfig" ,perl-extutils-pkgconfig) - ("perl-module-install" ,perl-module-install) - ("perl-test-deep" ,perl-test-deep) - ("perl-test-exception" ,perl-test-exception))) + (list perl-extutils-depends perl-extutils-pkgconfig + perl-module-install perl-test-deep perl-test-exception)) (propagated-inputs - `(("perl-data-dump" ,perl-data-dump) - ("perl-mouse" ,perl-mouse) - ("perl-mousex-nativetraits" ,perl-mousex-nativetraits) - ("perl-try-tiny" ,perl-try-tiny) - ("perl-xml-descent" ,perl-xml-descent) - ("perl-xml-simple" ,perl-xml-simple) - ("perl-xs-object-magic" ,perl-xs-object-magic))) + (list perl-data-dump + perl-mouse + perl-mousex-nativetraits + perl-try-tiny + perl-xml-descent + perl-xml-simple + perl-xs-object-magic)) (inputs - `(("libxcb" ,libxcb) - ("xcb-proto" ,xcb-proto) - ("xcb-util" ,xcb-util) - ("xcb-util-wm" ,xcb-util-wm))) + (list libxcb xcb-proto xcb-util xcb-util-wm)) (home-page "https://metacpan.org/release/X11-XCB") (synopsis "Perl bindings for libxcb") (description @@ -6275,10 +6223,9 @@ perl programs to display windows and graphics on X11 servers.") (base32 "1x3kvic52jgp2mvd5wzrqrprqi82cdk8l4075v8b33ksvj9mjqiw")))) (build-system perl-build-system) (native-inputs - `(("perl-encode-hanextra" ,perl-encode-hanextra) - ("perl-module-util" ,perl-module-util))) + (list perl-encode-hanextra perl-module-util)) (propagated-inputs - `(("perl-x11-protocol" ,perl-x11-protocol))) + (list perl-x11-protocol)) (home-page "https://metacpan.org/release/X11-Protocol-Other") (synopsis "Miscellaneous helpers for @code{X11::Protocol} connections") (description @@ -6304,16 +6251,14 @@ Conventions Manual) and some of the @dfn{EWMH} (file-name (git-file-name name version)))) (build-system gnu-build-system) (native-inputs - `(("pkg-config" ,pkg-config) - ("autoconf" ,autoconf) - ("automake" ,automake))) + (list pkg-config autoconf automake)) (inputs - `(("libX11" ,libx11) - ("libXext" ,libxext) - ("libXcomposite" ,libxcomposite) - ("libXfixes" ,libxfixes) - ("libXdamage" ,libxdamage) - ("libXrender" ,libxrender))) + (list libx11 + libxext + libxcomposite + libxfixes + libxdamage + libxrender)) (synopsis "X Compositing manager using RENDER") (description "xcompmgr is a sample compositing manager for X servers supporting the XFIXES, DAMAGE, RENDER, and COMPOSITE extensions. It enables @@ -6371,9 +6316,7 @@ basic eye-candy effects.") ("dbus" ,dbus) ; For dbus-launch command. ("python-lz4" ,python-lz4) ; Faster compression than zlib. ("python-netifaces" ,python-netifaces))) - (native-inputs `(("pkg-config" ,pkg-config) - ("pandoc" ,pandoc) - ("python-cython" ,python-cython))) + (native-inputs (list pkg-config pandoc python-cython)) (arguments `(#:configure-flags '("--without-Xdummy" "--without-Xdummy_wrapper" @@ -6422,7 +6365,8 @@ basic eye-candy effects.") ;; The trailing -- is intentional, so we only replace it inside ;; a command line. (("dbus-launch --") - (string-append (assoc-ref inputs "dbus") "/bin/dbus-launch --"))) + (string-append (search-input-file inputs "/bin/dbus-launch") + " --"))) ;; /run/user does not exist on guix system (substitute* "./xpra/scripts/config.py" (("socket-dir.*: \"\",") @@ -6464,11 +6408,7 @@ X11 servers, Windows, or macOS.") "1p7sl0js47ja4glmax93ci59h02ipqw3wxkh4f1qgaz5qjy9nn9l")))) (build-system gnu-build-system) (inputs - `(("anthy" ,anthy) - ("libedit" ,libedit) - ("libxft" ,libxft) - ("m17n-lib" ,m17n-lib) - ("ncurses" ,ncurses))) + (list anthy libedit libxft m17n-lib ncurses)) (native-inputs `(("emacs" ,emacs-minimal) ("intltool" ,intltool) @@ -6535,6 +6475,10 @@ and embedded platforms.") `(("gtk" ,gtk+) ("gtk" ,gtk+-2) ,@(package-inputs uim))) + (arguments + (substitute-keyword-arguments (package-arguments uim) + ((#:configure-flags configure-flags) + (append configure-flags (list "CFLAGS=-O2 -g -fcommon"))))) (synopsis "Multilingual input method framework (GTK+ support)"))) (define-public uim-qt @@ -6548,7 +6492,8 @@ and embedded platforms.") (substitute-keyword-arguments (package-arguments uim) ((#:configure-flags configure-flags) (append configure-flags (list "--with-qt5-immodule" - "--with-qt5"))))) + "--with-qt5" + "CPPFLAGS=-fcommon"))))) (synopsis "Multilingual input method framework (Qt support)"))) (define-public keynav @@ -6567,15 +6512,15 @@ and embedded platforms.") "1gizjhji3yspxxxvb90js3z1bv18rbf5phxg8rciixpj3cccff8z")))) (build-system gnu-build-system) (inputs - `(("cairo" ,cairo) - ("glib" ,glib) - ("libx11" ,libx11) - ("libxext" ,libxext) - ("libxinerama" ,libxinerama) - ("libxtst" ,libxtst) - ("xdotool" ,xdotool))) - (native-inputs - `(("pkg-config" ,pkg-config))) + (list cairo + glib + libx11 + libxext + libxinerama + libxtst + xdotool)) + (native-inputs + (list pkg-config)) (arguments `(#:tests? #f ;No tests. #:phases @@ -6628,10 +6573,8 @@ mouse click. You can do everything mouse can do with a keyboard.") "0rya202y87dwl35jnmq8hs3arzdrv5z4vf1xmi0py4rnmhdpszaw")))) (build-system gnu-build-system) (native-inputs - `(("pkg-config" ,pkg-config))) - (inputs `(("libxcomposite" ,libxcomposite) - ("libxdamage" ,libxdamage) - ("libxrender" ,libxrender))) + (list pkg-config)) + (inputs (list libxcomposite libxdamage libxrender)) (synopsis "Set the transparency of X11 windows") (description "@command{transset} is a simple program for X servers supporting the XFIXES, DAMAGE, and COMPOSITE extensions. It lets the @@ -6674,9 +6617,7 @@ user set the transparency on a window.") (file-name (git-file-name name version)))) (build-system gnu-build-system) (native-inputs - `(("pkg-config" ,pkg-config) - ("autoconf" ,autoconf) - ("automake" ,automake))) + (list pkg-config autoconf automake)) (synopsis "Resize fonts in the BDF format") (description "This package provides @command{bdfresize}, a command to magnify or @@ -6735,13 +6676,13 @@ output.") "bash") "/bin/bash")))))))) (native-inputs - `(("pkg-config" ,pkg-config) - ("bdftopcf" ,bdftopcf) - ("bdfresize" ,bdfresize) - ("sharutils" ,sharutils) ; for 'uuencode' - ("perl" ,perl))) + (list pkg-config + bdftopcf + bdfresize + sharutils ; for 'uuencode' + perl)) (inputs - `(("perl" ,perl))) ; used by 'ckbcomp' + (list perl)) ; used by 'ckbcomp' (synopsis "Set up the Linux console font and keyboard") (description "console-setup provides the console with the same keyboard @@ -6778,10 +6719,9 @@ Thai).") (base32 "0858wn2p14bxpv9lvaz2bz1rk6zk0g8zgxf8iy595m8fqv4q2fya")))) (build-system gnu-build-system) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (inputs - `(("libpng" ,libpng) - ("libxcursor" ,libxcursor))) + (list libpng libxcursor)) (synopsis "Decode X cursors") (description "xcur2png is a program decomposes an X cursor into a set of PNG images and @@ -6822,7 +6762,7 @@ changed.") (base32 "16jqparb33lfq4cvd9l3jgd7fq86fk9gv2ixc8vgqibid6cnhi0x")))) (native-inputs - `(("pkg-config" ,pkg-config))) + (list pkg-config)) (inputs `(("glib" ,glib) ("gettext" ,gettext-minimal) @@ -6899,11 +6839,10 @@ box, and a calendar. It uses GTK+, and will match your desktop theme.") (install-file "xvfb-run" bin) (install-file "xvfb-run.1" man))))))) (inputs - `(("util-linux" ,util-linux) ; for getopt - ("xauth" ,xauth) - ("xorg-server" ,xorg-server))) + (list util-linux ; for getopt + xauth xorg-server)) (native-inputs - `(("xterm" ,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") @@ -6942,9 +6881,7 @@ the server and cleaning up before returning the exit status of the command.") (modify-phases %standard-phases (delete 'configure)))) (inputs - `(("imlib2" ,imlib2) - ("libx11" ,libx11) - ("libxinerama" ,libxinerama))) + (list imlib2 libx11 libxinerama)) (home-page "https://github.com/ttzhou/setroot") (synopsis "Simple X background setter inspired by imlibsetroot and feh") (description "Setroot is a lightweight X background setter with feh's |