gnu/packages/xorg.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2013, 2014 Andreas Enge <andreas@enge.fr>
   3 ;;; Copyright © 2014, 2015, 2017, 2018, 2020 Mark H Weaver <mhw@netris.org>
   4 ;;; Copyright © 2014, 2015 Eric Bavier <bavier@member.fsf.org>
   5 ;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
   6 ;;; Copyright © 2015 Eric Dvorsak <eric@dvorsak.fr>
   7 ;;; Copyright © 2016 Mathieu Lirzin <mthl@gnu.org>
   8 ;;; Copyright © 2015 Cyrill Schenkel <cyrill.schenkel@gmail.com>
   9 ;;; Copyright © 2016, 2017, 2019, 2020 Efraim Flashner <efraim@flashner.co.il>
  10 ;;; Copyright © 2016 Nikita <nikita@n0.is>
  11 ;;; Copyright © 2016 Alex Kost <alezost@gmail.com>
  12 ;;; Copyright © 2016 David Craven <david@craven.ch>
  13 ;;; Copyright © 2016, 2017 John Darrington <jmd@gnu.org>
  14 ;;; Copyright © 2017, 2018, 2019, 2020, 2021 Marius Bakke <marius@gnu.org>
  15 ;;; Copyright © 2017, 2018, 2019 Rutger Helling <rhelling@mykolab.com>
  16 ;;; Copyright © 2017, 2020 Arun Isaac <arunisaac@systemreboot.net>
  17 ;;; Copyright © 2018–2021 Tobias Geerinckx-Rice <me@tobias.gr>
  18 ;;; Copyright © 2018 Kei Kebreau <kkebreau@posteo.net>
  19 ;;; Copyright © 2018, 2020 Oleg Pykhalov <go.wigust@gmail.com>
  20 ;;; Copyright © 2018 Benjamin Slade <slade@jnanam.net>
  21 ;;; Copyright © 2019 nee <nee@cock.li>
  22 ;;; Copyright © 2019 Yoshinori Arai <kumagusu08@gmail.com>
  23 ;;; Copyright © 2019 Mathieu Othacehe <m.othacehe@gmail.com>
  24 ;;; Copyright © 2020 Leo Prikler <leo.prikler@student.tugraz.at>
  25 ;;; Copyright © 2020 Florian Pelz <pelzflorian@pelzflorian.de>
  26 ;;; Copyright © 2020, 2021 Michael Rohleder <mike@rohleder.de>
  27 ;;; Copyright © 2020 Maxim Cournoyer <maxim.cournoyer@gmail.com>
  28 ;;; Copyright © 2020 Jean-Baptiste Note <jean-baptiste.note@m4x.org>
  29 ;;; Copyright © 2021 Nicolò Balzarotti <nicolo@nixo.xyz>
  30 ;;; Copyright © 2021 Matthew James Kraai <kraai@ftbfs.org>
  31 ;;; Copyright © 2021 Brice Waegeneire <brice@waegenei.re>
  32 ;;;
  33 ;;; This file is part of GNU Guix.
  34 ;;;
  35 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  36 ;;; under the terms of the GNU General Public License as published by
  37 ;;; the Free Software Foundation; either version 3 of the License, or (at
  38 ;;; your option) any later version.
  39 ;;;
  40 ;;; GNU Guix is distributed in the hope that it will be useful, but
  41 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  42 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  43 ;;; GNU General Public License for more details.
  44 ;;;
  45 ;;; You should have received a copy of the GNU General Public License
  46 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  47
  48 (define-module (gnu packages xorg)
  49   #:use-module ((guix licenses) #:prefix license:)
  50   #:use-module (guix packages)
  51   #:use-module (guix download)
  52   #:use-module (guix git-download)
  53   #:use-module (guix build-system gnu)
  54   #:use-module (guix build-system perl)
  55   #:use-module (guix build-system python)
  56   #:use-module (guix utils)
  57   #:use-module (gnu packages)
  58   #:use-module (gnu packages aidc)
  59   #:use-module (gnu packages anthy)
  60   #:use-module (gnu packages autotools)
  61   #:use-module (gnu packages bison)
  62   #:use-module (gnu packages check)
  63   #:use-module (gnu packages compression)
  64   #:use-module (gnu packages emacs)
  65   #:use-module (gnu packages flex)
  66   #:use-module (gnu packages fontutils)
  67   #:use-module (gnu packages freedesktop)
  68   #:use-module (gnu packages gettext)
  69   #:use-module (gnu packages gl)
  70   #:use-module (gnu packages glib)
  71   #:use-module (gnu packages gnupg)
  72   #:use-module (gnu packages gperf)
  73   #:use-module (gnu packages gtk)
  74   #:use-module (gnu packages haskell-xyz)
  75   #:use-module (gnu packages inkscape)
  76   #:use-module (gnu packages image)
  77   #:use-module (gnu packages imagemagick)
  78   #:use-module (gnu packages libbsd)
  79   #:use-module (gnu packages libedit)
  80   #:use-module (gnu packages linux)
  81   #:use-module (gnu packages llvm)
  82   #:use-module (gnu packages m4)
  83   #:use-module (gnu packages ncurses)
  84   #:use-module (gnu packages pciutils)
  85   #:use-module (gnu packages perl)
  86   #:use-module (gnu packages perl-check)
  87   #:use-module (gnu packages pkg-config)
  88   #:use-module (gnu packages python)
  89   #:use-module (gnu packages python-compression)
  90   #:use-module (gnu packages python-crypto)
  91   #:use-module (gnu packages python-xyz)
  92   #:use-module (gnu packages qt)
  93   #:use-module (gnu packages spice)
  94   #:use-module (gnu packages video)
  95   #:use-module (gnu packages xiph)
  96   #:use-module (gnu packages xml)
  97   #:use-module (gnu packages xdisorg))
  98
  99
 100
 101
 102 ;; packages without propagated input
 103 ;; (rationale for this separation: The packages in PROPAGATED_INPUTS need to
 104 ;; be defined first, the split makes book-keeping easier.)
 105
 106
 107 ;; compiles only on macos
 108 ;; (define-public applewmproto
 109
 110
 111 (define xorg-cf-files
 112   ;; The xorg-cf-files package contains the data files for the imake utility,
 113   ;; defining the known settings for a wide variety of platforms (many of which
 114   ;; have not been verified or tested in over a decade), and for many of the
 115   ;; libraries formerly delivered in the X.Org monolithic releases.
 116   ;;
 117   ;; License: x11, see COPYING
 118   (origin
 119     (method url-fetch)
 120     (uri "mirror://xorg/individual/util/xorg-cf-files-1.0.6.tar.bz2")
 121     (sha256
 122      (base32 "0kckng0zs1viz0nr84rdl6dswgip7ndn4pnh5nfwnviwpsfmmksd"))))
 123
 124 (define-public imake
 125   (package
 126     (name "imake")
 127     (version "1.0.8")
 128     (source
 129      (origin
 130       (method url-fetch)
 131       (uri (string-append "mirror://xorg/individual/util/imake-"
 132                           version ".tar.bz2"))
 133       (sha256
 134        (base32 "00m7l90ws72k1qm101sd2rx92ckd50cszyng5d4dd77jncbf9lmq"))))
 135     (build-system gnu-build-system)
 136     (native-inputs
 137       `(("pkg-config" ,pkg-config)))
 138     (inputs
 139       `(("xorg-cf-files" ,xorg-cf-files)
 140         ("xorgproto" ,xorgproto)))
 141     (arguments
 142      `(#:phases
 143        (modify-phases %standard-phases
 144          (add-after 'install 'install-data
 145            (lambda* (#:key inputs outputs #:allow-other-keys)
 146              (let ((cf-files (assoc-ref inputs "xorg-cf-files"))
 147                    (out (assoc-ref outputs "out"))
 148                    (unpack (assoc-ref %standard-phases 'unpack))
 149                    (patch-source-shebangs
 150                     (assoc-ref %standard-phases 'patch-source-shebangs)))
 151                (mkdir "xorg-cf-files")
 152                (with-directory-excursion "xorg-cf-files"
 153                  (apply unpack (list #:source cf-files))
 154                  (apply patch-source-shebangs (list #:source cf-files))
 155                  (substitute* '("mingw.cf" "Imake.tmpl" "nto.cf" "os2.cf"
 156                                 "linux.cf" "Amoeba.cf" "cygwin.cf")
 157                    (("/bin/sh") (which "bash")))
 158                  (invoke "./configure"
 159                          (string-append "SHELL=" (which "bash"))
 160                          (string-append "--prefix=" out))
 161                  (invoke "make" "install"))))))))
 162     (home-page "https://www.x.org/")
 163     (synopsis "Source code configuration and build system")
 164     (description
 165      "Imake is a deprecated source code configuration and build system which
 166 has traditionally been supplied by and used to build the X Window System in
 167 X11R6 and previous releases.  As of the X Window System X11R7 release, the X
 168 Window system has switched to using GNU autotools as the primary build system,
 169 and the Imake system is now deprecated, and should not be used by new software
 170 projects.  Software developers are encouraged to migrate software to the GNU
 171 autotools system.")
 172     (license license:x11)))
 173
 174 (define-public lndir
 175   (package
 176     (name "lndir")
 177     (version "1.0.3")
 178     (source (origin
 179               (method url-fetch)
 180               (uri (string-append
 181                     "mirror://xorg/individual/util/"
 182                     "lndir-" version ".tar.bz2"))
 183               (sha256
 184                (base32
 185                 "0pdngiy8zdhsiqx2am75yfcl36l7kd7d7nl0rss8shcdvsqgmx29"))))
 186     (build-system gnu-build-system)
 187     (native-inputs
 188      `(("pkg-config" ,pkg-config)))
 189     (inputs
 190      `(("xorgproto" ,xorgproto)))
 191     (home-page "https://www.x.org/")
 192     (synopsis "Symlink directory into tree")
 193     (description "Create a shadow directory of symbolic links to another
 194 directory tree.")
 195     (license license:x11)))
 196
 197 (define-public bdftopcf
 198   (package
 199     (name "bdftopcf")
 200     (version "1.1")
 201     (source
 202       (origin
 203         (method url-fetch)
 204         (uri (string-append
 205                "mirror://xorg/individual/app/bdftopcf-"
 206                version
 207                ".tar.bz2"))
 208         (sha256
 209           (base32
 210             "18hiscgljrz10zjcws25bis32nyrg3hzgmiq6scrh7izqmgz0kab"))))
 211     (build-system gnu-build-system)
 212     (inputs
 213       `(("libxfont" ,libxfont2)))
 214     (native-inputs
 215        `(("pkg-config" ,pkg-config)))
 216     (home-page "https://www.x.org/wiki/")
 217     (synopsis "Convert X font from BDF to PCF")
 218     (description
 219      "BDFtoPCF is a font compiler for the X server and font server.  It
 220 converts X font from Bitmap Distribution Format to Portable Compiled Format
 221 which can be read by any architecture.")
 222     (license license:x11)))
 223
 224 (define-public xorgproto
 225   (package
 226     (name "xorgproto")
 227     (version "2019.2")
 228     (source (origin
 229               (method url-fetch)
 230               (uri (string-append "mirror://xorg/individual/proto/"
 231                                   "xorgproto-" version ".tar.bz2"))
 232               (sha256
 233                (base32
 234                 "13kvir8dz9dvzhvyfndpff1z7k8h14s7kkl7mbl427andhax1v26"))))
 235     (build-system gnu-build-system)
 236     (propagated-inputs
 237      ;; To get util-macros in (almost?) all package inputs.
 238      `(("util-macros" ,util-macros)))
 239     (home-page "https://cgit.freedesktop.org/xorg/proto/xorgproto")
 240     (synopsis "Xorg protocol headers")
 241     (description
 242      "This package provides the headers and specification documents defining
 243 the core protocol and (many) extensions for the X Window System.")
 244     (license license:x11)))
 245
 246 (define-public bigreqsproto
 247   (package
 248     (name "bigreqsproto")
 249     (version "1.1.2")
 250     (source
 251       (origin
 252         (method url-fetch)
 253         (uri (string-append
 254                "mirror://xorg/individual/proto/bigreqsproto-"
 255                version
 256                ".tar.bz2"))
 257         (sha256
 258           (base32
 259             "07hvfm84scz8zjw14riiln2v4w03jlhp756ypwhq27g48jmic8a6"))))
 260     (build-system gnu-build-system)
 261     (native-inputs `(("pkg-config" ,pkg-config)))
 262     (home-page "https://www.x.org/wiki/")
 263     (synopsis "Xorg BigReqsProto protocol headers")
 264     (description
 265      "Big Requests Extension defines a protocol to enable the use of
 266 requests that exceed 262140 bytes in length.")
 267     (license license:x11)
 268     (properties `((superseded . ,xorgproto)))))
 269
 270 (define-public compositeproto
 271   (package
 272     (name "compositeproto")
 273     (version "0.4.2")
 274     (source
 275       (origin
 276         (method url-fetch)
 277         (uri (string-append
 278                "mirror://xorg/individual/proto/compositeproto-"
 279                version
 280                ".tar.bz2"))
 281         (sha256
 282           (base32
 283             "1z0crmf669hirw4s7972mmp8xig80kfndja9h559haqbpvq5k4q4"))))
 284     (build-system gnu-build-system)
 285     (inputs
 286       `(("xorgproto" ,xorgproto)))
 287     (native-inputs
 288       `(("pkg-config" ,pkg-config)))
 289     (home-page "https://www.x.org/wiki/")
 290     (synopsis "Xorg CompositeProto protocol headers")
 291     (description
 292      "Composite Extension contains header files and documentation for
 293 the damage protocol.")
 294     (license license:x11)
 295     (properties `((superseded . ,xorgproto)))))
 296
 297 (define-public damageproto
 298   (package
 299     (name "damageproto")
 300     (version "1.2.1")
 301     (source
 302       (origin
 303         (method url-fetch)
 304         (uri (string-append
 305                "mirror://xorg/individual/proto/damageproto-"
 306                version
 307                ".tar.bz2"))
 308         (sha256
 309           (base32
 310             "0nzwr5pv9hg7c21n995pdiv0zqhs91yz3r8rn3aska4ykcp12z2w"))))
 311     (build-system gnu-build-system)
 312     (native-inputs `(("pkg-config" ,pkg-config)))
 313     (home-page "https://www.x.org/wiki/")
 314     (synopsis "Xorg DamageProto protocol headers")
 315     (description
 316      "Damage Extension contains header files and documentation for
 317 the damage protocol.")
 318     (license license:x11)
 319     (properties `((superseded . ,xorgproto)))))
 320
 321 (define-public dmxproto
 322   (package
 323     (name "dmxproto")
 324     (version "2.3.1")
 325     (source
 326       (origin
 327         (method url-fetch)
 328         (uri (string-append
 329                "mirror://xorg/individual/proto/dmxproto-"
 330                version
 331                ".tar.bz2"))
 332         (sha256
 333           (base32
 334             "02b5x9dkgajizm8dqyx2w6hmqx3v25l67mgf35nj6sz0lgk52877"))))
 335     (build-system gnu-build-system)
 336     (native-inputs `(("pkg-config" ,pkg-config)))
 337     (home-page "https://www.x.org/wiki/")
 338     (synopsis "Xorg DMXProto protocol headers")
 339     (description
 340      "DMX (Distributed Multihead X) Extension defines a protocol for clients
 341 to access a front-end proxy X server that controls multiple back-end X
 342 servers making up a large display.")
 343     (license license:x11)
 344     (properties `((superseded . ,xorgproto)))))
 345
 346 (define-public dri2proto
 347   (package
 348     (name "dri2proto")
 349     (version "2.8")
 350     (source
 351       (origin
 352         (method url-fetch)
 353         (uri (string-append
 354                "mirror://xorg/individual/proto/dri2proto-"
 355                version
 356                ".tar.bz2"))
 357         (sha256
 358           (base32
 359             "015az1vfdqmil1yay5nlsmpf6cf7vcbpslxjb72cfkzlvrv59dgr"))))
 360     (build-system gnu-build-system)
 361     (home-page "https://www.x.org/wiki/")
 362     (synopsis "Xorg DRI2Proto protocol headers")
 363     (description
 364      "Direct Rendering Infrastructure 2 Extension defines a protocol to
 365 securely allow user applications to access the video hardware without
 366 requiring data to be passed through the X server.")
 367     (license license:x11)
 368     (properties `((superseded . ,xorgproto)))))
 369
 370 (define-public dri3proto
 371   (package
 372     (name "dri3proto")
 373     (version "1.0")
 374     (source
 375       (origin
 376         (method url-fetch)
 377         (uri (string-append
 378                "mirror://xorg/individual/proto/dri3proto-"
 379                version
 380                ".tar.bz2"))
 381         (sha256
 382           (base32
 383             "0x609xvnl8jky5m8jdklw4nymx3irkv32w99dfd8nl800bblkgh1"))))
 384     (build-system gnu-build-system)
 385     (home-page "https://www.x.org/wiki/")
 386     (synopsis "Xorg DRI3Proto protocol headers")
 387     (description
 388      "Direct Rendering Infrastructure 3 Extension provides mechanisms to
 389 translate between direct rendered buffers and X pixmaps.  When combined with
 390 the Present extension, a complete direct rendering solution for OpenGL is
 391 provided.")
 392     (license (license:x11-style "file://dri3proto.h"
 393                                 "See 'dri3proto.h' in the distribution."))
 394     (properties `((superseded . ,xorgproto)))))
 395
 396 (define-public %app-defaults-dir "/lib/X11/app-defaults")
 397
 398 (define-public editres
 399   (package
 400     (name "editres")
 401     (version "1.0.7")
 402     (source
 403       (origin
 404         (method url-fetch)
 405         (uri (string-append
 406                "mirror://xorg/individual/app/" name "-"
 407                version
 408                ".tar.bz2"))
 409         (sha256
 410          (base32
 411           "04awfwmy3f9f0bchidc4ssbgrbicn5gzasg3jydpfnp5513d76h8"))))
 412     (build-system gnu-build-system)
 413     (arguments
 414      `(#:configure-flags
 415        (list (string-append "--with-appdefaultdir="
 416                             %output ,%app-defaults-dir))))
 417     (inputs
 418      `(("libxaw" ,libxaw)
 419        ("libxmu" ,libxmu)
 420        ("libxt" ,libxt)))
 421     (native-inputs
 422      `(("pkg-config" ,pkg-config)))
 423     (home-page "https://www.x.org/wiki/")
 424     (synopsis "Tool to browse and edit X Toolkit resource specifications")
 425     (description
 426      "Editres is a tool that allows users and application developers to view
 427 the full widget hierarchy of any X Toolkit application that speaks the Editres
 428 protocol.  In addition, editres will help the user construct resource
 429 specifications, allow the user to apply the resource to the application and
 430 view the results dynamically.  Once the user is happy with a resource
 431 specification editres will append the resource string to the user's X
 432 Resources file.")
 433     (license license:x11)))
 434
 435
 436 (define-public encodings
 437   (package
 438     (name "encodings")
 439     (version "1.0.5")
 440     (source
 441       (origin
 442         (method url-fetch)
 443         (uri (string-append
 444                "mirror://xorg/individual/font/encodings-"
 445                version
 446                ".tar.bz2"))
 447         (sha256
 448           (base32 "0caafx0yqqnqyvbalxhh3mb0r9v36xmcy5zjhygb2i508dhy35mx"))))
 449     (build-system gnu-build-system)
 450     (inputs
 451       `(("mkfontscale" ,mkfontscale)))
 452     (native-inputs
 453       `(("pkg-config" ,pkg-config)))
 454     (home-page "https://www.x.org/wiki/")
 455     (synopsis "Xorg font encoding files")
 456     (description "Xorg font encoding files.")
 457     (license license:public-domain)))
 458
 459 (define (%xorg-font-origin font version hash)
 460   (origin
 461     (method url-fetch)
 462     (uri (string-append "mirror://xorg/individual/font/" font "-"
 463                         version ".tar.bz2"))
 464     (sha256 hash)
 465     (modules '((guix build utils)))
 466     (snippet
 467      ;; Do not include timestamps in '.pcf.gz' files.
 468      '(begin
 469         (substitute* "Makefile.in"
 470           (("^COMPRESS = (.*)$" _ rest)
 471            (string-append "COMPRESS = " (string-trim-right rest)
 472                           " --no-name\n")))
 473         #t))))
 474
 475 (define-syntax-rule (xorg-font-origin font version hash)
 476   "Expand to the 'origin' form for the given Xorg font package."
 477   (%xorg-font-origin font version (base32 hash)))
 478
 479 (define-public font-adobe100dpi
 480   (package
 481     (name "font-adobe100dpi")
 482     (version "1.0.3")
 483     (source (xorg-font-origin
 484              "font-adobe-100dpi" version
 485              "0m60f5bd0caambrk8ksknb5dks7wzsg7g7xaf0j21jxmx8rq9h5j"))
 486     (build-system gnu-build-system)
 487     (inputs
 488       `(("bdftopcf" ,bdftopcf)
 489         ("font-util" ,font-util)
 490         ("mkfontdir" ,mkfontdir)))
 491     (native-inputs
 492       `(("pkg-config" ,pkg-config)))
 493     (arguments
 494       `(#:configure-flags (list
 495         ;; install fonts into subdirectory of package output instead of
 496         ;; font-util-?.?.?/share/fonts/X11
 497         (string-append "--with-fontrootdir=" %output "/share/fonts/X11"))))
 498     (home-page "https://www.x.org/wiki/")
 499     (synopsis "Xorg adobe-100dpi fonts")
 500     (description "Xorg adobe-100dpi fonts.")
 501     (license license:x11)))
 502
 503
 504 (define-public font-adobe75dpi
 505   (package
 506     (name "font-adobe75dpi")
 507     (version "1.0.3")
 508     (source (xorg-font-origin
 509              "font-adobe-75dpi" version
 510              "02advcv9lyxpvrjv8bjh1b797lzg6jvhipclz49z8r8y98g4l0n6"))
 511     (build-system gnu-build-system)
 512     (inputs
 513       `(("bdftopcf" ,bdftopcf)
 514         ("font-util" ,font-util)
 515         ("mkfontdir" ,mkfontdir)))
 516     (native-inputs
 517       `(("pkg-config" ,pkg-config)))
 518     (arguments
 519       `(#:configure-flags (list
 520         (string-append "--with-fontrootdir=" %output "/share/fonts/X11"))))
 521     (home-page "https://www.x.org/wiki/")
 522     (synopsis "Xorg adobe-75dpi fonts")
 523     (description "Xorg adobe-75dpi fonts.")
 524     (license license:x11)))
 525
 526
 527 ;; non-free license
 528 ;; (define-public font-adobe-utopia100dpi
 529 ;; (define-public font-adobe-utopia75dpi
 530 ;; (define-public font-adobe-utopia-type1
 531
 532
 533 (define-public font-alias
 534   (package
 535     (name "font-alias")
 536     (version "1.0.4")
 537     (source (xorg-font-origin
 538              name version
 539              "0xjjjindczv3g7m1597l0x19zz75xy70wh5garghz61fpzl1l4gk"))
 540     (build-system gnu-build-system)
 541     (native-inputs `(("pkg-config" ,pkg-config)))
 542     (arguments
 543      `(#:phases (modify-phases %standard-phases
 544                   (add-after
 545                    'install 'install-fonts-dir
 546                    ;; The X font server will not add directories to the font
 547                    ;; path unless they contain a "fonts.dir" file, so add some
 548                    ;; dummy files.
 549                    (lambda* (#:key outputs #:allow-other-keys)
 550                      (let ((out (assoc-ref outputs "out")))
 551                        (for-each (lambda (d)
 552                                    (call-with-output-file
 553                                        (string-append out "/share/fonts/X11"
 554                                                       "/" d "/fonts.dir")
 555                                      (lambda (p)
 556                                        (format p "0~%"))))
 557                                  '("75dpi" "100dpi" "misc" "cyrillic"))
 558                        #t))))))
 559     (home-page "https://www.x.org/wiki/")
 560     (synopsis "Xorg font aliases")
 561     (description
 562      "This package provides some common aliases for Xorg fonts.
 563 For example: @code{6x10}, @code{9x15bold}, etc.")
 564     (license license:x11)))
 565
 566
 567 (define-public font-arabic-misc
 568   (package
 569     (name "font-arabic-misc")
 570     (version "1.0.3")
 571     (source (xorg-font-origin
 572              name version
 573              "1x246dfnxnmflzf0qzy62k8jdpkb6jkgspcjgbk8jcq9lw99npah"))
 574     (build-system gnu-build-system)
 575     (inputs
 576       `(("mkfontdir" ,mkfontdir)
 577         ("bdftopcf" ,bdftopcf)))
 578     (native-inputs
 579       `(("pkg-config" ,pkg-config)))
 580     (home-page "https://www.x.org/wiki/")
 581     (synopsis "Xorg arabic-misc font")
 582     (description "Xorg arabic-misc font.")
 583     (license license:x11)))
 584
 585
 586 ;; non-free license
 587 ;; (define-public font-bh100dpi
 588 ;; (define-public font-bh75dpi
 589 ;; (define-public font-bh-lucidatypewriter100dpi
 590 ;; (define-public font-bh-lucidatypewriter75dpi
 591 ;; (define-public font-bh-ttf
 592 ;; (define-public font-bh-type1
 593 ;; (define-public font-bitstream100dpi
 594 ;; (define-public font-bitstream75dpi
 595
 596
 597 (define-public font-cronyx-cyrillic
 598   (package
 599     (name "font-cronyx-cyrillic")
 600     (version "1.0.3")
 601     (source (xorg-font-origin
 602              name version
 603              "0ai1v4n61k8j9x2a1knvfbl2xjxk3xxmqaq3p9vpqrspc69k31kf"))
 604     (build-system gnu-build-system)
 605     (inputs
 606       `(("mkfontdir" ,mkfontdir)
 607         ("bdftopcf" ,bdftopcf)))
 608     (native-inputs
 609       `(("pkg-config" ,pkg-config)))
 610     (home-page "https://www.x.org/wiki/")
 611     (synopsis "Xorg cronyx-cyrillic font")
 612     (description "Xorg cronyx-cyrillic font.")
 613     (license license:x11)))
 614
 615
 616 ;; no license
 617 ;; (define-public font-cursor-misc
 618
 619 ;; non-free license
 620 ;; (define-public font-daewoo-misc
 621
 622
 623 (define-public font-dec-misc
 624   (package
 625     (name "font-dec-misc")
 626     (version "1.0.3")
 627     (source (xorg-font-origin
 628              name version
 629              "0yzza0l4zwyy7accr1s8ab7fjqkpwggqydbm2vc19scdby5xz7g1"))
 630     (build-system gnu-build-system)
 631     (inputs
 632       `(("mkfontdir" ,mkfontdir)
 633         ("bdftopcf" ,bdftopcf)))
 634     (native-inputs
 635       `(("pkg-config" ,pkg-config)))
 636     (home-page "https://www.x.org/wiki/")
 637     (synopsis "Xorg dec-misc font")
 638     (description "Xorg dec-misc font.")
 639     (license license:x11)))
 640
 641
 642 ;; non-free license
 643 ;; (define-public font-ibm-type1
 644
 645 (define-public font-isas-misc
 646   (package
 647     (name "font-isas-misc")
 648     (version "1.0.3")
 649     (source (xorg-font-origin
 650              name version
 651              "0rx8q02rkx673a7skkpnvfkg28i8gmqzgf25s9yi0lar915sn92q"))
 652     (build-system gnu-build-system)
 653     (inputs
 654       `(("mkfontdir" ,mkfontdir)
 655         ("bdftopcf" ,bdftopcf)))
 656     (native-inputs
 657       `(("pkg-config" ,pkg-config)))
 658     (home-page "https://www.x.org/wiki/")
 659     (synopsis "Xorg isas-misc font")
 660     (description "Xorg isas-misc font.")
 661     (license license:x11)))
 662
 663
 664 ;; non-free license
 665 ;; (define-public font-jis-misc
 666
 667
 668 (define-public font-micro-misc
 669   (package
 670     (name "font-micro-misc")
 671     (version "1.0.3")
 672     (source (xorg-font-origin
 673              name version
 674              "1dldxlh54zq1yzfnrh83j5vm0k4ijprrs5yl18gm3n9j1z0q2cws"))
 675     (build-system gnu-build-system)
 676     (inputs
 677       `(("mkfontdir" ,mkfontdir)
 678         ("bdftopcf" ,bdftopcf)))
 679     (native-inputs
 680       `(("pkg-config" ,pkg-config)))
 681     (home-page "https://www.x.org/wiki/")
 682     (synopsis "Xorg micro-misc font")
 683     (description "Xorg micro-misc font.")
 684     (license license:public-domain)))
 685
 686
 687 (define-public font-misc-cyrillic
 688   (package
 689     (name "font-misc-cyrillic")
 690     (version "1.0.3")
 691     (source (xorg-font-origin
 692              name version
 693              "0q2ybxs8wvylvw95j6x9i800rismsmx4b587alwbfqiw6biy63z4"))
 694     (build-system gnu-build-system)
 695     (inputs
 696       `(("mkfontdir" ,mkfontdir)
 697         ("bdftopcf" ,bdftopcf)))
 698     (native-inputs
 699       `(("pkg-config" ,pkg-config)))
 700     (home-page "https://www.x.org/wiki/")
 701     (synopsis "Xorg misc-cyrillic fonts")
 702     (description "Xorg misc-cyrillic fonts.")
 703     (license license:x11)))
 704
 705
 706 (define-public font-misc-ethiopic
 707   (package
 708     (name "font-misc-ethiopic")
 709     (version "1.0.4")
 710     (source (xorg-font-origin
 711              name version
 712              "1q2azkdwc4x3kh53xclwpf9q654k70lhiyns1cjq594wvxnhz339"))
 713     (build-system gnu-build-system)
 714     (inputs
 715       `(("mkfontdir" ,mkfontdir)
 716         ("mkfontscale" ,mkfontscale)))
 717     (native-inputs
 718       `(("pkg-config" ,pkg-config)))
 719     (home-page "https://www.x.org/wiki/")
 720     (synopsis "Xorg misc-ethiopic fonts")
 721     (description "Xorg misc-ethiopic fonts.")
 722     (license license:x11)))
 723
 724
 725 ;; non-free license
 726 ;; (define-public font-misc-meltho
 727
 728
 729 (define-public font-misc-misc
 730   (package
 731     (name "font-misc-misc")
 732     (version "1.1.2")
 733     (source (xorg-font-origin
 734              name version
 735              "150pq6n8n984fah34n3k133kggn9v0c5k07igv29sxp1wi07krxq"))
 736     (build-system gnu-build-system)
 737     (inputs
 738       `(("mkfontdir" ,mkfontdir)
 739         ("font-util" ,font-util)
 740         ("bdftopcf" ,bdftopcf)))
 741     (native-inputs
 742      `(("pkg-config" ,pkg-config)))
 743     (arguments
 744       `(#:configure-flags (list
 745         (string-append "--with-fontrootdir=" %output "/share/fonts/X11"))))
 746     (home-page "https://www.x.org/wiki/")
 747     (synopsis "Xorg misc-misc fonts")
 748     (description "Xorg misc-misc fixed fonts.")
 749     (license license:public-domain)))
 750
 751
 752 (define-public font-mutt-misc
 753   (package
 754     (name "font-mutt-misc")
 755     (version "1.0.3")
 756     (source (xorg-font-origin
 757              name version
 758              "13qghgr1zzpv64m0p42195k1kc77pksiv059fdvijz1n6kdplpxx"))
 759     (build-system gnu-build-system)
 760     (inputs
 761       `(("mkfontdir" ,mkfontdir)
 762         ("bdftopcf" ,bdftopcf)))
 763     (native-inputs
 764       `(("pkg-config" ,pkg-config)))
 765     (home-page "https://www.x.org/wiki/")
 766     (synopsis "Xorg mutt-misc fonts")
 767     (description "Xorg mutt-misc fonts.")
 768     (license license:x11)))
 769
 770
 771 (define-public font-schumacher-misc
 772   (package
 773     (name "font-schumacher-misc")
 774     (version "1.1.2")
 775     (source (xorg-font-origin
 776              name version
 777              "0nkym3n48b4v36y4s927bbkjnsmicajarnf6vlp7wxp0as304i74"))
 778     (build-system gnu-build-system)
 779     (inputs
 780       `(("mkfontdir" ,mkfontdir)
 781         ("font-util" ,font-util)
 782         ("bdftopcf" ,bdftopcf)))
 783     (native-inputs
 784       `(("pkg-config" ,pkg-config)))
 785     (arguments
 786       `(#:configure-flags (list
 787         (string-append "--with-fontrootdir=" %output "/share/fonts/X11"))))
 788     (home-page "https://www.x.org/wiki/")
 789     (synopsis "Xorg schumacher-misc fonts")
 790     (description "Xorg schumacher-misc fonts.")
 791     (license license:x11)))
 792
 793
 794 (define-public font-screen-cyrillic
 795   (package
 796     (name "font-screen-cyrillic")
 797     (version "1.0.4")
 798     (source (xorg-font-origin
 799              name version
 800              "0yayf1qlv7irf58nngddz2f1q04qkpr5jwp4aja2j5gyvzl32hl2"))
 801     (build-system gnu-build-system)
 802     (inputs
 803       `(("mkfontdir" ,mkfontdir)
 804         ("bdftopcf" ,bdftopcf)))
 805     (native-inputs
 806       `(("pkg-config" ,pkg-config)))
 807     (home-page "https://www.x.org/wiki/")
 808     (synopsis "Xorg screen-cyrillic fonts")
 809     (description "Xorg screen-cyrillic fonts.")
 810     (license license:x11)))
 811
 812
 813 (define-public font-sony-misc
 814   (package
 815     (name "font-sony-misc")
 816     (version "1.0.3")
 817     (source (xorg-font-origin
 818              name version
 819              "1xfgcx4gsgik5mkgkca31fj3w72jw9iw76qyrajrsz1lp8ka6hr0"))
 820     (build-system gnu-build-system)
 821     (inputs
 822       `(("mkfontdir" ,mkfontdir)
 823         ("bdftopcf" ,bdftopcf)))
 824     (native-inputs
 825       `(("pkg-config" ,pkg-config)))
 826     (home-page "https://www.x.org/wiki/")
 827     (synopsis "Xorg sony-misc fonts")
 828     (description "Xorg sony-misc fonts.")
 829     (license license:x11)))
 830
 831
 832 (define-public font-sun-misc
 833   (package
 834     (name "font-sun-misc")
 835     (version "1.0.3")
 836     (source (xorg-font-origin
 837              name version
 838              "1q6jcqrffg9q5f5raivzwx9ffvf7r11g6g0b125na1bhpz5ly7s8"))
 839     (build-system gnu-build-system)
 840     (inputs
 841       `(("mkfontdir" ,mkfontdir)
 842         ("bdftopcf" ,bdftopcf)))
 843     (native-inputs
 844      `(("pkg-config" ,pkg-config)))
 845     (home-page "https://www.x.org/wiki/")
 846     (synopsis "Xorg sun-misc fonts")
 847     (description "Xorg sun-misc fonts.")
 848     (license license:x11)))
 849
 850
 851 (define-public font-util
 852   (package
 853     (name "font-util")
 854     (version "1.3.2")
 855     (source
 856       (origin
 857         (method url-fetch)
 858         (uri (string-append
 859                "mirror://xorg/individual/font/font-util-"
 860                version
 861                ".tar.bz2"))
 862         (sha256
 863           (base32 "10i2a8b3d1h3w7klsqf31iz7zbd6l8wglil54fkhdb1385281n1s"))))
 864     (build-system gnu-build-system)
 865     (native-inputs `(("pkg-config" ,pkg-config)))
 866     (home-page "https://www.x.org/wiki/")
 867     (synopsis "Xorg font utilities")
 868     (description
 869      "Xorg font package creation/installation utilities.")
 870     (license license:x11)))
 871
 872
 873 (define-public font-winitzki-cyrillic
 874   (package
 875     (name "font-winitzki-cyrillic")
 876     (version "1.0.3")
 877     (source (xorg-font-origin
 878              name version
 879              "181n1bgq8vxfxqicmy1jpm1hnr6gwn1kdhl6hr4frjigs1ikpldb"))
 880     (build-system gnu-build-system)
 881     (inputs
 882       `(("mkfontdir" ,mkfontdir)
 883         ("bdftopcf" ,bdftopcf)))
 884     (native-inputs
 885       `(("pkg-config" ,pkg-config)))
 886     (home-page "https://www.x.org/wiki/")
 887     (synopsis "Xorg winitzki-cyrillic font")
 888     (description "Xorg winitzki-cyrillic font.")
 889     (license license:public-domain)))
 890
 891
 892 (define-public font-xfree86-type1
 893   (package
 894     (name "font-xfree86-type1")
 895     (version "1.0.4")
 896     (source (xorg-font-origin
 897              name version
 898              "0jp3zc0qfdaqfkgzrb44vi9vi0a8ygb35wp082yz7rvvxhmg9sya"))
 899     (build-system gnu-build-system)
 900     (inputs
 901       `(("mkfontdir" ,mkfontdir)
 902         ("mkfontscale" ,mkfontscale)))
 903     (native-inputs
 904       `(("pkg-config" ,pkg-config)))
 905     (home-page "https://www.x.org/wiki/")
 906     (synopsis "Xorg xfree86-type1 font")
 907     (description "Xorg xfree86-type1 font.")
 908     (license license:x11)))
 909
 910
 911 (define-public fontsproto
 912   (package
 913     (name "fontsproto")
 914     (version "2.1.3")
 915     (source
 916       (origin
 917         (method url-fetch)
 918         (uri (string-append
 919                "mirror://xorg/individual/proto/fontsproto-"
 920                version
 921                ".tar.bz2"))
 922         (sha256
 923           (base32
 924             "1f2sdsd74y34nnaf4m1zlcbhyv8xb6irnisc99f84c4ivnq4d415"))))
 925     (build-system gnu-build-system)
 926     (native-inputs `(("pkg-config" ,pkg-config)))
 927     (home-page "https://www.x.org/wiki/")
 928     (synopsis "Xorg FontsProto protocol headers")
 929     (description
 930      "Fonts Extension contains header files and documentation for
 931 the fonts protocol.")
 932     (license license:x11)
 933     (properties `((superseded . ,xorgproto)))))
 934
 935 (define-public glproto
 936   (package
 937     (name "glproto")
 938     (version "1.4.17")
 939     (source
 940       (origin
 941         (method url-fetch)
 942         (uri (string-append
 943                "mirror://xorg/individual/proto/glproto-"
 944                version
 945                ".tar.bz2"))
 946         (sha256
 947           (base32
 948             "0h5ykmcddwid5qj6sbrszgkcypwn3mslvswxpgy2n2iixnyr9amd"))))
 949     (build-system gnu-build-system)
 950     (native-inputs `(("pkg-config" ,pkg-config)))
 951     (home-page "https://www.x.org/wiki/")
 952     (synopsis "Xorg GLProto protocol headers")
 953     (description
 954      "OpenGL Extension defines a protocol for the client to send 3D
 955 rendering commands to the X server.")
 956     (license license:x11)
 957     (properties `((superseded . ,xorgproto)))))
 958
 959 (define-public iceauth
 960   (package
 961     (name "iceauth")
 962     (version "1.0.8")
 963     (source
 964       (origin
 965         (method url-fetch)
 966         (uri (string-append
 967                "mirror://xorg/individual/app/iceauth-"
 968                version
 969                ".tar.bz2"))
 970         (sha256
 971           (base32
 972             "1ik0mdidmyvy48hn8p2hwvf3535rf3m96hhf0mvcqrbj44x23vp6"))))
 973     (build-system gnu-build-system)
 974     (inputs
 975       `(("libice" ,libice)))
 976     (native-inputs
 977       `(("pkg-config" ,pkg-config)))
 978     (home-page "https://www.x.org/wiki/")
 979     (synopsis "ICE authority file utility")
 980     (description
 981      "ICEAuth program is used to edit and display the authorization
 982 information used in connecting with ICE (Inter-Client Exchange).  It
 983 operates very much like the xauth program for X11 connection
 984 authentication records.")
 985     (license license:x11)))
 986
 987
 988 (define-public inputproto
 989   (package
 990     (name "inputproto")
 991     (version "2.3.2")
 992     (source
 993       (origin
 994         (method url-fetch)
 995         (uri (string-append
 996                "mirror://xorg/individual/proto/inputproto-"
 997                version
 998                ".tar.bz2"))
 999         (sha256
1000           (base32
1001             "07gk7v006zqn3dcfh16l06gnccy7xnqywf3vl9c209ikazsnlfl9"))))
1002     (build-system gnu-build-system)
1003     (native-inputs `(("pkg-config" ,pkg-config)))
1004     (home-page "https://www.x.org/wiki/")
1005     (synopsis "Xorg InputProto protocol headers")
1006     (description
1007      "Input Extension defines a protocol to provide additional input
1008 devices management such as graphic tablets.")
1009     (license license:x11)
1010     (properties `((superseded . ,xorgproto)))))
1011
1012 (define-public kbproto
1013   (package
1014     (name "kbproto")
1015     (version "1.0.7")
1016     (source
1017       (origin
1018         (method url-fetch)
1019         (uri (string-append
1020                "mirror://xorg/individual/proto/kbproto-"
1021                version
1022                ".tar.bz2"))
1023         (sha256
1024           (base32
1025             "0mxqj1pzhjpz9495vrjnpi10kv2n1s4vs7di0sh3yvipfq5j30pq"))))
1026     (build-system gnu-build-system)
1027     (native-inputs `(("pkg-config" ,pkg-config)))
1028     (home-page "https://www.x.org/wiki/")
1029     (synopsis "Xorg KBProto protocol headers")
1030     (description
1031      "X Keyboard (XKB) Extension defines a protocol to provide a number
1032 of new capabilities and controls for text keyboards.")
1033     (license license:x11)
1034     (properties `((superseded . ,xorgproto)))))
1035
1036 ;; requires applewmproto, which compiles only on macos
1037 ;; (define-public libapplewm
1038
1039
1040 (define-public libdmx
1041   (package
1042     (name "libdmx")
1043     (version "1.1.4")
1044     (source
1045       (origin
1046         (method url-fetch)
1047         (uri (string-append
1048                "mirror://xorg/individual/lib/libdmx-"
1049                version
1050                ".tar.bz2"))
1051         (sha256
1052           (base32
1053             "0hvjfhrcym770cr0zpqajdy3cda30aiwbjzv16iafkqkbl090gr5"))))
1054     (build-system gnu-build-system)
1055     (arguments
1056      '(#:configure-flags '("--disable-static")))
1057     (inputs
1058       `(("xorgproto" ,xorgproto)
1059         ("libxext" ,libxext)
1060         ("libx11" ,libx11)))
1061     (native-inputs
1062       `(("pkg-config" ,pkg-config)))
1063     (home-page "https://www.x.org/wiki/")
1064     (synopsis "Xorg DMX library")
1065     (description
1066      "DMX (Distributed Multihead X) extension library.")
1067     (license license:x11)))
1068
1069
1070 (define-public libxshmfence
1071   (package
1072     (name "libxshmfence")
1073     (version "1.3")
1074     (source (origin
1075               (method url-fetch)
1076               (uri (string-append
1077                     "mirror://xorg/individual/lib/"
1078                     name "-" version ".tar.bz2"))
1079               (sha256
1080                (base32
1081                 "1ir0j92mnd1nk37mrv9bz5swnccqldicgszvfsh62jd14q6k115q"))))
1082     (build-system gnu-build-system)
1083     (arguments
1084      '(#:configure-flags '("--disable-static")))
1085     (native-inputs `(("pkg-config" ,pkg-config)))
1086     (inputs `(("xorgproto" ,xorgproto)))
1087     (home-page "https://www.x.org/")
1088     (synopsis "Xorg shared memory fences library")
1089     (description
1090      "This library provides an interface to shared-memory fences for
1091 synchronization between the X server and direct-rendering clients.")
1092
1093     ;; Same license as libevdev.
1094     (license (license:x11-style "file://COPYING"))))
1095
1096
1097 (define-public libfontenc
1098   (package
1099     (name "libfontenc")
1100     (version "1.1.4")
1101     (source
1102       (origin
1103         (method url-fetch)
1104         (uri (string-append
1105                "mirror://xorg/individual/lib/libfontenc-"
1106                version
1107                ".tar.bz2"))
1108         (sha256
1109           (base32
1110             "0y90170dp8wsidr1dzza0grxr1lfh30ji3b5vkjz4j6x1n0wxz1c"))))
1111     (build-system gnu-build-system)
1112     (arguments
1113      '(#:configure-flags '("--disable-static")))
1114     (inputs
1115       `(("zlib" ,zlib)
1116         ("xorgproto" ,xorgproto)))
1117     (native-inputs
1118       `(("pkg-config" ,pkg-config)))
1119     (home-page "https://gitlab.freedesktop.org/xorg/lib/libfontenc")
1120     (synopsis "Xorg font encoding library")
1121     (description "Xorg font encoding library.")
1122     (license license:x11)))
1123
1124
1125 (define-public libfs
1126   (package
1127     (name "libfs")
1128     (version "1.0.8")
1129     (source
1130       (origin
1131         (method url-fetch)
1132         (uri (string-append
1133                "mirror://xorg/individual/lib/libFS-"
1134                version
1135                ".tar.bz2"))
1136         (sha256
1137           (base32 "03xxyvpfa3rhqcld4p2chkil482jn9cp80hj17jdybcv2hkkgqf8"))))
1138     (build-system gnu-build-system)
1139     (inputs
1140       `(("xtrans" ,xtrans)
1141         ("xorgproto" ,xorgproto)))
1142     (native-inputs
1143       `(("pkg-config" ,pkg-config)))
1144     (home-page "https://www.x.org/wiki/")
1145     (synopsis "Xorg Font Service client library")
1146     (description
1147      "Font Service client library is used by clients of X Font
1148 Servers (xfs), such as xfsinfo, fslsfonts, and the X servers
1149 themselves.")
1150     (license license:x11)))
1151
1152
1153 (define-public libpciaccess
1154   (package
1155     (name "libpciaccess")
1156     (version "0.16")
1157     (source
1158       (origin
1159         (method url-fetch)
1160         (uri (string-append
1161                "mirror://xorg/individual/lib/libpciaccess-"
1162                version
1163                ".tar.bz2"))
1164         (sha256
1165           (base32
1166             "12glp4w1kgvmqn89lk19cgr6jccd3awxra4dxisp7pagi06rsk11"))))
1167     (build-system gnu-build-system)
1168     (arguments
1169      '(;; Make sure libpciaccess can read compressed 'pci.ids' files as
1170        ;; provided by pciutils.
1171        #:configure-flags
1172        (list "--with-zlib"
1173              (string-append "--with-pciids-path="
1174                             (assoc-ref %build-inputs "pciutils")
1175                             "/share/hwdata"))
1176
1177        #:phases
1178        (modify-phases %standard-phases
1179          (add-after 'install 'add-L-zlib
1180            (lambda* (#:key inputs outputs #:allow-other-keys)
1181              ;; Provide '-LZLIB/lib' next to '-lz' in the .la file.
1182              (let ((zlib (assoc-ref inputs "zlib"))
1183                    (out  (assoc-ref outputs "out")))
1184                (substitute* (string-append out "/lib/libpciaccess.la")
1185                  (("-lz")
1186                   (string-append "-L" zlib "/lib -lz")))
1187                #t))))))
1188     (inputs
1189      `(("zlib" ,zlib)
1190        ("pciutils" ,pciutils)))                   ;for 'pci.ids.gz'
1191     (native-inputs
1192        `(("pkg-config" ,pkg-config)))
1193     (home-page "https://www.x.org/wiki/")
1194     (synopsis "Xorg PCI access library")
1195     (description "Xorg Generic PCI access library.")
1196     (license license:x11)))
1197
1198
1199 (define-public libpthread-stubs
1200   (package
1201     (name "libpthread-stubs")
1202     (version "0.4")
1203     (source
1204       (origin
1205         (method url-fetch)
1206         (uri (string-append
1207                "mirror://xorg/individual/xcb/libpthread-stubs-"
1208                version
1209                ".tar.bz2"))
1210         (sha256
1211           (base32
1212             "0cz7s9w8lqgzinicd4g36rjg08zhsbyngh0w68c3np8nlc8mkl74"))))
1213     (build-system gnu-build-system)
1214     (native-inputs `(("pkg-config" ,pkg-config)))
1215     (home-page "https://www.x.org/wiki/")
1216     (synopsis "Library with pthread stubs")
1217     (description
1218      "This library provides weak aliases for pthread functions not
1219 provided in libc or otherwise available by default.  Libraries like
1220 libxcb rely on pthread stubs to use pthreads optionally, becoming
1221 thread-safe when linked to libpthread, while avoiding any performance
1222 hit when running single-threaded.")
1223     (license license:x11)))
1224
1225
1226 (define-public libsm
1227   (package
1228     (name "libsm")
1229     (version "1.2.3")
1230     (source
1231       (origin
1232         (method url-fetch)
1233         (uri (string-append
1234                "mirror://xorg/individual/lib/libSM-"
1235                version
1236                ".tar.bz2"))
1237         (sha256
1238           (base32
1239             "1fwwfq9v3sqmpzpscymswxn76xhxnysa24pfim1mcpxhvjcl89id"))))
1240     (build-system gnu-build-system)
1241     (arguments
1242      '(#:configure-flags '("--disable-static")))
1243     (propagated-inputs
1244       `(("libice" ,libice))) ; SMlib.h includes ICElib.h
1245     (inputs
1246       `(("xtrans" ,xtrans)
1247         ("libuuid" ,util-linux "lib")))
1248     (native-inputs
1249       `(("pkg-config" ,pkg-config)))
1250     (home-page "https://www.x.org/wiki/")
1251     (synopsis "Xorg Session Management library")
1252     (description "Xorg Session Management library.")
1253     (license license:x11)))
1254
1255
1256 (define-public libwindowswm
1257   (package
1258     (name "libwindowswm")
1259     (version "1.0.1")
1260     (source
1261       (origin
1262         (method url-fetch)
1263         (uri (string-append
1264                "mirror://xorg/individual/lib/libWindowsWM-"
1265                version
1266                ".tar.bz2"))
1267         (sha256
1268           (base32
1269             "1p0flwb67xawyv6yhri9w17m1i4lji5qnd0gq8v1vsfb8zw7rw15"))))
1270     (build-system gnu-build-system)
1271     (inputs
1272       `(("xorgproto" ,xorgproto)
1273         ("libxext" ,libxext)
1274         ("libx11" ,libx11)))
1275     (native-inputs
1276       `(("pkg-config" ,pkg-config)))
1277     (home-page "https://www.x.org/wiki/")
1278     (synopsis "Xorg WindowsWM library")
1279     (description
1280      "Cygwin/X rootless window management extension.
1281 WindowsWM is a simple library designed to interface with the Windows-WM
1282 extension.  This extension allows X window managers to better interact
1283 with the Cygwin XWin server when running X11 in a rootless mode.")
1284     (license license:x11)))
1285
1286
1287 (define-public libxcomposite
1288   (package
1289     (name "libxcomposite")
1290     (version "0.4.5")
1291     (source
1292       (origin
1293         (method url-fetch)
1294         (uri (string-append
1295                "mirror://xorg/individual/lib/libXcomposite-"
1296                version
1297                ".tar.bz2"))
1298         (sha256
1299           (base32
1300             "13sfcglvz87vl58hd9rszwr73z0z4nwga3c12rfh7f5s2ln8l8dk"))))
1301     (build-system gnu-build-system)
1302     (arguments
1303      '(#:configure-flags '("--disable-static")))
1304     (propagated-inputs
1305      ;; xcomposite.pc refers to all these.
1306       `(("xorgproto" ,xorgproto)
1307         ("libxfixes" ,libxfixes)
1308         ("libx11" ,libx11)))
1309     (native-inputs
1310       `(("pkg-config" ,pkg-config)))
1311     (home-page "https://www.x.org/wiki/")
1312     (synopsis "Xorg Composite library")
1313     (description
1314      "Client library for the Composite extension to the X11 protocol.")
1315     (license license:x11)))
1316
1317
1318 (define-public libxdmcp
1319   (package
1320     (name "libxdmcp")
1321     (version "1.1.3")
1322     (source
1323       (origin
1324         (method url-fetch)
1325         (uri (string-append
1326                "mirror://xorg/individual/lib/libXdmcp-"
1327                version
1328                ".tar.bz2"))
1329         (sha256
1330           (base32
1331             "0ab53h0rkq721ihk5hi469x500f3pgbkm1wy01yf24x5m923nli0"))))
1332     (build-system gnu-build-system)
1333     (arguments
1334      '(#:configure-flags '("--disable-static")))
1335     (inputs
1336       `(("libbsd" ,libbsd)
1337         ("xorgproto" ,xorgproto)))
1338     (native-inputs
1339        `(("pkg-config" ,pkg-config)))
1340     (home-page "https://www.x.org/wiki/")
1341     (synopsis "Xorg Display Manager Control Protocol library")
1342     (description "Xorg Display Manager Control Protocol library.")
1343     (license license:x11)))
1344
1345
1346 (define-public libxft
1347   (package
1348     (name "libxft")
1349     (version "2.3.3")
1350     (source
1351       (origin
1352         (method url-fetch)
1353         (uri (string-append
1354                "mirror://xorg/individual/lib/libXft-"
1355                version
1356                ".tar.bz2"))
1357         (sha256
1358           (base32
1359             "05lja9s54090xwh31r0bqms4v3pimng5xr09g2rdnafx2vk6hp12"))))
1360     (build-system gnu-build-system)
1361     (arguments
1362      '(#:configure-flags '("--disable-static")))
1363     (propagated-inputs
1364      ;; xft.pc refers to all these.
1365       `(("libxrender" ,libxrender)
1366         ("freetype" ,freetype)
1367         ("fontconfig" ,fontconfig)))
1368     (inputs
1369       `(("libx11" ,libx11)
1370         ("xorgproto" ,xorgproto)))
1371     (native-inputs
1372       `(("pkg-config" ,pkg-config)))
1373     (home-page "https://www.x.org/wiki/")
1374     (synopsis "Xorg FreeType library")
1375     (description
1376      "Xorg FreeType library connects X applications with the FreeType font
1377 rasterization library.  Xft uses fontconfig to locate fonts so it has no
1378 configuration files.")
1379     (license license:x11)))
1380
1381
1382 (define-public libxkbfile
1383   (package
1384     (name "libxkbfile")
1385     (version "1.1.0")
1386     (source
1387       (origin
1388         (method url-fetch)
1389         (uri (string-append
1390                "mirror://xorg/individual/lib/libxkbfile-"
1391                version
1392                ".tar.bz2"))
1393         (sha256
1394           (base32
1395             "1irq9crvscd3yb8sr802dhvvfr35jdy1n2yz094xplmd42mbv3bm"))))
1396     (build-system gnu-build-system)
1397     (arguments
1398      '(#:configure-flags '("--disable-static")))
1399     (inputs
1400       `(("libx11" ,libx11)))
1401     (native-inputs
1402       `(("pkg-config" ,pkg-config)))
1403     (home-page "https://www.x.org/wiki/")
1404     (synopsis "Xorg XKB file handling library")
1405     (description "Xorg XKB file handling library.")
1406     (license license:x11)))
1407
1408
1409 (define-public libxmu
1410   (package
1411     (name "libxmu")
1412     (version "1.1.3")
1413     (source
1414       (origin
1415         (method url-fetch)
1416         (uri (string-append
1417                "mirror://xorg/individual/lib/libXmu-"
1418                version
1419                ".tar.bz2"))
1420         (sha256
1421           (base32
1422             "0cdpqnx6258i4l6qhphvkdiyspysg0i5caqjy820kp63wwjk4d4w"))))
1423     (build-system gnu-build-system)
1424     (arguments
1425      '(#:configure-flags '("--disable-static")))
1426     (inputs
1427       `(("libxt" ,libxt)
1428         ("xorgproto" ,xorgproto)
1429         ("libxext" ,libxext)))
1430     (native-inputs
1431       `(("pkg-config" ,pkg-config)))
1432     (home-page "https://www.x.org/wiki/")
1433     (synopsis "Xorg Xmu library")
1434     (description
1435      "Xmu library contains miscellaneous utilities and is not part of the
1436 Xlib standard.  It is intended to support clients in the Xorg distribution;
1437 vendors may choose not to distribute this library if they wish.  Therefore,
1438 applications developers who depend on this library should be prepared to
1439 treat it as part of their software base when porting.")
1440     (license license:x11)))
1441
1442
1443 (define-public libxpm
1444   (package
1445     (name "libxpm")
1446     (version "3.5.13")
1447     (source
1448       (origin
1449         (method url-fetch)
1450         (uri (string-append
1451                "mirror://xorg/individual/lib/libXpm-"
1452                version
1453                ".tar.bz2"))
1454         (sha256
1455           (base32
1456             "09dc6nwlb2122h02vl64k9x56mxnyqz2gwpga0abfv4bb1bxmlcw"))))
1457     (build-system gnu-build-system)
1458     (arguments
1459      '(#:configure-flags '("--disable-static")))
1460     (inputs
1461       `(("libxt" ,libxt)
1462         ("xorgproto" ,xorgproto)
1463         ("libxext" ,libxext)))
1464     (native-inputs
1465      `(("gettext" ,gettext-minimal)
1466        ("pkg-config" ,pkg-config)))
1467     (home-page "https://www.x.org/wiki/")
1468     (synopsis "Xorg XPM library")
1469     (description "XPM (X Pixmap) image file format library.")
1470     (license license:x11)))
1471
1472
1473 (define-public libxres
1474   (package
1475     (name "libxres")
1476     (version "1.2.0")
1477     (source
1478       (origin
1479         (method url-fetch)
1480         (uri (string-append
1481                "mirror://xorg/individual/lib/libXres-"
1482                version
1483                ".tar.bz2"))
1484         (sha256
1485           (base32
1486             "1m0jr0lbz9ixpp9ihk68349q0i7ry2379lnfzdy4mrl86ijc2xgz"))))
1487     (build-system gnu-build-system)
1488     (arguments
1489      '(#:configure-flags '("--disable-static")))
1490     (inputs
1491       `(("xorgproto" ,xorgproto)
1492         ("libxext" ,libxext)
1493         ("libx11" ,libx11)))
1494     (native-inputs
1495       `(("pkg-config" ,pkg-config)))
1496     (home-page "https://www.x.org/wiki/")
1497     (synopsis "Xorg Resource extension library")
1498     (description "X Resource extension library.")
1499     (license license:x11)))
1500
1501
1502 (define-public libxscrnsaver
1503   (package
1504     (name "libxscrnsaver")
1505     (version "1.2.3")
1506     (source
1507       (origin
1508         (method url-fetch)
1509         (uri (string-append
1510                "mirror://xorg/individual/lib/libXScrnSaver-"
1511                version
1512                ".tar.bz2"))
1513         (sha256
1514           (base32
1515             "1y4vx1vabg7j9hamp0vrfrax5b0lmgm3h0lbgbb3hnkv3dd0f5zr"))))
1516     (build-system gnu-build-system)
1517     (arguments
1518      '(#:configure-flags '("--disable-static")))
1519     (inputs
1520       `(("libxext" ,libxext)
1521         ("libx11" ,libx11)))
1522     (propagated-inputs
1523       `(("xorgproto" ,xorgproto)))
1524     (native-inputs
1525       `(("pkg-config" ,pkg-config)))
1526     (home-page "https://www.x.org/wiki/")
1527     (synopsis "Xorg Screen Saver library")
1528     (description "X11 Screen Saver extension client library.")
1529     (license license:x11)))
1530
1531
1532 (define-public libxxf86dga
1533   (package
1534     (name "libxxf86dga")
1535     (version "1.1.5")
1536     (source
1537      (origin
1538        (method url-fetch)
1539        (uri (string-append "mirror://xorg/individual/lib/"
1540                            "libXxf86dga-" version ".tar.bz2"))
1541        (sha256
1542         (base32 "00vjvcdlc1sga251jkxn6gkxmx9h5n290ffxxpa40qbca1gvr61b"))))
1543     (build-system gnu-build-system)
1544     (arguments
1545      '(#:configure-flags '("--disable-static")))
1546     (propagated-inputs
1547      `(("xorgproto" ,xorgproto)))
1548     (inputs
1549      `(("libx11" ,libx11)
1550        ("libxext" ,libxext)))
1551     (native-inputs
1552      `(("pkg-config" ,pkg-config)))
1553     (home-page "https://www.x.org/wiki/")
1554     (synopsis "Xorg XFree86-DGA library")
1555     (description "Client library for the XFree86-DGA extension.")
1556     (license license:x11)))
1557
1558
1559 (define-public luit
1560   (package
1561     (name "luit")
1562     (version "1.1.1")
1563     (source
1564       (origin
1565         (method url-fetch)
1566         (uri (string-append
1567                "mirror://xorg/individual/app/luit-"
1568                version
1569                ".tar.bz2"))
1570         (sha256
1571           (base32
1572             "0dn694mk56x6hdk6y9ylx4f128h5jcin278gnw2gb807rf3ygc1h"))
1573         ;; See https://bugs.freedesktop.org/show_bug.cgi?id=47792;
1574         ;; should become obsolete with the next release.
1575         (patches (search-patches "luit-posix.patch"))))
1576     (build-system gnu-build-system)
1577     (inputs
1578       `(("libfontenc" ,libfontenc)))
1579     (native-inputs
1580        `(("pkg-config" ,pkg-config)))
1581     (home-page "https://www.x.org/wiki/")
1582     (synopsis "Convert terminal I/O from legacy encodings to UTF-8")
1583     (description
1584      "Luit is a filter that can be run between an arbitrary application and
1585 a UTF-8 terminal emulator such as xterm.  It will convert application
1586 output from the locale's encoding into UTF-8, and convert terminal
1587 input from UTF-8 into the locale's encoding.")
1588     (license license:x11)))
1589
1590
1591 (define-public makedepend
1592   (package
1593     (name "makedepend")
1594     (version "1.0.6")
1595     (source
1596       (origin
1597         (method url-fetch)
1598         (uri (string-append
1599                "mirror://xorg/individual/util/makedepend-"
1600                version
1601                ".tar.bz2"))
1602         (sha256
1603           (base32
1604             "072h9nzh8s5vqfz35dli4fba36fnr219asjrb7p89n8ph0paan6m"))))
1605     (build-system gnu-build-system)
1606     (inputs
1607       `(("xorgproto" ,xorgproto)))
1608     (native-inputs `(("pkg-config" ,pkg-config)))
1609     (home-page "https://www.x.org/wiki/")
1610     (synopsis "Xorg makedepend utility")
1611     (description
1612      "Makedepend is an utility for creating dependencies in makefiles.")
1613     (license license:x11)))
1614
1615
1616 (define-public mkfontscale
1617   (package
1618     (name "mkfontscale")
1619     (version "1.2.1")
1620     (source
1621       (origin
1622         (method url-fetch)
1623         (uri (string-append
1624                "mirror://xorg/individual/app/mkfontscale-"
1625                version
1626                ".tar.bz2"))
1627         (sha256
1628           (base32 "1ixsnsm2mn0zy9ksdid0lj6irnhvasfik9mz8bbrs5sajzmra16a"))))
1629     (build-system gnu-build-system)
1630     (inputs
1631       `(("zlib" ,zlib)
1632         ("xorgproto" ,xorgproto)
1633         ("freetype" ,freetype)
1634         ("libfontenc" ,libfontenc)))
1635     (native-inputs
1636        `(("pkg-config" ,pkg-config)))
1637     (home-page "https://www.x.org/wiki/")
1638     (synopsis "Create an index of scalable font files for X server")
1639     (description
1640      "MkFontScale creates the @code{fonts.scale} and @code{fonts.dir} index
1641 files used by the legacy X11 font system.")
1642     (license license:x11)))
1643
1644
1645 (define-public presentproto
1646   (package
1647     (name "presentproto")
1648     (version "1.1")
1649     (source
1650       (origin
1651         (method url-fetch)
1652         (uri (string-append
1653                "mirror://xorg/individual/proto/presentproto-"
1654                version
1655                ".tar.bz2"))
1656         (sha256
1657           (base32
1658             "1f96dlgfwhsd0834z8ydjzjnb0cwha5r6lxgia4say4zhsl276zn"))))
1659     (build-system gnu-build-system)
1660     (home-page "https://www.x.org/wiki/")
1661     (synopsis "Xorg PresentProto protocol headers")
1662     (description
1663      "Present Extension provides a way for applications to update their
1664 window contents from a pixmap in a well defined fashion, synchronizing
1665 with the display refresh and potentially using a more efficient
1666 mechanism than copying the contents of the source pixmap.")
1667     (license (license:x11-style "file://presentproto.h"
1668                                 "See 'presentproto.h' in the distribution."))
1669     (properties `((superseded . ,xorgproto)))))
1670
1671 (define-public printproto
1672   (package
1673     (name "printproto")
1674     (version "1.0.5")
1675     (source
1676       (origin
1677         (method url-fetch)
1678         (uri (string-append
1679                "mirror://xorg/individual/proto/printproto-"
1680                version
1681                ".tar.bz2"))
1682         (sha256
1683           (base32
1684             "06liap8n4s25sgp27d371cc7yg9a08dxcr3pmdjp761vyin3360j"))))
1685     (build-system gnu-build-system)
1686     (native-inputs `(("pkg-config" ,pkg-config)))
1687     (home-page "https://www.x.org/wiki/")
1688     (synopsis "Xorg PrintProto protocol headers")
1689     (description
1690      "Print Extension defines a protocol for a portable,
1691 network-transparent printing system.")
1692     (license license:x11)))
1693
1694
1695 (define-public randrproto
1696   (package
1697     (name "randrproto")
1698     (version "1.5.0")
1699     (source
1700       (origin
1701         (method url-fetch)
1702         (uri (string-append
1703                "mirror://xorg/individual/proto/randrproto-"
1704                version
1705                ".tar.bz2"))
1706         (sha256
1707           (base32
1708             "0s4496z61y5q45q20gldwpf788b9nsa8hb13gnck1mwwwwrmarsc"))))
1709     (build-system gnu-build-system)
1710     (native-inputs `(("pkg-config" ,pkg-config)))
1711     (home-page "https://www.x.org/wiki/")
1712     (synopsis "Xorg RandRProto protocol headers")
1713     (description
1714      "Resize and Rotate Extension defines a protocol for clients to
1715 dynamically change X screens, so as to resize, rotate and reflect the root
1716 window of a screen.")
1717     (license license:x11)
1718     (properties `((superseded . ,xorgproto)))))
1719
1720
1721 (define-public recordproto
1722   (package
1723     (name "recordproto")
1724     (version "1.14.2")
1725     (source
1726       (origin
1727         (method url-fetch)
1728         (uri (string-append
1729                "mirror://xorg/individual/proto/recordproto-"
1730                version
1731                ".tar.bz2"))
1732         (sha256
1733           (base32
1734             "0w3kgr1zabwf79bpc28dcnj0fpni6r53rpi82ngjbalj5s6m8xx7"))))
1735     (build-system gnu-build-system)
1736     (native-inputs `(("pkg-config" ,pkg-config)))
1737     (home-page "https://www.x.org/wiki/")
1738     (synopsis "Xorg RecordProto protocol headers")
1739     (description
1740      "Record Extension defines a protocol for the recording and playback
1741 of user actions in the X Window System.")
1742     (license license:x11)
1743     (properties `((superseded . ,xorgproto)))))
1744
1745 (define-public renderproto
1746   (package
1747     (name "renderproto")
1748     (version "0.11.1")
1749     (source
1750       (origin
1751         (method url-fetch)
1752         (uri (string-append
1753                "mirror://xorg/individual/proto/renderproto-"
1754                version
1755                ".tar.bz2"))
1756         (sha256
1757           (base32
1758             "0dr5xw6s0qmqg0q5pdkb4jkdhaja0vbfqla79qh5j1xjj9dmlwq6"))))
1759     (build-system gnu-build-system)
1760     (native-inputs `(("pkg-config" ,pkg-config)))
1761     (home-page "https://www.x.org/wiki/")
1762     (synopsis "Xorg RenderProto protocol headers")
1763     (description
1764      "Rendering Extension defines a protocol for a digital image composition
1765 as the foundation of a new rendering model within the X Window System.")
1766     (license license:x11)
1767     (properties `((superseded . ,xorgproto)))))
1768
1769 (define-public resourceproto
1770   (package
1771     (name "resourceproto")
1772     (version "1.2.0")
1773     (source
1774       (origin
1775         (method url-fetch)
1776         (uri (string-append
1777                "mirror://xorg/individual/proto/resourceproto-"
1778                version
1779                ".tar.bz2"))
1780         (sha256
1781           (base32
1782             "0638iyfiiyjw1hg3139pai0j6m65gkskrvd9684zgc6ydcx00riw"))))
1783     (build-system gnu-build-system)
1784     (native-inputs `(("pkg-config" ,pkg-config)))
1785     (home-page "https://www.x.org/wiki/")
1786     (synopsis "Xorg ResourceProto protocol headers")
1787     (description
1788      "Resource Extension defines a protocol that allows a client to
1789 query the X server about its usage of various resources.")
1790     (license license:x11)
1791     (properties `((superseded . ,xorgproto)))))
1792
1793 (define-public scrnsaverproto
1794   (package
1795     (name "scrnsaverproto")
1796     (version "1.2.2")
1797     (source
1798       (origin
1799         (method url-fetch)
1800         (uri (string-append
1801                "mirror://xorg/individual/proto/scrnsaverproto-"
1802                version
1803                ".tar.bz2"))
1804         (sha256
1805           (base32
1806             "0rfdbfwd35d761xkfifcscx56q0n56043ixlmv70r4v4l66hmdwb"))))
1807     (build-system gnu-build-system)
1808     (native-inputs `(("pkg-config" ,pkg-config)))
1809     (home-page "https://www.x.org/wiki/")
1810     (synopsis "Xorg ScrnSaverProto protocol headers")
1811     (description
1812      "Screen Saver Extension defines a protocol to control screensaver
1813 features and to query screensaver info on specific windows.")
1814     (license license:x11)
1815     (properties `((superseded . ,xorgproto)))))
1816
1817 (define-public sessreg
1818   (package
1819     (name "sessreg")
1820     (version "1.1.2")
1821     (source
1822      (origin
1823        (method url-fetch)
1824        (uri (string-append
1825              "mirror://xorg/individual/app/sessreg-" version ".tar.bz2"))
1826        (sha256
1827         (base32 "0crczl25zynkrslmm8sjaxszhrh4i33m7h5fg4wfdb3k8aarxjyz"))))
1828     (build-system gnu-build-system)
1829     (inputs
1830       `(("xorgproto" ,xorgproto)))
1831     (native-inputs
1832        `(("pkg-config" ,pkg-config)))
1833     (home-page "https://www.x.org/wiki/")
1834     (synopsis "Register X sessions in system utmp/utmpx databases")
1835     (description
1836      "SessReg is a simple program for managing utmp/wtmp entries for X
1837 sessions.  It was originally written for use with xdm, but may also be
1838 used with other display managers such as gdm or kdm.")
1839     (license license:x11)))
1840
1841
1842 (define-public setxkbmap
1843   (package
1844     (name "setxkbmap")
1845     (version "1.3.2")
1846     (source
1847       (origin
1848         (method url-fetch)
1849         (uri (string-append
1850                "mirror://xorg/individual/app/setxkbmap-"
1851                version
1852                ".tar.bz2"))
1853         (sha256
1854           (base32
1855             "1xdrxs65v7d0rw1yaz0vsz55w4hxym99216p085ya9978j379wlg"))))
1856     (build-system gnu-build-system)
1857     (inputs
1858       `(("libxkbfile" ,libxkbfile)
1859         ("xkeyboard-config" ,xkeyboard-config)
1860         ("libx11" ,libx11)))
1861     (native-inputs
1862       `(("pkg-config" ,pkg-config)))
1863     (arguments
1864      `(#:configure-flags
1865        (list (string-append "--with-xkb-config-root="
1866                             (assoc-ref %build-inputs "xkeyboard-config")
1867                             "/share/X11/xkb"))))
1868     (home-page "https://www.x.org/wiki/")
1869     (synopsis "Set the keyboard using the X Keyboard Extension")
1870     (description
1871      "Setxkbmap is an X11 client to change the keymaps in the X server
1872 for a specified keyboard to use the layout determined by the options
1873 listed on the command line.")
1874     (license license:x11)))
1875
1876
1877 (define-public smproxy
1878   (package
1879     (name "smproxy")
1880     (version "1.0.6")
1881     (source
1882       (origin
1883         (method url-fetch)
1884         (uri (string-append
1885                "mirror://xorg/individual/app/smproxy-"
1886                version
1887                ".tar.bz2"))
1888         (sha256
1889           (base32
1890             "0rkjyzmsdqmlrkx8gy2j4q6iksk58hcc92xzdprkf8kml9ar3wbc"))))
1891     (build-system gnu-build-system)
1892     (inputs
1893       `(("libxt" ,libxt)
1894         ("libxmu" ,libxmu)))
1895     (native-inputs
1896       `(("pkg-config" ,pkg-config)))
1897     (home-page "https://www.x.org/wiki/")
1898     (synopsis "Session Manager Proxy")
1899     (description
1900      "SMProxy allows X applications that do not support X11R6 session
1901 management to participate in an X11R6 session.")
1902     (license license:x11)))
1903
1904
1905 (define-public util-macros
1906   (package
1907     (name "util-macros")
1908     (version "1.19.2")
1909     (source
1910       (origin
1911         (method url-fetch)
1912         (uri (string-append
1913                "mirror://xorg/individual/util/util-macros-"
1914                version
1915                ".tar.bz2"))
1916         (sha256
1917           (base32
1918             "04p7ydqxgq37jklnfj18b70zsifiz4h50wvrk94i2112mmv37r6p"))))
1919     (build-system gnu-build-system)
1920     (native-inputs `(("pkg-config" ,pkg-config)))
1921     (arguments
1922      `(#:phases
1923        (modify-phases %standard-phases
1924          (add-after 'unpack 'fix-makefile-in
1925            (lambda _
1926              (substitute* "Makefile.in"
1927                ;; Install xorg-macros.pc in PREFIX/lib/pkgconfig,
1928                ;; not PREFIX/share/pkgconfig.
1929                (("\\$\\(datadir\\)/pkgconfig") "$(libdir)/pkgconfig"))
1930              #t))
1931          (add-after 'install 'post-install-cleanup
1932            (lambda* (#:key outputs #:allow-other-keys)
1933              (let ((out (assoc-ref outputs "out")))
1934                (with-directory-excursion out
1935                  (delete-file "share/util-macros/INSTALL")
1936                  (rmdir "share/util-macros"))
1937                #t))))))
1938     (home-page "https://www.x.org/wiki/")
1939     (synopsis "Xorg autoconf macros")
1940     (description
1941      "This package provides a set of autoconf macros used by the
1942 configure.ac scripts in other Xorg modular packages, and is needed to
1943 generate new versions of their configure scripts with autoconf.")
1944     (license license:x11)))
1945
1946
1947 (define-public videoproto
1948   (package
1949     (name "videoproto")
1950     (version "2.3.3")
1951     (source
1952       (origin
1953         (method url-fetch)
1954         (uri (string-append
1955                "mirror://xorg/individual/proto/videoproto-"
1956                version
1957                ".tar.bz2"))
1958         (sha256
1959           (base32
1960             "00m7rh3pwmsld4d5fpii3xfk5ciqn17kkk38gfpzrrh8zn4ki067"))))
1961     (build-system gnu-build-system)
1962     (native-inputs `(("pkg-config" ,pkg-config)))
1963     (home-page "https://www.x.org/wiki/")
1964     (synopsis "Xorg VideoProto protocol headers")
1965     (description
1966      "Video Extension provides a protocol for a video output mechanism,
1967 mainly to rescale video playback in the video controller hardware.")
1968     (license license:x11)
1969     (properties `((superseded . ,xorgproto)))))
1970
1971 (define-public windowswmproto
1972   (package
1973     (name "windowswmproto")
1974     (version "1.0.4")
1975     (source
1976       (origin
1977         (method url-fetch)
1978         (uri (string-append
1979                "mirror://xorg/individual/proto/windowswmproto-"
1980                version
1981                ".tar.bz2"))
1982         (sha256
1983           (base32
1984             "0syjxgy4m8l94qrm03nvn5k6bkxc8knnlld1gbllym97nvnv0ny0"))))
1985     (build-system gnu-build-system)
1986     (native-inputs `(("pkg-config" ,pkg-config)))
1987     (home-page "https://www.x.org/wiki/")
1988     (synopsis "Xorg WindowsWMProto protocol headers")
1989     (description
1990      "WindowsWM Extension defines a protocol, used for coordination between
1991 an X11 server and the Microsoft Windows native window manager.  WindowsWM
1992 is only intended to be used on Cygwin when running a rootless XWin
1993 server.")
1994     (license license:x11)
1995     (properties `((superseded . ,xorgproto)))))
1996
1997 (define-public x11perf
1998   (package
1999     (name "x11perf")
2000     (version "1.6.1")
2001     (source
2002       (origin
2003         (method url-fetch)
2004         (uri (string-append
2005                "mirror://xorg/individual/app/x11perf-"
2006                version
2007                ".tar.bz2"))
2008         (sha256
2009           (base32
2010             "0d3wh6z6znwhfdiv0zaggfj0xgish98xa10yy76b9517zj7hnzhw"))))
2011     (build-system gnu-build-system)
2012     (inputs
2013       `(("libx11" ,libx11)
2014         ("libxft" ,libxft)
2015         ("libxmu" ,libxmu)
2016         ("libxrender" ,libxrender)))
2017     (native-inputs
2018       `(("pkg-config" ,pkg-config)))
2019     (home-page "https://www.x.org/wiki/")
2020     (synopsis "X server performance benchmarker")
2021     (description
2022      "X11Perf is a simple performance benchmarker for the Xorg X server.")
2023     (license license:x11)))
2024
2025
2026 (define-public xauth
2027   (package
2028     (name "xauth")
2029     (version "1.1")
2030     (source
2031      (origin
2032        (method url-fetch)
2033        (uri (string-append "mirror://xorg/individual/app/xauth-" version
2034                            ".tar.bz2"))
2035        (sha256
2036         (base32 "032klzzw8r09z36x1272ssd79bcisz8j5p8gbdy111fiknvx27bd"))))
2037     (build-system gnu-build-system)
2038     (inputs
2039      `(("libxmu" ,libxmu)
2040        ("libxext" ,libxext)
2041        ("libxau" ,libxau)
2042        ("libx11" ,libx11)))
2043     (native-inputs
2044      `(("cmdtest" ,cmdtest)
2045        ("pkg-config" ,pkg-config)))
2046     (home-page "https://www.x.org/wiki/")
2047     (synopsis "X authority file utility")
2048     (description
2049      "XAuth program is used to edit and display the authorization
2050 information used in connecting to the X server.")
2051     (license license:x11)))
2052
2053
2054 (define-public xbacklight
2055   (package
2056     (name "xbacklight")
2057     (version "1.2.3")
2058     (source
2059       (origin
2060         (method url-fetch)
2061         (uri (string-append
2062                "mirror://xorg/individual/app/xbacklight-"
2063                version
2064                ".tar.bz2"))
2065         (sha256
2066           (base32
2067             "1plssg0s3pbslg6rfzxp9sx8ryvn8l32zyvc8zp9zsbsfwjg69rs"))))
2068     (build-system gnu-build-system)
2069     (inputs
2070      `(("libxcb" ,libxcb)
2071        ("xcb-util" ,xcb-util)))
2072     (native-inputs
2073      `(("pkg-config" ,pkg-config)))
2074     (home-page "https://www.x.org/wiki/")
2075     (synopsis "Control display backlight")
2076     (description
2077      "Xbacklight is used to adjust the backlight brightness where
2078 supported.  It uses the RandR extension to find all outputs on the X
2079 server supporting backlight brightness control and changes them all in
2080 the same way.")
2081     (license license:x11)))
2082
2083
2084 (define-public xbitmaps
2085   (package
2086     (name "xbitmaps")
2087     (version "1.1.2")
2088     (source
2089       (origin
2090         (method url-fetch)
2091         (uri (string-append
2092                "mirror://xorg/individual/data/xbitmaps-"
2093                version
2094                ".tar.bz2"))
2095         (sha256
2096           (base32
2097             "1vh73sc13s7w5r6gnc6irca56s7998bja7wgdivkfn8jccawgw5r"))))
2098     (build-system gnu-build-system)
2099     (native-inputs `(("pkg-config" ,pkg-config)))
2100     (home-page "https://www.x.org/wiki/")
2101     (synopsis "X bitmaps")
2102     (description
2103      "xbitmaps provides basic bitmaps (little pictures) used by some
2104 legacy X clients.")
2105     (license license:x11)))
2106
2107 (define-public xcalc
2108   (package
2109     (name "xcalc")
2110     (version "1.1.0")
2111     (source
2112      (origin
2113        (method url-fetch)
2114        (uri (string-append "mirror://xorg/individual/app/"
2115                            "xcalc-" version ".tar.gz"))
2116        (sha256
2117         (base32 "0c768lh0nh28ram9ldldhaf51024fngc589v4pjmf3lxmzcihr58"))))
2118     (build-system gnu-build-system)
2119     (arguments
2120      `(#:phases (modify-phases %standard-phases
2121                   (add-after
2122                    'configure 'mutate-makefile
2123                    (lambda _
2124                      (substitute* "Makefile"
2125                        (("^appdefaultdir = .*$")
2126                         (string-append "appdefaultdir = " %output
2127                                        ,%app-defaults-dir "\n")))
2128                      #t)))))
2129     (inputs
2130      `(("libxaw" ,libxaw)))
2131     (native-inputs
2132      `(("pkg-config" ,pkg-config)))
2133     (home-page "https://www.x.org/wiki/")
2134     (synopsis "Hand calculator for the X Window system")
2135     (description "Xcalc is a scientific calculator desktop accessory that can
2136 emulate a TI-30 or an HP-10C.")
2137     (license license:x11)))
2138
2139
2140 (define-public xcb-proto
2141   (package
2142     (name "xcb-proto")
2143     (version "1.14")
2144     (source
2145       (origin
2146         (method url-fetch)
2147         (uri (string-append
2148                "https://xcb.freedesktop.org/dist/xcb-proto-"
2149                version ".tar.xz"))
2150         (sha256
2151           (base32
2152            "01d62r286yfc3rpz714nqdgkl0wk9j0wqkd4ylas1d7r4vmkqshq"))))
2153     (build-system gnu-build-system)
2154     (native-inputs
2155       `(("pkg-config" ,pkg-config) ("python" ,python-minimal-wrapper)))
2156     (home-page "https://xcb.freedesktop.org/")
2157     (synopsis "XML-XCB protocol descriptions")
2158     (description
2159      "XCB-Proto provides the XML-XCB protocol descriptions that libxcb
2160 uses to generate the majority of its code and API.  XCB-Proto is
2161 separated from libxcb to allow reuse by other projects, such as
2162 additional language bindings, protocol dissectors, or documentation
2163 generators.
2164
2165 XCB-Proto also contains language-independent Python libraries that are
2166 used to parse an XML description and create objects used by Python code
2167 generators in individual language bindings.")
2168     (license license:x11)))
2169
2170
2171 (define-public xcmiscproto
2172   (package
2173     (name "xcmiscproto")
2174     (version "1.2.2")
2175     (source
2176       (origin
2177         (method url-fetch)
2178         (uri (string-append
2179                "mirror://xorg/individual/proto/xcmiscproto-"
2180                version
2181                ".tar.bz2"))
2182         (sha256
2183           (base32
2184             "1pyjv45wivnwap2wvsbrzdvjc5ql8bakkbkrvcv6q9bjjf33ccmi"))))
2185     (build-system gnu-build-system)
2186     (native-inputs `(("pkg-config" ,pkg-config)))
2187     (home-page "https://www.x.org/wiki/")
2188     (synopsis "Xorg XCMiscProto protocol headers")
2189     (description
2190      "XC-MISC Extension defines a protocol that provides Xlib two ways
2191 to query the server for available resource IDs.")
2192     (license license:x11)
2193     (properties `((superseded . ,xorgproto)))))
2194
2195 (define-public xcmsdb
2196   (package
2197     (name "xcmsdb")
2198     (version "1.0.5")
2199     (source
2200       (origin
2201         (method url-fetch)
2202         (uri (string-append
2203                "mirror://xorg/individual/app/xcmsdb-"
2204                version
2205                ".tar.bz2"))
2206         (sha256
2207           (base32
2208             "1ik7gzlp2igz183x70883000ygp99r20x3aah6xhaslbpdhm6n75"))))
2209     (build-system gnu-build-system)
2210     (inputs
2211       `(("libx11" ,libx11)))
2212     (native-inputs
2213       `(("pkg-config" ,pkg-config)))
2214     (home-page "https://www.x.org/wiki/")
2215     (synopsis "Device Color Characterization utility")
2216     (description
2217      "XCMSDB is used to load, query, or remove Device Color
2218 Characterization data stored in properties on the root window of the
2219 screen as specified in section 7, Device Color Characterization, of the
2220 X11 Inter-Client Communication Conventions Manual (ICCCM).")
2221     (license license:x11)))
2222
2223
2224 (define-public xcursor-themes
2225   (package
2226     (name "xcursor-themes")
2227     (version "1.0.6")
2228     (source
2229       (origin
2230         (method url-fetch)
2231         (uri (string-append
2232                "mirror://xorg/individual/data/xcursor-themes-"
2233                version
2234                ".tar.bz2"))
2235         (sha256
2236           (base32
2237             "16a96li0s0ggg60v7f6ywxmsrmxdfizcw55ccv7sp4qjfisca7pf"))))
2238     (build-system gnu-build-system)
2239     (inputs
2240       `(("libxcursor" ,libxcursor)
2241         ("xcursorgen" ,xcursorgen)))
2242     (native-inputs
2243       `(("pkg-config" ,pkg-config)))
2244     (arguments
2245      `(#:configure-flags
2246        (list (string-append "--with-cursordir="
2247                             (assoc-ref %outputs "out")
2248                             "/share/icons"))))
2249     (home-page "https://www.x.org/wiki/")
2250     (synopsis "Default Xorg cursors")
2251     (description
2252      "This package provides a default set of cursor themes for the Xorg
2253 X server: @code{handhelds}, @code{redglass} and @code{whiteglass}.")
2254     (license license:x11)))
2255
2256
2257 (define-public hackneyed-x11-cursors
2258   ;; The current release 0.8 suffers from non-deterministic build problems.
2259   (let ((revision "1")
2260         (commit "9423cef2e2e5ff6b1d65d61f7108c97bc7f5fdfb"))
2261     (package
2262       (name "hackneyed-x11-cursors")
2263       (version (git-version "0.8.1" revision commit))
2264       (source
2265        (origin
2266          (method git-fetch)
2267          (uri (git-reference
2268                (url "https://gitlab.com/Enthymeme/hackneyed-x11-cursors.git")
2269                (commit commit)))
2270          (file-name (git-file-name name version))
2271          (sha256
2272           (base32
2273            "0f637i76sdwz3nm1g1iynamq6j0i6k3c70fpl0fmd0dlynm8ga96"))))
2274       (build-system gnu-build-system)
2275       (arguments
2276        `(#:tests? #f                    ;no test suite
2277          #:make-flags (list (string-append "PREFIX=" %output))
2278          #:phases
2279          (modify-phases %standard-phases
2280            (delete 'configure)
2281            (add-before 'build 'set-inkscape-environment-variable
2282              (lambda* (#:key inputs #:allow-other-keys)
2283                (let ((inkscape (string-append (assoc-ref inputs "inkscape")
2284                                               "/bin/inkscape")))
2285                  (setenv "INKSCAPE" inkscape)
2286                  #t)))
2287            (add-before 'build 'placate-inkscape-warnings
2288              (lambda _
2289                (setenv "HOME" (getcwd))
2290                #t))
2291            (add-after 'build 'generate-black-cursors
2292              (lambda* (#:key make-flags parallel-build #:allow-other-keys)
2293                (let ((build (assoc-ref %standard-phases 'build))
2294                      (make-flags/extended
2295                       `(,@make-flags
2296                         "THEME_NAME=Hackneyed-Dark"
2297                         "COMMON_SOURCE=theme/common-dark.svg"
2298                         "RSVG_SOURCE=theme/right-handed-dark.svg"
2299                         "LSVG_SOURCE=theme/left-handed-dark.svg")))
2300                  (build #:make-flags make-flags/extended
2301                         #:parallel-build parallel-build))))
2302            (add-after 'install 'install-black-cursors
2303              (lambda* (#:key make-flags #:allow-other-keys)
2304                (apply invoke `("make" "install" ,@make-flags
2305                                "THEME_NAME=Hackneyed-Dark")))))))
2306       (native-inputs `(("imagemagick" ,imagemagick)
2307                        ("inkscape" ,inkscape)
2308                        ("xcursorgen" ,xcursorgen)))
2309       (home-page "https://gitlab.com/Enthymeme/hackneyed-x11-cursors")
2310       (synopsis "Classic cursor theme for X11")
2311       (description "Hackneyed is a scalable cursor theme mildly resembling old
2312 Windows 3.x cursors.  The cursors are available in white and black colors.  A
2313 left-handed version of the cursors is also included.")
2314       (license license:x11))))
2315
2316 (define-public xcursorgen
2317   (package
2318     (name "xcursorgen")
2319     (version "1.0.7")
2320     (source
2321       (origin
2322         (method url-fetch)
2323         (uri (string-append
2324                "mirror://xorg/individual/app/xcursorgen-"
2325                version
2326                ".tar.bz2"))
2327         (sha256
2328           (base32
2329             "0ggbv084cavp52hjgcz3vdj0g018axs0m23c03lpc5sgn92gidim"))))
2330     (build-system gnu-build-system)
2331     (inputs
2332       `(("libxcursor" ,libxcursor)
2333         ("libpng" ,libpng)))
2334     (native-inputs
2335       `(("pkg-config" ,pkg-config)))
2336     (home-page "https://www.x.org/wiki/")
2337     (synopsis "Create an X cursor file from PNG images")
2338     (description
2339      "XCursorGen prepares X11 cursor sets for use with libXcursor.")
2340     (license license:x11)))
2341
2342
2343 (define-public xdpyinfo
2344   (package
2345     (name "xdpyinfo")
2346     (version "1.3.2")
2347     (source
2348       (origin
2349         (method url-fetch)
2350         (uri (string-append
2351                "mirror://xorg/individual/app/xdpyinfo-"
2352                version
2353                ".tar.bz2"))
2354         (sha256
2355           (base32
2356             "0ldgrj4w2fa8jng4b3f3biaj0wyn8zvya88pnk70d7k12pcqw8rh"))))
2357     (build-system gnu-build-system)
2358     (inputs
2359       `(("xorgproto" ,xorgproto)
2360         ("libx11" ,libx11)
2361         ("libxxf86vm" ,libxxf86vm)
2362         ("libxxf86dga" ,libxxf86dga)
2363         ("libxtst" ,libxtst)
2364         ("libxrender" ,libxrender)
2365         ("libxinerama" ,libxinerama)
2366         ("libxi" ,libxi)
2367         ("libxcomposite" ,libxcomposite)
2368         ("libdmx" ,libdmx)))
2369     (native-inputs
2370       `(("pkg-config" ,pkg-config)))
2371     (home-page "https://www.x.org/wiki/")
2372     (synopsis "Xorg display information utility")
2373     (description
2374      "Xdpyinfo is used to display information about an X server: the
2375 capabilities of a server, the predefined values for various parameters
2376 used in communicating between clients and the server, and the different
2377 types of screens, visuals, and X11 protocol extensions that are
2378 available.")
2379     (license license:x11)))
2380
2381
2382 (define-public xdriinfo
2383   (package
2384     (name "xdriinfo")
2385     (version "1.0.6")
2386     (source
2387       (origin
2388         (method url-fetch)
2389         (uri (string-append
2390                "mirror://xorg/individual/app/xdriinfo-"
2391                version
2392                ".tar.bz2"))
2393         (sha256
2394           (base32
2395             "0lcx8h3zd11m4w8wf7dyp89826d437iz78cyrix436bqx31x5k6r"))))
2396     (build-system gnu-build-system)
2397     (inputs
2398       `(("mesa" ,mesa)
2399         ("libx11" ,libx11)))
2400     (native-inputs
2401       `(("pkg-config" ,pkg-config)))
2402     (home-page "https://www.x.org/wiki/")
2403     (synopsis "Query DRI configuration information")
2404     (description
2405      "XDRIInfo is used to query configuration information of X11
2406 DRI (Direct Rendering Infrastructure) drivers.")
2407     (license license:x11)))
2408
2409
2410 (define-public xev
2411   (package
2412     (name "xev")
2413     (version "1.2.4")
2414     (source
2415       (origin
2416         (method url-fetch)
2417         (uri (string-append
2418                "mirror://xorg/individual/app/xev-"
2419                version
2420                ".tar.bz2"))
2421         (sha256
2422           (base32
2423             "1ql592pdhddhkipkrsxn929y9l2nn02a5fh2z3dx47kmzs5y006p"))))
2424     (build-system gnu-build-system)
2425     (inputs
2426       `(("libxrender" ,libxrender)
2427         ("libxrandr" ,libxrandr)
2428         ("xorgproto" ,xorgproto)
2429         ("libx11" ,libx11)))
2430     (native-inputs
2431      `(("pkg-config" ,pkg-config)))
2432     (home-page "https://gitlab.freedesktop.org/xorg/app/xev")
2433     (synopsis "Print contents of X events")
2434     (description
2435      "XEv creates a window and then asks the X server to send it X11
2436 events whenever anything happens to the window (such as it being moved,
2437 resized, typed in, clicked in, etc.).  You can also attach it to an
2438 existing window.  It is useful for seeing what causes events to occur
2439 and to display the information that they contain; it is essentially a
2440 debugging and development tool, and should not be needed in normal
2441 usage.")
2442     (license license:x11)))
2443
2444
2445 (define-public xextproto
2446   (package
2447     (name "xextproto")
2448     (version "7.3.0")
2449     (source
2450       (origin
2451         (method url-fetch)
2452         (uri (string-append
2453                "mirror://xorg/individual/proto/xextproto-"
2454                version
2455                ".tar.bz2"))
2456         (sha256
2457           (base32
2458             "1c2vma9gqgc2v06rfxdiqgwhxmzk2cbmknwf1ng3m76vr0xb5x7k"))))
2459     (build-system gnu-build-system)
2460     (native-inputs `(("pkg-config" ,pkg-config)))
2461     (home-page "https://www.x.org/wiki/")
2462     (synopsis "Xorg XExtProto protocol headers")
2463     (description
2464      "XExtProto provides the following extensions: DOUBLE-BUFFER, DPMS,
2465 Extended-Visual-Information, Generic Event Extension, LBX, MIT-SHM,
2466 MIT-SUNDRY-NONSTANDARD, Multi-Buffering, SECURITY, SHAPE, SYNC, TOG-CUP,
2467 XC-APPGROUP, XTEST.")
2468     (license license:x11)
2469     (properties `((superseded . ,xorgproto)))))
2470
2471 (define-public libevdev
2472   (package
2473     (name "libevdev")
2474     (version "1.9.1")
2475     (source
2476      (origin
2477        (method url-fetch)
2478        (uri (string-append "https://www.freedesktop.org/software/" name "/"
2479                            name "-" version ".tar.xz"))
2480        (sha256
2481         (base32
2482          "1jvsphdrs1i54ccjcn6ll26jy42am7h28lbsvwa6pmxgqm43qq7m"))))
2483     (build-system gnu-build-system)
2484     (arguments
2485      `(#:configure-flags '("--disable-static")))
2486     (native-inputs `(("python" ,python)))
2487     (home-page "https://www.freedesktop.org/wiki/Software/libevdev/")
2488     (synopsis "Wrapper library for evdev devices")
2489     (description
2490      "libevdev is a wrapper library for evdev devices. it moves the common
2491 tasks when dealing with evdev devices into a library and provides a library
2492 interface to the callers, thus avoiding erroneous ioctls, etc.
2493
2494 The eventual goal is that libevdev wraps all ioctls available to evdev
2495 devices, thus making direct access unnecessary.")
2496     (license (license:x11-style "file://COPYING"))))
2497
2498
2499 (define-public xf86-input-evdev
2500   (package
2501     (name "xf86-input-evdev")
2502     (version "2.10.6")
2503     (source
2504       (origin
2505         (method url-fetch)
2506         (uri (string-append
2507                "mirror://xorg/individual/driver/xf86-input-evdev-"
2508                version
2509                ".tar.bz2"))
2510         (sha256
2511           (base32
2512            "1h1y0fwnawlp4yc5llr1l7hwfcxxpln2fxhy6arcf6w6h4z0f9l7"))))
2513     (build-system gnu-build-system)
2514     (inputs
2515       `(("udev" ,eudev)
2516         ("libevdev" ,libevdev)
2517         ("mtdev" ,mtdev)
2518         ("xorg-server" ,xorg-server)))
2519     (native-inputs `(("pkg-config" ,pkg-config)))
2520     (arguments
2521      `(#:configure-flags
2522        (list (string-append "--with-sdkdir="
2523                             (assoc-ref %outputs "out")
2524                             "/include/xorg"))))
2525     (home-page "https://www.x.org/wiki/")
2526     (synopsis "Generic input driver for X server")
2527     (description
2528      "xf86-input-evdev is a generic input driver for the Xorg X server.
2529 This driver supports all input devices that the kernel knows about,
2530 including most mice, keyboards, tablets and touchscreens.")
2531     (license license:x11)))
2532
2533 (define-public xf86-input-libinput
2534   (package
2535     (name "xf86-input-libinput")
2536     (version "1.0.1")
2537     (source (origin
2538               (method url-fetch)
2539               (uri (string-append
2540                     "mirror://xorg/individual/driver/"
2541                     name "-" version ".tar.bz2"))
2542               (sha256
2543                (base32
2544                 "0nr4r9x8c7y1l0ipivjch5zps093mxmg2nqmfn2934am26fc9ppx"))))
2545     (build-system gnu-build-system)
2546     (arguments
2547      '(#:configure-flags
2548        (list (string-append "--with-sdkdir="
2549                             %output "/include/xorg"))))
2550     (native-inputs
2551      `(("pkg-config" ,pkg-config)))
2552     (inputs
2553      `(("libinput" ,libinput-minimal)
2554        ("xorg-server" ,xorg-server)))
2555     (home-page "https://www.x.org/wiki/")
2556     (synopsis "Input driver for X server based on libinput")
2557     (description
2558      "xf86-input-libinput is an input driver for the Xorg X server based
2559 on libinput.  It is a thin wrapper around libinput, so while it does
2560 provide all features that libinput supports it does little beyond.")
2561     (license (list license:x11          ; only install-sh
2562                    license:expat))))    ; everything else
2563
2564 (define-public xf86-input-joystick
2565   (package
2566     (name "xf86-input-joystick")
2567     (version "1.6.3")
2568     (source
2569       (origin
2570         (method url-fetch)
2571         (uri (string-append
2572                "mirror://xorg/individual/driver/xf86-input-joystick-"
2573                version
2574                ".tar.bz2"))
2575         (sha256
2576           (base32
2577             "1awfq496d082brgjbr60lhm6jvr9537rflwxqdfqwfzjy3n6jxly"))))
2578     (build-system gnu-build-system)
2579     (inputs `(("xorg-server" ,xorg-server)))
2580     (native-inputs `(("pkg-config" ,pkg-config)))
2581     (arguments
2582      `(#:configure-flags
2583        (list (string-append "--with-sdkdir="
2584                             (assoc-ref %outputs "out")
2585                             "/include/xorg"))))
2586     (home-page "https://www.x.org/wiki/")
2587     (synopsis "Joystick input driver for X server")
2588     (description
2589      "xf86-input-joystick is a joystick input driver for the Xorg X server.
2590 It is used to control the pointer with a joystick device.")
2591     (license license:x11)))
2592
2593
2594 (define-public xf86-input-keyboard
2595   (package
2596     (name "xf86-input-keyboard")
2597     (version "1.9.0")
2598     (source
2599       (origin
2600         (method url-fetch)
2601         (uri (string-append
2602                "mirror://xorg/individual/driver/xf86-input-keyboard-"
2603                version
2604                ".tar.bz2"))
2605         (sha256
2606           (base32
2607             "12032yg412kyvnmc5fha1in7mpi651d8sa1bk4138s2j2zr01jgp"))))
2608     (build-system gnu-build-system)
2609     (inputs `(("xorg-server" ,xorg-server)))
2610     (native-inputs `(("pkg-config" ,pkg-config)))
2611     (home-page "https://www.x.org/wiki/")
2612     (synopsis "Keyboard input driver for X server")
2613     (description
2614      "xf86-input-keyboard is a keyboard input driver for the Xorg X server.")
2615     (license license:x11)))
2616
2617
2618 (define-public xf86-input-mouse
2619   (package
2620     (name "xf86-input-mouse")
2621     (version "1.9.3")
2622     (source
2623       (origin
2624         (method url-fetch)
2625         (uri (string-append
2626                "mirror://xorg/individual/driver/xf86-input-mouse-"
2627                version
2628                ".tar.bz2"))
2629         (sha256
2630           (base32
2631             "1iawr1wyl2qch1mqszcs0s84i92mh4xxprflnycbw1adc18b7v4k"))))
2632     (build-system gnu-build-system)
2633     (inputs `(("xorg-server" ,xorg-server)))
2634     (native-inputs `(("pkg-config" ,pkg-config)))
2635     (arguments
2636      `(#:configure-flags
2637        (list (string-append "--with-sdkdir="
2638                             (assoc-ref %outputs "out")
2639                             "/include/xorg"))))
2640     (home-page "https://www.x.org/wiki/")
2641     (synopsis "Mouse input driver for X server")
2642     (description
2643      "xf86-input-mouse is a mouse input driver for the Xorg X server.
2644 This driver supports four classes of mice: serial, bus and PS/2 mice,
2645 and additional mouse types supported by specific operating systems, such
2646 as USB mice.")
2647     (license license:x11)))
2648
2649
2650 (define-public xf86-input-synaptics
2651   (package
2652     (name "xf86-input-synaptics")
2653     (version "1.9.1")
2654     (source
2655       (origin
2656         (method url-fetch)
2657         (uri (string-append
2658                "mirror://xorg/individual/driver/xf86-input-synaptics-"
2659                version
2660                ".tar.bz2"))
2661         (sha256
2662           (base32
2663             "0xhm03qywwfgkpfl904d08lx00y28m1b6lqmks5nxizixwk3by3s"))))
2664     (build-system gnu-build-system)
2665     (inputs `(("libx11" ,libx11)
2666               ("libxi" ,libxi)
2667               ("libevdev" ,libevdev)
2668               ("mtdev" ,mtdev)
2669               ("xorg-server" ,xorg-server)))
2670     (native-inputs `(("pkg-config" ,pkg-config)))
2671     (arguments
2672      `(#:configure-flags
2673        (list (string-append "--with-sdkdir="
2674                             (assoc-ref %outputs "out")
2675                             "/include/xorg")
2676              (string-append "--with-xorg-conf-dir="
2677                             (assoc-ref %outputs "out")
2678                             "/share/X11/xorg.conf.d"))))
2679     (home-page "https://www.x.org/wiki/")
2680     (synopsis "Touchpad input driver for X server")
2681     (description
2682      "xf86-input-synaptics is a touchpad driver for the Xorg X server.")
2683     (license license:x11)))
2684
2685
2686 (define-public xf86-input-void
2687   (package
2688     (name "xf86-input-void")
2689     (version "1.4.1")
2690     (source
2691       (origin
2692         (method url-fetch)
2693         (uri (string-append
2694                "mirror://xorg/individual/driver/xf86-input-void-"
2695                version
2696                ".tar.bz2"))
2697         (sha256
2698           (base32
2699             "171k8b8s42s3w73l7ln9jqwk88w4l7r1km2blx1vy898c854yvpr"))))
2700     (build-system gnu-build-system)
2701     (inputs `(("xorg-server" ,xorg-server)))
2702     (native-inputs `(("pkg-config" ,pkg-config)))
2703     (home-page "https://www.x.org/wiki/")
2704     (synopsis "Void (null) input driver for X server")
2705     (description
2706      "xf86-input-void is a null input driver for the Xorg X server.")
2707     (license license:x11)))
2708
2709 (define-public xf86-video-amdgpu
2710   (package
2711     (name "xf86-video-amdgpu")
2712     (version "19.1.0")
2713     (source
2714      (origin
2715        (method url-fetch)
2716        (uri (string-append "mirror://xorg/individual/driver/"
2717                            "xf86-video-amdgpu-" version ".tar.bz2"))
2718        (sha256
2719         (base32 "0pgy4ihnja0vm8504qw7qxh3pdpa3p9k6967nz15m6b1mvha83jg"))))
2720     (build-system gnu-build-system)
2721     (inputs `(("xorg-server" ,xorg-server)))
2722     (native-inputs `(("pkg-config" ,pkg-config)))
2723     (home-page "https://www.x.org/wiki/")
2724     (synopsis "AMD Radeon video driver for X server")
2725     (description
2726      "xf86-video-amdgpu is an AMD Radeon video driver for the Xorg
2727 X server.")
2728     (license license:x11)))
2729
2730 (define-public xf86-video-ark
2731   (package
2732     (name "xf86-video-ark")
2733     (version "0.7.5")
2734     (source
2735       (origin
2736         (method url-fetch)
2737         (uri (string-append
2738                "mirror://xorg/individual/driver/xf86-video-ark-"
2739                version
2740                ".tar.bz2"))
2741         (sha256
2742           (base32
2743            "07p5vdsj2ckxb6wh02s61akcv4qfg6s1d5ld3jn3lfaayd3f1466"))
2744         (patches (search-patches "xf86-video-ark-remove-mibstore.patch"))))
2745     (build-system gnu-build-system)
2746     (inputs `(("xorg-server" ,xorg-server)))
2747     (native-inputs `(("pkg-config" ,pkg-config)))
2748     (home-page "https://www.x.org/wiki/")
2749     (synopsis "Ark Logic video driver for X server")
2750     (description
2751      "xf86-video-ark is an Ark Logic video driver for the Xorg X server.")
2752     (license license:x11)))
2753
2754 (define-public xf86-video-ast
2755   (package
2756     (name "xf86-video-ast")
2757     (version "1.1.5")
2758     (home-page "https://cgit.freedesktop.org/xorg/driver/xf86-video-ast/")
2759     (source (origin
2760               (method url-fetch)
2761               (uri (string-append
2762                     "mirror://xorg/individual/driver/xf86-video-ast-"
2763                     version ".tar.bz2"))
2764               (sha256
2765                (base32
2766                 "1pm2cy81ma7ldsw0yfk28b33h9z2hcj5rccrxhfxfgvxsiavrnqy"))))
2767     (build-system gnu-build-system)
2768     (inputs `(("xorg-server" ,xorg-server)))
2769     (native-inputs `(("pkg-config" ,pkg-config)))
2770     (synopsis "ASpeed Technologies video driver for X server")
2771     (description
2772      "xf86-video-ast is an ASpeed Technologies video driver for the Xorg
2773 X server.")
2774     (license license:x11)))
2775
2776 (define-public xf86-video-ati
2777   (package
2778     (name "xf86-video-ati")
2779     (version "19.1.0")
2780     (source
2781      (origin
2782        (method url-fetch)
2783        (uri (string-append "mirror://xorg/individual/driver/"
2784                            "xf86-video-ati-" version ".tar.bz2"))
2785        (sha256
2786         (base32 "0j9w4axsqlycv4v14g53xyhkm9h7d27b2fcv9lrzb9gf54b5m7v5"))))
2787     (build-system gnu-build-system)
2788     (inputs `(("mesa" ,mesa)
2789               ("xorgproto" ,xorgproto)
2790               ("xorg-server" ,xorg-server)))
2791     (native-inputs `(("pkg-config" ,pkg-config)))
2792     (home-page "https://www.x.org/wiki/")
2793     (synopsis "ATI Radeon video driver for X server")
2794     (description
2795      "xf86-video-ati is an ATI Radeon video driver for the Xorg
2796 X server.")
2797     (license license:x11)))
2798
2799
2800 (define-public xf86-video-cirrus
2801   (package
2802     (name "xf86-video-cirrus")
2803     (version "1.5.3")
2804     (source
2805       (origin
2806         (method url-fetch)
2807         (uri (string-append
2808                "mirror://xorg/individual/driver/xf86-video-cirrus-"
2809                version
2810                ".tar.bz2"))
2811         (sha256
2812           (base32
2813             "1asifc6ld2g9kap15vfhvsvyl69lj7pw3d9ra9mi4najllh7pj7d"))))
2814     (build-system gnu-build-system)
2815     (inputs `(("xorg-server" ,xorg-server)))
2816     (native-inputs `(("pkg-config" ,pkg-config)))
2817     (home-page "https://www.x.org/wiki/")
2818     (synopsis "Cirrus Logic video driver for X server")
2819     (description
2820      "xf86-video-cirrus is a Cirrus Logic video driver for the Xorg
2821 X server.")
2822     (license license:x11)))
2823
2824 (define-public xf86-video-dummy
2825   (package
2826     (name "xf86-video-dummy")
2827     (version "0.3.8")
2828     (source
2829      (origin
2830        (method url-fetch)
2831        (uri (string-append "mirror://xorg/individual/driver/"
2832                            "xf86-video-dummy-" version ".tar.bz2"))
2833        (sha256
2834         (base32 "1fcm9vwgv8wnffbvkzddk4yxrh3kc0np6w65wj8k88q7jf3bn4ip"))))
2835     (build-system gnu-build-system)
2836     (inputs `(("xorg-server" ,xorg-server)))
2837     (native-inputs `(("pkg-config" ,pkg-config)))
2838     (home-page "https://www.x.org/wiki/")
2839     (synopsis "Dummy video driver for X server")
2840     (description
2841      "Virtual/offscreen frame buffer driver for the Xorg X server.")
2842     ;; per https://lists.freedesktop.org/archives/xorg/2020-June/060316.html
2843     (license license:x11)))
2844
2845 (define-public xf86-video-fbdev
2846   (package
2847     (name "xf86-video-fbdev")
2848     (version "0.5.0")
2849     (source
2850       (origin
2851         (method url-fetch)
2852         (uri (string-append
2853                "mirror://xorg/individual/driver/xf86-video-fbdev-"
2854                version
2855                ".tar.bz2"))
2856         (sha256
2857           (base32
2858             "16a66zr0l1lmssa07i3rzy07djxnb45c17ks8c71h8l06xgxihyw"))))
2859     (build-system gnu-build-system)
2860     (inputs `(("xorg-server" ,xorg-server)))
2861     (native-inputs `(("pkg-config" ,pkg-config)))
2862     (home-page "https://www.x.org/wiki/")
2863     (synopsis "Framebuffer device video driver for X server")
2864     (description
2865      "xf86-video-fbdev is a video driver for the Xorg X server for
2866 framebuffer device.")
2867     (license license:x11)))
2868
2869
2870 (define-public xf86-video-freedreno
2871   (let ((commit "ccba8f89995de7d5e1b216e580b789c4cda05035"))
2872     (package
2873       (name "xf86-video-freedreno")
2874       (version (string-append "1.4.0-1-" (string-take commit 7)))
2875       (source
2876        (origin
2877          ;; there's no current tarball
2878          (method git-fetch)
2879          (uri (git-reference
2880                (url (string-append "https://anongit.freedesktop.org/git/xorg/"
2881                                    "driver/xf86-video-freedreno.git"))
2882                (commit commit)))
2883          (sha256
2884           (base32
2885            "0bl9m1agi793lcddv94j8afzw1xc9w810q91mbq0n3dscbbcr9nh"))
2886          (file-name (string-append name "-" version))))
2887       (build-system gnu-build-system)
2888       (inputs
2889        `(("libdrm" ,libdrm)
2890          ("mesa" ,mesa)
2891          ("udev" ,eudev)
2892          ("xorg-server" ,xorg-server)
2893          ("zlib" ,zlib)))
2894       (native-inputs
2895        `(("pkg-config" ,pkg-config)
2896          ("autoconf" ,autoconf)
2897          ("automake" ,automake)
2898          ("libtool" ,libtool)))
2899        ;; This driver is only supported on ARM systems.
2900       (supported-systems '("armhf-linux" "aarch64-linux"))
2901       (arguments
2902        `(#:configure-flags
2903          (list (string-append "--with-xorg-conf-dir="
2904                               (assoc-ref %outputs "out")
2905                               "/share/X11/xorg.conf.d"))))
2906       (home-page "https://www.x.org/wiki/")
2907       (synopsis "Adreno video driver for X server")
2908       (description
2909        "xf86-video-freedreno is a 2D graphics driver for the Xorg X server.
2910 It supports a variety of Adreno graphics chipsets.")
2911       (license license:x11))))
2912
2913
2914 (define-public xf86-video-geode
2915   (package
2916     (name "xf86-video-geode")
2917     (version "2.11.20")
2918     (source
2919      (origin
2920        (method url-fetch)
2921        (uri (string-append "mirror://xorg/individual/driver/xf86-video-geode-"
2922                            version ".tar.bz2"))
2923        (sha256
2924         (base32 "0r2dz0agg0k5wrqdbicji6mh6svzyl0xgqk76hpcfdlzn2zx15zl"))))
2925     (build-system gnu-build-system)
2926     (inputs `(("xorg-server" ,xorg-server)))
2927     (native-inputs `(("pkg-config" ,pkg-config)))
2928     (supported-systems
2929      ;; This driver is only supported on i686 systems.
2930      (filter (lambda (system) (string-prefix? "i686-" system))
2931              %supported-systems))
2932     (home-page "https://www.x.org/wiki/")
2933     (synopsis "AMD Geode GX/LX video driver for X server")
2934     (description
2935      "xf86-video-geode is an Xorg X server video driver for the AMD
2936 Geode GX and LX processors.  The GX component supports both XAA and EXA
2937 for graphics acceleration.  The LX component supports EXA, including
2938 compositing.  Both support Xv overlay and dynamic rotation with XRandR.")
2939     (license license:x11)))
2940
2941
2942 ;; Driver for obsolete graphics cards, depends on libglide:
2943 ;; http://sourceforge.net/projects/glide/ ,
2944 ;; last updated in 2003, and which does not compile out of the box any more.
2945 ;; (define-public xf86-video-glide
2946 ;;   (package
2947 ;;     (name "xf86-video-glide")
2948 ;;     (version "1.2.0")
2949 ;;     (source
2950 ;;       (origin
2951 ;;         (method url-fetch)
2952 ;;         (uri (string-append
2953 ;;                "mirror://xorg/X11R7.7/src/everything/xf86-video-glide-"
2954 ;;                version
2955 ;;                ".tar.bz2"))
2956 ;;         (sha256
2957 ;;           (base32
2958 ;;             "0byapm9mnpqk3wijfnnan3d22ii5cw6dmg4xn1625iiz89j5vs1l"))))
2959 ;;     (build-system gnu-build-system)
2960 ;;     (inputs `(("pkg-config" ,pkg-config)
2961 ;;               ("xorg-server" ,xorg-server)))
2962 ;;     (home-page "https://www.x.org/wiki/")
2963 ;;     (synopsis "Glide video driver for X server")
2964 ;;     (description
2965 ;;      "xf86-video-glide is a Glide video driver for the Xorg X server.")
2966 ;;     (license license:x11)))
2967
2968
2969 (define-public xf86-video-glint
2970   (package
2971     (name "xf86-video-glint")
2972     (version "1.2.9")
2973     (source
2974       (origin
2975         (method url-fetch)
2976         (uri (string-append
2977                "mirror://xorg/individual/driver/xf86-video-glint-"
2978                version
2979                ".tar.bz2"))
2980         (sha256
2981           (base32
2982            "1lkpspvrvrp9s539bhfdjfh4andaqyk63l6zjn8m3km95smk6a45"))))
2983     (build-system gnu-build-system)
2984     (inputs `(("xorgproto" ,xorgproto)
2985               ("xorg-server" ,xorg-server)))
2986     (native-inputs `(("pkg-config" ,pkg-config)))
2987     (home-page "https://www.x.org/wiki/")
2988     (synopsis "GLINT/Permedia video driver for X server")
2989     (description
2990      "xf86-video-glint is a GLINT/Permedia video driver for the Xorg
2991 X server.")
2992     (license license:x11)))
2993
2994
2995 (define-public xf86-video-i128
2996   (package
2997     (name "xf86-video-i128")
2998     (version "1.4.0")
2999     (source
3000       (origin
3001         (method url-fetch)
3002         (uri (string-append
3003                "mirror://xorg/individual/driver/xf86-video-i128-"
3004                version
3005                ".tar.bz2"))
3006         (sha256
3007           (base32
3008            "1snhpv1igrhifcls3r498kjd14ml6x2xvih7zk9xlsd1ymmhlb4g"))))
3009     (build-system gnu-build-system)
3010     (inputs `(("xorg-server" ,xorg-server)))
3011     (native-inputs `(("pkg-config" ,pkg-config)))
3012     (home-page "https://www.x.org/wiki/")
3013     (synopsis "I128 video driver for X server")
3014     (description
3015      "xf86-video-i128 is an I128 (Imagine 128) video driver for the Xorg
3016 X server.")
3017     (license license:x11)))
3018
3019
3020 (define-public xf86-video-intel
3021   (let ((commit "31486f40f8e8f8923ca0799aea84b58799754564")
3022         (revision "18"))
3023     (package
3024       (name "xf86-video-intel")
3025       (version (git-version "2.99.917" revision commit))
3026       (source
3027        (origin
3028          ;; there's no current tarball
3029          (method git-fetch)
3030          (uri (git-reference
3031                (url "https://gitlab.freedesktop.org/xorg/driver/xf86-video-intel.git")
3032                (commit commit)))
3033          (sha256
3034           (base32
3035            "0lv6vlx9gvp34pidmx4gxgb0qjf0km0gabbaxw141nnvj1azv94y"))
3036          (file-name (git-file-name name version))))
3037       (build-system gnu-build-system)
3038       (inputs `(("mesa" ,mesa)
3039                 ("udev" ,eudev)
3040                 ("libx11" ,libx11)
3041                 ("libxfont" ,libxfont2)
3042                 ("xorg-server" ,xorg-server)))
3043       (native-inputs
3044        `(("pkg-config" ,pkg-config)
3045          ("autoconf" ,autoconf)
3046          ("automake" ,automake)
3047          ("libtool" ,libtool)))
3048       (supported-systems
3049        ;; This driver is only supported on Intel systems.
3050        (filter (lambda (system) (or (string-prefix? "i686-" system)
3051                                     (string-prefix? "x86_64-" system)))
3052                %supported-systems))
3053       (arguments
3054        '(#:configure-flags '("--with-default-accel=uxa")))
3055       (home-page "https://www.x.org/wiki/")
3056       (synopsis "Intel video driver for X server")
3057       (description
3058        "xf86-video-intel is a 2D graphics driver for the Xorg X server.
3059 It supports a variety of Intel graphics chipsets.")
3060       (license license:x11))))
3061
3062
3063 (define-public xf86-video-mach64
3064   (package
3065     (name "xf86-video-mach64")
3066     (version "6.9.6")
3067     (source
3068       (origin
3069         (method url-fetch)
3070         (uri (string-append
3071                "mirror://xorg/individual/driver/xf86-video-mach64-"
3072                version
3073                ".tar.bz2"))
3074         (sha256
3075           (base32
3076            "171wg8r6py1l138s58rlapin3rlpwsg9spmvhc7l68mm3g3hf1vs"))
3077         (patches (search-patches "xf86-video-mach64-glibc-2.20.patch"))))
3078     (build-system gnu-build-system)
3079     (inputs `(("mesa" ,mesa)
3080               ("xorgproto" ,xorgproto)
3081               ("xorg-server" ,xorg-server)))
3082     (native-inputs
3083       `(("pkg-config" ,pkg-config)))
3084     (home-page "https://www.x.org/wiki/")
3085     (synopsis "Mach64 video driver for X server")
3086     (description
3087      "xf86-video-mach64 is a video driver for the Xorg X server.
3088 This driver is intended for all ATI video adapters based on the Mach64
3089 series or older chipsets, providing maximum video function within
3090 hardware limitations.  The driver is also intended to optionally provide
3091 the same level of support for generic VGA or 8514/A adapters.")
3092     (license license:x11)))
3093
3094
3095 (define-public xf86-video-mga
3096   (package
3097     (name "xf86-video-mga")
3098     (version "2.0.0")
3099     (source
3100       (origin
3101         (method url-fetch)
3102         (uri (string-append
3103                "mirror://xorg/individual/driver/xf86-video-mga-"
3104                version
3105                ".tar.bz2"))
3106         (sha256
3107           (base32
3108            "0yaxpgyyj9398nzzr5vnsfxcis76z46p9814yzj8179yl7hld296"))))
3109     (build-system gnu-build-system)
3110     (inputs `(("mesa" ,mesa)
3111               ("xorgproto" ,xorgproto)
3112               ("xorg-server" ,xorg-server)))
3113     (native-inputs `(("pkg-config" ,pkg-config)))
3114     (home-page "https://www.x.org/wiki/")
3115     (synopsis "Matrox video driver for X server")
3116     (description
3117      "xf86-video-mga is a Matrox video driver for the Xorg X server.")
3118     (license license:x11)))
3119
3120 (define-public xf86-video-neomagic
3121   (package
3122     (name "xf86-video-neomagic")
3123     (version "1.3.0")
3124     (source
3125       (origin
3126         (method url-fetch)
3127         (uri (string-append
3128                "mirror://xorg/individual/driver/xf86-video-neomagic-"
3129                version
3130                ".tar.bz2"))
3131         (sha256
3132           (base32
3133             "0r4h673kw8fl7afc30anwbjlbhp82mg15fvaxf470xg7z983k0wk"))))
3134     (build-system gnu-build-system)
3135     (inputs `(("xorgproto" ,xorgproto)
3136               ("xorg-server" ,xorg-server)))
3137     (native-inputs `(("pkg-config" ,pkg-config)))
3138     (home-page "https://www.x.org/wiki/")
3139     (synopsis "NeoMagic video driver for X server")
3140     (description
3141      "xf86-video-neomagic is a NeoMagic video driver for the Xorg X server.")
3142     (license license:x11)))
3143
3144
3145 ;; This driver depends on XAA which has been removed from xorg-server.
3146
3147 ;; (define-public xf86-video-newport
3148 ;;   (package
3149 ;;     (name "xf86-video-newport")
3150 ;;     (version "0.2.4")
3151 ;;     (source
3152 ;;       (origin
3153 ;;         (method url-fetch)
3154 ;;         (uri (string-append
3155 ;;                "mirror://xorg/individual/driver/xf86-video-newport-"
3156 ;;                version
3157 ;;                ".tar.bz2"))
3158 ;;         (sha256
3159 ;;           (base32
3160 ;;             "1yafmp23jrfdmc094i6a4dsizapsc9v0pl65cpc8w1kvn7343k4i"))))
3161 ;;     (build-system gnu-build-system)
3162 ;;     (inputs `(("xorg-server" ,xorg-server)))
3163 ;;     (native-inputs `(("pkg-config" ,pkg-config)))
3164 ;;     (home-page "https://www.x.org/wiki/")
3165 ;;     (synopsis "Newport video driver for X server")
3166 ;;     (description
3167 ;;      "xf86-video-newport is an Xorg X server video driver for the SGI
3168 ;; newport cards.")
3169 ;;     (license license:x11)))
3170
3171
3172 (define-public xf86-video-nv
3173   (package
3174     (name "xf86-video-nv")
3175     (version "2.1.21")
3176     (source
3177       (origin
3178         (method url-fetch)
3179         (uri (string-append
3180                "mirror://xorg/individual/driver/xf86-video-nv-"
3181                version
3182                ".tar.bz2"))
3183         (sha256
3184           (base32
3185            "0bdk3pc5y0n7p53q4gc2ff7bw16hy5hwdjjxkm5j3s7hdyg6960z"))))
3186     (build-system gnu-build-system)
3187     (inputs `(("xorg-server" ,xorg-server)))
3188     (native-inputs `(("pkg-config" ,pkg-config)))
3189     (home-page "https://www.x.org/wiki/")
3190     (synopsis "NVIDIA video driver for X server")
3191     (description
3192      "This package contains Xorg support for the NVIDIA GeForce 8 series of
3193 graphics processors.
3194
3195 There are a few caveats of which to be aware: the XVideo extension is not
3196 supported, and the RENDER extension is not accelerated by this driver.")
3197     (license license:x11)))
3198
3199 (define-public xf86-video-nouveau
3200   (package
3201     (name "xf86-video-nouveau")
3202     (version "1.0.17")
3203     (source
3204      (origin
3205        (method url-fetch)
3206        (uri (string-append "mirror://xorg/individual/driver/xf86-video-nouveau-"
3207                            version ".tar.bz2"))
3208        (sha256
3209         (base32 "0sqm1jwjg15sp8v7039y2hsbhph8gpjd2bdzcqqiij2mgbi254s9"))))
3210     (build-system gnu-build-system)
3211     (inputs `(("xorg-server" ,xorg-server)))
3212     (native-inputs `(("pkg-config" ,pkg-config)))
3213     (home-page "https://nouveau.freedesktop.org")
3214     (synopsis "NVIDIA video driver for X server")
3215     (description
3216      "This package provides modern, high-quality Xorg drivers for NVIDIA
3217 graphics cards.")
3218     (license license:x11)))
3219
3220 (define-public xf86-video-openchrome
3221   (package
3222     (name "xf86-video-openchrome")
3223     (version "0.6.0")
3224     (source
3225       (origin
3226         (method url-fetch)
3227         (uri (string-append
3228                "mirror://xorg/individual/driver/xf86-video-openchrome-"
3229                version
3230                ".tar.bz2"))
3231         (sha256
3232          (base32
3233           "0x9gq3hw6k661k82ikd1y2kkk4dmgv310xr5q59dwn4k6z37aafs"))))
3234     (build-system gnu-build-system)
3235     (inputs `(("libx11" ,libx11)
3236               ("libxext" ,libxext)
3237               ("libxvmc" ,libxvmc)
3238               ("mesa" ,mesa)
3239               ("xorgproto" ,xorgproto)
3240               ("xorg-server" ,xorg-server)))
3241     (native-inputs
3242      `(("pkg-config" ,pkg-config)))
3243     (home-page "https://www.x.org/wiki/")
3244     (synopsis "Openchrome video driver for X server")
3245     (description
3246      "xf86-video-openchrome is a video driver for the Xorg X server.
3247 This driver is intended for VIA chipsets featuring the VIA UniChrome,
3248 UniChrome Pro and Chrome9 integrated graphics processors.")
3249     (license license:x11)))
3250
3251
3252 (define-public xf86-video-qxl
3253   (package
3254     (name "xf86-video-qxl")
3255     (version "0.1.5")
3256     (source (origin
3257               (method url-fetch)
3258               (uri (string-append
3259                 "mirror://xorg/individual/driver/"
3260                 "xf86-video-qxl-" version ".tar.bz2"))
3261               (sha256
3262                (base32
3263                 "14jc24znnahhmz4kqalafmllsg8awlz0y6gpgdpk5ih38ph851mi"))))
3264     (build-system gnu-build-system)
3265     (inputs
3266       `(("libxfont" ,libxfont2)
3267         ("spice-protocol" ,spice-protocol)
3268         ("xorg-server" ,xorg-server)
3269         ("xorgproto" ,xorgproto)))
3270     (native-inputs
3271       `(("pkg-config" ,pkg-config)))
3272     (synopsis "Qxl video driver for X server")
3273     (description "xf86-video-qxl is a video driver for the Xorg X server.
3274 This driver is intended for the spice qxl virtio device.")
3275     (home-page "http://www.spice-space.org")
3276     (license license:x11)))
3277
3278 (define-public xf86-video-r128
3279   (package
3280     (name "xf86-video-r128")
3281     (version "6.12.0")
3282     (source (origin
3283               (method url-fetch)
3284               (uri (string-append "mirror://xorg/individual/driver/"
3285                                   name "-" version ".tar.bz2"))
3286               (sha256
3287                (base32
3288                 "0mz0v5mqmmbncr2drd5zvia1fb7frz2xqwflhhqbnaxx5j48c740"))))
3289     (build-system gnu-build-system)
3290     (inputs `(("mesa" ,mesa)
3291               ("xorgproto" ,xorgproto)
3292               ("xorg-server" ,xorg-server)))
3293     (native-inputs
3294      `(("pkg-config" ,pkg-config)))
3295     (home-page "https://www.x.org/wiki/")
3296     (synopsis "ATI Rage 128 video driver for X server")
3297     (description
3298      "xf86-video-r128 is a video driver for the Xorg X server.
3299 This driver is intended for ATI Rage 128 based cards.")
3300     (license license:x11)))
3301
3302 (define-public xf86-video-savage
3303   (package
3304     (name "xf86-video-savage")
3305     (version "2.3.9")
3306     (source
3307       (origin
3308         (method url-fetch)
3309         (uri (string-append
3310                "mirror://xorg/individual/driver/xf86-video-savage-"
3311                version
3312                ".tar.bz2"))
3313         (patches (search-patches "xf86-video-savage-xorg-compat.patch"))
3314         (sha256
3315           (base32
3316            "11pcrsdpdrwk0mrgv83s5nsx8a9i4lhmivnal3fjbrvi3zdw94rc"))))
3317     (build-system gnu-build-system)
3318     (inputs `(("mesa" ,mesa)
3319               ("xorgproto" ,xorgproto)
3320               ("xorg-server" ,xorg-server)))
3321     (native-inputs `(("pkg-config" ,pkg-config)))
3322     (home-page "https://www.x.org/wiki/")
3323     (synopsis "Savage video driver for X server")
3324     (description
3325      "xf86-video-savage is an S3 Savage video driver for the Xorg X server.")
3326     (license license:x11)))
3327
3328
3329 (define-public xf86-video-siliconmotion
3330   (package
3331     (name "xf86-video-siliconmotion")
3332     (version "1.7.9")
3333     (source
3334       (origin
3335         (method url-fetch)
3336         (uri (string-append
3337                "mirror://xorg/individual/driver/xf86-video-siliconmotion-"
3338                version
3339                ".tar.bz2"))
3340         (sha256
3341           (base32
3342            "1g2r6gxqrmjdff95d42msxdw6vmkg2zn5sqv0rxd420iwy8wdwyh"))
3343         (patches (search-patches "xf86-video-siliconmotion-fix-ftbfs.patch"))))
3344     (build-system gnu-build-system)
3345     (inputs `(("xorg-server" ,xorg-server)))
3346     (native-inputs `(("pkg-config" ,pkg-config)))
3347     (home-page "https://www.x.org/wiki/")
3348     (synopsis "Silicon Motion video driver for X server")
3349     (description
3350      "xf86-video-siliconmotion is a Silicon Motion video driver for the
3351 Xorg X server.")
3352     (license license:x11)))
3353
3354
3355 (define-public xf86-video-sis
3356   (package
3357     (name "xf86-video-sis")
3358     (version "0.12.0")
3359     (source
3360       (origin
3361         (method url-fetch)
3362         (uri (string-append
3363                "mirror://xorg/individual/driver/xf86-video-sis-"
3364                version
3365                ".tar.bz2"))
3366         (sha256
3367          (base32
3368           "0nrs6cjldlhakx5987fiiggjrlzilsbdc7l9pz22x1iwslbkz78i"))))
3369     (build-system gnu-build-system)
3370     (inputs `(("mesa" ,mesa)
3371               ("xorgproto" ,xorgproto)
3372               ("xorg-server" ,xorg-server)))
3373     (native-inputs
3374      `(("pkg-config" ,pkg-config)))
3375     (home-page "https://www.x.org/wiki/")
3376     (synopsis "Sis video driver for X server")
3377     (description
3378      "xf86-video-SiS is a SiS video driver for the Xorg X server.
3379 This driver supports SiS chipsets of 300/315/330/340 series.")
3380     (license license:bsd-3)))
3381
3382
3383 (define-public xf86-video-suncg6
3384   (package
3385     (name "xf86-video-suncg6")
3386     (version "1.1.2")
3387     (source
3388       (origin
3389         (method url-fetch)
3390         (uri (string-append
3391                "mirror://xorg/individual/driver/xf86-video-suncg6-"
3392                version
3393                ".tar.bz2"))
3394         (sha256
3395           (base32
3396             "04fgwgk02m4nimlv67rrg1wnyahgymrn6rb2cjj1l8bmzkii4glr"))))
3397     (build-system gnu-build-system)
3398     (inputs `(("xorg-server" ,xorg-server)))
3399     (native-inputs `(("pkg-config" ,pkg-config)))
3400     (home-page "https://www.x.org/wiki/")
3401     (synopsis "GX/TurboGX video driver for X server")
3402     (description
3403      "xf86-video-suncg6 is a GX/TurboGX video driver for the Xorg X server.")
3404     (license license:x11)))
3405
3406
3407 (define-public xf86-video-sunffb
3408   (package
3409     (name "xf86-video-sunffb")
3410     (version "1.2.2")
3411     (source
3412       (origin
3413         (method url-fetch)
3414         (uri (string-append
3415                "mirror://xorg/individual/driver/xf86-video-sunffb-"
3416                version
3417                ".tar.bz2"))
3418         (sha256
3419           (base32
3420             "07z3ngifwg2d4jgq8pms47n5lr2yn0ai72g86xxjnb3k20n5ym7s"))))
3421     (build-system gnu-build-system)
3422     (inputs `(("xorg-server" ,xorg-server)))
3423     (native-inputs `(("pkg-config" ,pkg-config)))
3424     (home-page "https://www.x.org/wiki/")
3425     (synopsis "SUNFFB video driver for X server")
3426     (description
3427      "xf86-video-sunffb is a SUNFFB video driver for the Xorg X server.")
3428     (license license:x11)))
3429
3430
3431 (define-public xf86-video-tdfx
3432   (package
3433     (name "xf86-video-tdfx")
3434     (version "1.5.0")
3435     (source
3436       (origin
3437         (method url-fetch)
3438         (uri (string-append
3439                "mirror://xorg/individual/driver/xf86-video-tdfx-"
3440                version
3441                ".tar.bz2"))
3442         (sha256
3443           (base32
3444            "0qc5wzwf1n65si9rc37bh224pzahh7gp67vfimbxs0b9yvhq0i9g"))))
3445     (build-system gnu-build-system)
3446     (inputs `(("mesa" ,mesa)
3447               ("xorgproto" ,xorgproto)
3448               ("xorg-server" ,xorg-server)))
3449     (native-inputs `(("pkg-config" ,pkg-config)))
3450     (home-page "https://www.x.org/wiki/")
3451     (synopsis "3Dfx video driver for X server")
3452     (description
3453      "xf86-video-tdfx is a 3Dfx video driver for the Xorg X server.")
3454     (license license:x11)))
3455
3456
3457 (define-public xf86-video-tga
3458   (package
3459     (name "xf86-video-tga")
3460     (version "1.2.2")
3461     (source
3462       (origin
3463         (method url-fetch)
3464         (uri (string-append
3465                "mirror://xorg/individual/driver/xf86-video-tga-"
3466                version
3467                ".tar.bz2"))
3468         (sha256
3469           (base32
3470            "0cb161lvdgi6qnf1sfz722qn38q7kgakcvj7b45ba3i0020828r0"))
3471         (patches (search-patches "xf86-video-tga-remove-mibstore.patch"))))
3472     (build-system gnu-build-system)
3473     (inputs `(("xorgproto" ,xorgproto)
3474               ("xorg-server" ,xorg-server)))
3475     (native-inputs `(("pkg-config" ,pkg-config)))
3476     (home-page "https://www.x.org/wiki/")
3477     (synopsis "TGA video driver for X server")
3478     (description
3479      "xf86-video-tga is a TGA (DEC 21030) video driver for the Xorg
3480 X server.")
3481     (license license:x11)))
3482
3483
3484 (define-public xf86-video-trident
3485   (package
3486     (name "xf86-video-trident")
3487     (version "1.3.8")
3488     (source
3489       (origin
3490         (method url-fetch)
3491         (uri (string-append
3492                "mirror://xorg/individual/driver/xf86-video-trident-"
3493                version
3494                ".tar.bz2"))
3495         (sha256
3496           (base32
3497            "0gxcar434kx813fxdpb93126lhmkl3ikabaljhcj5qn3fkcijlcy"))))
3498     (build-system gnu-build-system)
3499     (inputs `(("xorgproto" ,xorgproto)
3500               ("xorg-server" ,xorg-server)))
3501     (native-inputs `(("pkg-config" ,pkg-config)))
3502     (home-page "https://www.x.org/wiki/")
3503     (synopsis "Trident video driver for X server")
3504     (description
3505      "xf86-video-trident is a Trident video driver for the Xorg X server.")
3506     (license license:x11)))
3507
3508
3509 ;; no license
3510 ;; (define-public xf86-video-v4l
3511
3512
3513 (define-public xf86-video-vesa
3514   (package
3515     (name "xf86-video-vesa")
3516     (version "2.5.0")
3517     (source
3518       (origin
3519         (method url-fetch)
3520         (uri (string-append
3521                "mirror://xorg/individual/driver/xf86-video-vesa-"
3522                version
3523                ".tar.bz2"))
3524         (sha256
3525           (base32
3526             "0nf6ai74c60xk96kgr8q9mx6lrxm5id3765ws4d801irqzrj85hz"))))
3527     (build-system gnu-build-system)
3528     (inputs `(("xorg-server" ,xorg-server)))
3529     (native-inputs `(("pkg-config" ,pkg-config)))
3530     (home-page "https://www.x.org/wiki/")
3531     (synopsis "VESA video driver for X server")
3532     (description
3533      "xf86-video-vesa is a generic VESA video driver for the Xorg
3534 X server.")
3535     (license license:x11)))
3536
3537 (define-public v86d
3538   (package
3539     (name "v86d")
3540     (version "0.1.10")
3541     (source
3542      (origin
3543        (method git-fetch)
3544        (uri (git-reference
3545              (url "https://github.com/mjanusz/v86d")
3546              (commit (string-append name "-" version))))
3547        (file-name (git-file-name name version))
3548        (sha256
3549         (base32 "1c4iiggb5r9i2hxhk8c6q1m2vpfva39l1w33fsfkrz6fav6x34pp"))
3550        (modules '((guix build utils)))
3551        (snippet
3552         '(begin
3553            ;; remove bundled x86emu
3554            (for-each delete-file
3555                      (filter (lambda (name) ;keep customized Makefile
3556                                (not (string-suffix? "Makefile" name)))
3557                              (find-files "libs/x86emu")))
3558            ;; remove non-working vbetest utility program (it is unnecessary)
3559            (delete-file "libs/lrmi-0.10/vbe.h")
3560            (delete-file "libs/lrmi-0.10/vbetest.c")
3561            #t))))
3562
3563     ;; We keep the bundled copy of the Linux Real Mode Interface lrmi-0.10,
3564     ;; because it includes fixes missing from upstream lrmi.  We do not use
3565     ;; libx86, because we already use x86emu with the more current lrmi.
3566
3567     (inputs `(("xorg-server-sources" ,(package-source xorg-server)) ;for x86emu
3568               ("xorgproto" ,xorgproto))) ;upstream x86emu uses X11/Xfuncproto.h
3569     (outputs '("out" ;main v86d helper
3570                "testvbe")) ;test program for listing video modes
3571     (supported-systems '("i686-linux" "x86_64-linux"))
3572     (build-system gnu-build-system)
3573     (arguments
3574      `(#:tests? #f ;there are no tests
3575        #:modules ((guix build utils)
3576                   (guix build gnu-build-system)
3577                   (ice-9 popen))
3578        #:phases
3579        (modify-phases %standard-phases
3580          ;; Replace the bundled x86emu with its upstream copy from Xorg-server:
3581          (add-after 'unpack 'unpack-x86emu-sources
3582            (lambda* (#:key inputs #:allow-other-keys)
3583              (begin
3584                (format #t "decompressing x86emu source code~%")
3585                (with-directory-excursion "libs"
3586                  (let ((srcs (assoc-ref inputs "xorg-server-sources"))
3587                        (tar-binary (string-append (assoc-ref inputs "tar")
3588                                                   "/bin/tar")))
3589                    (invoke tar-binary "xvf" srcs "--strip-components=3"
3590                            "--wildcards" "*/hw/xfree86/x86emu/")
3591                    ;; extract license:
3592                    (with-directory-excursion "x86emu"
3593                      (invoke tar-binary "xvf" srcs "--strip-components=1"
3594                              "--wildcards" "*/COPYING"))
3595                    #t)))))
3596          (replace 'configure
3597            (lambda* (#:key outputs #:allow-other-keys)
3598              (let ((out (assoc-ref outputs "out")))
3599                (setenv "CC" (which "gcc"))
3600                (setenv "DESTDIR" out)
3601                (invoke "./configure" "--with-x86emu"))))
3602          (add-after 'build 'build-testvbe
3603            (lambda _
3604              (invoke "make" "testvbe")))
3605          (add-after 'install 'install-testvbe
3606            (lambda* (#:key outputs #:allow-other-keys)
3607              (let ((testvbe (assoc-ref outputs "testvbe"))
3608                    (olddest (getenv "DESTDIR")))
3609                (setenv "DESTDIR" testvbe)
3610                (invoke "make" "install_testvbe")
3611                (setenv "DESTDIR" olddest)
3612                #t)))
3613          (add-after 'install 'install-docs
3614            (lambda* (#:key outputs #:allow-other-keys)
3615              (let* ((out (assoc-ref outputs "out"))
3616                     (doc-dir (string-append out "/share/doc/v86d")))
3617                (mkdir-p doc-dir)
3618                (copy-file "README"
3619                           (string-append doc-dir "/README"))
3620                (copy-file "libs/lrmi-0.10/README"
3621                           (string-append doc-dir "/README.lrmi"))
3622                (copy-file "libs/x86emu/COPYING"
3623                           (string-append doc-dir "/COPYING.xorg-server.x86emu"))
3624                #t))))))
3625     (home-page "https://github.com/mjanusz/v86d")
3626     (synopsis "Userspace helper for uvesafb")
3627     (description
3628      "v86d provides a backend for kernel drivers that need to execute x86 BIOS
3629 code.  The code is executed in a controlled environment and the results are
3630 passed back to the kernel via the netlink interface.  v86d is required by the
3631 uvesafb Linux kernel module that provides an fbdev framebuffer when Kernel
3632 Mode Setting is unavailable.  It can be a last resort when no other Xorg X
3633 server driver works.")
3634     (license (list license:gpl2
3635                    license:x11)))) ;for bundled lrmi and x86emu
3636
3637 (define-public xf86-video-vmware
3638   (package
3639     (name "xf86-video-vmware")
3640     (version "13.3.0")
3641     (source
3642       (origin
3643         (method url-fetch)
3644         (uri (string-append
3645                "mirror://xorg/individual/driver/xf86-video-vmware-"
3646                version
3647                ".tar.bz2"))
3648         (sha256
3649           (base32
3650            "0v06qhm059klq40m2yx4wypzb7h53aaassbjfmm6clcyclj1k5s7"))))
3651     (build-system gnu-build-system)
3652     (inputs
3653      `(("libx11" ,libx11)
3654        ("libxext" ,libxext)
3655        ("llvm" ,llvm)
3656        ("mesa" ,mesa)                   ; for xatracker
3657        ("xorg-server" ,xorg-server)))
3658     (native-inputs
3659      `(("eudev" ,eudev)
3660        ("pkg-config" ,pkg-config)))
3661     (home-page "https://www.x.org/wiki/")
3662     (synopsis "VMware SVGA video driver for X server")
3663     (description
3664      "xf86-video-vmware is a VMware SVGA video driver for the Xorg X server.")
3665     (license license:x11)))
3666
3667
3668 (define-public xf86-video-voodoo
3669   (package
3670     (name "xf86-video-voodoo")
3671     (version "1.2.5")
3672     (source
3673       (origin
3674         (method url-fetch)
3675         (uri (string-append
3676                "mirror://xorg/individual/driver/xf86-video-voodoo-"
3677                version
3678                ".tar.bz2"))
3679         (sha256
3680           (base32
3681            "1s6p7yxmi12q4y05va53rljwyzd6ry492r1pgi7wwq6cznivhgly"))
3682         (patches
3683          (search-patches "xf86-video-voodoo-pcitag.patch"))))
3684     (build-system gnu-build-system)
3685     (inputs `(("xorgproto" ,xorgproto)
3686               ("xorg-server" ,xorg-server)))
3687     (native-inputs `(("pkg-config" ,pkg-config)))
3688     (home-page "https://www.x.org/wiki/")
3689     (synopsis "Voodoo/Voodoo2 video driver for X server")
3690     (description
3691      "xf86-video-voodoo is a Voodoo video driver for the Xorg X server.")
3692     (license license:x11)))
3693
3694
3695 ;; Only relevant for the frame buffer on BSD systems.
3696 ;; (define-public xf86-video-wsfb
3697
3698
3699 (define-public xf86bigfontproto
3700   (package
3701     (name "xf86bigfontproto")
3702     (version "1.2.0")
3703     (source
3704       (origin
3705         (method url-fetch)
3706         (uri (string-append
3707                "mirror://xorg/individual/proto/xf86bigfontproto-"
3708                version
3709                ".tar.bz2"))
3710         (sha256
3711           (base32
3712             "0j0n7sj5xfjpmmgx6n5x556rw21hdd18fwmavp95wps7qki214ms"))))
3713     (build-system gnu-build-system)
3714     (home-page "https://www.x.org/wiki/")
3715     (synopsis "Xorg XF86BigFontProto protocol headers")
3716     (description
3717      "XFree86 Bigfont Extension contains header files and documentation
3718 for the XF86BigFontProto protocol.")
3719     (license license:x11)
3720     (properties `((superseded . ,xorgproto)))))
3721
3722 (define-public xf86dgaproto
3723   (package
3724     (name "xf86dgaproto")
3725     (version "2.1")
3726     (source
3727       (origin
3728         (method url-fetch)
3729         (uri (string-append
3730                "mirror://xorg/individual/proto/xf86dgaproto-"
3731                version
3732                ".tar.bz2"))
3733         (sha256
3734           (base32
3735             "0l4hx48207mx0hp09026r6gy9nl3asbq0c75hri19wp1118zcpmc"))))
3736     (build-system gnu-build-system)
3737     (home-page "https://www.x.org/wiki/")
3738     (synopsis "Xorg XF86DGAProto protocol headers")
3739     (description
3740      "XFree86 Direct Graphic Access Extension defines a protocol for
3741 direct linear framebuffer access.")
3742     (license license:x11)
3743     (properties `((superseded . ,xorgproto)))))
3744
3745 (define-public xf86driproto
3746   (package
3747     (name "xf86driproto")
3748     (version "2.1.1")
3749     (source
3750       (origin
3751         (method url-fetch)
3752         (uri (string-append
3753                "mirror://xorg/individual/proto/xf86driproto-"
3754                version
3755                ".tar.bz2"))
3756         (sha256
3757           (base32
3758             "07v69m0g2dfzb653jni4x656jlr7l84c1k39j8qc8vfb45r8sjww"))))
3759     (build-system gnu-build-system)
3760     (home-page "https://www.x.org/wiki/")
3761     (synopsis "Xorg XF86DRIProto protocol headers")
3762     (description
3763      "XFree86 Direct Rendering Infrastructure Extension defines a
3764 protocol to allow user applications to access the video hardware without
3765 requiring data to be passed through the X server.")
3766     (license license:x11)
3767     (properties `((superseded . ,xorgproto)))))
3768
3769 (define-public xf86vidmodeproto
3770   (package
3771     (name "xf86vidmodeproto")
3772     (version "2.3.1")
3773     (source
3774       (origin
3775         (method url-fetch)
3776         (uri (string-append
3777                "mirror://xorg/individual/proto/xf86vidmodeproto-"
3778                version
3779                ".tar.bz2"))
3780         (sha256
3781           (base32
3782             "0w47d7gfa8zizh2bshdr2rffvbr4jqjv019mdgyh6cmplyd4kna5"))))
3783     (build-system gnu-build-system)
3784     (home-page "https://www.x.org/wiki/")
3785     (synopsis "Xorg XF86VidModeProto protocol headers")
3786     (description
3787      "XFree86 Video Mode Extension defines a protocol for dynamically
3788 configuring modelines and gamma.")
3789     (license license:x11)
3790     (properties `((superseded . ,xorgproto)))))
3791
3792 (define-public xgamma
3793   (package
3794     (name "xgamma")
3795     (version "1.0.6")
3796     (source
3797       (origin
3798         (method url-fetch)
3799         (uri (string-append
3800                "mirror://xorg/individual/app/xgamma-"
3801                version
3802                ".tar.bz2"))
3803         (sha256
3804           (base32
3805             "1lr2nb1fhg5fk2fchqxdxyl739602ggwhmgl2wiv5c8qbidw7w8f"))))
3806     (build-system gnu-build-system)
3807     (inputs
3808       `(("libxxf86vm" ,libxxf86vm)
3809         ("libx11" ,libx11)))
3810     (native-inputs
3811       `(("pkg-config" ,pkg-config)))
3812     (home-page "https://www.x.org/wiki/")
3813     (synopsis "Alter a monitor's gamma correction")
3814     (description
3815      "XGamma is used to query and alter the gamma correction of a
3816 monitor via the X video mode extension.")
3817     (license license:x11)))
3818
3819
3820 (define-public xhost
3821   (package
3822     (name "xhost")
3823     (version "1.0.8")
3824     (source
3825       (origin
3826         (method url-fetch)
3827         (uri (string-append
3828                "mirror://xorg/individual/app/xhost-"
3829                version
3830                ".tar.bz2"))
3831         (sha256
3832           (base32
3833             "15n3mnd4i5kh4z32qv11580qjgvnng0wry2y753ljrqkkrbkrp52"))))
3834     (build-system gnu-build-system)
3835     (inputs
3836       `(("libxmu" ,libxmu)
3837         ("libxau" ,libxau)
3838         ("libx11" ,libx11)))
3839     (native-inputs
3840       `(("pkg-config" ,pkg-config)))
3841     (home-page "https://gitlab.freedesktop.org/xorg/app/xhost")
3842     (synopsis "Xorg server access control utility")
3843     (description
3844      "XHost is used to manage the list of host names or user names
3845 allowed to make connections to the X server.")
3846     (license license:x11)))
3847
3848
3849 (define-public xineramaproto
3850   (package
3851     (name "xineramaproto")
3852     (version "1.2.1")
3853     (source
3854       (origin
3855         (method url-fetch)
3856         (uri (string-append
3857                "mirror://xorg/individual/proto/xineramaproto-"
3858                version
3859                ".tar.bz2"))
3860         (sha256
3861           (base32
3862             "0ns8abd27x7gbp4r44z3wc5k9zqxxj8zjnazqpcyr4n17nxp8xcp"))))
3863     (build-system gnu-build-system)
3864     (native-inputs `(("pkg-config" ,pkg-config)))
3865     (home-page "https://www.x.org/wiki/")
3866     (synopsis "Xorg XineramaProto protocol headers")
3867     (description
3868      "Xinerama Extension allows clients to query information about multiple
3869 physical screens controlled by a single X server that appear as a single
3870 screen to core X11 protocol operations.
3871
3872 This extension provides a common network protocol for querying information
3873 which may be provided by different underlying screen combination
3874 technologies in the X server, such as the original Xinerama multiplexer, or
3875 alternative implementations like XRandR or TwinView.")
3876     (license license:x11)
3877     (properties `((superseded . ,xorgproto)))))
3878
3879 (define-public xinput
3880   (package
3881     (name "xinput")
3882     (version "1.6.3")
3883     (source
3884       (origin
3885         (method url-fetch)
3886         (uri (string-append
3887                "mirror://xorg/individual/app/xinput-"
3888                version
3889                ".tar.bz2"))
3890         (sha256
3891           (base32
3892             "1vb6xdd1xmk5f7pwc5zcbxfray5sf1vbnscqwf2yl8lv7gfq38im"))))
3893     (build-system gnu-build-system)
3894     (inputs
3895       `(("libxrender" ,libxrender)
3896         ("libxrandr" ,libxrandr)
3897         ("libxinerama" ,libxinerama)
3898         ("libxext" ,libxext)
3899         ("libxi" ,libxi)
3900         ("libx11" ,libx11)
3901         ("xorgproto" ,xorgproto)))
3902     (native-inputs
3903        `(("pkg-config" ,pkg-config)))
3904     (home-page "https://www.x.org/wiki/")
3905     (synopsis "Configure input devices for X server")
3906     (description
3907      "XInput is used to configure and test XInput devices.")
3908     (license license:x11)))
3909
3910
3911 (define xkbcomp-intermediate            ;used as input for xkeyboard-config
3912   (package
3913     (name "xkbcomp-intermediate")
3914     (version "1.4.4")
3915     (source
3916      (origin
3917        (method url-fetch)
3918        (uri (string-append "mirror://xorg/individual/app/xkbcomp-"
3919                            version ".tar.bz2"))
3920        (sha256
3921         (base32
3922          "0zpjkbap9160pdd6jpgb5f0yg5281w0rkkx1l0i7g887lq1ydk2r"))))
3923     (build-system gnu-build-system)
3924     (inputs
3925      `(("xorgproto" ,xorgproto)
3926        ("libxkbfile" ,libxkbfile)
3927        ("libx11" ,libx11)))
3928     (native-inputs
3929      `(("pkg-config" ,pkg-config)))
3930     (home-page "https://www.x.org/wiki/")
3931     (synopsis "Compile XKB keyboard description")
3932     (description
3933      "xkbcomp keymap compiler converts a description of an XKB keymap
3934 into one of several output formats.  The most common use for xkbcomp is
3935 to create a compiled keymap file (.xkm extension) which can be read
3936 directly by XKB- capable X servers or utilities.
3937
3938 X Keyboard (XKB) Extension essentially replaces the core protocol
3939 definition of keyboard.  The extension makes possible to clearly and
3940 explicitly specify most aspects of keyboard behaviour on per-key basis
3941 and to more closely track the logical and physical state of the
3942 keyboard.  It also includes a number of keyboard controls designed to
3943 make keyboards more accessible to people with physical impairments.")
3944     (license license:x11)))
3945
3946 (define-public xkbcomp ; using xkeyboard-config as input
3947   (package (inherit xkbcomp-intermediate)
3948     (name "xkbcomp")
3949     (inputs
3950       `(,@(package-inputs xkbcomp-intermediate)
3951         ("xkeyboard-config" ,xkeyboard-config)))
3952     (arguments
3953      `(#:configure-flags
3954        (list (string-append "--with-xkb-config-root="
3955                             (assoc-ref %build-inputs "xkeyboard-config")
3956                             "/share/X11/xkb"))))))
3957
3958
3959 (define-public xkbevd
3960   (package
3961     (name "xkbevd")
3962     (version "1.1.4")
3963     (source
3964       (origin
3965         (method url-fetch)
3966         (uri (string-append
3967                "mirror://xorg/individual/app/xkbevd-"
3968                version
3969                ".tar.bz2"))
3970         (sha256
3971           (base32
3972             "0sprjx8i86ljk0l7ldzbz2xlk8916z5zh78cafjv8k1a63js4c14"))))
3973     (build-system gnu-build-system)
3974     (inputs
3975       `(("libxkbfile" ,libxkbfile)
3976         ("libx11" ,libx11)))
3977     (native-inputs
3978       `(("pkg-config" ,pkg-config)))
3979     (home-page "https://www.x.org/wiki/")
3980     (synopsis "XKB event daemon demo")
3981     (description
3982      "XKB event daemon listens for the specified XKB events and executes
3983 requested commands if they occur.")
3984     (license license:x11)))
3985
3986
3987 (define-public xkbutils
3988   (package
3989     (name "xkbutils")
3990     (version "1.0.4")
3991     (source
3992       (origin
3993         (method url-fetch)
3994         (uri (string-append
3995                "mirror://xorg/individual/app/xkbutils-"
3996                version
3997                ".tar.bz2"))
3998         (sha256
3999           (base32
4000             "0c412isxl65wplhl7nsk12vxlri29lk48g3p52hbrs3m0awqm8fj"))))
4001     (build-system gnu-build-system)
4002     (inputs
4003       `(("libxt" ,libxt)
4004         ("libxaw" ,libxaw)
4005         ("xorgproto" ,xorgproto)))
4006     (native-inputs
4007       `(("pkg-config" ,pkg-config)))
4008     (home-page "https://www.x.org/wiki/")
4009     (synopsis "XKB utilities")
4010     (description
4011      "XKBUtils is a collection of small utilities for X Keyboard (XKB)
4012 extension to the X11 protocol.  It includes:
4013
4014 - xkbbell: generate XKB bell events;
4015
4016 - xkbvleds: display the state of LEDs on an XKB keyboard in a window;
4017
4018 - xkbwatch: reports changes in the XKB keyboard state.")
4019     (license license:x11)))
4020
4021
4022 (define-public xkeyboard-config
4023   (package
4024     (name "xkeyboard-config")
4025     (version "2.31")
4026     (source
4027       (origin
4028         (method url-fetch)
4029         (uri (string-append
4030               "mirror://xorg/individual/data/xkeyboard-config/xkeyboard-config-"
4031               version
4032               ".tar.bz2"))
4033         (sha256
4034           (base32
4035             "18xddaxh83zm698syh50w983jg6b7b8zgv0dfaf7ha485hgihi6s"))))
4036     (build-system gnu-build-system)
4037     (inputs
4038       `(("libx11" ,libx11)
4039         ("xkbcomp-intermediate" ,xkbcomp-intermediate)))
4040     (native-inputs
4041       `(("gettext" ,gettext-minimal)
4042         ("perl" ,perl)
4043         ("pkg-config" ,pkg-config)
4044         ("python" ,python)))
4045     (home-page "https://www.x.org/wiki/")
4046     (synopsis "Xorg XKB configuration files")
4047     (description
4048      "xkeyboard-config provides a database for X Keyboard (XKB) Extension.
4049 There are five components that define a complete keyboard mapping:
4050 symbols, geometry, keycodes, compat, and types; these five components
4051 can be combined together using the @code{rules} component of this database.")
4052     (license license:x11)))
4053
4054
4055 (define-public xkill
4056   (package
4057     (name "xkill")
4058     (version "1.0.5")
4059     (source
4060       (origin
4061         (method url-fetch)
4062         (uri (string-append
4063                "mirror://xorg/individual/app/xkill-"
4064                version
4065                ".tar.bz2"))
4066         (sha256
4067           (base32
4068             "0szzd9nzn0ybkhnfyizb876irwnjsnb78rcaxx6prb71jmmbpw65"))))
4069     (build-system gnu-build-system)
4070     (inputs
4071       `(("libxmu" ,libxmu)
4072         ("libx11" ,libx11)))
4073     (native-inputs
4074        `(("pkg-config" ,pkg-config)))
4075     (home-page "https://www.x.org/wiki/")
4076     (synopsis "Kill a client by its X resource")
4077     (description
4078      "XKill is used to force the X server to close connections to
4079 clients.  This program is very dangerous, but is useful for aborting
4080 programs that have displayed undesired windows on a user's screen.")
4081     (license license:x11)))
4082
4083
4084 (define-public xlsatoms
4085   (package
4086     (name "xlsatoms")
4087     (version "1.1.3")
4088     (source
4089       (origin
4090         (method url-fetch)
4091         (uri (string-append
4092                "mirror://xorg/individual/app/xlsatoms-"
4093                version
4094                ".tar.bz2"))
4095         (sha256
4096           (base32
4097             "10m3a046jvaw5ywx4y65kl84lsxqan70gww1g1r7cf96ijaqz1jp"))))
4098     (build-system gnu-build-system)
4099     (inputs
4100       `(("libxcb" ,libxcb)))
4101     (native-inputs
4102       `(("pkg-config" ,pkg-config)))
4103     (home-page "https://gitlab.freedesktop.org/xorg/app/xlsatoms")
4104     (synopsis "List interned X server atoms")
4105     (description
4106      "XLsAtoms is used to list the interned atoms defined on X server.")
4107     (license license:x11)))
4108
4109
4110 (define-public xlsclients
4111   (package
4112     (name "xlsclients")
4113     (version "1.1.4")
4114     (source
4115       (origin
4116         (method url-fetch)
4117         (uri (string-append
4118                "mirror://xorg/individual/app/xlsclients-"
4119                version
4120                ".tar.bz2"))
4121         (sha256
4122           (base32
4123             "1h8931sn34mcip6vpi4v7hdmr1r58gkbw4s2p97w98kykks2lgvp"))))
4124     (build-system gnu-build-system)
4125     (inputs
4126       `(("libxcb" ,libxcb)))
4127     (native-inputs
4128       `(("pkg-config" ,pkg-config)))
4129     (home-page "https://www.x.org/wiki/")
4130     (synopsis "List client applications running on a display")
4131     (description
4132      "XLsClients is used to list information about the client programs
4133 running on X server.")
4134     (license license:x11)))
4135
4136
4137 (define-public xlsfonts
4138   (package
4139     (name "xlsfonts")
4140     (version "1.0.6")
4141     (source
4142      (origin
4143        (method url-fetch)
4144        (uri (string-append
4145              "mirror://xorg/individual/app/xlsfonts-"
4146              version
4147              ".tar.bz2"))
4148        (sha256
4149         (base32
4150          "0s6kxgv78chkwsqmhw929f4pf91gq63f4yvixxnan1h00cx0pf49"))))
4151     (build-system gnu-build-system)
4152     (inputs
4153      `(("xorgproto" ,xorgproto)
4154        ("libx11" ,libx11)))
4155     (native-inputs
4156      `(("pkg-config" ,pkg-config)))
4157     (home-page "https://www.x.org/wiki/")
4158     (synopsis "List fonts available from an X server")
4159     (description
4160      "xlsfonts lists fonts available from an X server via the X11 core
4161 protocol.")
4162     (license license:x11)))
4163
4164 (define-public xfontsel
4165   (package
4166     (name "xfontsel")
4167     (version "1.0.6")
4168     (source (origin
4169               (method url-fetch)
4170               (uri (string-append
4171                     "mirror://xorg/individual/app/xfontsel-"
4172                     version ".tar.bz2"))
4173               (sha256
4174                (base32
4175                 "0700lf6hx7dg88wq1yll7zjvf9gbwh06xff20yffkxb289y0pai5"))))
4176     (build-system gnu-build-system)
4177     (arguments
4178      `(#:configure-flags
4179        (list (string-append "--with-appdefaultdir="
4180                             %output ,%app-defaults-dir))))
4181     (inputs
4182      `(("libx11" ,libx11)
4183        ("libxaw" ,libxaw)
4184        ("libxmu" ,libxmu)
4185        ("libxt" ,libxt)))
4186     (native-inputs
4187      `(("pkg-config" ,pkg-config)))
4188     (home-page "https://www.x.org/wiki/")
4189     (synopsis "Browse and select X font names")
4190     (description
4191      "XFontSel provides a simple way to display the X11 core protocol fonts
4192 known to your X server, examine samples of each, and retrieve the X Logical
4193 Font Description (XLFD) full name for a font.")
4194     (license license:x11)))
4195
4196 (define-public xfd
4197   (package
4198     (name "xfd")
4199     (version "1.1.3")
4200     (source (origin
4201               (method url-fetch)
4202               (uri (string-append
4203                     "mirror://xorg/individual/app/xfd-"
4204                     version ".tar.bz2"))
4205               (sha256
4206                (base32
4207                 "0n6r1v8sm0z0ycqch035xpm46nv5v4mav3kxh36883l3ln5r6bqr"))))
4208     (build-system gnu-build-system)
4209     (arguments
4210        `(#:configure-flags
4211          (list (string-append "--with-appdefaultdir="
4212                               %output ,%app-defaults-dir))))
4213     (inputs
4214      `(("fontconfig" ,fontconfig)
4215        ("libx11" ,libx11)
4216        ("libxaw" ,libxaw)
4217        ("libxft" ,libxft)
4218        ("libxmu" ,libxmu)
4219        ("libxrender" ,libxrender)
4220        ("libxkbfile" ,libxkbfile)))
4221     (native-inputs
4222      `(("gettext" ,gettext-minimal)
4223        ("pkg-config" ,pkg-config)))
4224     (home-page "https://www.x.org/wiki/")
4225     (synopsis "Display all the characters in an X font")
4226     (description
4227      "XFD (X Font Display) package provides an utility that displays a
4228 window containing the name of the font being displayed, a row of command
4229 buttons, several lines of text for displaying character metrics, and a grid
4230 containing one glyph per cell.")
4231     (license license:x11)))
4232
4233 (define-public xmodmap
4234   (package
4235     (name "xmodmap")
4236     (version "1.0.10")
4237     (source
4238       (origin
4239         (method url-fetch)
4240         (uri (string-append
4241                "mirror://xorg/individual/app/xmodmap-"
4242                version
4243                ".tar.bz2"))
4244         (sha256
4245           (base32
4246             "0z28331i2pm16x671fa9qwsfqdmr6a43bzwmp0dm17a3sx0hjgs7"))))
4247     (build-system gnu-build-system)
4248     (inputs
4249       `(("xorgproto" ,xorgproto)
4250         ("libx11" ,libx11)))
4251     (native-inputs
4252       `(("pkg-config" ,pkg-config)))
4253     (home-page "https://gitlab.freedesktop.org/xorg/app/xmodmap")
4254     (synopsis "Modify keymaps and button mappings on X server")
4255     (description
4256      "Xmodmap is used to display and edit the keyboard modifier map and
4257 keymap table that are used by client programs running on X server to
4258 convert event keycodes into keysyms.  It is usually run from the user's
4259 session startup script to configure the keyboard according to personal
4260 tastes.")
4261     (license license:x11)))
4262
4263
4264 ;; no license
4265 ;; (define-public xorg-docs
4266
4267
4268 (define-public xorg-sgml-doctools
4269   (package
4270     (name "xorg-sgml-doctools")
4271     (version "1.11")
4272     (source
4273       (origin
4274         (method url-fetch)
4275         (uri (string-append
4276                "mirror://xorg/individual/doc/xorg-sgml-doctools-"
4277                version
4278                ".tar.bz2"))
4279         (sha256
4280           (base32
4281             "0k5pffyi5bx8dmfn033cyhgd3gf6viqj3x769fqixifwhbgy2777"))))
4282     (build-system gnu-build-system)
4283     (native-inputs `(("pkg-config" ,pkg-config)))
4284     (home-page "https://www.x.org/wiki/")
4285     (synopsis "Xorg SGML documentation tools")
4286     (description
4287     "This package provides a common set of SGML entities and XML/CSS style
4288 sheets used in building/formatting the documentation provided in other
4289 Xorg packages.  It's typically only needed by people building from
4290 source who want to produce formatted documentation from their builds, or
4291 those who have installed the HTML version of the documentation, which
4292 refers to the included common xorg.css stylesheet.")
4293     (license license:x11)))
4294
4295
4296 (define-public xpr
4297   (package
4298     (name "xpr")
4299     (version "1.0.5")
4300     (source
4301       (origin
4302         (method url-fetch)
4303         (uri (string-append
4304                "mirror://xorg/individual/app/xpr-"
4305                version
4306                ".tar.bz2"))
4307         (sha256
4308           (base32
4309             "07qy9lwjvxighcmg6qvjkgagad3wwvidrfx0jz85lgynz3qy0dmr"))))
4310     (build-system gnu-build-system)
4311     (inputs
4312       `(("xorgproto" ,xorgproto)
4313         ("libxmu" ,libxmu)
4314         ("libx11" ,libx11)))
4315     (native-inputs
4316         `(("pkg-config" ,pkg-config)))
4317     (home-page "https://www.x.org/wiki/")
4318     (synopsis "Print an X window dump from xwd")
4319     (description
4320      "XPr takes as input a window dump file produced by xwd and formats
4321 it for output on various types of printers.")
4322     (license license:x11)))
4323
4324
4325 (define-public xprop
4326   (package
4327     (name "xprop")
4328     (version "1.2.5")
4329     (source
4330      (origin
4331        (method url-fetch)
4332        (uri (string-append "mirror://xorg/individual/app/xprop-"
4333                            version ".tar.bz2"))
4334        (sha256
4335         (base32
4336          "18ckr8g1z50zkc01hprkpm1npwbq32yqib4b3l98c95z2q1yv4lv"))))
4337     (build-system gnu-build-system)
4338     (inputs
4339      `(("libx11" ,libx11)
4340        ("xorgproto" ,xorgproto)))
4341     (native-inputs
4342      `(("pkg-config" ,pkg-config)))
4343     (home-page "https://www.x.org/wiki/")
4344     (synopsis "Display X server properties")
4345     (description
4346      "xprop is used to display and/or set window and font properties of
4347 an X server.")
4348     (license license:x11)))
4349
4350
4351 (define-public xrandr
4352   (package
4353     (name "xrandr")
4354     (version "1.5.1")
4355     (source
4356       (origin
4357         (method url-fetch)
4358         (uri (string-append
4359                "mirror://xorg/individual/app/xrandr-"
4360                version ".tar.xz"))
4361         (sha256
4362           (base32
4363             "0ql75s1n3dm2m3g1ilb9l6hqh15r0v709bgghpwazy3jknpnvivv"))))
4364     (build-system gnu-build-system)
4365     (inputs
4366       `(("libxrender" ,libxrender)
4367         ("libxrandr" ,libxrandr)
4368         ("xorgproto" ,xorgproto)
4369         ("libx11" ,libx11)))
4370     (native-inputs
4371      `(("pkg-config" ,pkg-config)))
4372     (home-page "https://www.x.org/wiki/")
4373     (synopsis "Command line interface to X RandR extension")
4374     (description
4375      "xrandr - primitive command line interface to X11 Resize, Rotate,
4376 and Reflect (RandR) extension.")
4377     (license license:x11)))
4378
4379
4380 (define-public xrdb
4381   (package
4382     (name "xrdb")
4383     (version "1.2.0")
4384     (source
4385       (origin
4386         (method url-fetch)
4387         (uri (string-append
4388                "mirror://xorg/individual/app/xrdb-"
4389                version
4390                ".tar.bz2"))
4391         (sha256
4392           (base32
4393             "0ik9gh6363c47pr0dp7q22nfs8vmavjg2v4bsr0604ppl77nafpj"))))
4394     (build-system gnu-build-system)
4395     (inputs
4396       `(("libxmu" ,libxmu)
4397         ("libx11" ,libx11)))
4398     (native-inputs
4399       `(("pkg-config" ,pkg-config)))
4400     (home-page "https://gitlab.freedesktop.org/xorg/app/xrdb")
4401     (synopsis "X server resource database utility")
4402     (description
4403      "XRDB is used to get or set the contents of the RESOURCE_MANAGER
4404 property on the root window of screen 0, or the SCREEN_RESOURCES
4405 property on the root window of any or all screens, or everything
4406 combined.  You would normally run this program from your X startup
4407 file.")
4408     (license license:x11)))
4409
4410
4411 (define-public xrefresh
4412   (package
4413     (name "xrefresh")
4414     (version "1.0.6")
4415     (source
4416       (origin
4417         (method url-fetch)
4418         (uri (string-append
4419                "mirror://xorg/individual/app/xrefresh-"
4420                version
4421                ".tar.bz2"))
4422         (sha256
4423           (base32
4424             "0lv3rlshh7s0z3aqx5ahnnf8cl082m934bk7gv881mz8nydznz98"))))
4425     (build-system gnu-build-system)
4426     (inputs
4427       `(("libx11" ,libx11)))
4428     (native-inputs
4429       `(("pkg-config" ,pkg-config)))
4430     (home-page "https://www.x.org/wiki/")
4431     (synopsis "Refresh all or part of an X screen")
4432     (description
4433      "Xrefresh is a simple X program that causes all or part of your
4434 screen to be repainted.  This is useful when system messages have messed
4435 up your screen.")
4436     (license license:x11)))
4437
4438
4439 (define-public xset
4440   (package
4441     (name "xset")
4442     (version "1.2.4")
4443     (source
4444       (origin
4445         (method url-fetch)
4446         (uri (string-append
4447                "mirror://xorg/individual/app/xset-"
4448                version
4449                ".tar.bz2"))
4450         (sha256
4451           (base32
4452             "0my987wjvra7l92ry6q44ky383yg3phzxhdbn3lqhapm1ll9bzg4"))))
4453     (build-system gnu-build-system)
4454     (inputs
4455       `(("xorgproto" ,xorgproto)
4456         ("libxmu" ,libxmu)
4457         ("libxext" ,libxext)
4458         ("libx11" ,libx11)))
4459     (native-inputs
4460        `(("pkg-config" ,pkg-config)))
4461     (home-page "https://www.x.org/wiki/")
4462     (synopsis "User preference utility for X server")
4463     (description
4464      "XSet is used to set various user preference options of the display.")
4465     (license license:x11)))
4466
4467
4468 (define-public xsetroot
4469   (package
4470     (name "xsetroot")
4471     (version "1.1.2")
4472     (source
4473       (origin
4474         (method url-fetch)
4475         (uri (string-append
4476                "mirror://xorg/individual/app/xsetroot-"
4477                version
4478                ".tar.bz2"))
4479         (sha256
4480           (base32
4481             "0z21mqvmdl6rl63q77479wgkfygnll57liza1i3va7sr4fx45i0h"))))
4482     (build-system gnu-build-system)
4483     (inputs
4484       `(("libxmu" ,libxmu)
4485         ("libxcursor" ,libxcursor)
4486         ("xbitmaps" ,xbitmaps)))
4487     (native-inputs
4488       `(("pkg-config" ,pkg-config)))
4489     (home-page "https://www.x.org/wiki/")
4490     (synopsis "Root window parameter setting utility for X server")
4491     (description
4492      "XSetRoot allows you to tailor the appearance of the root window on
4493 a display running X server.")
4494     (license license:x11)))
4495
4496
4497 (define-public xtrans
4498   (package
4499     (name "xtrans")
4500     (version "1.4.0")
4501     (source
4502       (origin
4503         (method url-fetch)
4504         (uri (string-append
4505                "mirror://xorg/individual/lib/xtrans-"
4506                version
4507                ".tar.bz2"))
4508         (sha256
4509           (base32
4510             "0wyp0yc6gi72hwc3kjmvm3vkj9p6s407cb6dxx37jh9wb68l8z1p"))))
4511     (build-system gnu-build-system)
4512     (native-inputs `(("pkg-config" ,pkg-config)))
4513     (home-page "https://www.x.org/wiki/")
4514     (synopsis "Xorg Network Transport layer library")
4515     (description
4516      "Xtrans is a library of code that is shared among various X packages to
4517 handle network protocol transport in a modular fashion, allowing a single
4518 place to add new transport types.  It is used by the X server, libX11,
4519 libICE, the X font server, and related components.")
4520     (license license:x11)))
4521
4522
4523 (define-public xvinfo
4524   (package
4525     (name "xvinfo")
4526     (version "1.1.4")
4527     (source
4528       (origin
4529         (method url-fetch)
4530         (uri (string-append
4531                "mirror://xorg/individual/app/xvinfo-"
4532                version
4533                ".tar.bz2"))
4534         (sha256
4535           (base32
4536             "0gz7fvxavqlrqynpfbrm2nc9yx8h0ksnbnv34fj7n1q6cq6j4lq3"))))
4537     (build-system gnu-build-system)
4538     (inputs
4539       `(("libxext" ,libxext)
4540         ("libxv" ,libxv)
4541         ("libx11" ,libx11)))
4542     (native-inputs
4543       `(("pkg-config" ,pkg-config)))
4544     (home-page "https://gitlab.freedesktop.org/xorg/app/xvinfo")
4545     (synopsis "Print out X-Video extension adaptor information")
4546     (description
4547      "XVInfo is used to print out the capabilities of any video adaptors
4548 associated with the display that are accessible through the X-Video
4549 extension.")
4550     (license license:x11)))
4551
4552
4553 (define-public xwd
4554   (package
4555     (name "xwd")
4556     (version "1.0.7")
4557     (source
4558       (origin
4559         (method url-fetch)
4560         (uri (string-append
4561                "mirror://xorg/individual/app/xwd-"
4562                version
4563                ".tar.bz2"))
4564         (sha256
4565           (base32
4566             "1537i8q8pgf0sjklakzfvjwrq5b246qjywrx9ll8xfg0p6w1as6d"))))
4567     (build-system gnu-build-system)
4568     (inputs
4569       `(("libxt" ,libxt)
4570         ("libxkbfile" ,libxkbfile)
4571         ("xorgproto" ,xorgproto)))
4572     (native-inputs
4573        `(("pkg-config" ,pkg-config)))
4574     (home-page "https://www.x.org/wiki/")
4575     (synopsis "Dump current contents of X window or screen to file")
4576     (description
4577      "Xwd is used to store window images in a specially formatted dump
4578 file.  This file can then be read by various other X utilities for
4579 redisplay, printing, editing, formatting, archiving, image processing,
4580 etc.  The target window is selected by clicking the pointer in the
4581 desired window.  The keyboard bell is rung once at the beginning of the
4582 dump and twice when the dump is completed.")
4583     (license license:x11)))
4584
4585
4586 (define-public xwininfo
4587   (package
4588     (name "xwininfo")
4589     (version "1.1.5")
4590     (source
4591       (origin
4592         (method url-fetch)
4593         (uri (string-append
4594                "mirror://xorg/individual/app/xwininfo-"
4595                version
4596                ".tar.bz2"))
4597         (sha256
4598           (base32
4599             "03h8clirhw5ki1xxp18xbf5vynm7r0dwspsgfin6cxn4vx0m8h3s"))))
4600     (build-system gnu-build-system)
4601     (inputs
4602       `(("libx11" ,libx11)
4603         ("xorgproto" ,xorgproto)))
4604     (native-inputs
4605        `(("pkg-config" ,pkg-config)))
4606     (home-page "https://www.x.org/wiki/")
4607     (synopsis "Window information utility for X server")
4608     (description
4609      "XWinInfo is used to print out information about windows on an X server.
4610 Various information is displayed depending on which options are selected.")
4611     (license license:x11)))
4612
4613
4614 (define-public xwud
4615   (package
4616     (name "xwud")
4617     (version "1.0.5")
4618     (source
4619       (origin
4620         (method url-fetch)
4621         (uri (string-append
4622                "mirror://xorg/individual/app/xwud-"
4623                version
4624                ".tar.bz2"))
4625         (sha256
4626           (base32
4627             "1a8hdgy40smvblnh3s9f0vkqckl68nmivx7d48zk34m8z18p16cr"))))
4628     (build-system gnu-build-system)
4629     (inputs
4630       `(("xorgproto" ,xorgproto)
4631         ("libx11" ,libx11)))
4632     (native-inputs
4633        `(("pkg-config" ,pkg-config)))
4634     (home-page "https://www.x.org/wiki/")
4635     (synopsis "Display an X window dump from xwd")
4636     (description
4637      "Xwud is used to display in a window an image saved in a specially
4638 formatted dump file, such as produced by xwd.")
4639     (license license:x11)))
4640
4641 (define-public xorg-rgb
4642   (package
4643     (name "xorg-rgb")
4644     (version "1.0.6")
4645     (source
4646       (origin
4647         (method url-fetch)
4648         (uri (string-append
4649                "mirror://xorg/individual/app/rgb-"
4650                version
4651                ".tar.bz2"))
4652         (sha256
4653           (base32
4654             "1c76zcjs39ljil6f6jpx1x17c8fnvwazz7zvl3vbjfcrlmm7rjmv"))))
4655     (build-system gnu-build-system)
4656     (inputs
4657      `(("xorgproto" ,xorgproto)))
4658     (native-inputs
4659      `(("pkg-config" ,pkg-config)))
4660     (home-page "https://www.x.org/wiki/")
4661     (synopsis "X color name database")
4662     (description
4663      "This package provides the X color name database.")
4664     (license license:x11)))
4665
4666 ;; packages of height 1 in the propagated-inputs tree
4667
4668 (define-public fixesproto
4669   (package
4670     (name "fixesproto")
4671     (version "5.0")
4672     (source
4673       (origin
4674         (method url-fetch)
4675         (uri (string-append
4676                "mirror://xorg/individual/proto/fixesproto-"
4677                version
4678                ".tar.bz2"))
4679         (sha256
4680           (base32
4681             "1ki4wiq2iivx5g4w5ckzbjbap759kfqd72yg18m3zpbb4hqkybxs"))))
4682     (build-system gnu-build-system)
4683     (propagated-inputs
4684       `(("xorgproto" ,xorgproto)))
4685     (native-inputs
4686       `(("pkg-config" ,pkg-config)))
4687     (home-page "https://www.x.org/wiki/")
4688     (synopsis "Xorg FixesProto protocol headers")
4689     (description
4690      "Fixes Extension makes changes to many areas of the protocol to resolve
4691 issues raised by application interaction with core protocol mechanisms that
4692 cannot be adequately worked around on the client side of the wire.")
4693     (license license:x11)
4694     (properties `((superseded . ,xorgproto)))))
4695
4696 (define-public libxdamage
4697   (package
4698     (name "libxdamage")
4699     (version "1.1.5")
4700     (source
4701       (origin
4702         (method url-fetch)
4703         (uri (string-append
4704                "mirror://xorg/individual/lib/libXdamage-"
4705                version
4706                ".tar.bz2"))
4707         (sha256
4708           (base32
4709             "0igaw2akjf712y3rv7lx473jigxmcv9rs9y8sbrvbhya8f30cd5p"))))
4710     (build-system gnu-build-system)
4711     (propagated-inputs
4712       ;; These are all in the Requires or Requires.private field of xdamage.pc
4713       `(("libxfixes" ,libxfixes)
4714         ("xorgproto" ,xorgproto)
4715         ("libx11" ,libx11)))
4716     (native-inputs
4717       `(("pkg-config" ,pkg-config)))
4718     (home-page "https://www.x.org/wiki/")
4719     (synopsis "Xorg Damage Extension library")
4720     (description "Xorg library for the XDamage extension.")
4721     (license license:x11)))
4722
4723
4724 (define-public libxext
4725   (package
4726     (name "libxext")
4727     (version "1.3.4")
4728     (source
4729       (origin
4730         (method url-fetch)
4731         (uri (string-append
4732                "mirror://xorg/individual/lib/libXext-"
4733                version
4734                ".tar.bz2"))
4735         (sha256
4736           (base32
4737             "0azqxllcsfxc3ilhz6kwc6x7m8wc477p59ir9p0yrsldx766zbar"))))
4738     (build-system gnu-build-system)
4739     (arguments
4740      `(#:configure-flags
4741        (list "--disable-static"
4742              ;; Disable zero malloc check that fails when cross-compiling.
4743              ,@(if (%current-target-system)
4744                    '("--disable-malloc0returnsnull")
4745                    '()))))
4746     (propagated-inputs
4747       `(("xorgproto" ,xorgproto)))
4748     (inputs
4749       `(("libxau" ,libxau)
4750         ("libx11" ,libx11)))
4751     (native-inputs
4752       `(("pkg-config" ,pkg-config)))
4753     (home-page "https://www.x.org/wiki/")
4754     (synopsis "Xorg Common extensions library")
4755     (description
4756      "Library for common extensions to the X11 protocol.")
4757     (license license:x11)))
4758
4759
4760 (define-public libxinerama
4761   (package
4762     (name "libxinerama")
4763     (version "1.1.4")
4764     (source
4765       (origin
4766         (method url-fetch)
4767         (uri (string-append
4768                "mirror://xorg/individual/lib/libXinerama-"
4769                version
4770                ".tar.bz2"))
4771         (sha256
4772           (base32
4773             "086p0axqj57nvkaqa6r00dnr9kyrn1m8blgf0zjy25zpxkbxn200"))))
4774     (build-system gnu-build-system)
4775     (arguments
4776      '(#:configure-flags '("--disable-static")))
4777     (propagated-inputs
4778       `(("xorgproto" ,xorgproto)))
4779     (inputs
4780       `(("libxext" ,libxext)
4781         ("libx11" ,libx11)))
4782     (native-inputs
4783       `(("pkg-config" ,pkg-config)))
4784     (home-page "https://www.x.org/wiki/")
4785     (synopsis "Xorg Xinerama protocol library")
4786     (description "API for Xinerama extension to X11 protocol.")
4787     (license license:x11)))
4788
4789
4790 (define-public libxp
4791   (package
4792     (name "libxp")
4793     (version "1.0.3")
4794     (source
4795       (origin
4796         (method url-fetch)
4797         (uri (string-append
4798                "mirror://xorg/individual/lib/libXp-"
4799                version
4800                ".tar.bz2"))
4801         (sha256
4802           (base32
4803             "0mwc2jwmq03b1m9ihax5c6gw2ln8rc70zz4fsj3kb7440nchqdkz"))))
4804     (build-system gnu-build-system)
4805     (propagated-inputs
4806       `(("printproto" ,printproto)))
4807     (inputs
4808       `(("libx11" ,libx11)
4809         ("libxext" ,libxext)))
4810     (native-inputs
4811       `(("pkg-config" ,pkg-config)))
4812     (home-page "https://www.x.org/wiki/")
4813     (synopsis "Xorg Print Client library")
4814     (description "Xorg Print Client library.")
4815     (license license:x11)))
4816
4817
4818 (define-public libxrender
4819   (package
4820     (name "libxrender")
4821     (version "0.9.10")
4822     (source
4823       (origin
4824         (method url-fetch)
4825         (uri (string-append
4826                "mirror://xorg/individual/lib/libXrender-"
4827                version
4828                ".tar.bz2"))
4829         (sha256
4830           (base32
4831             "0j89cnb06g8x79wmmnwzykgkkfdhin9j7hjpvsxwlr3fz1wmjvf0"))))
4832     (build-system gnu-build-system)
4833     (arguments
4834      `(#:configure-flags
4835        (list "--disable-static"
4836              ;; Disable zero malloc check that fails when cross-compiling.
4837              ,@(if (%current-target-system)
4838                    '("--disable-malloc0returnsnull")
4839                    '()))))
4840     (propagated-inputs
4841       `(("xorgproto" ,xorgproto)))
4842     (inputs
4843       `(("libx11" ,libx11)))
4844     (native-inputs
4845       `(("pkg-config" ,pkg-config)))
4846     (home-page "https://www.x.org/wiki/")
4847     (synopsis "Xorg Render Extension library")
4848     (description "Library for the Render Extension to the X11 protocol.")
4849     (license license:x11)))
4850
4851 (define-public libxtst
4852   (package
4853     (name "libxtst")
4854     (version "1.2.3")
4855     (source
4856       (origin
4857         (method url-fetch)
4858         (uri (string-append
4859                "mirror://xorg/individual/lib/libXtst-"
4860                version
4861                ".tar.bz2"))
4862         (sha256
4863           (base32
4864             "012jpyj7xfm653a9jcfqbzxyywdmwb2b5wr1dwylx14f3f54jma6"))))
4865     (build-system gnu-build-system)
4866     (arguments
4867      '(#:configure-flags '("--disable-static")))
4868     (propagated-inputs
4869      `(("libxi" ,libxi)
4870        ("xorgproto" ,xorgproto)))
4871     (inputs
4872       `(("libx11" ,libx11)))
4873     (native-inputs
4874       `(("pkg-config" ,pkg-config)))
4875     (home-page "https://www.x.org/wiki/")
4876     (synopsis "Xorg library for Xtest and Record extensions")
4877     (description
4878      "libXtst provides the Xlib-based client API for the XTEST & RECORD
4879 extensions.
4880
4881 The XTEST extension is a minimal set of client and server extensions
4882 required to completely test the X11 server with no user intervention.  This
4883 extension is not intended to support general journaling and playback of user
4884 actions.
4885
4886 The RECORD extension supports the recording and reporting of all core X
4887 protocol and arbitrary X extension protocol.")
4888     (license license:x11)))
4889
4890 (define-public libxv
4891   (package
4892     (name "libxv")
4893     (version "1.0.11")
4894     (source
4895       (origin
4896         (method url-fetch)
4897         (uri (string-append
4898                "mirror://xorg/individual/lib/libXv-"
4899                version
4900                ".tar.bz2"))
4901         (sha256
4902           (base32
4903             "125hn06bd3d8y97hm2pbf5j55gg4r2hpd3ifad651i4sr7m16v6j"))))
4904     (build-system gnu-build-system)
4905     (arguments
4906      '(#:configure-flags '("--disable-static")))
4907     (propagated-inputs
4908      `(("xorgproto" ,xorgproto)))
4909     (inputs
4910       `(("libxext" ,libxext)
4911         ("libx11" ,libx11)))
4912     (native-inputs
4913       `(("pkg-config" ,pkg-config)))
4914     (home-page "https://www.x.org/wiki/")
4915     (synopsis "Xorg XVideo Extension library")
4916     (description "Library for the X Video Extension to the X11 protocol.")
4917     (license license:x11)))
4918
4919 (define-public mkfontdir
4920   (package
4921     (name "mkfontdir")
4922     (version "1.0.7")
4923     (source
4924       (origin
4925         (method url-fetch)
4926         (uri (string-append
4927                "mirror://xorg/individual/app/mkfontdir-"
4928                version
4929                ".tar.bz2"))
4930         (sha256
4931           (base32
4932             "0c3563kw9fg15dpgx4dwvl12qz6sdqdns1pxa574hc7i5m42mman"))))
4933     (build-system gnu-build-system)
4934     (arguments
4935      `(#:phases
4936        (modify-phases %standard-phases
4937          (add-after 'unpack 'fix-configure
4938            (lambda* (#:key inputs native-inputs #:allow-other-keys)
4939              ;; Replace outdated config.sub and config.guess:
4940              (for-each (lambda (file)
4941                          (install-file (string-append
4942                                         (assoc-ref
4943                                          (or native-inputs inputs) "automake")
4944                                         "/share/automake-"
4945                                         ,(version-major+minor
4946                                           (package-version automake))
4947                                         "/" file) "."))
4948                        '("config.sub" "config.guess"))
4949              #t))
4950          (add-after 'install 'wrap-mkfontdir
4951            (lambda* (#:key inputs outputs #:allow-other-keys)
4952              (wrap-program (string-append (assoc-ref outputs "out")
4953                                           "/bin/mkfontdir")
4954                `("PATH" ":" prefix
4955                  (,(string-append (assoc-ref inputs "mkfontscale")
4956                                   "/bin"))))
4957              #t)))))
4958     (inputs
4959       `(("mkfontscale" ,mkfontscale)))
4960     (native-inputs
4961      `(("pkg-config" ,pkg-config)
4962        ("automake" ,automake))) ;For up to date 'config.guess' and 'config.sub'.
4963     (home-page "https://www.x.org/wiki/")
4964     (synopsis "Create an index of X font files in a directory")
4965     (description
4966      "MkFontDir creates the @code{fonts.dir} files needed by the legacy X
4967 server core font system.  The current implementation is a simple wrapper
4968 script around the mkfontscale program.")
4969     (license license:x11)))
4970
4971 (define-public xproto
4972   (package
4973     (name "xproto")
4974     (version "7.0.31")
4975     (source
4976       (origin
4977         (method url-fetch)
4978         (uri (string-append
4979                "mirror://xorg/individual/proto/xproto-"
4980                version
4981                ".tar.bz2"))
4982         (sha256
4983           (base32
4984             "0ivpxz0rx2a7nahkpkhfgymz7j0pwzaqvyqpdgw9afmxl1yp9yf6"))))
4985     (build-system gnu-build-system)
4986     (propagated-inputs
4987       `(("util-macros" ,util-macros))) ; to get util-macros in (almost?) all package inputs
4988     (native-inputs
4989       `(("pkg-config" ,pkg-config)))
4990     (home-page "https://www.x.org/wiki/")
4991     (synopsis "Xorg X11Proto protocol headers")
4992     (description
4993      "XProto provides the headers and specification documents defining
4994 the X Window System Core Protocol, Version 11.
4995
4996 It also includes a number of headers that aren't purely protocol related,
4997 but are depended upon by many other X Window System packages to provide
4998 common definitions and porting layer.")
4999     (license license:x11)
5000     (properties `((superseded . ,xorgproto)))))
5001
5002 ;; packages of height 2 in the propagated-inputs tree
5003
5004 (define-public libice
5005   (package
5006     (name "libice")
5007     (version "1.0.10")
5008     (source
5009       (origin
5010         (method url-fetch)
5011         (uri (string-append
5012                "mirror://xorg/individual/lib/libICE-"
5013                version
5014                ".tar.bz2"))
5015         (sha256
5016           (base32
5017             "0j638yvmyna2k4mz465jywgdybgdchdqppfx6xfazg7l5khxr1kg"))))
5018     (build-system gnu-build-system)
5019     (arguments
5020      '(#:configure-flags '("--disable-static")))
5021     (propagated-inputs
5022       `(("xorgproto" ,xorgproto)))
5023     (inputs
5024       `(("libbsd" ,libbsd)
5025         ("xtrans" ,xtrans)))
5026     (native-inputs
5027       `(("pkg-config" ,pkg-config)))
5028     (home-page "https://www.x.org/wiki/")
5029     (synopsis "Xorg Inter-Client Exchange library")
5030     (description "Xorg Inter-Client Exchange library.")
5031     (license license:x11)))
5032
5033
5034 (define-public libxau
5035   (package
5036     (name "libxau")
5037     (version "1.0.9")
5038     (source
5039       (origin
5040         (method url-fetch)
5041         (uri (string-append
5042                "mirror://xorg/individual/lib/libXau-"
5043                version
5044                ".tar.bz2"))
5045         (sha256
5046           (base32
5047             "1v3krc6x0zliaa66qq1bf9j60x5nqfy68v8axaiglxpnvgqcpy6c"))))
5048     (build-system gnu-build-system)
5049     (arguments
5050      '(#:configure-flags '("--disable-static")))
5051     (propagated-inputs
5052       `(("xorgproto" ,xorgproto)))
5053     (native-inputs
5054       `(("pkg-config" ,pkg-config)))
5055     (home-page "https://www.x.org/wiki/")
5056     (synopsis "Xorg Authorization library")
5057     (description
5058      "libXau provides an authorization library for individual access to
5059 an X Window System display.")
5060     (license license:x11)))
5061
5062 (define-public libxfixes
5063   (package
5064     (name "libxfixes")
5065     (version "5.0.3")
5066     (source
5067       (origin
5068         (method url-fetch)
5069         (uri (string-append
5070                "mirror://xorg/individual/lib/libXfixes-"
5071                version
5072                ".tar.bz2"))
5073         (sha256
5074           (base32
5075             "1miana3y4hwdqdparsccmygqr3ic3hs5jrqfzp70hvi2zwxd676y"))))
5076     (build-system gnu-build-system)
5077     (arguments
5078      '(#:configure-flags '("--disable-static")))
5079     (propagated-inputs
5080       `(("xorgproto" ,xorgproto)))
5081     (inputs
5082       `(("libx11" ,libx11)))
5083     (native-inputs
5084       `(("pkg-config" ,pkg-config)))
5085     (home-page "https://www.x.org/wiki/")
5086     (synopsis "Xorg Fixes Extension library")
5087     (description "Library for the XFixes Extension to the X11 protocol.")
5088     (license license:x11)))
5089
5090 (define-public libxfont
5091   (package
5092     (name "libxfont")
5093     (version "1.5.4")
5094     (source
5095       (origin
5096         (method url-fetch)
5097         (uri (string-append
5098                "mirror://xorg/individual/lib/libXfont-"
5099                version
5100                ".tar.bz2"))
5101         (sha256
5102           (base32
5103             "0hiji1bvpl78aj3a3141hkk353aich71wv8l5l2z51scfy878zqs"))))
5104     (build-system gnu-build-system)
5105     (arguments
5106      '(#:configure-flags '("--disable-static")))
5107     (propagated-inputs
5108       `(("freetype" ,freetype)
5109         ("libfontenc" ,libfontenc)
5110         ("xorgproto" ,xorgproto)))
5111     (inputs
5112       `(("zlib" ,zlib)
5113         ("xtrans" ,xtrans)))
5114     (native-inputs
5115        `(("pkg-config" ,pkg-config)))
5116     (home-page "https://www.x.org/wiki/")
5117     (synopsis "Xorg Font handling library")
5118     (description
5119      "libXfont provides the core of the legacy X11 font system, handling the
5120 index files (fonts.dir, fonts.alias, fonts.scale), the various font file
5121 formats, and rasterizing them.  It is used by the X servers, the X Font
5122 Server (xfs), and some font utilities (bdftopcf for instance), but should
5123 not be used by normal X11 clients.  X11 clients access fonts via either the
5124 new API's in libXft, or the legacy API's in libX11.")
5125     (license license:x11)))
5126
5127 (define-public libxfont2
5128   (package
5129     (inherit libxfont)
5130     (version "2.0.4")
5131     (source (origin
5132               (method url-fetch)
5133               (uri (string-append "mirror://xorg/individual/lib/libXfont2-"
5134                                   version ".tar.bz2"))
5135               (sha256
5136                (base32
5137                 "1rk9pjxcm01lbr1dxhnvk4f2qrn6zp068qjbvvz5w0z5d0rin5bd"))))))
5138
5139 (define-public libxi
5140   (package
5141     (name "libxi")
5142     (version "1.7.10")
5143     (source
5144       (origin
5145         (method url-fetch)
5146         (uri (string-append
5147                "mirror://xorg/individual/lib/libXi-"
5148                version
5149                ".tar.bz2"))
5150         (sha256
5151           (base32
5152             "0q8hz3slga3w3ch8wp0k7ay9ilhz315qnab0w1y2x9w3cf7hv8rn"))))
5153     (build-system gnu-build-system)
5154     (arguments
5155      '(#:configure-flags '("--disable-static")))
5156     (propagated-inputs
5157       `(("xorgproto" ,xorgproto)
5158         ("libx11" ,libx11)
5159         ("libxext" ,libxext)
5160         ("libxfixes" ,libxfixes)))
5161     (native-inputs
5162        `(("pkg-config" ,pkg-config)))
5163     (home-page "https://www.x.org/wiki/")
5164     (synopsis "Xorg Input Extension library")
5165     (description "Library for the XInput Extension to the X11 protocol.")
5166     (license license:x11)))
5167
5168 (define-public libxrandr
5169   (package
5170     (name "libxrandr")
5171     (version "1.5.2")
5172     (source
5173       (origin
5174         (method url-fetch)
5175         (uri (string-append
5176                "mirror://xorg/individual/lib/libXrandr-"
5177                version
5178                ".tar.bz2"))
5179         (sha256
5180           (base32
5181             "08z0mqywrm7ij8bxlfrx0d2wy6kladdmkva1nw5k6qix82z0xsla"))))
5182     (build-system gnu-build-system)
5183     (arguments
5184      '(#:configure-flags '("--disable-static")))
5185     (propagated-inputs
5186       ;; In accordance with xrandr.pc.
5187       `(("libx11" ,libx11)
5188         ("libxext" ,libxext)
5189         ("libxrender" ,libxrender)
5190         ("xorgproto" ,xorgproto)))
5191     (native-inputs
5192        `(("pkg-config" ,pkg-config)))
5193     (home-page "https://www.x.org/wiki/")
5194     (synopsis "Xorg Resize and Rotate Extension library")
5195     (description
5196      "Library for the Resize and Rotate Extension to the X11 protocol.")
5197     (license license:x11)))
5198
5199 (define-public libxvmc
5200   (package
5201     (name "libxvmc")
5202     (version "1.0.12")
5203     (source
5204       (origin
5205         (method url-fetch)
5206         (uri (string-append
5207                "mirror://xorg/individual/lib/libXvMC-"
5208                version
5209                ".tar.bz2"))
5210         (sha256
5211           (base32
5212             "1kbdjsvkm5l7axv7g477qj18sab2wnqhliy6197syzizgfbsfgbb"))))
5213     (build-system gnu-build-system)
5214     (arguments
5215      '(#:configure-flags '("--disable-static")))
5216     (propagated-inputs
5217       `(("libxv" ,libxv)))
5218     (inputs
5219       `(("xorgproto" ,xorgproto)
5220         ("libxext" ,libxext)
5221         ("libx11" ,libx11)))
5222     (native-inputs
5223        `(("pkg-config" ,pkg-config)))
5224     (home-page "https://www.x.org/wiki/")
5225     (synopsis "Xorg XvMC library")
5226     (description "Xorg XvMC library.")
5227     (license license:x11)))
5228
5229 (define-public libxxf86vm
5230   (package
5231     (name "libxxf86vm")
5232     (version "1.1.4")
5233     (source
5234       (origin
5235         (method url-fetch)
5236         (uri (string-append
5237                "mirror://xorg/individual/lib/libXxf86vm-"
5238                version
5239                ".tar.bz2"))
5240         (sha256
5241           (base32
5242             "0mydhlyn72i7brjwypsqrpkls3nm6vxw0li8b2nw0caz7kwjgvmg"))))
5243     (build-system gnu-build-system)
5244     (arguments
5245      '(#:configure-flags '("--disable-static")))
5246     (propagated-inputs
5247       `(("libxext" ,libxext)
5248         ("xorgproto" ,xorgproto)))
5249     (inputs
5250       `(("libx11" ,libx11)))
5251     (native-inputs
5252        `(("pkg-config" ,pkg-config)))
5253     (home-page "https://www.x.org/wiki/")
5254     (synopsis "Xorg XF86 Video Mode Extension library")
5255     (description
5256      "Library for the XFree86 Video Mode Extension Extension to the X11
5257 protocol.")
5258     (license license:x11)))
5259
5260
5261 ;; packages of height 3 in the propagated-inputs tree
5262
5263 (define-public libxcb
5264   (package
5265     (name "libxcb")
5266     (version "1.14")
5267     (source
5268       (origin
5269         (method url-fetch)
5270         (uri (string-append "https://xcb.freedesktop.org/dist/"
5271                             "libxcb-" version ".tar.xz"))
5272         (sha256
5273           (base32
5274            "0d2chjgyn5lr9sfhacfvqgnj9l9faz11vn322a06jd6lk3dxcpm5"))))
5275     (build-system gnu-build-system)
5276     (propagated-inputs
5277       `(("libpthread-stubs" ,libpthread-stubs)
5278         ("libxau" ,libxau)
5279         ("libxdmcp" ,libxdmcp)))
5280     (inputs
5281       `(("xcb-proto" ,xcb-proto)
5282         ("libxslt" ,libxslt)))
5283     (native-inputs
5284       `(("pkg-config" ,pkg-config)
5285         ("python" ,python-minimal-wrapper)))
5286     (arguments
5287      `(#:configure-flags '("--enable-xkb"
5288                            "--disable-static")))
5289     (home-page "https://xcb.freedesktop.org/")
5290     (synopsis "The X C Binding (XCB) library")
5291     (description
5292      "libxcb provides an interface to the X Window System protocol,
5293 which replaces the current Xlib interface.  It has several advantages
5294 over Xlib, including:
5295
5296 - size: small, simple library, and lower memory footprint;
5297
5298 - latency hiding: batch several requests and wait for the replies later;
5299
5300 - direct protocol access: interface and protocol correspond exactly;
5301
5302 - proven thread support: transparently access XCB from multiple threads;
5303
5304 - easy extension implementation: interfaces auto-generated from XML-XCB.")
5305     (license license:x11)))
5306
5307
5308 (define-public xorg-server
5309   (package
5310     (name "xorg-server")
5311     (version "1.20.11")
5312     (source
5313       (origin
5314         (method url-fetch)
5315         (uri (string-append "mirror://xorg/individual/xserver/"
5316                             "xorg-server-" version ".tar.bz2"))
5317         (sha256
5318          (base32
5319           "0jacqgin8kcyy8fyv0lhgb4if8g9hp60rm3ih3s1mgps7xp7jk4i"))
5320         (patches
5321          (list
5322           ;; See:
5323           ;;   https://lists.fedoraproject.org/archives/list/devel@lists.
5324           ;;      fedoraproject.org/message/JU655YB7AM4OOEQ4MOMCRHJTYJ76VFOK/
5325           (origin
5326             (method url-fetch)
5327             (uri (string-append
5328                   "http://pkgs.fedoraproject.org/cgit/rpms/xorg-x11-server.git"
5329                   "/plain/06_use-intel-only-on-pre-gen4.diff"))
5330             (sha256
5331              (base32
5332               "0mm70y058r8s9y9jiv7q2myv0ycnaw3iqzm7d274410s0ik38w7q"))
5333             (file-name "xorg-server-use-intel-only-on-pre-gen4.diff"))))))
5334     (build-system gnu-build-system)
5335     (propagated-inputs
5336       `(("libpciaccess" ,libpciaccess)
5337         ("mesa" ,mesa)
5338         ("pixman" ,pixman)
5339         ("xorgproto" ,xorgproto)))
5340     (inputs
5341       `(("udev" ,eudev)
5342         ("dbus" ,dbus)
5343         ("libdmx" ,libdmx)
5344         ("libepoxy" ,libepoxy)
5345         ("libgcrypt" ,libgcrypt)
5346         ("libxau" ,libxau)
5347         ("libxaw" ,libxaw)
5348         ("libxdmcp" ,libxdmcp)
5349         ("libxfixes" ,libxfixes)
5350         ("libxfont2" ,libxfont2)
5351         ("libxkbfile" ,libxkbfile)
5352         ("libxrender" ,libxrender)
5353         ("libxres" ,libxres)
5354         ("libxshmfence" ,libxshmfence)
5355         ("libxt" ,libxt)
5356         ("libxv" ,libxv)
5357         ("xkbcomp" ,xkbcomp)
5358         ("xkeyboard-config" ,xkeyboard-config)
5359         ("xtrans" ,xtrans)
5360         ("zlib" ,zlib)
5361         ;; Inputs for Xephyr
5362         ("xcb-util" ,xcb-util)
5363         ("xcb-util-image" ,xcb-util-image)
5364         ("xcb-util-keysyms" ,xcb-util-keysyms)
5365         ("xcb-util-renderutil" ,xcb-util-renderutil)
5366         ("xcb-util-wm" ,xcb-util-wm)))
5367     (native-inputs
5368      `(("python" ,python-wrapper)
5369        ("pkg-config" ,pkg-config)))
5370     (arguments
5371      `(#:parallel-tests? #f
5372        #:configure-flags
5373        (list (string-append "--with-xkb-path="
5374                             (assoc-ref %build-inputs "xkeyboard-config")
5375                             "/share/X11/xkb")
5376              (string-append "--with-xkb-output="
5377                             "/tmp") ; FIXME: This is a bit doubtful; where should
5378                                     ; the compiled keyboard maps go?
5379              (string-append "--with-xkb-bin-directory="
5380                             (assoc-ref %build-inputs "xkbcomp")
5381                             "/bin")
5382              ;; By default, it ends up with invalid '${prefix}/...', causes:
5383              ;;   _FontTransOpen: Unable to Parse address ${prefix}/share/...
5384              ;; It's not used anyway, so set it to empty.
5385              "--with-default-font-path="
5386
5387              ;; The default is to use "uname -srm", which captures the kernel
5388              ;; version and makes builds non-reproducible.
5389              "--with-os-name=GNU"
5390
5391              "--with-os-vendor=GuixSD"    ;not strictly needed, but looks nice
5392
5393
5394              ;; For the log file, etc.
5395              "--localstatedir=/var"
5396              ;; For sddm
5397              "--enable-kdrive"
5398              "--enable-xephyr")
5399
5400        #:phases
5401        (modify-phases %standard-phases
5402          (add-before 'configure 'pre-configure
5403            (lambda _
5404              (substitute* (find-files "." "\\.c$")
5405                (("/bin/sh") (which "sh")))
5406
5407              ;; Don't try to 'mkdir /var'.
5408              (substitute* "hw/xfree86/Makefile.in"
5409                (("\\$\\(MKDIR_P\\).*logdir.*")
5410                 "true\n"))
5411
5412              ;; Strip timestamps that would otherwise end up in the 'Xorg'
5413              ;; binary.
5414              (substitute* "configure"
5415                (("^BUILD_DATE=.*$")
5416                 "BUILD_DATE=19700101\n")
5417                (("^BUILD_TIME=.*$")
5418                 "BUILD_TIME=000001\n"))
5419
5420              #t)))))
5421     (home-page "https://www.x.org/wiki/")
5422     (synopsis "Xorg implementation of the X Window System")
5423     (description
5424      "This package provides the Xorg X server itself.
5425 The X server accepts requests from client programs to create windows, which
5426 are (normally rectangular) 'virtual screens' that the client program can
5427 draw into.
5428
5429 Windows are then composed on the actual screen by the X server (or by a
5430 separate composite manager) as directed by the window manager, which usually
5431 communicates with the user via graphical controls such as buttons and
5432 draggable titlebars and borders.")
5433     (license license:x11)))
5434
5435 ;; This package is intended to be used when building GTK+.
5436 ;; Note: It's currently marked as "hidden" to avoid having two non-eq?
5437 ;; packages with the same name and version.
5438 (define-public xorg-server-for-tests
5439   (hidden-package
5440    (package
5441      (inherit xorg-server)
5442      (version "1.20.10")
5443      (source
5444        (origin
5445          (method url-fetch)
5446          (uri (string-append "mirror://xorg/individual/xserver/"
5447                              "xorg-server-" version ".tar.bz2"))
5448          (sha256
5449           (base32
5450            "16bwrf0ag41l7jbrllbix8z6avc5yimga7ihvq4ch3a5hb020x4p"))
5451          (patches
5452           (list
5453            ;; See:
5454            ;;   https://lists.fedoraproject.org/archives/list/devel@lists.
5455            ;;      fedoraproject.org/message/JU655YB7AM4OOEQ4MOMCRHJTYJ76VFOK/
5456            (origin
5457              (method url-fetch)
5458              (uri (string-append
5459                    "http://pkgs.fedoraproject.org/cgit/rpms/xorg-x11-server.git"
5460                    "/plain/06_use-intel-only-on-pre-gen4.diff"))
5461              (sha256
5462               (base32
5463                "0mm70y058r8s9y9jiv7q2myv0ycnaw3iqzm7d274410s0ik38w7q"))
5464              (file-name "xorg-server-use-intel-only-on-pre-gen4.diff")))))))))
5465
5466 (define-public xorg-server-xwayland
5467   (package/inherit xorg-server
5468     (name "xorg-server-xwayland")
5469     (inputs
5470      `(("wayland" ,wayland)
5471        ("wayland-protocols" ,wayland-protocols)
5472        ,@(package-inputs xorg-server)))
5473     (arguments
5474      (substitute-keyword-arguments (package-arguments xorg-server)
5475        ((#:configure-flags flags)
5476         `(cons* "--enable-xwayland" "--disable-xorg"
5477                 "--disable-docs"    "--disable-devel-docs"
5478                 "--disable-xvfb"    "--disable-xnest"
5479                 "--disable-xquartz" "--disable-xwin"
5480                 ,flags))))
5481     (synopsis "Xorg server with wayland backend")))
5482
5483
5484 ;; packages of height 4 in the propagated-inputs tree
5485
5486 (define-public libx11
5487   (package
5488     (name "libx11")
5489     (version "1.6.10")
5490     (source
5491       (origin
5492         (method url-fetch)
5493         (uri (string-append
5494                "mirror://xorg/individual/lib/libX11-"
5495                version
5496                ".tar.bz2"))
5497         (sha256
5498           (base32
5499             "09k2pqmqbn2m1bpgl7jfxyqxaaxsnzbnp2bp8ycmqldqi5ln4j5g"))))
5500     (replacement libx11/fixed)
5501     (build-system gnu-build-system)
5502     (outputs '("out"
5503                "doc"))                            ;8 MiB of man pages + XML
5504     (arguments
5505      `(#:configure-flags
5506        (list (string-append "--mandir="
5507                             (assoc-ref %outputs "doc")
5508                             "/share/man")
5509              "--disable-static"
5510
5511              ;; Disable zero malloc check that fails when cross-compiling.
5512              ,@(if (%current-target-system)
5513                    '("--disable-malloc0returnsnull")
5514                    '()))))
5515     (propagated-inputs
5516       `(("xorgproto" ,xorgproto)
5517         ("libxcb" ,libxcb)))
5518     (inputs
5519       `(("xtrans" ,xtrans)))
5520     (native-inputs
5521      `(("pkg-config" ,pkg-config)
5522        ("xorgproto" ,xorgproto)))
5523     (home-page "https://www.x.org/wiki/")
5524     (synopsis "Xorg Core X11 protocol client library")
5525     (description "Xorg Core X11 protocol client library.")
5526     (license license:x11)))
5527
5528 (define-public libx11/fixed
5529   (package
5530     (inherit libx11)
5531     (version "1.7.1A")
5532     (source
5533       (origin
5534         (method url-fetch)
5535         (uri "mirror://xorg/individual/lib/libX11-1.7.1.tar.bz2")
5536         (sha256
5537           (base32
5538             "0isxad59hvdwggbxqqjjjg3zmih9xiq4d9mdsnqbyb2nmbg46kp6"))))))
5539
5540 ;; packages of height 5 in the propagated-inputs tree
5541
5542 (define-public libxcursor
5543   (package
5544     (name "libxcursor")
5545     (version "1.2.0")
5546     (source
5547       (origin
5548         (method url-fetch)
5549         (uri (string-append
5550                "mirror://xorg/individual/lib/libXcursor-"
5551                version
5552                ".tar.bz2"))
5553         (sha256
5554           (base32
5555             "10l7c9fm0jmpkm9ab9dz8r6m1pr87vvgqjnbx1psz50h4pwfklrs"))))
5556     (build-system gnu-build-system)
5557     (arguments
5558      '(#:configure-flags '("--disable-static")))
5559     (propagated-inputs
5560       `(("libx11" ,libx11)
5561         ("libxrender" ,libxrender)
5562         ("libxfixes" ,libxfixes)
5563         ("xorgproto" ,xorgproto)))
5564     (native-inputs
5565       `(("pkg-config" ,pkg-config)))
5566 ;; TODO: add XCURSOR_PATH=.../share/icons to profile search paths, so
5567 ;; libXcursor finds cursors installed into a profile.  If we solve bugs
5568 ;; <http://bugs.gnu.org/20255> and <http://bugs.gnu.org/22138>, we can fix
5569 ;; this with a search-path as follows:
5570 ;;
5571 ;;    (native-search-paths
5572 ;;     (list (search-path-specification
5573 ;;            (variable "XCURSOR_PATH")
5574 ;;            (files '("share/icons")))))
5575     (home-page "https://www.x.org/wiki/")
5576     (synopsis "Xorg Cursor management library")
5577     (description "Xorg Cursor management library.")
5578     (license license:x11)))
5579
5580 (define-public libxt
5581   (package
5582     (name "libxt")
5583     (version "1.2.0")
5584     (source
5585       (origin
5586         (method url-fetch)
5587         (uri (string-append
5588                "mirror://xorg/individual/lib/libXt-"
5589                version
5590                ".tar.bz2"))
5591         (sha256
5592           (base32
5593            "0cbqlyssr8aia88c8i7z59z9d0kp3p2hp6683xhz9ndyv8qza7dk"))
5594         (patches (search-patches "libxt-guix-search-paths.patch"))))
5595     (build-system gnu-build-system)
5596     (outputs '("out"
5597                "doc"))                            ;2 MiB of man pages + XML
5598     (arguments
5599      `(#:configure-flags
5600        (list (string-append "--mandir="
5601                             (assoc-ref %outputs "doc")
5602                             "/share/man")
5603              "--disable-static"
5604              ;; Disable zero malloc check that fails when cross-compiling.
5605              ,@(if (%current-target-system)
5606                    '("--disable-malloc0returnsnull")
5607                    '()))))
5608     (propagated-inputs
5609       `(("libx11" ,libx11)
5610         ("libice" ,libice)
5611         ("libsm" ,libsm)))
5612     (inputs
5613       `(("libx11" ,libx11)))
5614     (native-inputs
5615       `(("pkg-config" ,pkg-config)))
5616     (home-page "https://www.x.org/wiki/")
5617     (synopsis "Xorg XToolkit Intrinsics library")
5618     (description "Xorg XToolkit Intrinsics library.")
5619     (license license:x11)))
5620
5621
5622 (define-public libxaw
5623   (package
5624     (name "libxaw")
5625     (version "1.0.13")
5626     (source
5627       (origin
5628         (method url-fetch)
5629         (uri (string-append
5630                "mirror://xorg/individual/lib/libXaw-"
5631                version
5632                ".tar.bz2"))
5633         (sha256
5634           (base32
5635             "1kdhxplwrn43d9jp3v54llp05kwx210lrsdvqb6944jp29rhdy4f"))))
5636     (build-system gnu-build-system)
5637     (arguments
5638      '(#:configure-flags '("--disable-static")))
5639     (propagated-inputs
5640       `(("libxext" ,libxext)
5641         ("libxmu" ,libxmu)
5642         ("libxpm" ,libxpm)
5643         ("libxt" ,libxt)))
5644     (inputs
5645       `(("xorgproto" ,xorgproto)))
5646     (native-inputs
5647       `(("pkg-config" ,pkg-config)))
5648     (home-page "https://www.x.org/wiki/")
5649     (synopsis "Xorg Xaw library")
5650     (description
5651      "Xaw is the X Athena Widget Set based on the X Toolkit
5652 Intrinsics (Xt) Library.")
5653     (license license:x11)))
5654
5655 (define-public twm
5656   (package
5657     (name "twm")
5658     (version "1.0.11")
5659     (source
5660      (origin
5661        (method url-fetch)
5662        (uri (string-append "mirror://xorg/individual/app/twm-"
5663                            version ".tar.xz"))
5664        (sha256
5665         (base32
5666          "1iv8kdb18n9vk3is5fyh6l40ipq9mkgx8ppj86byf464vr1ais7l"))))
5667     (build-system gnu-build-system)
5668     (inputs
5669      `(("libxt" ,libxt)
5670        ("libxmu" ,libxmu)
5671        ("libxext" ,libxext)
5672        ("xorgproto" ,xorgproto)))
5673     (native-inputs
5674      `(("bison" ,bison)
5675        ("pkg-config" ,pkg-config)))
5676     (home-page "https://www.x.org/wiki/")
5677     (synopsis "Tab Window Manager for the X Window System")
5678     (description "Twm is a window manager for the X Window System.
5679 It provides titlebars, shaped windows, several forms of icon management,
5680 user-defined macro functions, click-to-type and pointer-driven
5681 keyboard focus, and user-specified key and pointer button bindings.")
5682     (license license:x11)))
5683
5684 (define-public xcb-util
5685   (package
5686     (name "xcb-util")
5687     (version "0.4.0")
5688     (source (origin
5689              (method url-fetch)
5690              (uri (string-append "mirror://xorg/individual/xcb/"
5691                                  name "-" version ".tar.bz2"))
5692              (sha256
5693               (base32
5694                "1sahmrgbpyki4bb72hxym0zvxwnycmswsxiisgqlln9vrdlr9r26"))))
5695     (build-system gnu-build-system)
5696     (arguments
5697      '(#:configure-flags '("--disable-static")))
5698     (propagated-inputs
5699      `(("libxcb" ,libxcb)))
5700     (native-inputs
5701      `(("pkg-config" ,pkg-config)))
5702     (home-page "https://cgit.freedesktop.org/xcb/util/")
5703     (synopsis "Core XCB utility functions")
5704     (description
5705      "The XCB util module provides a number of libraries which sit on
5706 top of libxcb, the core X protocol library, and some of the extension
5707 libraries.  These experimental libraries provide convenience functions
5708 and interfaces which make the raw X protocol more usable.  Some of the
5709 libraries also provide client-side code which is not strictly part of
5710 the X protocol but which has traditionally been provided by Xlib.
5711
5712 The XCB util module provides the following libraries:
5713
5714 - aux: Convenient access to connection setup and some core requests.
5715
5716 - atom: Standard core X atom constants and atom caching.
5717
5718 - event: Some utilities that have little to do with events any more.")
5719     (license license:x11)))
5720
5721
5722 (define-public xcb-util-cursor
5723   (package
5724     (name "xcb-util-cursor")
5725     (version "0.1.3")
5726     (source (origin
5727               (method url-fetch)
5728               (uri (string-append "https://xcb.freedesktop.org/dist/"
5729                                   "xcb-util-cursor-" version ".tar.bz2"))
5730               (sha256
5731                (base32
5732                 "0krr4rcw6r42cncinzvzzdqnmxk3nrgpnadyg2h8k9x10q3hm885"))))
5733     (build-system gnu-build-system)
5734     (arguments
5735      '(#:configure-flags '("--disable-static")))
5736     (native-inputs
5737      `(("m4" ,m4)
5738        ("pkg-config" ,pkg-config)))
5739     (inputs
5740      `(("libxcb" ,libxcb)))
5741     (propagated-inputs
5742      `(("xcb-util-renderutil" ,xcb-util-renderutil)
5743        ("xcb-util-image" ,xcb-util-image)))
5744     (home-page "https://cgit.freedesktop.org/xcb/util-cursor/")
5745     (synopsis "Port of libxcursor")
5746     (description "XCB-util-cursor is a port of libxcursor.")
5747     (license
5748      ; expat license  with added clause regarding advertising
5749      (license:non-copyleft
5750       "file://COPYING"
5751       "See COPYING in the distribution."))))
5752
5753 (define-public xcb-util-errors
5754   (let ((commit "5d660ebe872cadcdc85de9d6f9afe05de629c030")
5755         (revision "1"))
5756     (package
5757       (name "xcb-util-errors")
5758       (version (git-version "1.0" revision commit))
5759       (source (origin
5760                 (method git-fetch)
5761                 (uri (git-reference
5762                       (url "https://anongit.freedesktop.org/git/xcb/util-errors.git")
5763                       (commit commit)
5764                       (recursive? #t)))
5765                 (file-name (git-file-name name version))
5766                 (sha256
5767                  (base32
5768                   "12bah0iz5k6b9hwlc5zffyfg2gnrajll3gn5s8zmazgynvw72ahg"))))
5769      (build-system gnu-build-system)
5770      (outputs '("out"))
5771      (inputs
5772       `(("util-macros" ,util-macros)
5773         ("xcb-proto" ,xcb-proto)))
5774      (propagated-inputs
5775       `(("libxcb" ,libxcb)))
5776      (native-inputs
5777       `(("autoconf" ,autoconf)
5778         ("automake" ,automake)
5779         ("libtool" ,libtool)
5780         ("python" ,python-wrapper)
5781         ("pkg-config" ,pkg-config)))
5782      (arguments
5783       `(#:phases
5784         (modify-phases %standard-phases
5785           (replace 'bootstrap
5786             (lambda _
5787               ;; The default 'bootstrap' phase would run 'autogen.sh', which
5788               ;; would try to run ./configure and fail due to unpatched
5789               ;; shebangs.
5790               (invoke "autoreconf" "-v" "--install"))))))
5791      (home-page "https://cgit.freedesktop.org/xcb/util-errors/")
5792      (synopsis "XCB helper library for printing information about X11 errors")
5793      (description
5794       "The XCB util module provides a number of libraries which sit on
5795 top of libxcb, the core X protocol library, and some of the extension
5796 libraries.  These experimental libraries provide convenience functions
5797 and interfaces which make the raw X protocol more usable.  Some of the
5798 libraries also provide client-side code which is not strictly part of
5799 the X protocol but which has traditionally been provided by Xlib.
5800
5801 The XCB util-errors module provides a utility library that gives human
5802 readable names to error codes, event codes, and also to major and minor
5803 numbers.")
5804      (license license:x11))))
5805
5806 (define-public xcb-util-image
5807   (package
5808     (name "xcb-util-image")
5809     (version "0.4.0")
5810     (source (origin
5811              (method url-fetch)
5812              (uri (string-append "mirror://xorg/individual/xcb/"
5813                                  name "-" version ".tar.bz2"))
5814              (sha256
5815               (base32
5816                "1z1gxacg7q4cw6jrd26gvi5y04npsyavblcdad1xccc8swvnmf9d"))))
5817     (build-system gnu-build-system)
5818     (arguments
5819      '(#:configure-flags '("--disable-static")))
5820     (propagated-inputs
5821      `(("libxcb" ,libxcb)))
5822     (inputs
5823      `(("xcb-util" ,xcb-util)))
5824     (native-inputs
5825      `(("pkg-config" ,pkg-config)))
5826     (home-page "https://cgit.freedesktop.org/xcb/util-image/")
5827     (synopsis "XCB port of Xlib's XImage and XShmImage")
5828     (description
5829      "The XCB util module provides a number of libraries which sit on
5830 top of libxcb, the core X protocol library, and some of the extension
5831 libraries.  These experimental libraries provide convenience functions
5832 and interfaces which make the raw X protocol more usable.  Some of the
5833 libraries also provide client-side code which is not strictly part of
5834 the X protocol but which has traditionally been provided by Xlib.
5835
5836 The XCB util-image module provides the following library:
5837
5838 - image: Port of Xlib's XImage and XShmImage functions.")
5839     (license license:x11)))
5840
5841
5842 (define-public xcb-util-keysyms
5843   (package
5844     (name "xcb-util-keysyms")
5845     (version "0.4.0")
5846     (source (origin
5847              (method url-fetch)
5848              (uri (string-append "mirror://xorg/individual/xcb/"
5849                                  name "-" version ".tar.bz2"))
5850              (sha256
5851               (base32
5852                "1nbd45pzc1wm6v5drr5338j4nicbgxa5hcakvsvm5pnyy47lky0f"))))
5853     (build-system gnu-build-system)
5854     (arguments
5855      '(#:configure-flags '("--disable-static")))
5856     (propagated-inputs
5857      `(("libxcb" ,libxcb)))
5858     (native-inputs
5859      `(("pkg-config" ,pkg-config)))
5860     (home-page "https://cgit.freedesktop.org/xcb/util-keysyms/")
5861     (synopsis "Standard X constants and conversion to/from keycodes")
5862     (description
5863      "The XCB util module provides a number of libraries which sit on
5864 top of libxcb, the core X protocol library, and some of the extension
5865 libraries.  These experimental libraries provide convenience functions
5866 and interfaces which make the raw X protocol more usable.  Some of the
5867 libraries also provide client-side code which is not strictly part of
5868 the X protocol but which has traditionally been provided by Xlib.
5869
5870 The XCB util-keysyms module provides the following library:
5871
5872 - keysyms: Standard X key constants and conversion to/from keycodes.")
5873     (license license:x11)))
5874
5875
5876 (define-public xcb-util-renderutil
5877   (package
5878     (name "xcb-util-renderutil")
5879     (version "0.3.9")
5880     (source (origin
5881              (method url-fetch)
5882              (uri (string-append "mirror://xorg/individual/xcb/"
5883                                  name "-" version ".tar.bz2"))
5884              (sha256
5885               (base32
5886                "0nza1csdvvxbmk8vgv8vpmq7q8h05xrw3cfx9lwxd1hjzd47xsf6"))))
5887     (build-system gnu-build-system)
5888     (arguments
5889      '(#:configure-flags '("--disable-static")))
5890     (propagated-inputs
5891      `(("libxcb" ,libxcb)))
5892     (native-inputs
5893      `(("pkg-config" ,pkg-config)))
5894     (home-page "https://cgit.freedesktop.org/xcb/util-renderutil/")
5895     (synopsis "Convenience functions for the Render extension")
5896     (description
5897      "The XCB util module provides a number of libraries which sit on
5898 top of libxcb, the core X protocol library, and some of the extension
5899 libraries.  These experimental libraries provide convenience functions
5900 and interfaces which make the raw X protocol more usable.  Some of the
5901 libraries also provide client-side code which is not strictly part of
5902 the X protocol but which has traditionally been provided by Xlib.
5903
5904 The XCB util-renderutil module provides the following library:
5905
5906 - renderutil: Convenience functions for the Render extension.")
5907     (license license:x11)))
5908
5909
5910 (define-public xcb-util-wm
5911   (package
5912     (name "xcb-util-wm")
5913     (version "0.4.1")
5914     (source (origin
5915              (method url-fetch)
5916              (uri (string-append "mirror://xorg/individual/xcb/"
5917                                  name "-" version ".tar.bz2"))
5918              (sha256
5919               (base32
5920                "0gra7hfyxajic4mjd63cpqvd20si53j1q3rbdlkqkahfciwq3gr8"))))
5921     (build-system gnu-build-system)
5922     (arguments
5923      '(#:configure-flags '("--disable-static")))
5924     (propagated-inputs
5925      `(("libxcb" ,libxcb)))
5926     (native-inputs
5927      `(("m4" ,m4)
5928        ("pkg-config" ,pkg-config)))
5929     (home-page "https://cgit.freedesktop.org/xcb/util-wm/")
5930     (synopsis "Client and window-manager helpers for ICCCM and EWMH")
5931     (description
5932      "The XCB util modules provides a number of libraries which sit on
5933 top of libxcb, the core X protocol library, and some of the extension
5934 libraries.  These experimental libraries provide convenience functions
5935 and interfaces which make the raw X protocol more usable.  Some of the
5936 libraries also provide client-side code which is not strictly part of
5937 the X protocol but which has traditionally been provided by Xlib.
5938
5939 The XCB util-wm module provides the following libraries:
5940
5941 - ewmh: Both client and window-manager helpers for EWMH.
5942
5943 - icccm: Both client and window-manager helpers for ICCCM.")
5944     (license license:x11)))
5945
5946 (define-public xinit
5947   (package
5948     (name "xinit")
5949     (version "1.4.1")
5950     (source (origin
5951               (method url-fetch)
5952               (uri (string-append "mirror://xorg/individual/app/xinit-"
5953                                   version ".tar.bz2"))
5954               (sha256
5955                (base32
5956                 "1fdbakx59vyh474skjydj1bbglpby3y03nl7mxn0z9v8gdhqz6yy"))))
5957     (build-system gnu-build-system)
5958     (inputs
5959      `(("xorgproto" ,xorgproto)
5960        ("libx11" ,libx11)))
5961     (native-inputs
5962      `(("pkg-config" ,pkg-config)))
5963     (propagated-inputs
5964      `(("xauth" ,xauth)))
5965     (home-page "https://www.x.org/")
5966     (synopsis "Commands to start the X Window server")
5967     (description
5968      "The xinit program is used to start the X Window System server and a
5969 first client program on systems that are not using a display manager such as
5970 xdm.  This package also provides the @code{startx} command, which provides a
5971 user-friendly mechanism to start the X server.")
5972     (license license:x11)))
5973
5974 ;; package outside the x.org system proper of height 5
5975
5976 (define-public libxaw3d
5977   (package
5978     (name "libxaw3d")
5979     (version "1.6.3")
5980     (source
5981       (origin
5982         (method url-fetch)
5983         (uri (string-append
5984                "mirror://xorg/individual/lib/libXaw3d-"
5985                version
5986                ".tar.bz2"))
5987         (sha256
5988           (base32
5989             "0i653s8g25cc0mimkwid9366bqkbyhdyjhckx7bw77j20hzrkfid"))))
5990     (build-system gnu-build-system)
5991     (propagated-inputs
5992       `(("libxext" ,libxext)
5993         ("libxmu" ,libxmu)
5994         ("libxt" ,libxt)))
5995     (inputs
5996      `(("libx11" ,libx11)))
5997     (native-inputs
5998      `(("pkg-config" ,pkg-config)))
5999     (home-page "https://www.x.org/wiki/")
6000     (synopsis "Xorg Xaw3d library")
6001     (description
6002      "Xaw is the X 3D Athena Widget Set based on the X Toolkit
6003 Intrinsics (Xt) Library.")
6004     (license license:x11)))
6005
6006 (define-public xclock
6007   (package
6008     (name "xclock")
6009     (version "1.0.9")
6010     (source
6011      (origin
6012        (method url-fetch)
6013        (uri (string-append "https://www.x.org/releases/individual/app/"
6014                            "xclock-" version ".tar.bz2"))
6015        (sha256
6016         (base32 "1fr3q4rszgx7x2zxy2ip592a3fgx20hfwac49p2l5b7jqsr1ying"))))
6017     (build-system gnu-build-system)
6018     (arguments
6019      `(#:configure-flags
6020        (list (string-append "--with-appdefaultdir="
6021                             %output ,%app-defaults-dir))))
6022     (inputs
6023      `(("libxmu" ,libxmu)
6024        ("libx11" ,libx11)
6025        ("libxaw" ,libxaw)
6026        ("libxrender" ,libxrender)
6027        ("libxft" ,libxft)
6028        ("libxkbfile" ,libxkbfile)))
6029     (native-inputs
6030      `(("pkg-config" ,pkg-config)))
6031     (home-page "https://gitlab.freedesktop.org/xorg/app/xclock")
6032     (synopsis "Analog / digital clock for X")
6033     (description "The xclock program displays the time in analog or digital
6034 form.")
6035     (license (license:x11-style "file://COPYING" "See COPYING for details."))))
6036
6037 (define-public xmag
6038   (package
6039     (name "xmag")
6040     (version "1.0.6")
6041     (source
6042      (origin
6043        (method url-fetch)
6044        (uri (string-append
6045              "mirror://xorg/individual/app/" name "-"
6046              version
6047              ".tar.gz"))
6048        (sha256
6049         (base32
6050          "19bsg5ykal458d52v0rvdx49v54vwxwqg8q36fdcsv9p2j8yri87"))))
6051     (build-system gnu-build-system)
6052     (arguments
6053      `(#:configure-flags
6054        (list (string-append "--with-appdefaultdir="
6055                             %output ,%app-defaults-dir))))
6056     (inputs
6057      `(("libxaw" ,libxaw)))
6058     (native-inputs
6059      `(("pkg-config" ,pkg-config)))
6060     (home-page "https://www.x.org/wiki/")
6061     (synopsis "Display or capture a magnified part of a X11 screen")
6062     (description "Xmag displays and captures a magnified snapshot of a portion
6063 of an X11 screen.")
6064     (license license:x11)))
6065
6066 (define-public xmessage
6067   (package
6068     (name "xmessage")
6069     (version "1.0.5")
6070     (source
6071      (origin
6072        (method url-fetch)
6073        (uri (string-append
6074              "mirror://xorg/individual/app/" name "-"
6075              version
6076              ".tar.gz"))
6077        (sha256
6078         (base32
6079          "0sw0b0cbrjl44brw7qi1jkm61xd7a1lpj04418c6iqk6mf83llwr"))))
6080     (build-system gnu-build-system)
6081     (arguments
6082      `(#:configure-flags
6083        (list (string-append "--with-appdefaultdir="
6084                             %output ,%app-defaults-dir))))
6085     (inputs
6086      `(("libxaw" ,libxaw)))
6087     (native-inputs
6088      `(("pkg-config" ,pkg-config)))
6089     (home-page "https://www.x.org/wiki/")
6090     (synopsis "Displays a message or query in a window")
6091     (description
6092      "Xmessage displays a message or query in a window.   The user can click
6093 on a button to dismiss it or can select one of several buttons
6094 to answer a question.  Xmessage can also exit after a specified time.")
6095     (license license:x11)))
6096
6097 (define-public xterm
6098   (package
6099     (name "xterm")
6100     (version "368")
6101     (source
6102      (origin
6103        (method url-fetch)
6104        (uri (list
6105              (string-append "https://invisible-mirror.net/archives/xterm/"
6106                             "xterm-" version ".tgz")
6107              (string-append "ftp://ftp.invisible-island.net/xterm/"
6108                             "xterm-" version ".tgz")))
6109        (sha256
6110         (base32 "04p7db3j3n5dk1vvlas4231rh6jgr4qi6ppvpbq9xd5n62cidx9g"))))
6111     (build-system gnu-build-system)
6112     (arguments
6113      '(#:configure-flags '("--enable-wide-chars" "--enable-load-vt-fonts"
6114                            "--enable-i18n" "--enable-doublechars"
6115                            "--enable-luit" "--enable-mini-luit")
6116        #:tests? #f                      ; no test suite
6117        #:phases
6118        (modify-phases %standard-phases
6119          (add-after 'build 'patch-file-names
6120            (lambda* (#:key outputs #:allow-other-keys)
6121              (let ((out (assoc-ref outputs "out")))
6122                (substitute* "uxterm"
6123                  (("([ `\\|])(sh|sed|awk|xmessage) " _ prefix command)
6124                   (string-append prefix (which command) " "))
6125                  (("(`|\"|LANG=C )(locale) " _ prefix command)
6126                   (string-append prefix (which command) " "))
6127                  (("=xterm")
6128                   (string-append "=" out "/bin/xterm")))))))))
6129     (native-inputs
6130      `(("pkg-config" ,pkg-config)))
6131     (inputs
6132      `(("luit" ,luit)
6133        ("libXft" ,libxft)
6134        ("fontconfig" ,fontconfig)
6135        ("freetype" ,freetype)
6136        ("ncurses" ,ncurses)
6137        ("libICE" ,libice)
6138        ("libSM" ,libsm)
6139        ("libX11" ,libx11)
6140        ("libXcursor" ,libxcursor)
6141        ("libXext" ,libxext)
6142        ("libXt" ,libxt)
6143        ("xorgproto" ,xorgproto)
6144        ("libXaw" ,libxaw)))
6145     (home-page "https://invisible-island.net/xterm/")
6146     (synopsis "Terminal emulator for the X Window System")
6147     (description
6148      "The xterm program is a terminal emulator for the X Window System.  It
6149 provides DEC VT102/VT220 (VTxxx) and Tektronix 4014 compatible terminals for
6150 programs that cannot use the window system directly.")
6151     (license license:x11)))
6152
6153 (define-public perl-x11-xcb
6154   (package
6155     (name "perl-x11-xcb")
6156     (version "0.18")
6157     (source (origin
6158               (method url-fetch)
6159               (uri (string-append
6160                     "mirror://cpan/authors/id/M/MS/MSTPLBG/"
6161                     "X11-XCB-" version ".tar.gz"))
6162               (sha256
6163                (base32
6164                 "1cjpghw7cnackw20lbd7yzm222kz5bnrwz52f8ay24d1f4pwrnxf"))))
6165     (build-system perl-build-system)
6166     (arguments
6167      '(;; Disable parallel build to prevent a race condition.
6168        #:parallel-build? #f
6169        #:phases
6170        (modify-phases %standard-phases
6171          (add-before 'configure 'set-perl-search-path
6172            (lambda _
6173              (setenv "PERL5LIB"
6174                      (string-append (getcwd) ":"
6175                                     (getenv "PERL5LIB")))
6176              #t))
6177          (add-before 'build 'patch-Makefile
6178            (lambda* (#:key inputs #:allow-other-keys)
6179              (substitute* "Makefile"
6180                ;; XXX: Without this hack, attempts at using XCB.so fails with
6181                ;; an error such as "XCB.so: undefined symbol: xcb_xinerama_id"
6182                (("^LDDLFLAGS = ")
6183                 (string-append "LDDLFLAGS = "
6184                                "-lxcb -lxcb-util -lxcb-xinerama -lxcb-icccm ")))
6185              #t)))
6186        ;; Tests require a running X11 server.
6187        #:tests? #f))
6188     (native-inputs
6189      `(("perl-extutils-depends" ,perl-extutils-depends)
6190        ("perl-extutils-pkgconfig" ,perl-extutils-pkgconfig)
6191        ("perl-module-install" ,perl-module-install)
6192        ("perl-test-deep" ,perl-test-deep)
6193        ("perl-test-exception" ,perl-test-exception)))
6194     (propagated-inputs
6195      `(("perl-data-dump" ,perl-data-dump)
6196        ("perl-mouse" ,perl-mouse)
6197        ("perl-mousex-nativetraits" ,perl-mousex-nativetraits)
6198        ("perl-try-tiny" ,perl-try-tiny)
6199        ("perl-xml-descent" ,perl-xml-descent)
6200        ("perl-xml-simple" ,perl-xml-simple)
6201        ("perl-xs-object-magic" ,perl-xs-object-magic)))
6202     (inputs
6203      `(("libxcb" ,libxcb)
6204        ("xcb-proto" ,xcb-proto)
6205        ("xcb-util" ,xcb-util)
6206        ("xcb-util-wm" ,xcb-util-wm)))
6207     (home-page "https://metacpan.org/release/X11-XCB")
6208     (synopsis "Perl bindings for libxcb")
6209     (description
6210      "These bindings wrap @code{libxcb} (a C library to speak with X11,
6211 in many cases better than @code{Xlib}), and provides an object oriented
6212 interface to its methods (using @code{Mouse}).")
6213     (license license:perl-license)))
6214
6215 (define-public perl-x11-protocol
6216   (package
6217     (name "perl-x11-protocol")
6218     (version "0.56")
6219     (source (origin
6220              (method url-fetch)
6221              (uri (string-append
6222                    "mirror://cpan/authors/id/S/SM/SMCCAM/X11-Protocol-"
6223                    version ".tar.gz"))
6224              (sha256
6225               (base32
6226                "1dq89bh6fqv7l5mbffqcismcljpq5f869bx7g8lg698zgindv5ny"))))
6227     (build-system perl-build-system)
6228     (arguments '(#:tests? #f))          ;tests require a running x server
6229     (synopsis "Raw interface to X Window System servers")
6230     (description
6231      "X11::Protocol is a client-side interface to the X11 Protocol, allowing
6232 perl programs to display windows and graphics on X11 servers.")
6233     (home-page "https://metacpan.org/release/X11-Protocol")
6234     ;; From the package README: "you can redistribute and/or modify it under
6235     ;; the same terms as Perl itself. (As an exception, the file
6236     ;; Keysyms.pm,which is derived from a file in the standard X11
6237     ;; distribution, has another, less restrictive copying policy, as do some
6238     ;; of the extension modules in the directory Protocol/Ext: see those files
6239     ;; for details)."
6240     (license license:perl-license)))
6241
6242 (define-public perl-x11-protocol-other
6243   (package
6244     (name "perl-x11-protocol-other")
6245     (version "31")
6246     (source
6247      (origin
6248        (method url-fetch)
6249        (uri (string-append
6250              "mirror://cpan/authors/id/K/KR/KRYDE/X11-Protocol-Other-"
6251              version ".tar.gz"))
6252        (sha256
6253         (base32 "1x3kvic52jgp2mvd5wzrqrprqi82cdk8l4075v8b33ksvj9mjqiw"))))
6254     (build-system perl-build-system)
6255     (native-inputs
6256      `(("perl-encode-hanextra" ,perl-encode-hanextra)
6257        ("perl-module-util" ,perl-module-util)))
6258     (propagated-inputs
6259      `(("perl-x11-protocol" ,perl-x11-protocol)))
6260     (home-page "https://metacpan.org/release/X11-Protocol-Other")
6261     (synopsis "Miscellaneous helpers for @code{X11::Protocol} connections")
6262     (description
6263      "@code{X11::Protocol::Other} contains window manager related functions for
6264 use by client programs, as per the @dfn{ICCCM} (Inter-Client Communication
6265 Conventions Manual) and some of the @dfn{EWMH}
6266 (Extended Window Manager Hints).")
6267     (license license:gpl3+)))
6268
6269 (define-public xcompmgr
6270   (package
6271     (name "xcompmgr")
6272     (version "1.1.8")
6273     (source
6274      (origin
6275        ;; There's no current tarball.
6276        (method git-fetch)
6277        (uri (git-reference
6278              (url "https://anongit.freedesktop.org/git/xorg/app/xcompmgr.git")
6279              (commit (string-append "xcompmgr-" version))))
6280        (sha256
6281         (base32 "11i7vyk3pynw8q8aczpy56qncm84y0cmhlvyja3sj8dgy60g03q2"))
6282        (file-name (git-file-name name version))))
6283     (build-system gnu-build-system)
6284     (native-inputs
6285      `(("pkg-config" ,pkg-config)
6286        ("autoconf" ,autoconf)
6287        ("automake" ,automake)))
6288     (inputs
6289      `(("libX11" ,libx11)
6290        ("libXext" ,libxext)
6291        ("libXcomposite" ,libxcomposite)
6292        ("libXfixes" ,libxfixes)
6293        ("libXdamage" ,libxdamage)
6294        ("libXrender" ,libxrender)))
6295     (synopsis "X Compositing manager using RENDER")
6296     (description "xcompmgr is a sample compositing manager for X servers
6297 supporting the XFIXES, DAMAGE, RENDER, and COMPOSITE extensions.  It enables
6298 basic eye-candy effects.")
6299     (home-page "https://cgit.freedesktop.org/xorg/app/xcompmgr/")
6300     (license (license:x11-style
6301               "https://cgit.freedesktop.org/xorg/app/xcompmgr/tree/COPYING"))))
6302
6303 (define-public xpra
6304   (package
6305     (name "xpra")
6306     (version "4.2")
6307     (source
6308      (origin
6309        (method url-fetch)
6310        (uri (string-append "https://www.xpra.org/src/xpra-"
6311                            version ".tar.gz"))
6312        (sha256
6313         (base32 "1yg9asi3i3wf73ibc006xv3g77axvbyp81lyinwq27syabh30i1a"))
6314        (patches (search-patches "xpra-4.2-systemd-run.patch"))))
6315     (build-system python-build-system)
6316     ;; see also http://xpra.org/trac/wiki/Dependencies
6317     (inputs `(
6318               ;; Essential dependencies.
6319               ("libjpeg" ,libjpeg-turbo)
6320               ("libwebp" ,libwebp)
6321               ("ffmpeg" ,ffmpeg)
6322               ("libx11" ,libx11)
6323               ("libxrandr" ,libxrandr)
6324               ("libxtst" ,libxtst)
6325               ("libxfixes" ,libxfixes)
6326               ("libxkbfile" ,libxkbfile)
6327               ("libxcomposite" ,libxcomposite)
6328               ("libxdamage" ,libxdamage)
6329               ("libxext" ,libxext)
6330               ("gtk+" ,gtk+)
6331               ("python-pycairo" ,python-pycairo)
6332               ("python-pygobject" ,python-pygobject)
6333               ("xauth" ,xauth)
6334               ("xorg-server" ,xorg-server)
6335               ("xf86-video-dummy" ,xf86-video-dummy)
6336               ("xf86-input-mouse" ,xf86-input-mouse)
6337               ("xf86-input-keyboard" ,xf86-input-keyboard)
6338               ("python-pillow" ,python-pillow)
6339               ;; Optional dependencies.
6340               ("libx264" ,libx264)
6341               ("x265" ,x265)
6342               ("libvpx" ,libvpx)
6343               ("python-rencode" ,python-rencode) ; For speed.
6344               ("python-numpy" ,python-numpy)
6345               ("python-pyopengl" ,python-pyopengl) ; Drawing acceleration.
6346               ("python-pyopengl-accelerate" ,python-pyopengl-accelerate) ; Same.
6347               ("python-paramiko" ,python-paramiko) ; Tunneling over SSH.
6348               ("python-dbus" ,python-dbus) ; For desktop notifications.
6349               ("dbus" ,dbus)               ; For dbus-launch command.
6350               ("python-lz4" ,python-lz4) ; Faster compression than zlib.
6351               ("python-netifaces" ,python-netifaces)))
6352     (native-inputs `(("pkg-config" ,pkg-config)
6353                      ("pandoc" ,pandoc)
6354                      ("python-cython" ,python-cython)))
6355     (arguments
6356      `(#:configure-flags '("--without-Xdummy"
6357                                                    "--without-Xdummy_wrapper"
6358                            "--with-opengl"
6359                            "--without-debug"
6360                            "--without-strict") ; Ignore compiler warnings.
6361        #:modules ((guix build python-build-system)
6362                   (guix build utils))
6363        #:tests? #f ; Do not run test-cases. This would rebuild all modules and
6364                                         ; they seem to require python2.
6365        #:phases
6366        (modify-phases %standard-phases
6367          ;; built by 'install phase
6368          (delete 'build)
6369          (add-before 'install 'fix-paths
6370            (lambda* (#:key inputs outputs #:allow-other-keys)
6371              ;; Fix binary paths.
6372              (substitute* '("xpra/scripts/config.py" "xpra/x11/vfb_util.py")
6373                (("\"Xvfb\"")
6374                 (string-append "\"" (assoc-ref inputs "xorg-server") "/bin/Xvfb\""))
6375                (("\"Xorg\"")
6376                 (string-append "\"" (assoc-ref inputs "xorg-server") "/bin/Xorg\""))
6377                (("\"xauth\"")
6378                 (string-append "\"" (assoc-ref inputs "xauth") "/bin/xauth\"")))
6379              ;; Fix directory of config files.
6380              (substitute* '("xpra/scripts/config.py" "xpra/platform/xposix/paths.py")
6381                (("\"/etc/xpra/?\"")
6382                 (string-append "\"" (assoc-ref outputs "out") "/etc/xpra/\"")))
6383              ;; XXX: Stolen from (gnu packages linux)
6384              (define (append-to-file name body)
6385                (let ((file (open-file name "a")))
6386                  (display body file)
6387                  (close-port file)))
6388              ;; Add Xorg module paths.
6389              (append-to-file
6390               "fs/etc/xpra/xorg.conf"
6391               (string-append "\nSection \"Files\"\nModulePath \""
6392                              (assoc-ref inputs "xf86-video-dummy") "/lib/xorg/modules,"
6393                              (assoc-ref inputs "xf86-input-mouse") "/lib/xorg/modules,"
6394                              (assoc-ref inputs "xf86-input-keyboard") "/lib/xorg/modules,"
6395                              (assoc-ref inputs "xorg-server") "/lib/xorg/modules\"\n"
6396                              "EndSection\n\n"))
6397              (substitute* '("xpra/scripts/config.py"
6398                             "fs/etc/xpra/conf.d/60_server.conf.in"
6399                             "tests/unittests/unit/server/mixins/notification_test.py")
6400                ;; The trailing -- is intentional, so we only replace it inside
6401                ;; a command line.
6402                (("dbus-launch --")
6403                 (string-append (assoc-ref inputs "dbus") "/bin/dbus-launch --")))
6404              ;; /run/user does not exist on guix system
6405              (substitute* "./xpra/scripts/config.py"
6406                (("socket-dir.*: \"\",")
6407                 "socket-dir\"        : \"~/.xpra\","))
6408              #t))
6409          ;; GTK3 will not be found, if GI can’t find its typelibs.
6410          (add-after
6411              'install 'wrap-program
6412            (lambda* (#:key outputs #:allow-other-keys)
6413              (let ((prog (string-append (assoc-ref outputs "out")
6414                                         "/bin/xpra")))
6415                ;; XXX: only export typelibs in inputs
6416                (wrap-program prog
6417                  `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
6418                #t))))))
6419     (home-page "https://www.xpra.org/")
6420     (synopsis "Remote access to individual applications or full desktops")
6421     (description "Xpra is a persistent remote display server and client for
6422 forwarding applications and desktop screens.  It gives you remote access to
6423 individual applications or full desktops.  On X11, it is also known as
6424 ``@command{screen} for X11'': it allows you to run programs, usually on a
6425 remote host, direct their display to your local machine, and then to
6426 disconnect from these programs and reconnect from the same or another machine,
6427 without losing any state.  It can also be used to forward full desktops from
6428 X11 servers, Windows, or macOS.")
6429     (license license:gpl2+)))
6430
6431 (define-public uim
6432   (package
6433     (name "uim")
6434     (version "1.8.8")
6435     (source
6436      (origin
6437        (method url-fetch)
6438        (uri (string-append "https://github.com/uim/uim/releases/download/"
6439                            version "/uim-" version ".tar.bz2"))
6440        (sha256
6441         (base32
6442          "1p7sl0js47ja4glmax93ci59h02ipqw3wxkh4f1qgaz5qjy9nn9l"))))
6443     (build-system gnu-build-system)
6444     (inputs
6445      `(("anthy" ,anthy)
6446        ("libedit" ,libedit)
6447        ("libxft" ,libxft)
6448        ("m17n-lib" ,m17n-lib)))
6449     (native-inputs
6450      `(("emacs" ,emacs-minimal)
6451        ("intltool" ,intltool)
6452        ("pkg-config" ,pkg-config)))
6453     (arguments
6454      `(#:modules ((guix build gnu-build-system)
6455                   (guix build utils)
6456                   (guix build emacs-utils))
6457        #:imported-modules (,@%gnu-build-system-modules
6458                            (guix build emacs-utils))
6459        #:configure-flags
6460        (list "--with-anthy-utf8"
6461              (string-append "--with-lispdir=" %output "/share/emacs")
6462              ;; Set proper runpath
6463              (string-append "LDFLAGS=-Wl,-rpath=" %output "/lib"))
6464        #:phases
6465        (modify-phases %standard-phases
6466          ;; Set path of uim-el-agent and uim-el-helper-agent executables
6467          (add-after 'configure 'configure-uim-el
6468            (lambda* (#:key outputs #:allow-other-keys)
6469              (let ((out (assoc-ref outputs "out")))
6470                (emacs-substitute-variables "emacs/uim-var.el"
6471                  ("uim-el-agent" (string-append out "/bin/uim-el-agent"))
6472                  ("uim-el-helper-agent" (string-append out "/bin/uim-el-helper-agent"))))
6473              #t))
6474          ;; Fix installation path by renaming share/emacs/uim-el to
6475          ;; share/emacs/site-lisp
6476          (add-after 'install 'fix-install-path
6477            (lambda* (#:key outputs #:allow-other-keys)
6478              (let ((share-emacs (string-append (assoc-ref outputs "out")
6479                                                "/share/emacs")))
6480                (rename-file (string-append share-emacs "/uim-el")
6481                             (string-append share-emacs "/site-lisp")))
6482              #t))
6483          ;; Generate emacs autoloads for uim.el
6484          (add-after 'fix-install-path 'make-autoloads
6485            (lambda* (#:key outputs #:allow-other-keys)
6486              (emacs-generate-autoloads
6487               ,name (string-append (assoc-ref outputs "out")
6488                                    "/share/emacs/site-lisp"))
6489              #t)))))
6490     (home-page "https://github.com/uim/uim")
6491     (synopsis "Multilingual input method framework")
6492     (description "Uim is a multilingual input method library and environment.
6493 It provides a simple, easily extensible and high code-quality input method
6494 development platform, and useful input method environment for users of desktop
6495 and embedded platforms.")
6496     (license (list license:lgpl2.1+ ; scm/py.scm, pixmaps/*.{svg,png} (see pixmaps/README)
6497                    license:gpl2+ ; scm/pinyin-big5.scm
6498                    license:gpl3+ ; scm/elatin-rules.cm
6499                    license:public-domain ; scm/input-parse.scm, scm/match.scm
6500                    ;; gtk2/toolbar/eggtrayicon.{ch},
6501                    ;; qt3/chardict/kseparator.{cpp,h},
6502                    ;; qt3/pref/kseparator.{cpp,h}
6503                    license:lgpl2.0+
6504                    ;; pixmaps/*.{svg,png} (see pixmaps/README),
6505                    ;; all other files
6506                    license:bsd-3))))
6507
6508 (define-public uim-gtk
6509   (package/inherit uim
6510     (name "uim-gtk")
6511     (inputs
6512      `(("gtk" ,gtk+)
6513        ("gtk" ,gtk+-2)
6514        ,@(package-inputs uim)))
6515     (synopsis "Multilingual input method framework (GTK+ support)")))
6516
6517 (define-public uim-qt
6518   (package/inherit uim
6519     (name "uim-qt")
6520     (inputs
6521      `(("qt" ,qtbase-5)
6522        ("qtx11extras" ,qtx11extras)
6523        ,@(package-inputs uim)))
6524     (arguments
6525      (substitute-keyword-arguments (package-arguments uim)
6526        ((#:configure-flags configure-flags)
6527         (append configure-flags (list "--with-qt5-immodule"
6528                                       "--with-qt5")))))
6529     (synopsis "Multilingual input method framework (Qt support)")))
6530
6531 (define-public keynav
6532   (package
6533     (name "keynav")
6534     (version "0.20110708.0")
6535     (source
6536      (origin
6537        (method url-fetch)
6538        (uri (string-append
6539              "http://http.debian.net/debian/pool/main/k/keynav/keynav_"
6540              version ".orig.tar.gz"))
6541        (file-name (string-append name "-" version ".tar.gz"))
6542        (sha256
6543         (base32
6544          "1gizjhji3yspxxxvb90js3z1bv18rbf5phxg8rciixpj3cccff8z"))))
6545     (build-system gnu-build-system)
6546     (inputs
6547      `(("cairo" ,cairo)
6548        ("glib" ,glib)
6549        ("libx11" ,libx11)
6550        ("libxext" ,libxext)
6551        ("libxinerama" ,libxinerama)
6552        ("libxtst" ,libxtst)
6553        ("xdotool" ,xdotool)))
6554     (native-inputs
6555      `(("pkg-config" ,pkg-config)))
6556     (arguments
6557      `(#:tests? #f ;No tests.
6558        #:phases
6559        (modify-phases %standard-phases
6560          (add-after 'unpack 'setenv
6561            (lambda _
6562              (setenv "CC" (which "gcc"))
6563              #t))
6564          (add-after 'unpack 'patch-keynav
6565            (lambda _
6566              (substitute* "keynav.c"
6567                (("xdo_symbol_map") "xdo_get_symbol_map")
6568                (("xdo_window_setclass") "xdo_set_window_class")
6569                (("xdo_window_get_active") "xdo_get_window_at_mouse")
6570                (("xdo_click") "xdo_click_window")
6571                (("xdo_mouseup") "xdo_mouse_up")
6572                (("xdo_mousedown") "xdo_mouse_down")
6573                (("xdo_mousemove") "xdo_move_mouse")
6574                (("xdo_mousemove_relative") "xdo_move_mouse_relative")
6575                (("xdo_mouselocation") "xdo_get_mouse_location")
6576                (("xdo_mouse_wait_for_move_to") "xdo_wait_for_mouse_move_to")
6577                (("xdo_keysequence_up") "xdo_send_keysequence_window_up")
6578                (("xdo_keysequence_down") "xdo_send_keysequence_window_down"))
6579              #t))
6580          (delete 'configure)
6581          (replace 'install
6582            (lambda* (#:key outputs #:allow-other-keys)
6583              (let ((out (assoc-ref outputs "out")))
6584                (install-file "keynav" (string-append out "/bin"))
6585                (install-file "keynavrc" (string-append out "/etc")))
6586              #t)))))
6587     (home-page "https://www.semicomplete.com/projects/keynav/")
6588     (synopsis "Keyboard-driven mouse cursor mover")
6589     (description
6590      "Keynav makes your keyboard a fast mouse cursor mover.  You can move the
6591 cursor to any point on the screen with a few key strokes.  It also simulates
6592 mouse click.  You can do everything mouse can do with a keyboard.")
6593     (license license:bsd-3)))
6594
6595 (define-public transset
6596   (package
6597     (name "transset")
6598     (version "1.0.2")
6599     (source (origin
6600               (method url-fetch)
6601               (uri (string-append "https://www.x.org/releases/individual/app/"
6602                                   name "-" version ".tar.gz"))
6603               (sha256
6604                (base32
6605                 "0rya202y87dwl35jnmq8hs3arzdrv5z4vf1xmi0py4rnmhdpszaw"))))
6606     (build-system gnu-build-system)
6607     (native-inputs
6608      `(("pkg-config" ,pkg-config)))
6609     (inputs `(("libxcomposite" ,libxcomposite)
6610               ("libxdamage" ,libxdamage)
6611               ("libxrender" ,libxrender)))
6612     (synopsis "Set the transparency of X11 windows")
6613     (description "@command{transset} is a simple program for X servers
6614 supporting the XFIXES, DAMAGE, and COMPOSITE extensions.  It lets the
6615 user set the transparency on a window.")
6616     (home-page "https://gitlab.freedesktop.org/xorg/app/transset")
6617     (license license:x11)))
6618
6619 (define-public transset-df
6620   (deprecated-package "transset-df" transset))
6621
6622 (define-public bdfresize
6623   (package
6624     (name "bdfresize")
6625     (version "1.5-11")
6626     (source (origin
6627               ;; Former upstream at
6628               ;; <http://openlab.ring.gr.jp/efont/dist/tools/bdfresize/>
6629               ;; vanished so use Debian, which in practice is the new
6630               ;; upstream.
6631               (method git-fetch)
6632               (uri (git-reference
6633                     (url "https://salsa.debian.org/debian/bdfresize.git")
6634                     (commit (string-append "debian/" version))))
6635               (sha256
6636                (base32
6637                 "0n3i29wicak8n10vkkippym8yw4ir8f7a263a8rwb8q16wqrxx85"))
6638               (modules '((guix build utils)))
6639               (snippet
6640                '(begin
6641                   (for-each make-file-writable (find-files "."))
6642
6643                   ;; Remove broken declaration.
6644                   (substitute* "charresize.c"
6645                     (("char\t\\*malloc\\(\\);")
6646                      ""))
6647
6648                   ;; Remove old configury that doesn't support modern
6649                   ;; command-line options, new architectures, etc.
6650                   (for-each delete-file
6651                             '("configure" "install-sh"
6652                               "missing" "mkinstalldirs"))
6653                   #t))
6654               (file-name (git-file-name name version))))
6655     (build-system gnu-build-system)
6656     (native-inputs
6657      `(("pkg-config" ,pkg-config)
6658        ("autoconf" ,autoconf)
6659        ("automake" ,automake)))
6660     (synopsis "Resize fonts in the BDF format")
6661     (description
6662      "This package provides @command{bdfresize}, a command to magnify or
6663 reduce fonts in the Glyph Bitmap Distribution Format (BDF).  It produces BDF
6664 output.")
6665     (home-page "https://tracker.debian.org/pkg/bdfresize")
6666     (license license:gpl2+)) )
6667
6668 (define-public console-setup
6669   (package
6670     (name "console-setup")
6671     (version "1.203")
6672     (source
6673      (origin
6674        (method git-fetch)
6675        (uri (git-reference
6676              (url "https://salsa.debian.org/installer-team/console-setup.git")
6677              (commit version)))
6678        (sha256
6679         (base32 "1bavb8h4j1za2h7mxr109imicjmh7fp4099lvzfgavhjr3l3vsab"))
6680        (file-name (git-file-name name version))))
6681     (build-system gnu-build-system)
6682     (arguments
6683      '(#:make-flags
6684        (let ((bash (assoc-ref %build-inputs "bash"))
6685              (out (assoc-ref %outputs "out")))
6686          (list (string-append "SHELL=" bash "/bin/bash")))
6687        #:tests? #f                      ; no tests
6688        #:phases
6689        (modify-phases %standard-phases
6690          (delete 'configure)
6691          (add-after 'unpack 'patch-file-names
6692            (lambda _
6693              ;; 'ckbcomp' calls out to 'cat' (!).  Give it the right file
6694              ;; name.
6695              (substitute* '("Keyboard/ckbcomp")
6696                (("\"cat ")
6697                 (string-append "\"" (which "cat")
6698                                " ")))
6699              #t))
6700          (add-before 'build 'make-doubled-bdfs
6701            (lambda* (#:key native-inputs inputs #:allow-other-keys)
6702              (invoke "make" "-C" "Fonts"
6703                      "doubled_bdfs"
6704                      (string-append "SHELL="
6705                                     (assoc-ref (or native-inputs inputs)
6706                                                "bash")
6707                                     "/bin/bash"))))
6708          (replace 'install
6709            (lambda* (#:key native-inputs inputs outputs #:allow-other-keys)
6710              (let ((out (assoc-ref %outputs "out")))
6711                (invoke "make" "install-linux"
6712                        (string-append "prefix=" out)
6713                        (string-append "SHELL="
6714                                       (assoc-ref (or native-inputs inputs)
6715                                                  "bash")
6716                                       "/bin/bash"))))))))
6717     (native-inputs
6718      `(("pkg-config" ,pkg-config)
6719        ("bdftopcf" ,bdftopcf)
6720        ("bdfresize" ,bdfresize)
6721        ("sharutils" ,sharutils)         ; for 'uuencode'
6722        ("perl" ,perl)))
6723     (inputs
6724      `(("perl" ,perl)))                 ; used by 'ckbcomp'
6725     (synopsis "Set up the Linux console font and keyboard")
6726     (description
6727      "console-setup provides the console with the same keyboard
6728 configuration scheme that the X Window System has.  In particular, the
6729 @command{ckbcomp} program compiles an XKB keyboard description to a keymap
6730 suitable for @command{loadkeys} or @command{kbdcontrol}.  As a result, there
6731 is no need to duplicate or change the console keyboard files just to make
6732 simple customizations.
6733
6734 Besides the keyboard, the package also configures the font on the console.  It
6735 includes a rich collection of fonts and supports several languages that would
6736 otherwise be unsupported on the console (such as Armenian, Georgian, Lao, and
6737 Thai).")
6738     (home-page "https://salsa.debian.org/installer-team/console-setup/")
6739
6740     ;; Most of the code is GPLv2+; the Expat license applies to 'setupcon' and
6741     ;; 'ckbcomp-mini'.  The installed precompiled keyboard files are covered
6742     ;; by simple permissive licenses.  See the 'COPYRIGHT' file.
6743     (license (list license:gpl2+
6744                    license:expat))))
6745
6746 (define-public xcur2png
6747   (package
6748     (name "xcur2png")
6749     (version "0.7.1")
6750     (source
6751      (origin
6752        (method git-fetch)
6753        (uri (git-reference
6754              (url "https://github.com/eworm-de/xcur2png")
6755              (commit version)))
6756        (file-name (git-file-name name version))
6757        (sha256
6758         (base32 "0858wn2p14bxpv9lvaz2bz1rk6zk0g8zgxf8iy595m8fqv4q2fya"))))
6759     (build-system gnu-build-system)
6760     (native-inputs
6761      `(("pkg-config" ,pkg-config)))
6762     (inputs
6763      `(("libpng" ,libpng)
6764        ("libxcursor" ,libxcursor)))
6765     (synopsis "Decode X cursors")
6766     (description
6767      "xcur2png is a program decomposes an X cursor into a set of PNG images and
6768 a configuration file reusable by xcursorgen.")
6769     (home-page "https://github.com/eworm-de/xcur2png")
6770     (license license:gpl3+)))
6771
6772 (define-public gccmakedep
6773   (package
6774     (name "gccmakedep")
6775     (version "1.0.3")
6776     (source
6777      (origin
6778        (method url-fetch)
6779        (uri (string-append "mirror://xorg/individual/util/gccmakedep-"
6780                            version ".tar.bz2"))
6781        (sha256
6782         (base32 "1r1fpy5ni8chbgx7j5sz0008fpb6vbazpy1nifgdhgijyzqxqxdj"))))
6783     (build-system gnu-build-system)
6784     (synopsis "Create dependencies in makefiles using 'gcc -M'")
6785     (description
6786      "@command{gccmakedep} is a deprecated program which calls @code{gcc -M}
6787 to output Makefile rules describing the dependencies of each source file, so
6788 that Make knows which object files must be recompiled when a dependency has
6789 changed.")
6790     (home-page "https://gitlab.freedesktop.org/xorg/util/gccmakedep")
6791     (license license:x11)))
6792
6793 (define-public xdialog
6794   (package
6795     (name "xdialog")
6796     (version "2.3.1")
6797     (source (origin
6798               (method url-fetch)
6799               (uri (string-append "http://xdialog.free.fr/Xdialog-"
6800                                   version ".tar.bz2"))
6801               (sha256
6802                (base32
6803                 "16jqparb33lfq4cvd9l3jgd7fq86fk9gv2ixc8vgqibid6cnhi0x"))))
6804     (native-inputs
6805      `(("pkg-config" ,pkg-config)))
6806     (inputs
6807      `(("glib" ,glib)
6808        ("gettext" ,gettext-minimal)
6809        ("gtk" ,gtk+-2)))
6810     (arguments
6811      `(#:configure-flags '("--with-gtk2")))
6812     (build-system gnu-build-system)
6813     (home-page "http://xdialog.free.fr/")
6814     (synopsis "Convert a terminal program into a program with an X interface")
6815     (description "X11 replacement for the text util dialog Xdialog is designed
6816 to be a drop-in replacement for the dialog and cdialog programs.  It converts
6817 any terminal-based program into a program with an X interface.  The dialogs
6818 are easier to see and use, and Xdialog adds more functionality such as a help
6819 button and box, a treeview, an editbox, file and directory selectors, a range
6820 box, and a calendar.  It uses GTK+, and will match your desktop theme.")
6821     (license license:gpl2+)))
6822
6823 (define-public xvfb-run
6824   (package
6825     (name "xvfb-run")
6826     (version "1.20.10-3")
6827     (source
6828      (origin
6829        (method url-fetch)
6830        (uri (string-append "mirror://debian/pool/main/x/xorg-server/"
6831                            "xorg-server_" version ".diff.gz"))
6832        (sha256
6833         (base32 "08gs9ni8ss8rw4n9cql1s8q05mj517vk1vm1varj1dsx75k4j25v"))))
6834     (build-system gnu-build-system)
6835     (arguments
6836      `(#:phases
6837        (modify-phases %standard-phases
6838          (replace 'unpack
6839            ;; Apply the source patch to an empty directory.
6840            (lambda* (#:key inputs #:allow-other-keys)
6841              (let* ((source (assoc-ref inputs "source"))
6842                     (diff.gz (basename source))
6843                     (diff (substring diff.gz 0 (string-rindex diff.gz #\.))))
6844                (mkdir "source")
6845                (chdir "source")
6846                (copy-file source diff.gz)
6847                (invoke "gunzip" diff.gz)
6848                (invoke "patch" "-Np1" "-i" diff)
6849                (chdir "debian/local"))))
6850          (delete 'configure)            ; nothing to configure
6851          (replace 'build
6852            (lambda _
6853              (chmod "xvfb-run" #o755)
6854              (substitute* "xvfb-run"
6855                (("(\\(| )(fmt|stty|awk|kill|getopt|mktemp|touch|rm|mcookie)"
6856                  _ prefix command)
6857                 (string-append prefix (which command)))
6858                ;; These also feature in UI messages, so be more strict.
6859                (("(AUTHFILE |command -v |exec )(Xvfb|xauth)"
6860                  _ prefix command)
6861                 (string-append prefix (which command))))))
6862          (replace 'check
6863            ;; There are no tests included.  Here we test whether we can run
6864            ;; a simple client without xvfb-run itself relying on $PATH.
6865            (lambda* (#:key tests? #:allow-other-keys)
6866              (when tests?
6867                (let ((old-PATH (getenv "PATH"))
6868                      (xterm (which "xterm")))
6869                  (unsetenv "PATH")
6870                  (invoke "./xvfb-run" xterm "-e" "true")
6871                  (setenv "PATH" old-PATH)))))
6872          (replace 'install
6873            (lambda* (#:key outputs #:allow-other-keys)
6874              (let* ((out (assoc-ref outputs "out"))
6875                     (bin (string-append out "/bin"))
6876                     (man (string-append out "/share/man/man1")))
6877                (install-file "xvfb-run" bin)
6878                (install-file "xvfb-run.1" man)))))))
6879     (inputs
6880      `(("util-linux" ,util-linux)       ; for getopt
6881        ("xauth" ,xauth)
6882        ("xorg-server" ,xorg-server)))
6883     (native-inputs
6884      `(("xterm" ,xterm)))               ; for the test
6885     ;; This script is not part of the upstream xorg-server.  It is provided only
6886     ;; as a patch added to Debian's package.
6887     (home-page "https://packages.debian.org/sid/xorg-server-source")
6888     (synopsis "Run X11 client or command in a virtual X server environment")
6889     (description
6890      "The @command{xvfb-run} wrapper simplifies running commands and scripts
6891 within a virtual X server environment.  It sets up an X authority file or uses
6892 an existing user-specified one, writes a cookie to it, and then starts the
6893 @command{Xvfb} X server as a background process.  It also takes care of killing
6894 the server and cleaning up before returning the exit status of the command.")
6895     (license (list license:x11                    ; the script
6896                    license:gpl2+))))              ; the man page