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