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