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.3")
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             "1fwwfq9v3sqmpzpscymswxn76xhxnysa24pfim1mcpxhvjcl89id"))))
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.3")
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             "0ab53h0rkq721ihk5hi469x500f3pgbkm1wy01yf24x5m923nli0"))))
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.3")
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             "05lja9s54090xwh31r0bqms4v3pimng5xr09g2rdnafx2vk6hp12"))))
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.3")
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             "0cdpqnx6258i4l6qhphvkdiyspysg0i5caqjy820kp63wwjk4d4w"))))
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     (arguments
2396      `(#:phases (modify-phases %standard-phases
2397                   (add-before 'configure 'pedantry
2398                     (lambda _
2399                       ;; XXX: libevdev includes kernel headers, which causes this
2400                       ;; compile test to fail with:
2401                       ;; ...-headers-4.14.67/include/asm-generic/posix_types.h:88:14:
2402                       ;;error: ISO C90 does not support ‘long long’ [-Werror=long-long]
2403                       (substitute* "test/Makefile.in"
2404                         (("-pedantic -Werror -std=c89")
2405                          "-pedantic -Werror -std=c99"))
2406                       #t)))))
2407     (native-inputs `(("python" ,python)))
2408     (home-page "https://www.freedesktop.org/wiki/Software/libevdev/")
2409     (synopsis "Wrapper library for evdev devices")
2410     (description
2411      "libevdev is a wrapper library for evdev devices. it moves the common
2412 tasks when dealing with evdev devices into a library and provides a library
2413 interface to the callers, thus avoiding erroneous ioctls, etc.
2414
2415 The eventual goal is that libevdev wraps all ioctls available to evdev
2416 devices, thus making direct access unnecessary.")
2417     (license (license:x11-style "file://COPYING"))))
2418
2419
2420 (define-public xf86-input-evdev
2421   (package
2422     (name "xf86-input-evdev")
2423     (version "2.10.6")
2424     (source
2425       (origin
2426         (method url-fetch)
2427         (uri (string-append
2428                "mirror://xorg/individual/driver/xf86-input-evdev-"
2429                version
2430                ".tar.bz2"))
2431         (sha256
2432           (base32
2433            "1h1y0fwnawlp4yc5llr1l7hwfcxxpln2fxhy6arcf6w6h4z0f9l7"))))
2434     (build-system gnu-build-system)
2435     (inputs
2436       `(("udev" ,eudev)
2437         ("libevdev" ,libevdev)
2438         ("mtdev" ,mtdev)
2439         ("xorg-server" ,xorg-server)))
2440     (native-inputs `(("pkg-config" ,pkg-config)))
2441     (arguments
2442      `(#:configure-flags
2443        (list (string-append "--with-sdkdir="
2444                             (assoc-ref %outputs "out")
2445                             "/include/xorg"))))
2446     (home-page "https://www.x.org/wiki/")
2447     (synopsis "Generic input driver for X server")
2448     (description
2449      "xf86-input-evdev is a generic input driver for the Xorg X server.
2450 This driver supports all input devices that the kernel knows about,
2451 including most mice, keyboards, tablets and touchscreens.")
2452     (license license:x11)))
2453
2454 (define-public xf86-input-libinput
2455   (package
2456     (name "xf86-input-libinput")
2457     (version "0.28.2")
2458     (source (origin
2459               (method url-fetch)
2460               (uri (string-append
2461                     "mirror://xorg/individual/driver/"
2462                     name "-" version ".tar.bz2"))
2463               (sha256
2464                (base32
2465                 "0818vr0yhk9j1y1wcbxzcd458vrvp06rrhi8k43bhqkb5jb4dcxq"))))
2466     (build-system gnu-build-system)
2467     (arguments
2468      '(#:configure-flags
2469        (list (string-append "--with-sdkdir="
2470                             %output "/include/xorg"))))
2471     (native-inputs
2472      `(("pkg-config" ,pkg-config)))
2473     (inputs
2474      `(("libinput" ,libinput)
2475        ("xorg-server" ,xorg-server)))
2476     (home-page "https://www.x.org/wiki/")
2477     (synopsis "Input driver for X server based on libinput")
2478     (description
2479      "xf86-input-libinput is an input driver for the Xorg X server based
2480 on libinput.  It is a thin wrapper around libinput, so while it does
2481 provide all features that libinput supports it does little beyond.")
2482     (license license:x11)))
2483
2484 (define-public xf86-input-joystick
2485   (package
2486     (name "xf86-input-joystick")
2487     (version "1.6.3")
2488     (source
2489       (origin
2490         (method url-fetch)
2491         (uri (string-append
2492                "mirror://xorg/individual/driver/xf86-input-joystick-"
2493                version
2494                ".tar.bz2"))
2495         (sha256
2496           (base32
2497             "1awfq496d082brgjbr60lhm6jvr9537rflwxqdfqwfzjy3n6jxly"))))
2498     (build-system gnu-build-system)
2499     (inputs `(("xorg-server" ,xorg-server)))
2500     (native-inputs `(("pkg-config" ,pkg-config)))
2501     (arguments
2502      `(#:configure-flags
2503        (list (string-append "--with-sdkdir="
2504                             (assoc-ref %outputs "out")
2505                             "/include/xorg"))))
2506     (home-page "https://www.x.org/wiki/")
2507     (synopsis "Joystick input driver for X server")
2508     (description
2509      "xf86-input-joystick is a joystick input driver for the Xorg X server.
2510 It is used to cotrol the pointer with a joystick device.")
2511     (license license:x11)))
2512
2513
2514 (define-public xf86-input-keyboard
2515   (package
2516     (name "xf86-input-keyboard")
2517     (version "1.9.0")
2518     (source
2519       (origin
2520         (method url-fetch)
2521         (uri (string-append
2522                "mirror://xorg/individual/driver/xf86-input-keyboard-"
2523                version
2524                ".tar.bz2"))
2525         (sha256
2526           (base32
2527             "12032yg412kyvnmc5fha1in7mpi651d8sa1bk4138s2j2zr01jgp"))))
2528     (build-system gnu-build-system)
2529     (inputs `(("xorg-server" ,xorg-server)))
2530     (native-inputs `(("pkg-config" ,pkg-config)))
2531     (home-page "https://www.x.org/wiki/")
2532     (synopsis "Keyboard input driver for X server")
2533     (description
2534      "xf86-input-keyboard is a keyboard input driver for the Xorg X server.")
2535     (license license:x11)))
2536
2537
2538 (define-public xf86-input-mouse
2539   (package
2540     (name "xf86-input-mouse")
2541     (version "1.9.3")
2542     (source
2543       (origin
2544         (method url-fetch)
2545         (uri (string-append
2546                "mirror://xorg/individual/driver/xf86-input-mouse-"
2547                version
2548                ".tar.bz2"))
2549         (sha256
2550           (base32
2551             "1iawr1wyl2qch1mqszcs0s84i92mh4xxprflnycbw1adc18b7v4k"))))
2552     (build-system gnu-build-system)
2553     (inputs `(("xorg-server" ,xorg-server)))
2554     (native-inputs `(("pkg-config" ,pkg-config)))
2555     (arguments
2556      `(#:configure-flags
2557        (list (string-append "--with-sdkdir="
2558                             (assoc-ref %outputs "out")
2559                             "/include/xorg"))))
2560     (home-page "https://www.x.org/wiki/")
2561     (synopsis "Mouse input driver for X server")
2562     (description
2563      "xf86-input-mouse is a mouse input driver for the Xorg X server.
2564 This driver supports four classes of mice: serial, bus and PS/2 mice,
2565 and additional mouse types supported by specific operating systems, such
2566 as USB mice.")
2567     (license license:x11)))
2568
2569
2570 (define-public xf86-input-synaptics
2571   (package
2572     (name "xf86-input-synaptics")
2573     (version "1.9.1")
2574     (source
2575       (origin
2576         (method url-fetch)
2577         (uri (string-append
2578                "mirror://xorg/individual/driver/xf86-input-synaptics-"
2579                version
2580                ".tar.bz2"))
2581         (sha256
2582           (base32
2583             "0xhm03qywwfgkpfl904d08lx00y28m1b6lqmks5nxizixwk3by3s"))))
2584     (build-system gnu-build-system)
2585     (inputs `(("libx11" ,libx11)
2586               ("libxi" ,libxi)
2587               ("libevdev" ,libevdev)
2588               ("mtdev" ,mtdev)
2589               ("xorg-server" ,xorg-server)))
2590     (native-inputs `(("pkg-config" ,pkg-config)))
2591     (arguments
2592      `(#:configure-flags
2593        (list (string-append "--with-sdkdir="
2594                             (assoc-ref %outputs "out")
2595                             "/include/xorg")
2596              (string-append "--with-xorg-conf-dir="
2597                             (assoc-ref %outputs "out")
2598                             "/share/X11/xorg.conf.d"))))
2599     (home-page "https://www.x.org/wiki/")
2600     (synopsis "Touchpad input driver for X server")
2601     (description
2602      "xf86-input-synaptics is a touchpad driver for the Xorg X server.")
2603     (license license:x11)))
2604
2605
2606 (define-public xf86-input-void
2607   (package
2608     (name "xf86-input-void")
2609     (version "1.4.1")
2610     (source
2611       (origin
2612         (method url-fetch)
2613         (uri (string-append
2614                "mirror://xorg/individual/driver/xf86-input-void-"
2615                version
2616                ".tar.bz2"))
2617         (sha256
2618           (base32
2619             "171k8b8s42s3w73l7ln9jqwk88w4l7r1km2blx1vy898c854yvpr"))))
2620     (build-system gnu-build-system)
2621     (inputs `(("xorg-server" ,xorg-server)))
2622     (native-inputs `(("pkg-config" ,pkg-config)))
2623     (home-page "https://www.x.org/wiki/")
2624     (synopsis "Void (null) input driver for X server")
2625     (description
2626      "xf86-input-void is a null input driver for the Xorg X server.")
2627     (license license:x11)))
2628
2629 (define-public xf86-video-amdgpu
2630   (package
2631     (name "xf86-video-amdgpu")
2632     (version "19.0.1")
2633     (source
2634      (origin
2635        (method url-fetch)
2636        (uri (string-append "mirror://xorg/individual/driver/"
2637                            "xf86-video-amdgpu-" version ".tar.bz2"))
2638        (sha256
2639         (base32 "1mf6s7i423b2xyl469kwnakrpp5fr41sm8hh7vli5jxdd8crg8da"))))
2640     (build-system gnu-build-system)
2641     (inputs `(("xorg-server" ,xorg-server)))
2642     (native-inputs `(("pkg-config" ,pkg-config)))
2643     (home-page "https://www.x.org/wiki/")
2644     (synopsis "AMD Radeon video driver for X server")
2645     (description
2646      "xf86-video-amdgpu is an AMD Radeon video driver for the Xorg
2647 X server.")
2648     (license license:x11)))
2649
2650 (define-public xf86-video-ark
2651   (package
2652     (name "xf86-video-ark")
2653     (version "0.7.5")
2654     (source
2655       (origin
2656         (method url-fetch)
2657         (uri (string-append
2658                "mirror://xorg/individual/driver/xf86-video-ark-"
2659                version
2660                ".tar.bz2"))
2661         (sha256
2662           (base32
2663            "07p5vdsj2ckxb6wh02s61akcv4qfg6s1d5ld3jn3lfaayd3f1466"))
2664         (patches (search-patches "xf86-video-ark-remove-mibstore.patch"))))
2665     (build-system gnu-build-system)
2666     (inputs `(("xorg-server" ,xorg-server)))
2667     (native-inputs `(("pkg-config" ,pkg-config)))
2668     (home-page "https://www.x.org/wiki/")
2669     (synopsis "Ark Logic video driver for X server")
2670     (description
2671      "xf86-video-ark is an Ark Logic video driver for the Xorg X server.")
2672     (license license:x11)))
2673
2674 (define-public xf86-video-ast
2675   (package
2676     (name "xf86-video-ast")
2677     (version "1.1.5")
2678     (home-page "https://cgit.freedesktop.org/xorg/driver/xf86-video-ast/")
2679     (source (origin
2680               (method url-fetch)
2681               (uri (string-append
2682                     "mirror://xorg/individual/driver/xf86-video-ast-"
2683                     version ".tar.bz2"))
2684               (sha256
2685                (base32
2686                 "1pm2cy81ma7ldsw0yfk28b33h9z2hcj5rccrxhfxfgvxsiavrnqy"))))
2687     (build-system gnu-build-system)
2688     (inputs `(("xorg-server" ,xorg-server)))
2689     (native-inputs `(("pkg-config" ,pkg-config)))
2690     (synopsis "ASpeed Technologies video driver for X server")
2691     (description
2692      "xf86-video-ast is an ASpeed Technologies video driver for the Xorg
2693 X server.")
2694     (license license:x11)))
2695
2696 (define-public xf86-video-ati
2697   (package
2698     (name "xf86-video-ati")
2699     (version "19.0.1")
2700     (source
2701      (origin
2702        (method url-fetch)
2703        (uri (string-append "mirror://xorg/individual/driver/"
2704                            "xf86-video-ati-" version ".tar.bz2"))
2705        (sha256
2706         (base32 "1c31g5q5p3nk9nscwikh1vvfnhdwsxiw7j8v678nlm34hrfh3djw"))))
2707     (build-system gnu-build-system)
2708     (inputs `(("mesa" ,mesa)
2709               ("xorgproto" ,xorgproto)
2710               ("xorg-server" ,xorg-server)))
2711     (native-inputs `(("pkg-config" ,pkg-config)))
2712     (arguments `(#:configure-flags `("--disable-glamor"))) ; TODO: Enable glamor
2713     (home-page "https://www.x.org/wiki/")
2714     (synopsis "ATI Radeon video driver for X server")
2715     (description
2716      "xf86-video-ati is an ATI Radeon video driver for the Xorg
2717 X server.")
2718     (license license:x11)))
2719
2720
2721 (define-public xf86-video-cirrus
2722   (package
2723     (name "xf86-video-cirrus")
2724     (version "1.5.3")
2725     (source
2726       (origin
2727         (method url-fetch)
2728         (uri (string-append
2729                "mirror://xorg/individual/driver/xf86-video-cirrus-"
2730                version
2731                ".tar.bz2"))
2732         (sha256
2733           (base32
2734             "1asifc6ld2g9kap15vfhvsvyl69lj7pw3d9ra9mi4najllh7pj7d"))))
2735     (build-system gnu-build-system)
2736     (inputs `(("xorg-server" ,xorg-server)))
2737     (native-inputs `(("pkg-config" ,pkg-config)))
2738     (home-page "https://www.x.org/wiki/")
2739     (synopsis "Cirrus Logic video driver for X server")
2740     (description
2741      "xf86-video-cirrus is a Cirrus Logic video driver for the Xorg
2742 X server.")
2743     (license license:x11)))
2744
2745
2746 ;; non-free license
2747 ;; (define-public xf86-video-dummy
2748
2749
2750 (define-public xf86-video-fbdev
2751   (package
2752     (name "xf86-video-fbdev")
2753     (version "0.5.0")
2754     (source
2755       (origin
2756         (method url-fetch)
2757         (uri (string-append
2758                "mirror://xorg/individual/driver/xf86-video-fbdev-"
2759                version
2760                ".tar.bz2"))
2761         (sha256
2762           (base32
2763             "16a66zr0l1lmssa07i3rzy07djxnb45c17ks8c71h8l06xgxihyw"))))
2764     (build-system gnu-build-system)
2765     (inputs `(("xorg-server" ,xorg-server)))
2766     (native-inputs `(("pkg-config" ,pkg-config)))
2767     (home-page "https://www.x.org/wiki/")
2768     (synopsis "Framebuffer device video driver for X server")
2769     (description
2770      "xf86-video-fbdev is a video driver for the Xorg X server for
2771 framebuffer device.")
2772     (license license:x11)))
2773
2774
2775 (define-public xf86-video-freedreno
2776   (let ((commit "ccba8f89995de7d5e1b216e580b789c4cda05035"))
2777     (package
2778       (name "xf86-video-freedreno")
2779       (version (string-append "1.4.0-1-" (string-take commit 7)))
2780       (source
2781        (origin
2782          ;; there's no current tarball
2783          (method git-fetch)
2784          (uri (git-reference
2785                (url (string-append "https://anongit.freedesktop.org/git/xorg/"
2786                                    "driver/xf86-video-freedreno.git"))
2787                (commit commit)))
2788          (sha256
2789           (base32
2790            "0bl9m1agi793lcddv94j8afzw1xc9w810q91mbq0n3dscbbcr9nh"))
2791          (file-name (string-append name "-" version))))
2792       (build-system gnu-build-system)
2793       (inputs
2794        `(("libdrm" ,libdrm)
2795          ("mesa" ,mesa)
2796          ("udev" ,eudev)
2797          ("xorg-server" ,xorg-server)
2798          ("zlib" ,zlib)))
2799       (native-inputs
2800        `(("pkg-config" ,pkg-config)
2801          ("autoconf" ,autoconf)
2802          ("automake" ,automake)
2803          ("libtool" ,libtool)))
2804        ;; This driver is only supported on ARM systems.
2805       (supported-systems '("armhf-linux" "aarch64-linux"))
2806       (arguments
2807        `(#:configure-flags
2808          (list (string-append "--with-xorg-conf-dir="
2809                               (assoc-ref %outputs "out")
2810                               "/share/X11/xorg.conf.d"))))
2811       (home-page "https://www.x.org/wiki/")
2812       (synopsis "Adreno video driver for X server")
2813       (description
2814        "xf86-video-freedreno is a 2D graphics driver for the Xorg X server.
2815 It supports a variety of Adreno graphics chipsets.")
2816       (license license:x11))))
2817
2818
2819 (define-public xf86-video-geode
2820   (package
2821     (name "xf86-video-geode")
2822     (version "2.11.19")
2823     (source
2824       (origin
2825         (method url-fetch)
2826         (uri (string-append
2827                "mirror://xorg/individual/driver/xf86-video-geode-"
2828                version
2829                ".tar.bz2"))
2830         (sha256
2831           (base32
2832            "0zn9gb49grds5mcs1dlrx241k2w1sgqmx4i5x7v6159xxqhlqsf6"))
2833         (patches (search-patches "xf86-video-geode-glibc-2.20.patch"))))
2834     (build-system gnu-build-system)
2835     (inputs `(("xorg-server" ,xorg-server)))
2836     (native-inputs `(("pkg-config" ,pkg-config)))
2837     (supported-systems
2838      ;; This driver is only supported on i686 systems.
2839      (filter (lambda (system) (string-prefix? "i686-" system))
2840              %supported-systems))
2841     (home-page "https://www.x.org/wiki/")
2842     (synopsis "AMD Geode GX/LX video driver for X server")
2843     (description
2844      "xf86-video-geode is an Xorg X server video driver for the AMD
2845 Geode GX and LX processors.  The GX component supports both XAA and EXA
2846 for graphics acceleration.  The LX component supports EXA, including
2847 compositing.  Both support Xv overlay and dynamic rotation with XRandR.")
2848     (license license:x11)))
2849
2850
2851 ;; Driver for obsolete graphics cards, depends on libglide:
2852 ;; http://sourceforge.net/projects/glide/ ,
2853 ;; last updated in 2003, and which does not compile out of the box any more.
2854 ;; (define-public xf86-video-glide
2855 ;;   (package
2856 ;;     (name "xf86-video-glide")
2857 ;;     (version "1.2.0")
2858 ;;     (source
2859 ;;       (origin
2860 ;;         (method url-fetch)
2861 ;;         (uri (string-append
2862 ;;                "mirror://xorg/X11R7.7/src/everything/xf86-video-glide-"
2863 ;;                version
2864 ;;                ".tar.bz2"))
2865 ;;         (sha256
2866 ;;           (base32
2867 ;;             "0byapm9mnpqk3wijfnnan3d22ii5cw6dmg4xn1625iiz89j5vs1l"))))
2868 ;;     (build-system gnu-build-system)
2869 ;;     (inputs `(("pkg-config" ,pkg-config)
2870 ;;               ("xorg-server" ,xorg-server)))
2871 ;;     (home-page "https://www.x.org/wiki/")
2872 ;;     (synopsis "Glide video driver for X server")
2873 ;;     (description
2874 ;;      "xf86-video-glide is a Glide video driver for the Xorg X server.")
2875 ;;     (license license:x11)))
2876
2877
2878 (define-public xf86-video-glint
2879   (package
2880     (name "xf86-video-glint")
2881     (version "1.2.9")
2882     (source
2883       (origin
2884         (method url-fetch)
2885         (uri (string-append
2886                "mirror://xorg/individual/driver/xf86-video-glint-"
2887                version
2888                ".tar.bz2"))
2889         (sha256
2890           (base32
2891            "1lkpspvrvrp9s539bhfdjfh4andaqyk63l6zjn8m3km95smk6a45"))))
2892     (build-system gnu-build-system)
2893     (inputs `(("xorgproto" ,xorgproto)
2894               ("xorg-server" ,xorg-server)))
2895     (native-inputs `(("pkg-config" ,pkg-config)))
2896     (home-page "https://www.x.org/wiki/")
2897     (synopsis "GLINT/Permedia video driver for X server")
2898     (description
2899      "xf86-video-glint is a GLINT/Permedia video driver for the Xorg
2900 X server.")
2901     (license license:x11)))
2902
2903
2904 (define-public xf86-video-i128
2905   (package
2906     (name "xf86-video-i128")
2907     (version "1.4.0")
2908     (source
2909       (origin
2910         (method url-fetch)
2911         (uri (string-append
2912                "mirror://xorg/individual/driver/xf86-video-i128-"
2913                version
2914                ".tar.bz2"))
2915         (sha256
2916           (base32
2917            "1snhpv1igrhifcls3r498kjd14ml6x2xvih7zk9xlsd1ymmhlb4g"))))
2918     (build-system gnu-build-system)
2919     (inputs `(("xorg-server" ,xorg-server)))
2920     (native-inputs `(("pkg-config" ,pkg-config)))
2921     (home-page "https://www.x.org/wiki/")
2922     (synopsis "I128 video driver for X server")
2923     (description
2924      "xf86-video-i128 is an I128 (Imagine 128) video driver for the Xorg
2925 X server.")
2926     (license license:x11)))
2927
2928
2929 (define-public xf86-video-intel
2930   (let ((commit "6afed33b2d673d88674f0c76efe500ae414e8e1b")
2931         (revision "13"))
2932     (package
2933       (name "xf86-video-intel")
2934       (version (git-version "2.99.917" revision commit))
2935       (source
2936        (origin
2937          ;; there's no current tarball
2938          (method git-fetch)
2939          (uri (git-reference
2940                (url "https://anongit.freedesktop.org/git/xorg/driver/xf86-video-intel.git")
2941                (commit commit)))
2942          (sha256
2943           (base32
2944            "1s3fqlqzmql7s15m7qy21vai93n6q9f0ccpv0p353rwfx16mmf35"))
2945          (file-name (git-file-name name version))))
2946       (build-system gnu-build-system)
2947       (inputs `(("mesa" ,mesa)
2948                 ("udev" ,eudev)
2949                 ("libx11" ,libx11)
2950                 ("libxfont" ,libxfont2)
2951                 ("xorg-server" ,xorg-server)))
2952       (native-inputs
2953        `(("pkg-config" ,pkg-config)
2954          ("autoconf" ,autoconf)
2955          ("automake" ,automake)
2956          ("libtool" ,libtool)))
2957       (supported-systems
2958        ;; This driver is only supported on Intel systems.
2959        (filter (lambda (system) (or (string-prefix? "i686-" system)
2960                                     (string-prefix? "x86_64-" system)))
2961                %supported-systems))
2962       (arguments
2963        '(#:configure-flags '("--with-default-accel=uxa")
2964          #:phases (modify-phases %standard-phases
2965                     (add-before 'bootstrap 'pre-bootstrap
2966                       (lambda _
2967                         ;; Inhibit autogen.sh from running configure.
2968                         (setenv "NOCONFIGURE" "1")
2969                         #t)))))
2970       (home-page "https://www.x.org/wiki/")
2971       (synopsis "Intel video driver for X server")
2972       (description
2973        "xf86-video-intel is a 2D graphics driver for the Xorg X server.
2974 It supports a variety of Intel graphics chipsets.")
2975       (license license:x11))))
2976
2977
2978 (define-public xf86-video-mach64
2979   (package
2980     (name "xf86-video-mach64")
2981     (version "6.9.6")
2982     (source
2983       (origin
2984         (method url-fetch)
2985         (uri (string-append
2986                "mirror://xorg/individual/driver/xf86-video-mach64-"
2987                version
2988                ".tar.bz2"))
2989         (sha256
2990           (base32
2991            "171wg8r6py1l138s58rlapin3rlpwsg9spmvhc7l68mm3g3hf1vs"))
2992         (patches (search-patches "xf86-video-mach64-glibc-2.20.patch"))))
2993     (build-system gnu-build-system)
2994     (inputs `(("mesa" ,mesa)
2995               ("xorgproto" ,xorgproto)
2996               ("xorg-server" ,xorg-server)))
2997     (native-inputs
2998       `(("pkg-config" ,pkg-config)))
2999     (home-page "https://www.x.org/wiki/")
3000     (synopsis "Mach64 video driver for X server")
3001     (description
3002      "xf86-video-mach64 is a video driver for the Xorg X server.
3003 This driver is intended for all ATI video adapters based on the Mach64
3004 series or older chipsets, providing maximum video function within
3005 hardware limitations.  The driver is also intended to optionally provide
3006 the same level of support for generic VGA or 8514/A adapters.")
3007     (license license:x11)))
3008
3009
3010 (define-public xf86-video-mga
3011   (package
3012     (name "xf86-video-mga")
3013     (version "2.0.0")
3014     (source
3015       (origin
3016         (method url-fetch)
3017         (uri (string-append
3018                "mirror://xorg/individual/driver/xf86-video-mga-"
3019                version
3020                ".tar.bz2"))
3021         (sha256
3022           (base32
3023            "0yaxpgyyj9398nzzr5vnsfxcis76z46p9814yzj8179yl7hld296"))))
3024     (build-system gnu-build-system)
3025     (inputs `(("mesa" ,mesa)
3026               ("xorgproto" ,xorgproto)
3027               ("xorg-server" ,xorg-server)))
3028     (native-inputs `(("pkg-config" ,pkg-config)))
3029     (home-page "https://www.x.org/wiki/")
3030     (synopsis "Matrox video driver for X server")
3031     (description
3032      "xf86-video-mga is a Matrox video driver for the Xorg X server.")
3033     (license license:x11)))
3034
3035 (define-public xf86-video-neomagic
3036   (package
3037     (name "xf86-video-neomagic")
3038     (version "1.3.0")
3039     (source
3040       (origin
3041         (method url-fetch)
3042         (uri (string-append
3043                "mirror://xorg/individual/driver/xf86-video-neomagic-"
3044                version
3045                ".tar.bz2"))
3046         (sha256
3047           (base32
3048             "0r4h673kw8fl7afc30anwbjlbhp82mg15fvaxf470xg7z983k0wk"))))
3049     (build-system gnu-build-system)
3050     (inputs `(("xorgproto" ,xorgproto)
3051               ("xorg-server" ,xorg-server)))
3052     (native-inputs `(("pkg-config" ,pkg-config)))
3053     (home-page "https://www.x.org/wiki/")
3054     (synopsis "NeoMagic video driver for X server")
3055     (description
3056      "xf86-video-neomagic is a NeoMagic video driver for the Xorg X server.")
3057     (license license:x11)))
3058
3059
3060 ;; This driver depends on XAA which has been removed from xorg-server.
3061
3062 ;; (define-public xf86-video-newport
3063 ;;   (package
3064 ;;     (name "xf86-video-newport")
3065 ;;     (version "0.2.4")
3066 ;;     (source
3067 ;;       (origin
3068 ;;         (method url-fetch)
3069 ;;         (uri (string-append
3070 ;;                "mirror://xorg/individual/driver/xf86-video-newport-"
3071 ;;                version
3072 ;;                ".tar.bz2"))
3073 ;;         (sha256
3074 ;;           (base32
3075 ;;             "1yafmp23jrfdmc094i6a4dsizapsc9v0pl65cpc8w1kvn7343k4i"))))
3076 ;;     (build-system gnu-build-system)
3077 ;;     (inputs `(("xorg-server" ,xorg-server)))
3078 ;;     (native-inputs `(("pkg-config" ,pkg-config)))
3079 ;;     (home-page "https://www.x.org/wiki/")
3080 ;;     (synopsis "Newport video driver for X server")
3081 ;;     (description
3082 ;;      "xf86-video-newport is an Xorg X server video driver for the SGI
3083 ;; newport cards.")
3084 ;;     (license license:x11)))
3085
3086
3087 (define-public xf86-video-nv
3088   (package
3089     (name "xf86-video-nv")
3090     (version "2.1.21")
3091     (source
3092       (origin
3093         (method url-fetch)
3094         (uri (string-append
3095                "mirror://xorg/individual/driver/xf86-video-nv-"
3096                version
3097                ".tar.bz2"))
3098         (sha256
3099           (base32
3100            "0bdk3pc5y0n7p53q4gc2ff7bw16hy5hwdjjxkm5j3s7hdyg6960z"))))
3101     (build-system gnu-build-system)
3102     (inputs `(("xorg-server" ,xorg-server)))
3103     (native-inputs `(("pkg-config" ,pkg-config)))
3104     (home-page "https://www.x.org/wiki/")
3105     (synopsis "NVIDIA video driver for X server")
3106     (description
3107      "This package contains Xorg support for the NVIDIA GeForce 8 series of
3108 graphics processors.
3109
3110 There are a few caveats of which to be aware: the XVideo extension is not
3111 supported, and the RENDER extension is not accelerated by this driver.")
3112     (license license:x11)))
3113
3114 (define-public xf86-video-nouveau
3115   (package
3116     (name "xf86-video-nouveau")
3117     (version "1.0.16")
3118     (source
3119      (origin
3120        (method url-fetch)
3121        (uri (string-append
3122              "mirror://xorg/individual/driver/xf86-video-nouveau-"
3123              version
3124              ".tar.bz2"))
3125        (sha256
3126         (base32
3127          "01mz8gnq7j6bvrqb2ljm3d1wpjhi9p2z2w8zbkdrqmqmcj060h1h"))))
3128     (build-system gnu-build-system)
3129     (inputs `(("xorg-server" ,xorg-server)))
3130     (native-inputs `(("pkg-config" ,pkg-config)))
3131     (home-page "https://nouveau.freedesktop.org")
3132     (synopsis "NVIDIA video driver for X server")
3133     (description
3134      "This package provides modern, high-quality Xorg drivers for NVIDIA
3135 graphics cards.")
3136     (license license:x11)))
3137
3138 (define-public xf86-video-openchrome
3139   (package
3140     (name "xf86-video-openchrome")
3141     (version "0.6.0")
3142     (source
3143       (origin
3144         (method url-fetch)
3145         (uri (string-append
3146                "mirror://xorg/individual/driver/xf86-video-openchrome-"
3147                version
3148                ".tar.bz2"))
3149         (sha256
3150          (base32
3151           "0x9gq3hw6k661k82ikd1y2kkk4dmgv310xr5q59dwn4k6z37aafs"))))
3152     (build-system gnu-build-system)
3153     (inputs `(("libx11" ,libx11)
3154               ("libxext" ,libxext)
3155               ("libxvmc" ,libxvmc)
3156               ("mesa" ,mesa)
3157               ("xorgproto" ,xorgproto)
3158               ("xorg-server" ,xorg-server)))
3159     (native-inputs
3160      `(("pkg-config" ,pkg-config)))
3161     (home-page "https://www.x.org/wiki/")
3162     (synopsis "Openchrome video driver for X server")
3163     (description
3164      "xf86-video-openchrome is a video driver for the Xorg X server.
3165 This driver is intended for VIA chipsets featuring the VIA UniChrome,
3166 UniChrome Pro and Chrome9 integrated graphics processors.")
3167     (license license:x11)))
3168
3169
3170 (define-public xf86-video-qxl
3171   (package
3172     (name "xf86-video-qxl")
3173     (version "0.1.5")
3174     (source (origin
3175               (method url-fetch)
3176               (uri (string-append
3177                 "mirror://xorg/individual/driver/"
3178                 "xf86-video-qxl-" version ".tar.bz2"))
3179               (sha256
3180                (base32
3181                 "14jc24znnahhmz4kqalafmllsg8awlz0y6gpgdpk5ih38ph851mi"))))
3182     (build-system gnu-build-system)
3183     (inputs
3184       `(("libxfont" ,libxfont2)
3185         ("spice-protocol" ,spice-protocol)
3186         ("xorg-server" ,xorg-server)
3187         ("xorgproto" ,xorgproto)))
3188     (native-inputs
3189       `(("pkg-config" ,pkg-config)))
3190     (synopsis "Qxl video driver for X server")
3191     (description "xf86-video-qxl is a video driver for the Xorg X server.
3192 This driver is intended for the spice qxl virtio device.")
3193     (home-page "http://www.spice-space.org")
3194     (license license:x11)))
3195
3196 (define-public xf86-video-r128
3197   (package
3198     (name "xf86-video-r128")
3199     (version "6.12.0")
3200     (source (origin
3201               (method url-fetch)
3202               (uri (string-append "mirror://xorg/individual/driver/"
3203                                   name "-" version ".tar.bz2"))
3204               (sha256
3205                (base32
3206                 "0mz0v5mqmmbncr2drd5zvia1fb7frz2xqwflhhqbnaxx5j48c740"))))
3207     (build-system gnu-build-system)
3208     (inputs `(("mesa" ,mesa)
3209               ("xorgproto" ,xorgproto)
3210               ("xorg-server" ,xorg-server)))
3211     (native-inputs
3212      `(("pkg-config" ,pkg-config)))
3213     (home-page "https://www.x.org/wiki/")
3214     (synopsis "ATI Rage 128 video driver for X server")
3215     (description
3216      "xf86-video-r128 is a video driver for the Xorg X server.
3217 This driver is intended for ATI Rage 128 based cards.")
3218     (license license:x11)))
3219
3220 (define-public xf86-video-savage
3221   (package
3222     (name "xf86-video-savage")
3223     (version "2.3.9")
3224     (source
3225       (origin
3226         (method url-fetch)
3227         (uri (string-append
3228                "mirror://xorg/individual/driver/xf86-video-savage-"
3229                version
3230                ".tar.bz2"))
3231         (patches (search-patches "xf86-video-savage-xorg-compat.patch"))
3232         (sha256
3233           (base32
3234            "11pcrsdpdrwk0mrgv83s5nsx8a9i4lhmivnal3fjbrvi3zdw94rc"))))
3235     (build-system gnu-build-system)
3236     (inputs `(("mesa" ,mesa)
3237               ("xorgproto" ,xorgproto)
3238               ("xorg-server" ,xorg-server)))
3239     (native-inputs `(("pkg-config" ,pkg-config)))
3240     (home-page "https://www.x.org/wiki/")
3241     (synopsis "Savage video driver for X server")
3242     (description
3243      "xf86-video-savage is an S3 Savage video driver for the Xorg X server.")
3244     (license license:x11)))
3245
3246
3247 (define-public xf86-video-siliconmotion
3248   (package
3249     (name "xf86-video-siliconmotion")
3250     (version "1.7.9")
3251     (source
3252       (origin
3253         (method url-fetch)
3254         (uri (string-append
3255                "mirror://xorg/individual/driver/xf86-video-siliconmotion-"
3256                version
3257                ".tar.bz2"))
3258         (sha256
3259           (base32
3260            "1g2r6gxqrmjdff95d42msxdw6vmkg2zn5sqv0rxd420iwy8wdwyh"))
3261         (patches (search-patches "xf86-video-siliconmotion-fix-ftbfs.patch"))))
3262     (build-system gnu-build-system)
3263     (inputs `(("xorg-server" ,xorg-server)))
3264     (native-inputs `(("pkg-config" ,pkg-config)))
3265     (home-page "https://www.x.org/wiki/")
3266     (synopsis "Silicon Motion video driver for X server")
3267     (description
3268      "xf86-video-siliconmotion is a Silicon Motion video driver for the
3269 Xorg X server.")
3270     (license license:x11)))
3271
3272
3273 (define-public xf86-video-sis
3274   (package
3275     (name "xf86-video-sis")
3276     (version "0.10.9")
3277     (source
3278       (origin
3279         (method url-fetch)
3280         (uri (string-append
3281                "mirror://xorg/individual/driver/xf86-video-sis-"
3282                version
3283                ".tar.bz2"))
3284         (patches (search-patches "xf86-video-sis-xorg-compat.patch"))
3285         (sha256
3286           (base32
3287            "03f1abjjf68y8y1iz768rn95va9d33wmbwfbsqrgl6k0gi0bf9jj"))))
3288     (build-system gnu-build-system)
3289     (inputs `(("mesa" ,mesa)
3290               ("xorgproto" ,xorgproto)
3291               ("xorg-server" ,xorg-server)))
3292     (native-inputs
3293       `(("pkg-config" ,pkg-config)))
3294     (home-page "https://www.x.org/wiki/")
3295     (synopsis "Sis video driver for X server")
3296     (description
3297      "xf86-video-SiS is a SiS video driver for the Xorg X server.
3298 This driver supports SiS chipsets of 300/315/330/340 series.")
3299     (license license:bsd-3)))
3300
3301
3302 (define-public xf86-video-suncg6
3303   (package
3304     (name "xf86-video-suncg6")
3305     (version "1.1.2")
3306     (source
3307       (origin
3308         (method url-fetch)
3309         (uri (string-append
3310                "mirror://xorg/individual/driver/xf86-video-suncg6-"
3311                version
3312                ".tar.bz2"))
3313         (sha256
3314           (base32
3315             "04fgwgk02m4nimlv67rrg1wnyahgymrn6rb2cjj1l8bmzkii4glr"))))
3316     (build-system gnu-build-system)
3317     (inputs `(("xorg-server" ,xorg-server)))
3318     (native-inputs `(("pkg-config" ,pkg-config)))
3319     (home-page "https://www.x.org/wiki/")
3320     (synopsis "GX/TurboGX video driver for X server")
3321     (description
3322      "xf86-video-suncg6 is a GX/TurboGX video driver for the Xorg X server.")
3323     (license license:x11)))
3324
3325
3326 (define-public xf86-video-sunffb
3327   (package
3328     (name "xf86-video-sunffb")
3329     (version "1.2.2")
3330     (source
3331       (origin
3332         (method url-fetch)
3333         (uri (string-append
3334                "mirror://xorg/individual/driver/xf86-video-sunffb-"
3335                version
3336                ".tar.bz2"))
3337         (sha256
3338           (base32
3339             "07z3ngifwg2d4jgq8pms47n5lr2yn0ai72g86xxjnb3k20n5ym7s"))))
3340     (build-system gnu-build-system)
3341     (inputs `(("xorg-server" ,xorg-server)))
3342     (native-inputs `(("pkg-config" ,pkg-config)))
3343     (home-page "https://www.x.org/wiki/")
3344     (synopsis "SUNFFB video driver for X server")
3345     (description
3346      "xf86-video-sunffb is a SUNFFB video driver for the Xorg X server.")
3347     (license license:x11)))
3348
3349
3350 (define-public xf86-video-tdfx
3351   (package
3352     (name "xf86-video-tdfx")
3353     (version "1.5.0")
3354     (source
3355       (origin
3356         (method url-fetch)
3357         (uri (string-append
3358                "mirror://xorg/individual/driver/xf86-video-tdfx-"
3359                version
3360                ".tar.bz2"))
3361         (sha256
3362           (base32
3363            "0qc5wzwf1n65si9rc37bh224pzahh7gp67vfimbxs0b9yvhq0i9g"))))
3364     (build-system gnu-build-system)
3365     (inputs `(("mesa" ,mesa)
3366               ("xorgproto" ,xorgproto)
3367               ("xorg-server" ,xorg-server)))
3368     (native-inputs `(("pkg-config" ,pkg-config)))
3369     (home-page "https://www.x.org/wiki/")
3370     (synopsis "3Dfx video driver for X server")
3371     (description
3372      "xf86-video-tdfx is a 3Dfx video driver for the Xorg X server.")
3373     (license license:x11)))
3374
3375
3376 (define-public xf86-video-tga
3377   (package
3378     (name "xf86-video-tga")
3379     (version "1.2.2")
3380     (source
3381       (origin
3382         (method url-fetch)
3383         (uri (string-append
3384                "mirror://xorg/individual/driver/xf86-video-tga-"
3385                version
3386                ".tar.bz2"))
3387         (sha256
3388           (base32
3389            "0cb161lvdgi6qnf1sfz722qn38q7kgakcvj7b45ba3i0020828r0"))
3390         (patches (search-patches "xf86-video-tga-remove-mibstore.patch"))))
3391     (build-system gnu-build-system)
3392     (inputs `(("xorgproto" ,xorgproto)
3393               ("xorg-server" ,xorg-server)))
3394     (native-inputs `(("pkg-config" ,pkg-config)))
3395     (home-page "https://www.x.org/wiki/")
3396     (synopsis "TGA video driver for X server")
3397     (description
3398      "xf86-video-tga is a TGA (DEC 21030) video driver for the Xorg
3399 X server.")
3400     (license license:x11)))
3401
3402
3403 (define-public xf86-video-trident
3404   (package
3405     (name "xf86-video-trident")
3406     (version "1.3.8")
3407     (source
3408       (origin
3409         (method url-fetch)
3410         (uri (string-append
3411                "mirror://xorg/individual/driver/xf86-video-trident-"
3412                version
3413                ".tar.bz2"))
3414         (sha256
3415           (base32
3416            "0gxcar434kx813fxdpb93126lhmkl3ikabaljhcj5qn3fkcijlcy"))))
3417     (build-system gnu-build-system)
3418     (inputs `(("xorgproto" ,xorgproto)
3419               ("xorg-server" ,xorg-server)))
3420     (native-inputs `(("pkg-config" ,pkg-config)))
3421     (home-page "https://www.x.org/wiki/")
3422     (synopsis "Trident video driver for X server")
3423     (description
3424      "xf86-video-trident is a Trident video driver for the Xorg X server.")
3425     (license license:x11)))
3426
3427
3428 ;; no license
3429 ;; (define-public xf86-video-v4l
3430
3431
3432 (define-public xf86-video-vesa
3433   (package
3434     (name "xf86-video-vesa")
3435     (version "2.4.0")
3436     (source
3437       (origin
3438         (method url-fetch)
3439         (uri (string-append
3440                "mirror://xorg/individual/driver/xf86-video-vesa-"
3441                version
3442                ".tar.bz2"))
3443         (sha256
3444           (base32
3445             "1373vsxn6qh00na0s9c09kf09gj78rzi98zq93id8v5zsya3qi5z"))))
3446     (build-system gnu-build-system)
3447     (inputs `(("xorg-server" ,xorg-server)))
3448     (native-inputs `(("pkg-config" ,pkg-config)))
3449     (home-page "https://www.x.org/wiki/")
3450     (synopsis "VESA video driver for X server")
3451     (description
3452      "xf86-video-vesa is a generic VESA video driver for the Xorg
3453 X server.")
3454     (license license:x11)))
3455
3456
3457 (define-public xf86-video-vmware
3458   (package
3459     (name "xf86-video-vmware")
3460     (version "13.3.0")
3461     (source
3462       (origin
3463         (method url-fetch)
3464         (uri (string-append
3465                "mirror://xorg/individual/driver/xf86-video-vmware-"
3466                version
3467                ".tar.bz2"))
3468         (sha256
3469           (base32
3470            "0v06qhm059klq40m2yx4wypzb7h53aaassbjfmm6clcyclj1k5s7"))))
3471     (build-system gnu-build-system)
3472     (inputs
3473      `(("libx11" ,libx11)
3474        ("libxext" ,libxext)
3475        ("llvm" ,llvm)
3476        ("mesa" ,mesa)                   ; for xatracker
3477        ("xorg-server" ,xorg-server)))
3478     (native-inputs
3479      `(("eudev" ,eudev)
3480        ("pkg-config" ,pkg-config)))
3481     (home-page "https://www.x.org/wiki/")
3482     (synopsis "VMware SVGA video driver for X server")
3483     (description
3484      "xf86-video-vmware is a VMware SVGA video driver for the Xorg X server.")
3485     (license license:x11)))
3486
3487
3488 (define-public xf86-video-voodoo
3489   (package
3490     (name "xf86-video-voodoo")
3491     (version "1.2.5")
3492     (source
3493       (origin
3494         (method url-fetch)
3495         (uri (string-append
3496                "mirror://xorg/individual/driver/xf86-video-voodoo-"
3497                version
3498                ".tar.bz2"))
3499         (sha256
3500           (base32
3501            "1s6p7yxmi12q4y05va53rljwyzd6ry492r1pgi7wwq6cznivhgly"))
3502         (patches
3503          (list (origin
3504                  (method url-fetch)
3505                  (uri "https://cgit.freedesktop.org/xorg/driver/\
3506 xf86-video-voodoo/patch/?id=9172ae566a0e85313fc80ab62b4455393eefe593")
3507                  (sha256
3508                   (base32
3509                    "0rndmxf5b8j3hjnhrwrnzsq5024fli134fj1mprhkcrvax2zq8db"))
3510                  (file-name "xf86-video-voodoo-pcitag.patch"))))))
3511     (build-system gnu-build-system)
3512     (inputs `(("xorgproto" ,xorgproto)
3513               ("xorg-server" ,xorg-server)))
3514     (native-inputs `(("pkg-config" ,pkg-config)))
3515     (home-page "https://www.x.org/wiki/")
3516     (synopsis "Voodoo/Voodoo2 video driver for X server")
3517     (description
3518      "xf86-video-voodoo is a Voodoo video driver for the Xorg X server.")
3519     (license license:x11)))
3520
3521
3522 ;; Only relevant for the frame buffer on BSD systems.
3523 ;; (define-public xf86-video-wsfb
3524
3525
3526 (define-public xf86bigfontproto
3527   (package
3528     (name "xf86bigfontproto")
3529     (version "1.2.0")
3530     (source
3531       (origin
3532         (method url-fetch)
3533         (uri (string-append
3534                "mirror://xorg/individual/proto/xf86bigfontproto-"
3535                version
3536                ".tar.bz2"))
3537         (sha256
3538           (base32
3539             "0j0n7sj5xfjpmmgx6n5x556rw21hdd18fwmavp95wps7qki214ms"))))
3540     (build-system gnu-build-system)
3541     (home-page "https://www.x.org/wiki/")
3542     (synopsis "Xorg XF86BigFontProto protocol headers")
3543     (description
3544      "XFree86 Bigfont Extension contains header files and documentation
3545 for the XF86BigFontProto protocol.")
3546     (license license:x11)
3547     (properties `((superseded . ,xorgproto)))))
3548
3549 (define-public xf86dgaproto
3550   (package
3551     (name "xf86dgaproto")
3552     (version "2.1")
3553     (source
3554       (origin
3555         (method url-fetch)
3556         (uri (string-append
3557                "mirror://xorg/individual/proto/xf86dgaproto-"
3558                version
3559                ".tar.bz2"))
3560         (sha256
3561           (base32
3562             "0l4hx48207mx0hp09026r6gy9nl3asbq0c75hri19wp1118zcpmc"))))
3563     (build-system gnu-build-system)
3564     (home-page "https://www.x.org/wiki/")
3565     (synopsis "Xorg XF86DGAProto protocol headers")
3566     (description
3567      "XFree86 Direct Graphic Access Extension defines a protocol for
3568 direct linear framebuffer access.")
3569     (license license:x11)
3570     (properties `((superseded . ,xorgproto)))))
3571
3572 (define-public xf86driproto
3573   (package
3574     (name "xf86driproto")
3575     (version "2.1.1")
3576     (source
3577       (origin
3578         (method url-fetch)
3579         (uri (string-append
3580                "mirror://xorg/individual/proto/xf86driproto-"
3581                version
3582                ".tar.bz2"))
3583         (sha256
3584           (base32
3585             "07v69m0g2dfzb653jni4x656jlr7l84c1k39j8qc8vfb45r8sjww"))))
3586     (build-system gnu-build-system)
3587     (home-page "https://www.x.org/wiki/")
3588     (synopsis "Xorg XF86DRIProto protocol headers")
3589     (description
3590      "XFree86 Direct Rendering Infrastructure Extension defines a
3591 protocol to allow user applications to access the video hardware without
3592 requiring data to be passed through the X server.")
3593     (license license:x11)
3594     (properties `((superseded . ,xorgproto)))))
3595
3596 (define-public xf86vidmodeproto
3597   (package
3598     (name "xf86vidmodeproto")
3599     (version "2.3.1")
3600     (source
3601       (origin
3602         (method url-fetch)
3603         (uri (string-append
3604                "mirror://xorg/individual/proto/xf86vidmodeproto-"
3605                version
3606                ".tar.bz2"))
3607         (sha256
3608           (base32
3609             "0w47d7gfa8zizh2bshdr2rffvbr4jqjv019mdgyh6cmplyd4kna5"))))
3610     (build-system gnu-build-system)
3611     (home-page "https://www.x.org/wiki/")
3612     (synopsis "Xorg XF86VidModeProto protocol headers")
3613     (description
3614      "XFree86 Video Mode Extension defines a protocol for dynamically
3615 configuring modelines and gamma.")
3616     (license license:x11)
3617     (properties `((superseded . ,xorgproto)))))
3618
3619 (define-public xgamma
3620   (package
3621     (name "xgamma")
3622     (version "1.0.6")
3623     (source
3624       (origin
3625         (method url-fetch)
3626         (uri (string-append
3627                "mirror://xorg/individual/app/xgamma-"
3628                version
3629                ".tar.bz2"))
3630         (sha256
3631           (base32
3632             "1lr2nb1fhg5fk2fchqxdxyl739602ggwhmgl2wiv5c8qbidw7w8f"))))
3633     (build-system gnu-build-system)
3634     (inputs
3635       `(("libxxf86vm" ,libxxf86vm)
3636         ("libx11" ,libx11)))
3637     (native-inputs
3638       `(("pkg-config" ,pkg-config)))
3639     (home-page "https://www.x.org/wiki/")
3640     (synopsis "Alter a monitor's gamma correction")
3641     (description
3642      "XGamma is used to query and alter the gamma correction of a
3643 monitor via the X video mode extension.")
3644     (license license:x11)))
3645
3646
3647 (define-public xhost
3648   (package
3649     (name "xhost")
3650     (version "1.0.8")
3651     (source
3652       (origin
3653         (method url-fetch)
3654         (uri (string-append
3655                "mirror://xorg/individual/app/xhost-"
3656                version
3657                ".tar.bz2"))
3658         (sha256
3659           (base32
3660             "15n3mnd4i5kh4z32qv11580qjgvnng0wry2y753ljrqkkrbkrp52"))))
3661     (build-system gnu-build-system)
3662     (inputs
3663       `(("libxmu" ,libxmu)
3664         ("libxau" ,libxau)
3665         ("libx11" ,libx11)))
3666     (native-inputs
3667       `(("pkg-config" ,pkg-config)))
3668     (home-page "https://gitlab.freedesktop.org/xorg/app/xhost")
3669     (synopsis "Xorg server access control utility")
3670     (description
3671      "XHost is used to manage the list of host names or user names
3672 allowed to make connections to the X server.")
3673     (license license:x11)))
3674
3675
3676 (define-public xineramaproto
3677   (package
3678     (name "xineramaproto")
3679     (version "1.2.1")
3680     (source
3681       (origin
3682         (method url-fetch)
3683         (uri (string-append
3684                "mirror://xorg/individual/proto/xineramaproto-"
3685                version
3686                ".tar.bz2"))
3687         (sha256
3688           (base32
3689             "0ns8abd27x7gbp4r44z3wc5k9zqxxj8zjnazqpcyr4n17nxp8xcp"))))
3690     (build-system gnu-build-system)
3691     (native-inputs `(("pkg-config" ,pkg-config)))
3692     (home-page "https://www.x.org/wiki/")
3693     (synopsis "Xorg XineramaProto protocol headers")
3694     (description
3695      "Xinerama Extension allows clients to query information about multiple
3696 physical screens controlled by a single X server that appear as a single
3697 screen to core X11 protocol operations.
3698
3699 This extension provides a common network protocol for querying information
3700 which may be provided by different underlying screen combination
3701 technologies in the X server, such as the original Xinerama multiplexer, or
3702 alternative implementations like XRandR or TwinView.")
3703     (license license:x11)
3704     (properties `((superseded . ,xorgproto)))))
3705
3706 (define-public xinput
3707   (package
3708     (name "xinput")
3709     (version "1.6.2")
3710     (source
3711       (origin
3712         (method url-fetch)
3713         (uri (string-append
3714                "mirror://xorg/individual/app/xinput-"
3715                version
3716                ".tar.bz2"))
3717         (sha256
3718           (base32
3719             "1i75mviz9dyqyf7qigzmxq8vn31i86aybm662fzjz5c086dx551n"))))
3720     (build-system gnu-build-system)
3721     (inputs
3722       `(("libxrender" ,libxrender)
3723         ("libxrandr" ,libxrandr)
3724         ("libxinerama" ,libxinerama)
3725         ("libxext" ,libxext)
3726         ("libxi" ,libxi)
3727         ("libx11" ,libx11)
3728         ("xorgproto" ,xorgproto)))
3729     (native-inputs
3730        `(("pkg-config" ,pkg-config)))
3731     (home-page "https://www.x.org/wiki/")
3732     (synopsis "Configure input devices for X server")
3733     (description
3734      "XInput is used to configure and test XInput devices.")
3735     (license license:x11)))
3736
3737
3738 (define xkbcomp-intermediate ; used as input for xkeyboard-config
3739   (package
3740     (name "xkbcomp-intermediate")
3741     (version "1.4.2")
3742     (source
3743       (origin
3744         (method url-fetch)
3745         (uri (string-append
3746                "mirror://xorg/individual/app/xkbcomp-"
3747                version
3748                ".tar.bz2"))
3749         (sha256
3750          (base32
3751           "0944rrkkf0dxp07vhh9yr4prslxhqyw63qmbjirbv1bypswvrn3d"))))
3752     (build-system gnu-build-system)
3753     (inputs
3754       `(("xorgproto" ,xorgproto)
3755         ("libxkbfile" ,libxkbfile)
3756         ("libx11" ,libx11)))
3757     (native-inputs
3758         `(("pkg-config" ,pkg-config)))
3759     (home-page "https://www.x.org/wiki/")
3760     (synopsis "Compile XKB keyboard description")
3761     (description
3762      "xkbcomp keymap compiler converts a description of an XKB keymap
3763 into one of several output formats.  The most common use for xkbcomp is
3764 to create a compiled keymap file (.xkm extension) which can be read
3765 directly by XKB- capable X servers or utilities.
3766
3767 X Keyboard (XKB) Extension essentially replaces the core protocol
3768 definition of keyboard.  The extension makes possible to clearly and
3769 explicitly specify most aspects of keyboard behaviour on per-key basis
3770 and to more closely track the logical and physical state of the
3771 keyboard.  It also includes a number of keyboard controls designed to
3772 make keyboards more accessible to people with physical impairments.")
3773     (license license:x11)))
3774
3775 (define-public xkbcomp ; using xkeyboard-config as input
3776   (package (inherit xkbcomp-intermediate)
3777     (name "xkbcomp")
3778     (inputs
3779       `(,@(package-inputs xkbcomp-intermediate)
3780         ("xkeyboard-config" ,xkeyboard-config)))
3781     (arguments
3782      `(#:configure-flags
3783        (list (string-append "--with-xkb-config-root="
3784                             (assoc-ref %build-inputs "xkeyboard-config")
3785                             "/share/X11/xkb"))))))
3786
3787
3788 (define-public xkbevd
3789   (package
3790     (name "xkbevd")
3791     (version "1.1.4")
3792     (source
3793       (origin
3794         (method url-fetch)
3795         (uri (string-append
3796                "mirror://xorg/individual/app/xkbevd-"
3797                version
3798                ".tar.bz2"))
3799         (sha256
3800           (base32
3801             "0sprjx8i86ljk0l7ldzbz2xlk8916z5zh78cafjv8k1a63js4c14"))))
3802     (build-system gnu-build-system)
3803     (inputs
3804       `(("libxkbfile" ,libxkbfile)
3805         ("libx11" ,libx11)))
3806     (native-inputs
3807       `(("pkg-config" ,pkg-config)))
3808     (home-page "https://www.x.org/wiki/")
3809     (synopsis "XKB event daemon demo")
3810     (description
3811      "XKB event daemon listens for the specified XKB events and executes
3812 requested commands if they occur.")
3813     (license license:x11)))
3814
3815
3816 (define-public xkbutils
3817   (package
3818     (name "xkbutils")
3819     (version "1.0.4")
3820     (source
3821       (origin
3822         (method url-fetch)
3823         (uri (string-append
3824                "mirror://xorg/individual/app/xkbutils-"
3825                version
3826                ".tar.bz2"))
3827         (sha256
3828           (base32
3829             "0c412isxl65wplhl7nsk12vxlri29lk48g3p52hbrs3m0awqm8fj"))))
3830     (build-system gnu-build-system)
3831     (inputs
3832       `(("libxt" ,libxt)
3833         ("libxaw" ,libxaw)
3834         ("xorgproto" ,xorgproto)))
3835     (native-inputs
3836       `(("pkg-config" ,pkg-config)))
3837     (home-page "https://www.x.org/wiki/")
3838     (synopsis "XKB utilities")
3839     (description
3840      "XKBUtils is a collection of small utilities for X Keyboard (XKB)
3841 extension to the X11 protocol.  It includes:
3842
3843 - xkbbell: generate XKB bell events;
3844
3845 - xkbvleds: display the state of LEDs on an XKB keyboard in a window;
3846
3847 - xkbwatch: reports changes in the XKB keyboard state.")
3848     (license license:x11)))
3849
3850
3851 (define-public xkeyboard-config
3852   (package
3853     (name "xkeyboard-config")
3854     (version "2.26")
3855     (source
3856       (origin
3857         (method url-fetch)
3858         (uri (string-append
3859               "mirror://xorg/individual/data/xkeyboard-config/xkeyboard-config-"
3860               version
3861               ".tar.bz2"))
3862         (sha256
3863           (base32
3864             "13h3381pfp4pv32189zkfsj2x0alr91xj6dqii76rl0c8v3ihdrr"))))
3865     (build-system gnu-build-system)
3866     (inputs
3867       `(("gettext" ,gettext-minimal)
3868         ("libx11" ,libx11)
3869         ("xkbcomp-intermediate" ,xkbcomp-intermediate)))
3870     (native-inputs
3871       `(("intltool" ,intltool)
3872         ("pkg-config" ,pkg-config)))
3873     (home-page "https://www.x.org/wiki/")
3874     (synopsis "Xorg XKB configuration files")
3875     (description
3876      "xkeyboard-config provides a database for X Keyboard (XKB) Extension.
3877 There are five components that define a complete keyboard mapping:
3878 symbols, geometry, keycodes, compat, and types; these five components
3879 can be combined together using the @code{rules} component of this database.")
3880     (license license:x11)))
3881
3882
3883 (define-public xkill
3884   (package
3885     (name "xkill")
3886     (version "1.0.5")
3887     (source
3888       (origin
3889         (method url-fetch)
3890         (uri (string-append
3891                "mirror://xorg/individual/app/xkill-"
3892                version
3893                ".tar.bz2"))
3894         (sha256
3895           (base32
3896             "0szzd9nzn0ybkhnfyizb876irwnjsnb78rcaxx6prb71jmmbpw65"))))
3897     (build-system gnu-build-system)
3898     (inputs
3899       `(("libxmu" ,libxmu)
3900         ("libx11" ,libx11)))
3901     (native-inputs
3902        `(("pkg-config" ,pkg-config)))
3903     (home-page "https://www.x.org/wiki/")
3904     (synopsis "Kill a client by its X resource")
3905     (description
3906      "XKill is used to force the X server to close connections to
3907 clients.  This program is very dangerous, but is useful for aborting
3908 programs that have displayed undesired windows on a user's screen.")
3909     (license license:x11)))
3910
3911
3912 (define-public xlsatoms
3913   (package
3914     (name "xlsatoms")
3915     (version "1.1.3")
3916     (source
3917       (origin
3918         (method url-fetch)
3919         (uri (string-append
3920                "mirror://xorg/individual/app/xlsatoms-"
3921                version
3922                ".tar.bz2"))
3923         (sha256
3924           (base32
3925             "10m3a046jvaw5ywx4y65kl84lsxqan70gww1g1r7cf96ijaqz1jp"))))
3926     (build-system gnu-build-system)
3927     (inputs
3928       `(("libxcb" ,libxcb)))
3929     (native-inputs
3930       `(("pkg-config" ,pkg-config)))
3931     (home-page "https://gitlab.freedesktop.org/xorg/app/xlsatoms")
3932     (synopsis "List interned X server atoms")
3933     (description
3934      "XLsAtoms is used to list the interned atoms defined on X server.")
3935     (license license:x11)))
3936
3937
3938 (define-public xlsclients
3939   (package
3940     (name "xlsclients")
3941     (version "1.1.4")
3942     (source
3943       (origin
3944         (method url-fetch)
3945         (uri (string-append
3946                "mirror://xorg/individual/app/xlsclients-"
3947                version
3948                ".tar.bz2"))
3949         (sha256
3950           (base32
3951             "1h8931sn34mcip6vpi4v7hdmr1r58gkbw4s2p97w98kykks2lgvp"))))
3952     (build-system gnu-build-system)
3953     (inputs
3954       `(("libxcb" ,libxcb)))
3955     (native-inputs
3956       `(("pkg-config" ,pkg-config)))
3957     (home-page "https://www.x.org/wiki/")
3958     (synopsis "List client applications running on a display")
3959     (description
3960      "XLsClients is used to list information about the client programs
3961 running on X server.")
3962     (license license:x11)))
3963
3964
3965 (define-public xlsfonts
3966   (package
3967     (name "xlsfonts")
3968     (version "1.0.6")
3969     (source
3970      (origin
3971        (method url-fetch)
3972        (uri (string-append
3973              "mirror://xorg/individual/app/xlsfonts-"
3974              version
3975              ".tar.bz2"))
3976        (sha256
3977         (base32
3978          "0s6kxgv78chkwsqmhw929f4pf91gq63f4yvixxnan1h00cx0pf49"))))
3979     (build-system gnu-build-system)
3980     (inputs
3981      `(("xorgproto" ,xorgproto)
3982        ("libx11" ,libx11)))
3983     (native-inputs
3984      `(("pkg-config" ,pkg-config)))
3985     (home-page "https://www.x.org/wiki/")
3986     (synopsis "List fonts available from an X server")
3987     (description
3988      "xlsfonts lists fonts available from an X server via the X11 core
3989 protocol.")
3990     (license license:x11)))
3991
3992 (define-public xfontsel
3993   (package
3994     (name "xfontsel")
3995     (version "1.0.6")
3996     (source (origin
3997               (method url-fetch)
3998               (uri (string-append
3999                     "mirror://xorg/individual/app/xfontsel-"
4000                     version ".tar.bz2"))
4001               (sha256
4002                (base32
4003                 "0700lf6hx7dg88wq1yll7zjvf9gbwh06xff20yffkxb289y0pai5"))))
4004     (build-system gnu-build-system)
4005     (arguments
4006      `(#:configure-flags
4007        (list (string-append "--with-appdefaultdir="
4008                             %output ,%app-defaults-dir))))
4009     (inputs
4010      `(("libx11" ,libx11)
4011        ("libxaw" ,libxaw)
4012        ("libxmu" ,libxmu)
4013        ("libxt" ,libxt)))
4014     (native-inputs
4015      `(("pkg-config" ,pkg-config)))
4016     (home-page "https://www.x.org/wiki/")
4017     (synopsis "Browse and select X font names")
4018     (description
4019      "XFontSel provides a simple way to display the X11 core protocol fonts
4020 known to your X server, examine samples of each, and retrieve the X Logical
4021 Font Description (XLFD) full name for a font.")
4022     (license license:x11)))
4023
4024 (define-public xfd
4025   (package
4026     (name "xfd")
4027     (version "1.1.3")
4028     (source (origin
4029               (method url-fetch)
4030               (uri (string-append
4031                     "mirror://xorg/individual/app/xfd-"
4032                     version ".tar.bz2"))
4033               (sha256
4034                (base32
4035                 "0n6r1v8sm0z0ycqch035xpm46nv5v4mav3kxh36883l3ln5r6bqr"))))
4036     (build-system gnu-build-system)
4037     (arguments
4038        `(#:configure-flags
4039          (list (string-append "--with-appdefaultdir="
4040                               %output ,%app-defaults-dir))))
4041     (inputs
4042      `(("fontconfig" ,fontconfig)
4043        ("libx11" ,libx11)
4044        ("libxaw" ,libxaw)
4045        ("libxft" ,libxft)
4046        ("libxmu" ,libxmu)
4047        ("libxrender" ,libxrender)))
4048     (native-inputs
4049      `(("gettext" ,gettext-minimal)
4050        ("pkg-config" ,pkg-config)))
4051     (home-page "https://www.x.org/wiki/")
4052     (synopsis "Display all the characters in an X font")
4053     (description
4054      "XFD (X Font Display) package provides an utility that displays a
4055 window containing the name of the font being displayed, a row of command
4056 buttons, several lines of text for displaying character metrics, and a grid
4057 containing one glyph per cell.")
4058     (license license:x11)))
4059
4060 (define-public xmodmap
4061   (package
4062     (name "xmodmap")
4063     (version "1.0.10")
4064     (source
4065       (origin
4066         (method url-fetch)
4067         (uri (string-append
4068                "mirror://xorg/individual/app/xmodmap-"
4069                version
4070                ".tar.bz2"))
4071         (sha256
4072           (base32
4073             "0z28331i2pm16x671fa9qwsfqdmr6a43bzwmp0dm17a3sx0hjgs7"))))
4074     (build-system gnu-build-system)
4075     (inputs
4076       `(("xorgproto" ,xorgproto)
4077         ("libx11" ,libx11)))
4078     (native-inputs
4079       `(("pkg-config" ,pkg-config)))
4080     (home-page "https://gitlab.freedesktop.org/xorg/app/xmodmap")
4081     (synopsis "Modify keymaps and button mappings on X server")
4082     (description
4083      "Xmodmap is used to display and edit the keyboard modifier map and
4084 keymap table that are used by client programs running on X server to
4085 convert event keycodes into keysyms.  It is usually run from the user's
4086 session startup script to configure the keyboard according to personal
4087 tastes.")
4088     (license license:x11)))
4089
4090
4091 ;; no license
4092 ;; (define-public xorg-docs
4093
4094
4095 (define-public xorg-sgml-doctools
4096   (package
4097     (name "xorg-sgml-doctools")
4098     (version "1.11")
4099     (source
4100       (origin
4101         (method url-fetch)
4102         (uri (string-append
4103                "mirror://xorg/individual/doc/xorg-sgml-doctools-"
4104                version
4105                ".tar.bz2"))
4106         (sha256
4107           (base32
4108             "0k5pffyi5bx8dmfn033cyhgd3gf6viqj3x769fqixifwhbgy2777"))))
4109     (build-system gnu-build-system)
4110     (native-inputs `(("pkg-config" ,pkg-config)))
4111     (home-page "https://www.x.org/wiki/")
4112     (synopsis "Xorg SGML documentation tools")
4113     (description
4114     "This package provides a common set of SGML entities and XML/CSS style
4115 sheets used in building/formatting the documentation provided in other
4116 Xorg packages.  It's typically only needed by people building from
4117 source who want to produce formatted documentation from their builds, or
4118 those who have installed the HTML version of the documentation, which
4119 refers to the included common xorg.css stylesheet.")
4120     (license license:x11)))
4121
4122
4123 (define-public xpr
4124   (package
4125     (name "xpr")
4126     (version "1.0.5")
4127     (source
4128       (origin
4129         (method url-fetch)
4130         (uri (string-append
4131                "mirror://xorg/individual/app/xpr-"
4132                version
4133                ".tar.bz2"))
4134         (sha256
4135           (base32
4136             "07qy9lwjvxighcmg6qvjkgagad3wwvidrfx0jz85lgynz3qy0dmr"))))
4137     (build-system gnu-build-system)
4138     (inputs
4139       `(("xorgproto" ,xorgproto)
4140         ("libxmu" ,libxmu)
4141         ("libx11" ,libx11)))
4142     (native-inputs
4143         `(("pkg-config" ,pkg-config)))
4144     (home-page "https://www.x.org/wiki/")
4145     (synopsis "Print an X window dump from xwd")
4146     (description
4147      "XPr takes as input a window dump file produced by xwd and formats
4148 it for output on various types of printers.")
4149     (license license:x11)))
4150
4151
4152 (define-public xprop
4153   (package
4154     (name "xprop")
4155     (version "1.2.4")
4156     (source
4157       (origin
4158         (method url-fetch)
4159         (uri (string-append
4160                "mirror://xorg/individual/app/xprop-"
4161                version
4162                ".tar.bz2"))
4163         (sha256
4164           (base32
4165             "0lzp7kyhpwd5hm83j2zm6j3w3z1z5i4ykgg2nwr01ij6dq4znxwc"))))
4166     (build-system gnu-build-system)
4167     (inputs
4168       `(("xorgproto" ,xorgproto)
4169         ("libx11" ,libx11)))
4170     (native-inputs
4171       `(("pkg-config" ,pkg-config)))
4172     (home-page "https://www.x.org/wiki/")
4173     (synopsis "Display X server properties")
4174     (description
4175      "xprop is used to display and/or set window and font properties of
4176 an X server.")
4177     (license license:x11)))
4178
4179
4180 (define-public xrandr
4181   (package
4182     (name "xrandr")
4183     (version "1.5.0")
4184     (source
4185       (origin
4186         (method url-fetch)
4187         (uri (string-append
4188                "mirror://xorg/individual/app/xrandr-"
4189                version ".tar.bz2"))
4190         (sha256
4191           (base32
4192             "1kaih7rmzxr1vp5a5zzjhm5x7dn9mckya088sqqw026pskhx9ky1"))))
4193     (build-system gnu-build-system)
4194     (inputs
4195       `(("libxrender" ,libxrender)
4196         ("libxrandr" ,libxrandr)
4197         ("xorgproto" ,xorgproto)
4198         ("libx11" ,libx11)))
4199     (native-inputs
4200      `(("pkg-config" ,pkg-config)))
4201     (home-page "https://www.x.org/wiki/")
4202     (synopsis "Command line interface to X RandR extension")
4203     (description
4204      "xrandr - primitive command line interface to X11 Resize, Rotate,
4205 and Reflect (RandR) extension.")
4206     (license license:x11)))
4207
4208
4209 (define-public xrdb
4210   (package
4211     (name "xrdb")
4212     (version "1.2.0")
4213     (source
4214       (origin
4215         (method url-fetch)
4216         (uri (string-append
4217                "mirror://xorg/individual/app/xrdb-"
4218                version
4219                ".tar.bz2"))
4220         (sha256
4221           (base32
4222             "0ik9gh6363c47pr0dp7q22nfs8vmavjg2v4bsr0604ppl77nafpj"))))
4223     (build-system gnu-build-system)
4224     (inputs
4225       `(("libxmu" ,libxmu)
4226         ("libx11" ,libx11)))
4227     (native-inputs
4228       `(("pkg-config" ,pkg-config)))
4229     (home-page "https://gitlab.freedesktop.org/xorg/app/xrdb")
4230     (synopsis "X server resource database utility")
4231     (description
4232      "XRDB is used to get or set the contents of the RESOURCE_MANAGER
4233 property on the root window of screen 0, or the SCREEN_RESOURCES
4234 property on the root window of any or all screens, or everything
4235 combined.  You would normally run this program from your X startup
4236 file.")
4237     (license license:x11)))
4238
4239
4240 (define-public xrefresh
4241   (package
4242     (name "xrefresh")
4243     (version "1.0.6")
4244     (source
4245       (origin
4246         (method url-fetch)
4247         (uri (string-append
4248                "mirror://xorg/individual/app/xrefresh-"
4249                version
4250                ".tar.bz2"))
4251         (sha256
4252           (base32
4253             "0lv3rlshh7s0z3aqx5ahnnf8cl082m934bk7gv881mz8nydznz98"))))
4254     (build-system gnu-build-system)
4255     (inputs
4256       `(("libx11" ,libx11)))
4257     (native-inputs
4258       `(("pkg-config" ,pkg-config)))
4259     (home-page "https://www.x.org/wiki/")
4260     (synopsis "Refresh all or part of an X screen")
4261     (description
4262      "Xrefresh is a simple X program that causes all or part of your
4263 screen to be repainted.  This is useful when system messages have messed
4264 up your screen.")
4265     (license license:x11)))
4266
4267
4268 (define-public xset
4269   (package
4270     (name "xset")
4271     (version "1.2.4")
4272     (source
4273       (origin
4274         (method url-fetch)
4275         (uri (string-append
4276                "mirror://xorg/individual/app/xset-"
4277                version
4278                ".tar.bz2"))
4279         (sha256
4280           (base32
4281             "0my987wjvra7l92ry6q44ky383yg3phzxhdbn3lqhapm1ll9bzg4"))))
4282     (build-system gnu-build-system)
4283     (inputs
4284       `(("xorgproto" ,xorgproto)
4285         ("libxmu" ,libxmu)
4286         ("libxext" ,libxext)
4287         ("libx11" ,libx11)))
4288     (native-inputs
4289        `(("pkg-config" ,pkg-config)))
4290     (home-page "https://www.x.org/wiki/")
4291     (synopsis "User preference utility for X server")
4292     (description
4293      "XSet is used to set various user preference options of the display.")
4294     (license license:x11)))
4295
4296
4297 (define-public xsetroot
4298   (package
4299     (name "xsetroot")
4300     (version "1.1.2")
4301     (source
4302       (origin
4303         (method url-fetch)
4304         (uri (string-append
4305                "mirror://xorg/individual/app/xsetroot-"
4306                version
4307                ".tar.bz2"))
4308         (sha256
4309           (base32
4310             "0z21mqvmdl6rl63q77479wgkfygnll57liza1i3va7sr4fx45i0h"))))
4311     (build-system gnu-build-system)
4312     (inputs
4313       `(("libxmu" ,libxmu)
4314         ("libxcursor" ,libxcursor)
4315         ("xbitmaps" ,xbitmaps)))
4316     (native-inputs
4317       `(("pkg-config" ,pkg-config)))
4318     (home-page "https://www.x.org/wiki/")
4319     (synopsis "Root window parameter setting utility for X server")
4320     (description
4321      "XSetRoot allows you to tailor the appearance of the root window on
4322 a display running X server.")
4323     (license license:x11)))
4324
4325
4326 (define-public xtrans
4327   (package
4328     (name "xtrans")
4329     (version "1.4.0")
4330     (source
4331       (origin
4332         (method url-fetch)
4333         (uri (string-append
4334                "mirror://xorg/individual/lib/xtrans-"
4335                version
4336                ".tar.bz2"))
4337         (sha256
4338           (base32
4339             "0wyp0yc6gi72hwc3kjmvm3vkj9p6s407cb6dxx37jh9wb68l8z1p"))))
4340     (build-system gnu-build-system)
4341     (native-inputs `(("pkg-config" ,pkg-config)))
4342     (home-page "https://www.x.org/wiki/")
4343     (synopsis "Xorg Network Transport layer library")
4344     (description
4345      "Xtrans is a library of code that is shared among various X packages to
4346 handle network protocol transport in a modular fashion, allowing a single
4347 place to add new transport types.  It is used by the X server, libX11,
4348 libICE, the X font server, and related components.")
4349     (license license:x11)))
4350
4351
4352 (define-public xvinfo
4353   (package
4354     (name "xvinfo")
4355     (version "1.1.4")
4356     (source
4357       (origin
4358         (method url-fetch)
4359         (uri (string-append
4360                "mirror://xorg/individual/app/xvinfo-"
4361                version
4362                ".tar.bz2"))
4363         (sha256
4364           (base32
4365             "0gz7fvxavqlrqynpfbrm2nc9yx8h0ksnbnv34fj7n1q6cq6j4lq3"))))
4366     (build-system gnu-build-system)
4367     (inputs
4368       `(("libxext" ,libxext)
4369         ("libxv" ,libxv)
4370         ("libx11" ,libx11)))
4371     (native-inputs
4372       `(("pkg-config" ,pkg-config)))
4373     (home-page "https://gitlab.freedesktop.org/xorg/app/xvinfo")
4374     (synopsis "Print out X-Video extension adaptor information")
4375     (description
4376      "XVInfo is used to print out the capabilities of any video adaptors
4377 associated with the display that are accessible through the X-Video
4378 extension.")
4379     (license license:x11)))
4380
4381
4382 (define-public xwd
4383   (package
4384     (name "xwd")
4385     (version "1.0.7")
4386     (source
4387       (origin
4388         (method url-fetch)
4389         (uri (string-append
4390                "mirror://xorg/individual/app/xwd-"
4391                version
4392                ".tar.bz2"))
4393         (sha256
4394           (base32
4395             "1537i8q8pgf0sjklakzfvjwrq5b246qjywrx9ll8xfg0p6w1as6d"))))
4396     (build-system gnu-build-system)
4397     (inputs
4398       `(("libxt" ,libxt)
4399         ("libxkbfile" ,libxkbfile)
4400         ("xorgproto" ,xorgproto)))
4401     (native-inputs
4402        `(("pkg-config" ,pkg-config)))
4403     (home-page "https://www.x.org/wiki/")
4404     (synopsis "Dump current contents of X window or screen to file")
4405     (description
4406      "Xwd is used to store window images in a specially formatted dump
4407 file.  This file can then be read by various other X utilities for
4408 redisplay, printing, editing, formatting, archiving, image processing,
4409 etc.  The target window is selected by clicking the pointer in the
4410 desired window.  The keyboard bell is rung once at the beginning of the
4411 dump and twice whenthe dump is completed.")
4412     (license license:x11)))
4413
4414
4415 (define-public xwininfo
4416   (package
4417     (name "xwininfo")
4418     (version "1.1.4")
4419     (source
4420       (origin
4421         (method url-fetch)
4422         (uri (string-append
4423                "mirror://xorg/individual/app/xwininfo-"
4424                version
4425                ".tar.bz2"))
4426         (sha256
4427           (base32
4428             "00avrpw4h5mr1klp41lv2j4dmq465v6l5kb5bhm4k5ml8sm9i543"))))
4429     (build-system gnu-build-system)
4430     (inputs
4431       `(("libx11" ,libx11)
4432         ("xorgproto" ,xorgproto)))
4433     (native-inputs
4434        `(("pkg-config" ,pkg-config)))
4435     (home-page "https://www.x.org/wiki/")
4436     (synopsis "Window information utility for X server")
4437     (description
4438      "XWinInfo is used to print out information about windows on an X server.
4439 Various information is displayed depending on which options are selected.")
4440     (license license:x11)))
4441
4442
4443 (define-public xwud
4444   (package
4445     (name "xwud")
4446     (version "1.0.5")
4447     (source
4448       (origin
4449         (method url-fetch)
4450         (uri (string-append
4451                "mirror://xorg/individual/app/xwud-"
4452                version
4453                ".tar.bz2"))
4454         (sha256
4455           (base32
4456             "1a8hdgy40smvblnh3s9f0vkqckl68nmivx7d48zk34m8z18p16cr"))))
4457     (build-system gnu-build-system)
4458     (inputs
4459       `(("xorgproto" ,xorgproto)
4460         ("libx11" ,libx11)))
4461     (native-inputs
4462        `(("pkg-config" ,pkg-config)))
4463     (home-page "https://www.x.org/wiki/")
4464     (synopsis "Display an X window dump from xwd")
4465     (description
4466      "Xwud is used to display in a window an image saved in a specially
4467 formatted dump file, such as produced by xwd.")
4468     (license license:x11)))
4469
4470 (define-public xorg-rgb
4471   (package
4472     (name "xorg-rgb")
4473     (version "1.0.6")
4474     (source
4475       (origin
4476         (method url-fetch)
4477         (uri (string-append
4478                "mirror://xorg/individual/app/rgb-"
4479                version
4480                ".tar.bz2"))
4481         (sha256
4482           (base32
4483             "1c76zcjs39ljil6f6jpx1x17c8fnvwazz7zvl3vbjfcrlmm7rjmv"))))
4484     (build-system gnu-build-system)
4485     (inputs
4486      `(("xorgproto" ,xorgproto)))
4487     (native-inputs
4488      `(("pkg-config" ,pkg-config)))
4489     (home-page "https://www.x.org/wiki/")
4490     (synopsis "X color name database")
4491     (description
4492      "This package provides the X color name database.")
4493     (license license:x11)))
4494
4495 ;; packages of height 1 in the propagated-inputs tree
4496
4497 (define-public fixesproto
4498   (package
4499     (name "fixesproto")
4500     (version "5.0")
4501     (source
4502       (origin
4503         (method url-fetch)
4504         (uri (string-append
4505                "mirror://xorg/individual/proto/fixesproto-"
4506                version
4507                ".tar.bz2"))
4508         (sha256
4509           (base32
4510             "1ki4wiq2iivx5g4w5ckzbjbap759kfqd72yg18m3zpbb4hqkybxs"))))
4511     (build-system gnu-build-system)
4512     (propagated-inputs
4513       `(("xorgproto" ,xorgproto)))
4514     (native-inputs
4515       `(("pkg-config" ,pkg-config)))
4516     (home-page "https://www.x.org/wiki/")
4517     (synopsis "Xorg FixesProto protocol headers")
4518     (description
4519      "Fixes Extension makes changes to many areas of the protocol to resolve
4520 issues raised by application interaction with core protocol mechanisms that
4521 cannot be adequately worked around on the client side of the wire.")
4522     (license license:x11)
4523     (properties `((superseded . ,xorgproto)))))
4524
4525 (define-public libxdamage
4526   (package
4527     (name "libxdamage")
4528     (version "1.1.5")
4529     (source
4530       (origin
4531         (method url-fetch)
4532         (uri (string-append
4533                "mirror://xorg/individual/lib/libXdamage-"
4534                version
4535                ".tar.bz2"))
4536         (sha256
4537           (base32
4538             "0igaw2akjf712y3rv7lx473jigxmcv9rs9y8sbrvbhya8f30cd5p"))))
4539     (build-system gnu-build-system)
4540     (propagated-inputs
4541       ;; These are all in the Requires or Requires.private field of xdamage.pc
4542       `(("libxfixes" ,libxfixes)
4543         ("xorgproto" ,xorgproto)
4544         ("libx11" ,libx11)))
4545     (native-inputs
4546       `(("pkg-config" ,pkg-config)))
4547     (home-page "https://www.x.org/wiki/")
4548     (synopsis "Xorg Damage Extension library")
4549     (description "Xorg library for the XDamage extension.")
4550     (license license:x11)))
4551
4552
4553 (define-public libxext
4554   (package
4555     (name "libxext")
4556     (version "1.3.4")
4557     (source
4558       (origin
4559         (method url-fetch)
4560         (uri (string-append
4561                "mirror://xorg/individual/lib/libXext-"
4562                version
4563                ".tar.bz2"))
4564         (sha256
4565           (base32
4566             "0azqxllcsfxc3ilhz6kwc6x7m8wc477p59ir9p0yrsldx766zbar"))))
4567     (build-system gnu-build-system)
4568     (propagated-inputs
4569       `(("xorgproto" ,xorgproto)))
4570     (inputs
4571       `(("libxau" ,libxau)
4572         ("libx11" ,libx11)))
4573     (native-inputs
4574       `(("pkg-config" ,pkg-config)))
4575     (home-page "https://www.x.org/wiki/")
4576     (synopsis "Xorg Common extensions library")
4577     (description
4578      "Library for common extensions to the X11 protocol.")
4579     (license license:x11)))
4580
4581
4582 (define-public libxinerama
4583   (package
4584     (name "libxinerama")
4585     (version "1.1.4")
4586     (source
4587       (origin
4588         (method url-fetch)
4589         (uri (string-append
4590                "mirror://xorg/individual/lib/libXinerama-"
4591                version
4592                ".tar.bz2"))
4593         (sha256
4594           (base32
4595             "086p0axqj57nvkaqa6r00dnr9kyrn1m8blgf0zjy25zpxkbxn200"))))
4596     (build-system gnu-build-system)
4597     (propagated-inputs
4598       `(("xorgproto" ,xorgproto)))
4599     (inputs
4600       `(("libxext" ,libxext)
4601         ("libx11" ,libx11)))
4602     (native-inputs
4603       `(("pkg-config" ,pkg-config)))
4604     (home-page "https://www.x.org/wiki/")
4605     (synopsis "Xorg Xinerama protocol library")
4606     (description "API for Xinerama extension to X11 protocol.")
4607     (license license:x11)))
4608
4609
4610 (define-public libxp
4611   (package
4612     (name "libxp")
4613     (version "1.0.3")
4614     (source
4615       (origin
4616         (method url-fetch)
4617         (uri (string-append
4618                "mirror://xorg/individual/lib/libXp-"
4619                version
4620                ".tar.bz2"))
4621         (sha256
4622           (base32
4623             "0mwc2jwmq03b1m9ihax5c6gw2ln8rc70zz4fsj3kb7440nchqdkz"))))
4624     (build-system gnu-build-system)
4625     (propagated-inputs
4626       `(("printproto" ,printproto)))
4627     (inputs
4628       `(("libx11" ,libx11)
4629         ("libxext" ,libxext)))
4630     (native-inputs
4631       `(("pkg-config" ,pkg-config)))
4632     (home-page "https://www.x.org/wiki/")
4633     (synopsis "Xorg Print Client library")
4634     (description "Xorg Print Client library.")
4635     (license license:x11)))
4636
4637
4638 (define-public libxrender
4639   (package
4640     (name "libxrender")
4641     (version "0.9.10")
4642     (source
4643       (origin
4644         (method url-fetch)
4645         (uri (string-append
4646                "mirror://xorg/individual/lib/libXrender-"
4647                version
4648                ".tar.bz2"))
4649         (sha256
4650           (base32
4651             "0j89cnb06g8x79wmmnwzykgkkfdhin9j7hjpvsxwlr3fz1wmjvf0"))))
4652     (build-system gnu-build-system)
4653     (propagated-inputs
4654       `(("xorgproto" ,xorgproto)))
4655     (inputs
4656       `(("libx11" ,libx11)))
4657     (native-inputs
4658       `(("pkg-config" ,pkg-config)))
4659     (home-page "https://www.x.org/wiki/")
4660     (synopsis "Xorg Render Extension library")
4661     (description "Library for the Render Extension to the X11 protocol.")
4662     (license license:x11)))
4663
4664 (define-public libxtst
4665   (package
4666     (name "libxtst")
4667     (version "1.2.3")
4668     (source
4669       (origin
4670         (method url-fetch)
4671         (uri (string-append
4672                "mirror://xorg/individual/lib/libXtst-"
4673                version
4674                ".tar.bz2"))
4675         (sha256
4676           (base32
4677             "012jpyj7xfm653a9jcfqbzxyywdmwb2b5wr1dwylx14f3f54jma6"))))
4678     (build-system gnu-build-system)
4679     (propagated-inputs
4680      `(("libxi" ,libxi)
4681        ("xorgproto" ,xorgproto)))
4682     (inputs
4683       `(("libx11" ,libx11)))
4684     (native-inputs
4685       `(("pkg-config" ,pkg-config)))
4686     (home-page "https://www.x.org/wiki/")
4687     (synopsis "Xorg library for Xtest and Record extensions")
4688     (description
4689      "libXtst provides the Xlib-based client API for the XTEST & RECORD
4690 extensions.
4691
4692 The XTEST extension is a minimal set of client and server extensions
4693 required to completely test the X11 server with no user intervention.  This
4694 extension is not intended to support general journaling and playback of user
4695 actions.
4696
4697 The RECORD extension supports the recording and reporting of all core X
4698 protocol and arbitrary X extension protocol.")
4699     (license license:x11)))
4700
4701 (define-public libxv
4702   (package
4703     (name "libxv")
4704     (version "1.0.11")
4705     (source
4706       (origin
4707         (method url-fetch)
4708         (uri (string-append
4709                "mirror://xorg/individual/lib/libXv-"
4710                version
4711                ".tar.bz2"))
4712         (sha256
4713           (base32
4714             "125hn06bd3d8y97hm2pbf5j55gg4r2hpd3ifad651i4sr7m16v6j"))))
4715     (build-system gnu-build-system)
4716     (propagated-inputs
4717      `(("xorgproto" ,xorgproto)))
4718     (inputs
4719       `(("libxext" ,libxext)
4720         ("libx11" ,libx11)))
4721     (native-inputs
4722       `(("pkg-config" ,pkg-config)))
4723     (home-page "https://www.x.org/wiki/")
4724     (synopsis "Xorg XVideo Extension library")
4725     (description "Library for the X Video Extension to the X11 protocol.")
4726     (license license:x11)))
4727
4728 (define-public mkfontdir
4729   (package
4730     (name "mkfontdir")
4731     (version "1.0.7")
4732     (source
4733       (origin
4734         (method url-fetch)
4735         (uri (string-append
4736                "mirror://xorg/individual/app/mkfontdir-"
4737                version
4738                ".tar.bz2"))
4739         (sha256
4740           (base32
4741             "0c3563kw9fg15dpgx4dwvl12qz6sdqdns1pxa574hc7i5m42mman"))))
4742     (build-system gnu-build-system)
4743     (arguments
4744      '(#:phases
4745        (modify-phases %standard-phases
4746          (add-after 'install 'wrap-mkfontdir
4747            (lambda* (#:key inputs outputs #:allow-other-keys)
4748              (wrap-program (string-append (assoc-ref outputs "out")
4749                                           "/bin/mkfontdir")
4750                `("PATH" ":" prefix
4751                  (,(string-append (assoc-ref inputs "mkfontscale")
4752                                   "/bin"))))
4753              #t)))))
4754     (inputs
4755       `(("mkfontscale" ,mkfontscale)))
4756     (native-inputs
4757       `(("pkg-config" ,pkg-config)))
4758     (home-page "https://www.x.org/wiki/")
4759     (synopsis "Create an index of X font files in a directory")
4760     (description
4761      "MkFontDir creates the @code{fonts.dir} files needed by the legacy X
4762 server core font system.  The current implementation is a simple wrapper
4763 script around the mkfontscale program.")
4764     (license license:x11)))
4765
4766 (define-public xproto
4767   (package
4768     (name "xproto")
4769     (version "7.0.31")
4770     (source
4771       (origin
4772         (method url-fetch)
4773         (uri (string-append
4774                "mirror://xorg/individual/proto/xproto-"
4775                version
4776                ".tar.bz2"))
4777         (sha256
4778           (base32
4779             "0ivpxz0rx2a7nahkpkhfgymz7j0pwzaqvyqpdgw9afmxl1yp9yf6"))))
4780     (build-system gnu-build-system)
4781     (propagated-inputs
4782       `(("util-macros" ,util-macros))) ; to get util-macros in (almost?) all package inputs
4783     (native-inputs
4784       `(("pkg-config" ,pkg-config)))
4785     (home-page "https://www.x.org/wiki/")
4786     (synopsis "Xorg X11Proto protocol headers")
4787     (description
4788      "XProto provides the headers and specification documents defining
4789 the X Window System Core Protocol, Version 11.
4790
4791 It also includes a number of headers that aren't purely protocol related,
4792 but are depended upon by many other X Window System packages to provide
4793 common definitions and porting layer.")
4794     (license license:x11)
4795     (properties `((superseded . ,xorgproto)))))
4796
4797 ;; packages of height 2 in the propagated-inputs tree
4798
4799 (define-public libice
4800   (package
4801     (name "libice")
4802     (version "1.0.9")
4803     (source
4804       (origin
4805         (method url-fetch)
4806         (uri (string-append
4807                "mirror://xorg/individual/lib/libICE-"
4808                version
4809                ".tar.bz2"))
4810         (sha256
4811           (base32
4812             "00p2b6bsg6kcdbb39bv46339qcywxfl4hsrz8asm4hy6q7r34w4g"))))
4813     (build-system gnu-build-system)
4814     (propagated-inputs
4815       `(("xorgproto" ,xorgproto)))
4816     (inputs
4817       `(("libbsd" ,libbsd)
4818         ("xtrans" ,xtrans)))
4819     (native-inputs
4820       `(("pkg-config" ,pkg-config)))
4821     (home-page "https://www.x.org/wiki/")
4822     (synopsis "Xorg Inter-Client Exchange library")
4823     (description "Xorg Inter-Client Exchange library.")
4824     (license license:x11)))
4825
4826
4827 (define-public libxau
4828   (package
4829     (name "libxau")
4830     (version "1.0.9")
4831     (source
4832       (origin
4833         (method url-fetch)
4834         (uri (string-append
4835                "mirror://xorg/individual/lib/libXau-"
4836                version
4837                ".tar.bz2"))
4838         (sha256
4839           (base32
4840             "1v3krc6x0zliaa66qq1bf9j60x5nqfy68v8axaiglxpnvgqcpy6c"))))
4841     (build-system gnu-build-system)
4842     (propagated-inputs
4843       `(("xorgproto" ,xorgproto)))
4844     (native-inputs
4845       `(("pkg-config" ,pkg-config)))
4846     (home-page "https://www.x.org/wiki/")
4847     (synopsis "Xorg Authorization library")
4848     (description
4849      "libXau provides an authorization library for individual access to
4850 an X Window System display.")
4851     (license license:x11)))
4852
4853 (define-public libxfixes
4854   (package
4855     (name "libxfixes")
4856     (version "5.0.3")
4857     (source
4858       (origin
4859         (method url-fetch)
4860         (uri (string-append
4861                "mirror://xorg/individual/lib/libXfixes-"
4862                version
4863                ".tar.bz2"))
4864         (sha256
4865           (base32
4866             "1miana3y4hwdqdparsccmygqr3ic3hs5jrqfzp70hvi2zwxd676y"))))
4867     (build-system gnu-build-system)
4868     (propagated-inputs
4869       `(("xorgproto" ,xorgproto)))
4870     (inputs
4871       `(("libx11" ,libx11)))
4872     (native-inputs
4873       `(("pkg-config" ,pkg-config)))
4874     (home-page "https://www.x.org/wiki/")
4875     (synopsis "Xorg Fixes Extension library")
4876     (description "Library for the XFixes Extension to the X11 protocol.")
4877     (license license:x11)))
4878
4879 (define-public libxfont
4880   (package
4881     (name "libxfont")
4882     (version "1.5.4")
4883     (source
4884       (origin
4885         (method url-fetch)
4886         (uri (string-append
4887                "mirror://xorg/individual/lib/libXfont-"
4888                version
4889                ".tar.bz2"))
4890         (sha256
4891           (base32
4892             "0hiji1bvpl78aj3a3141hkk353aich71wv8l5l2z51scfy878zqs"))))
4893     (build-system gnu-build-system)
4894     (propagated-inputs
4895       `(("freetype" ,freetype)
4896         ("libfontenc" ,libfontenc)
4897         ("xorgproto" ,xorgproto)))
4898     (inputs
4899       `(("zlib" ,zlib)
4900         ("xtrans" ,xtrans)))
4901     (native-inputs
4902        `(("pkg-config" ,pkg-config)))
4903     (home-page "https://www.x.org/wiki/")
4904     (synopsis "Xorg Font handling library")
4905     (description
4906      "libXfont provides the core of the legacy X11 font system, handling the
4907 index files (fonts.dir, fonts.alias, fonts.scale), the various font file
4908 formats, and rasterizing them.  It is used by the X servers, the X Font
4909 Server (xfs), and some font utilities (bdftopcf for instance), but should
4910 not be used by normal X11 clients.  X11 clients access fonts via either the
4911 new API's in libXft, or the legacy API's in libX11.")
4912     (license license:x11)))
4913
4914 (define-public libxfont2
4915   (package
4916     (inherit libxfont)
4917     (version "2.0.3")
4918     (source (origin
4919               (method url-fetch)
4920               (uri (string-append "mirror://xorg/individual/lib/libXfont2-"
4921                                   version ".tar.bz2"))
4922               (sha256
4923                (base32
4924                 "0klwmimmhm3axpj8pwn5l41lbggh47r5aazhw63zxkbwfgyvg2hf"))))))
4925
4926 (define-public libxi
4927   (package
4928     (name "libxi")
4929     (version "1.7.9")
4930     (source
4931       (origin
4932         (method url-fetch)
4933         (uri (string-append
4934                "mirror://xorg/individual/lib/libXi-"
4935                version
4936                ".tar.bz2"))
4937         (sha256
4938           (base32
4939             "0idg1wc01hndvaa820fvfs7phvd1ymf0lldmq6386i7rhkzvirn2"))))
4940     (build-system gnu-build-system)
4941     (propagated-inputs
4942       `(("xorgproto" ,xorgproto)
4943         ("libx11" ,libx11)
4944         ("libxext" ,libxext)
4945         ("libxfixes" ,libxfixes)))
4946     (native-inputs
4947        `(("pkg-config" ,pkg-config)))
4948     (home-page "https://www.x.org/wiki/")
4949     (synopsis "Xorg Input Extension library")
4950     (description "Library for the XInput Extension to the X11 protocol.")
4951     (license license:x11)))
4952
4953 (define-public libxrandr
4954   (package
4955     (name "libxrandr")
4956     (version "1.5.2")
4957     (source
4958       (origin
4959         (method url-fetch)
4960         (uri (string-append
4961                "mirror://xorg/individual/lib/libXrandr-"
4962                version
4963                ".tar.bz2"))
4964         (sha256
4965           (base32
4966             "08z0mqywrm7ij8bxlfrx0d2wy6kladdmkva1nw5k6qix82z0xsla"))))
4967     (build-system gnu-build-system)
4968     (propagated-inputs
4969       ;; In accordance with xrandr.pc.
4970       `(("libx11" ,libx11)
4971         ("libxext" ,libxext)
4972         ("libxrender" ,libxrender)
4973         ("xorgproto" ,xorgproto)))
4974     (native-inputs
4975        `(("pkg-config" ,pkg-config)))
4976     (home-page "https://www.x.org/wiki/")
4977     (synopsis "Xorg Resize and Rotate Extension library")
4978     (description
4979      "Library for the Resize and Rotate Extension to the X11 protocol.")
4980     (license license:x11)))
4981
4982 (define-public libxvmc
4983   (package
4984     (name "libxvmc")
4985     (version "1.0.11")
4986     (source
4987       (origin
4988         (method url-fetch)
4989         (uri (string-append
4990                "mirror://xorg/individual/lib/libXvMC-"
4991                version
4992                ".tar.bz2"))
4993         (sha256
4994           (base32
4995             "0bb2c996p0smp2lwckffcfh4701bzv7266xh230ag0x68ka38bja"))))
4996     (build-system gnu-build-system)
4997     (propagated-inputs
4998       `(("libxv" ,libxv)))
4999     (inputs
5000       `(("xorgproto" ,xorgproto)
5001         ("libxext" ,libxext)
5002         ("libx11" ,libx11)))
5003     (native-inputs
5004        `(("pkg-config" ,pkg-config)))
5005     (home-page "https://www.x.org/wiki/")
5006     (synopsis "Xorg XvMC library")
5007     (description "Xorg XvMC library.")
5008     (license license:x11)))
5009
5010 (define-public libxxf86vm
5011   (package
5012     (name "libxxf86vm")
5013     (version "1.1.4")
5014     (source
5015       (origin
5016         (method url-fetch)
5017         (uri (string-append
5018                "mirror://xorg/individual/lib/libXxf86vm-"
5019                version
5020                ".tar.bz2"))
5021         (sha256
5022           (base32
5023             "0mydhlyn72i7brjwypsqrpkls3nm6vxw0li8b2nw0caz7kwjgvmg"))))
5024     (build-system gnu-build-system)
5025     (propagated-inputs
5026       `(("libxext" ,libxext)
5027         ("xorgproto" ,xorgproto)))
5028     (inputs
5029       `(("libx11" ,libx11)))
5030     (native-inputs
5031        `(("pkg-config" ,pkg-config)))
5032     (home-page "https://www.x.org/wiki/")
5033     (synopsis "Xorg XF86 Video Mode Extension library")
5034     (description
5035      "Library for the XFree86 Video Mode Extension Extension to the X11
5036 protocol.")
5037     (license license:x11)))
5038
5039
5040 ;; packages of height 3 in the propagated-inputs tree
5041
5042 (define-public libxcb
5043   (package
5044     (name "libxcb")
5045     (version "1.13")
5046     (source
5047       (origin
5048         (method url-fetch)
5049         (uri (string-append "https://xcb.freedesktop.org/dist/"
5050                             name "-" version ".tar.bz2"))
5051         (sha256
5052           (base32
5053            "1ahxhmdqp4bhb90zmc275rmf5wixqra4bnw9pqnzyl1w3598g30q"))))
5054     (build-system gnu-build-system)
5055     (propagated-inputs
5056       `(("libpthread-stubs" ,libpthread-stubs)
5057         ("libxau" ,libxau)
5058         ("libxdmcp" ,libxdmcp)))
5059     (inputs
5060       `(("xcb-proto" ,xcb-proto)
5061         ("libxslt" ,libxslt)))
5062     (native-inputs
5063       `(("pkg-config" ,pkg-config)
5064         ("python" ,python-minimal-wrapper)))
5065     (arguments
5066      `(#:configure-flags '("--enable-xkb")))
5067     (home-page "https://xcb.freedesktop.org/")
5068     (synopsis "The X C Binding (XCB) library")
5069     (description
5070      "libxcb provides an interface to the X Window System protocol,
5071 which replaces the current Xlib interface.  It has several advantages
5072 over Xlib, including:
5073
5074 - size: small, simple library, and lower memory footprint;
5075
5076 - latency hiding: batch several requests and wait for the replies later;
5077
5078 - direct protocol access: interface and protocol correspond exactly;
5079
5080 - proven thread support: transparently access XCB from multiple threads;
5081
5082 - easy extension implementation: interfaces auto-generated from XML-XCB.")
5083     (license license:x11)))
5084
5085
5086 (define-public xorg-server
5087   (package
5088     (name "xorg-server")
5089     (version "1.20.4")
5090     (source
5091       (origin
5092         (method url-fetch)
5093         (uri (string-append
5094               "mirror://xorg/individual/xserver/"
5095               "xorg-server-" version ".tar.bz2"))
5096         (sha256
5097          (base32
5098           "1vk6j7hmigfill9x8m7a6vvgb3s50ji2yf6yprbgqfz9xf9x83zy"))
5099         (patches
5100          (list
5101           ;; See:
5102           ;;   https://lists.fedoraproject.org/archives/list/devel@lists.
5103           ;;      fedoraproject.org/message/JU655YB7AM4OOEQ4MOMCRHJTYJ76VFOK/
5104           (origin
5105             (method url-fetch)
5106             (uri (string-append
5107                   "http://pkgs.fedoraproject.org/cgit/rpms/xorg-x11-server.git"
5108                   "/plain/06_use-intel-only-on-pre-gen4.diff"))
5109             (sha256
5110              (base32
5111               "0mm70y058r8s9y9jiv7q2myv0ycnaw3iqzm7d274410s0ik38w7q"))
5112             (file-name "xorg-server-use-intel-only-on-pre-gen4.diff"))))))
5113     (build-system gnu-build-system)
5114     (propagated-inputs
5115       `(("libpciaccess" ,libpciaccess)
5116         ("mesa" ,mesa)
5117         ("pixman" ,pixman)
5118         ("xorgproto" ,xorgproto)))
5119     (inputs
5120       `(("udev" ,eudev)
5121         ("dbus" ,dbus)
5122         ("libdmx" ,libdmx)
5123         ("libepoxy" ,libepoxy)
5124         ("libgcrypt" ,libgcrypt)
5125         ("libxau" ,libxau)
5126         ("libxaw" ,libxaw)
5127         ("libxdmcp" ,libxdmcp)
5128         ("libxfixes" ,libxfixes)
5129         ("libxfont2" ,libxfont2)
5130         ("libxkbfile" ,libxkbfile)
5131         ("libxrender" ,libxrender)
5132         ("libxres" ,libxres)
5133         ("libxshmfence" ,libxshmfence)
5134         ("libxt" ,libxt)
5135         ("libxv" ,libxv)
5136         ("xkbcomp" ,xkbcomp)
5137         ("xkeyboard-config" ,xkeyboard-config)
5138         ("xtrans" ,xtrans)
5139         ("zlib" ,zlib)
5140         ;; Inputs for Xephyr
5141         ("xcb-util" ,xcb-util)
5142         ("xcb-util-image" ,xcb-util-image)
5143         ("xcb-util-keysyms" ,xcb-util-keysyms)
5144         ("xcb-util-renderutil" ,xcb-util-renderutil)
5145         ("xcb-util-wm" ,xcb-util-wm)))
5146     (native-inputs
5147      `(("python" ,python-wrapper)
5148        ("pkg-config" ,pkg-config)))
5149     (arguments
5150      `(#:parallel-tests? #f
5151        #:configure-flags
5152        (list (string-append "--with-xkb-path="
5153                             (assoc-ref %build-inputs "xkeyboard-config")
5154                             "/share/X11/xkb")
5155              (string-append "--with-xkb-output="
5156                             "/tmp") ; FIXME: This is a bit doubtful; where should
5157                                     ; the compiled keyboard maps go?
5158              (string-append "--with-xkb-bin-directory="
5159                             (assoc-ref %build-inputs "xkbcomp")
5160                             "/bin")
5161              ;; By default, it ends up with invalid '${prefix}/...', causes:
5162              ;;   _FontTransOpen: Unable to Parse address ${prefix}/share/...
5163              ;; It's not used anyway, so set it to empty.
5164              "--with-default-font-path="
5165
5166              ;; The default is to use "uname -srm", which captures the kernel
5167              ;; version and makes builds non-reproducible.
5168              "--with-os-name=GNU"
5169
5170              "--with-os-vendor=GuixSD"    ;not strictly needed, but looks nice
5171
5172
5173              ;; For the log file, etc.
5174              "--localstatedir=/var"
5175              ;; For sddm
5176              "--enable-kdrive"
5177              "--enable-xephyr")
5178
5179        #:phases
5180        (modify-phases %standard-phases
5181          (add-before 'configure 'pre-configure
5182            (lambda _
5183              (substitute* (find-files "." "\\.c$")
5184                (("/bin/sh") (which "sh")))
5185
5186              ;; Don't try to 'mkdir /var'.
5187              (substitute* "hw/xfree86/Makefile.in"
5188                (("\\$\\(MKDIR_P\\).*logdir.*")
5189                 "true\n"))
5190
5191              ;; Strip timestamps that would otherwise end up in the 'Xorg'
5192              ;; binary.
5193              (substitute* "configure"
5194                (("^BUILD_DATE=.*$")
5195                 "BUILD_DATE=19700101\n")
5196                (("^BUILD_TIME=.*$")
5197                 "BUILD_TIME=000001\n"))
5198
5199              #t)))))
5200     (home-page "https://www.x.org/wiki/")
5201     (synopsis "Xorg implementation of the X Window System")
5202     (description
5203      "This package provides the Xorg X server itself.
5204 The X server accepts requests from client programs to create windows, which
5205 are (normally rectangular) 'virtual screens' that the client program can
5206 draw into.
5207
5208 Windows are then composed on the actual screen by the X server (or by a
5209 separate composite manager) as directed by the window manager, which usually
5210 communicates with the user via graphical controls such as buttons and
5211 draggable titlebars and borders.")
5212     (license license:x11)))
5213
5214 ;; This package is intended to be used when building GTK+.
5215 ;; Note: It's currently marked as "hidden" to avoid having two non-eq?
5216 ;; packages with the same name and version.
5217 (define-public xorg-server-for-tests
5218   (hidden-package
5219    (package
5220      (inherit xorg-server))))
5221
5222 (define-public xorg-server-xwayland
5223   (package
5224     (inherit xorg-server)
5225     (name "xorg-server-xwayland")
5226     (inputs
5227      `(("wayland" ,wayland)
5228        ("wayland-protocols" ,wayland-protocols)
5229        ,@(package-inputs xorg-server)))
5230     (arguments
5231      (substitute-keyword-arguments (package-arguments xorg-server)
5232        ((#:configure-flags flags)
5233         `(cons* "--enable-xwayland" "--disable-xorg"
5234                 "--disable-docs"    "--disable-devel-docs"
5235                 "--disable-xvfb"    "--disable-xnest"
5236                 "--disable-xquartz" "--disable-xwin"
5237                 ,flags))))
5238     (synopsis "Xorg server with wayland backend")))
5239
5240
5241 ;; packages of height 4 in the propagated-inputs tree
5242
5243 (define-public libx11
5244   (package
5245     (name "libx11")
5246     (version "1.6.7")
5247     (source
5248       (origin
5249         (method url-fetch)
5250         (uri (string-append
5251                "mirror://xorg/individual/lib/libX11-"
5252                version
5253                ".tar.bz2"))
5254         (sha256
5255           (base32
5256             "0j0k5bjz4kd7rx6z09n5ggxbzbi84wf78xx25ikx6jmsxwq9w3li"))))
5257     (build-system gnu-build-system)
5258     (outputs '("out"
5259                "doc"))                            ;8 MiB of man pages + XML
5260     (arguments
5261      '(#:configure-flags (list (string-append "--mandir="
5262                                               (assoc-ref %outputs "doc")
5263                                               "/share/man"))))
5264     (propagated-inputs
5265       `(("xorgproto" ,xorgproto)
5266         ("libxcb" ,libxcb)))
5267     (inputs
5268       `(("xtrans" ,xtrans)))
5269     (native-inputs
5270       `(("pkg-config" ,pkg-config)))
5271     (home-page "https://www.x.org/wiki/")
5272     (synopsis "Xorg Core X11 protocol client library")
5273     (description "Xorg Core X11 protocol client library.")
5274     (license license:x11)))
5275
5276 ;; packages of height 5 in the propagated-inputs tree
5277
5278 (define-public libxcursor
5279   (package
5280     (name "libxcursor")
5281     (version "1.2.0")
5282     (source
5283       (origin
5284         (method url-fetch)
5285         (uri (string-append
5286                "mirror://xorg/individual/lib/libXcursor-"
5287                version
5288                ".tar.bz2"))
5289         (sha256
5290           (base32
5291             "10l7c9fm0jmpkm9ab9dz8r6m1pr87vvgqjnbx1psz50h4pwfklrs"))))
5292     (build-system gnu-build-system)
5293     (propagated-inputs
5294       `(("libx11" ,libx11)
5295         ("libxrender" ,libxrender)
5296         ("libxfixes" ,libxfixes)
5297         ("xorgproto" ,xorgproto)))
5298     (native-inputs
5299       `(("pkg-config" ,pkg-config)))
5300 ;; TODO: add XCURSOR_PATH=.../share/icons to profile search paths, so
5301 ;; libXcursor finds cursors installed into a profile.  If we solve bugs
5302 ;; <http://bugs.gnu.org/20255> and <http://bugs.gnu.org/22138>, we can fix
5303 ;; this with a search-path as follows:
5304 ;;
5305 ;;    (native-search-paths
5306 ;;     (list (search-path-specification
5307 ;;            (variable "XCURSOR_PATH")
5308 ;;            (files '("share/icons")))))
5309     (home-page "https://www.x.org/wiki/")
5310     (synopsis "Xorg Cursor management library")
5311     (description "Xorg Cursor management library.")
5312     (license license:x11)))
5313
5314 (define-public libxt
5315   (package
5316     (name "libxt")
5317     (version "1.1.5")
5318     (source
5319       (origin
5320         (method url-fetch)
5321         (uri (string-append
5322                "mirror://xorg/individual/lib/libXt-"
5323                version
5324                ".tar.bz2"))
5325         (sha256
5326           (base32
5327            "06lz6i7rbrp19kgikpaz4c97fw7n31k2h2aiikczs482g2zbdvj6"))
5328         (patches (search-patches "libxt-guix-search-paths.patch"))))
5329     (build-system gnu-build-system)
5330     (outputs '("out"
5331                "doc"))                            ;2 MiB of man pages + XML
5332     (arguments
5333      '(#:configure-flags (list (string-append "--mandir="
5334                                               (assoc-ref %outputs "doc")
5335                                               "/share/man"))))
5336     (propagated-inputs
5337       `(("libx11" ,libx11)
5338         ("libice" ,libice)
5339         ("libsm" ,libsm)))
5340     (inputs
5341       `(("libx11" ,libx11)))
5342     (native-inputs
5343       `(("pkg-config" ,pkg-config)))
5344     (home-page "https://www.x.org/wiki/")
5345     (synopsis "Xorg XToolkit Intrinsics library")
5346     (description "Xorg XToolkit Intrinsics library.")
5347     (license license:x11)))
5348
5349
5350 (define-public libxaw
5351   (package
5352     (name "libxaw")
5353     (version "1.0.13")
5354     (source
5355       (origin
5356         (method url-fetch)
5357         (uri (string-append
5358                "mirror://xorg/individual/lib/libXaw-"
5359                version
5360                ".tar.bz2"))
5361         (sha256
5362           (base32
5363             "1kdhxplwrn43d9jp3v54llp05kwx210lrsdvqb6944jp29rhdy4f"))))
5364     (build-system gnu-build-system)
5365     (propagated-inputs
5366       `(("libxext" ,libxext)
5367         ("libxmu" ,libxmu)
5368         ("libxpm" ,libxpm)
5369         ("libxt" ,libxt)))
5370     (inputs
5371       `(("xorgproto" ,xorgproto)))
5372     (native-inputs
5373       `(("pkg-config" ,pkg-config)))
5374     (home-page "https://www.x.org/wiki/")
5375     (synopsis "Xorg Xaw library")
5376     (description
5377      "Xaw is the X Athena Widget Set based on the X Toolkit
5378 Intrinsics (Xt) Library.")
5379     (license license:x11)))
5380
5381 (define-public twm
5382   (package
5383     (name "twm")
5384     (version "1.0.10")
5385     (source
5386      (origin
5387        (method url-fetch)
5388        (uri (string-append
5389              "mirror://xorg/individual/app/" name "-"
5390              version
5391              ".tar.bz2"))
5392        (sha256
5393         (base32
5394          "1ms5cj1w3g26zg6bxdv1j9hl0pxr4300qnv003cz1q3cl7ffljb4"))))
5395     (build-system gnu-build-system)
5396     (inputs
5397      `(("libxt" ,libxt)
5398        ("libxmu" ,libxmu)
5399        ("libxext" ,libxext)
5400        ("xorgproto" ,xorgproto)))
5401     (native-inputs
5402      `(("bison" ,bison)
5403        ("pkg-config" ,pkg-config)))
5404     (home-page "https://www.x.org/wiki/")
5405     (synopsis "Tab Window Manager for the X Window System")
5406     (description "Twm is a window manager for the X Window System.
5407 It provides titlebars, shaped windows, several forms of icon management,
5408 user-defined macro functions, click-to-type and pointer-driven
5409 keyboard focus, and user-specified key and pointer button bindings.")
5410     (license license:x11)))
5411
5412 (define-public xcb-util
5413   (package
5414     (name "xcb-util")
5415     (version "0.4.0")
5416     (source (origin
5417              (method url-fetch)
5418              (uri (string-append "mirror://xorg/individual/xcb/"
5419                                  name "-" version ".tar.bz2"))
5420              (sha256
5421               (base32
5422                "1sahmrgbpyki4bb72hxym0zvxwnycmswsxiisgqlln9vrdlr9r26"))))
5423     (build-system gnu-build-system)
5424     (propagated-inputs
5425      `(("libxcb" ,libxcb)))
5426     (native-inputs
5427      `(("pkg-config" ,pkg-config)))
5428     (home-page "https://cgit.freedesktop.org/xcb/util/")
5429     (synopsis "Core XCB utility functions")
5430     (description
5431      "The XCB util module provides a number of libraries which sit on
5432 top of libxcb, the core X protocol library, and some of the extension
5433 libraries.  These experimental libraries provide convenience functions
5434 and interfaces which make the raw X protocol more usable.  Some of the
5435 libraries also provide client-side code which is not strictly part of
5436 the X protocol but which has traditionally been provided by Xlib.
5437
5438 The XCB util module provides the following libraries:
5439
5440 - aux: Convenient access to connection setup and some core requests.
5441
5442 - atom: Standard core X atom constants and atom caching.
5443
5444 - event: Some utilities that have little to do with events any more.")
5445     (license license:x11)))
5446
5447
5448 (define-public xcb-util-cursor
5449   (package
5450     (name "xcb-util-cursor")
5451     (version "0.1.3")
5452     (source (origin
5453               (method url-fetch)
5454               (uri (string-append "https://xcb.freedesktop.org/dist/"
5455                                   "xcb-util-cursor-" version ".tar.bz2"))
5456               (sha256
5457                (base32
5458                 "0krr4rcw6r42cncinzvzzdqnmxk3nrgpnadyg2h8k9x10q3hm885"))))
5459     (build-system gnu-build-system)
5460     (native-inputs
5461      `(("m4" ,m4)
5462        ("pkg-config" ,pkg-config)))
5463     (inputs
5464      `(("libxcb" ,libxcb)))
5465     (propagated-inputs
5466      `(("xcb-util-renderutil" ,xcb-util-renderutil)
5467        ("xcb-util-image" ,xcb-util-image)))
5468     (home-page "https://cgit.freedesktop.org/xcb/util-cursor/")
5469     (synopsis "Port of libxcursor")
5470     (description "XCB-util-cursor is a port of libxcursor.")
5471     (license
5472      ; expat license  with added clause regarding advertising
5473      (license:non-copyleft
5474       "file://COPYING"
5475       "See COPYING in the distribution."))))
5476
5477 (define-public xcb-util-errors
5478   (let ((commit "5d660ebe872cadcdc85de9d6f9afe05de629c030")
5479         (revision "1"))
5480     (package
5481       (name "xcb-util-errors")
5482       (version (git-version "1.0" revision commit))
5483       (source (origin
5484                 (method git-fetch)
5485                 (uri (git-reference
5486                       (url "https://anongit.freedesktop.org/git/xcb/util-errors.git")
5487                       (commit commit)
5488                       (recursive? #t)))
5489                 (file-name (git-file-name name version))
5490                 (sha256
5491                  (base32
5492                   "12bah0iz5k6b9hwlc5zffyfg2gnrajll3gn5s8zmazgynvw72ahg"))))
5493      (build-system gnu-build-system)
5494      (outputs '("out"))
5495      (inputs
5496       `(("util-macros" ,util-macros)
5497         ("xcb-proto" ,xcb-proto)))
5498      (propagated-inputs
5499       `(("libxcb" ,libxcb)))
5500      (native-inputs
5501       `(("autoconf" ,autoconf)
5502         ("automake" ,automake)
5503         ("libtool" ,libtool)
5504         ("python-2" ,python-2)
5505         ("pkg-config" ,pkg-config)))
5506      (arguments
5507       `(#:phases
5508         (modify-phases %standard-phases
5509           (replace 'bootstrap
5510             (lambda _
5511               ;; The default 'bootstrap' phase would run 'autogen.sh', which
5512               ;; would try to run ./configure and fail due to unpatched
5513               ;; shebangs.
5514               (invoke "autoreconf" "-v" "--install"))))))
5515      (home-page "https://cgit.freedesktop.org/xcb/util-errors/")
5516      (synopsis "XCB helper library for printing information about X11 errors")
5517      (description
5518       "The XCB util module provides a number of libraries which sit on
5519 top of libxcb, the core X protocol library, and some of the extension
5520 libraries.  These experimental libraries provide convenience functions
5521 and interfaces which make the raw X protocol more usable.  Some of the
5522 libraries also provide client-side code which is not strictly part of
5523 the X protocol but which has traditionally been provided by Xlib.
5524
5525 The XCB util-errors module provides a utility library that gives human
5526 readable names to error codes, event codes, and also to major and minor
5527 numbers.")
5528      (license license:x11))))
5529
5530 (define-public xcb-util-image
5531   (package
5532     (name "xcb-util-image")
5533     (version "0.4.0")
5534     (source (origin
5535              (method url-fetch)
5536              (uri (string-append "mirror://xorg/individual/xcb/"
5537                                  name "-" version ".tar.bz2"))
5538              (sha256
5539               (base32
5540                "1z1gxacg7q4cw6jrd26gvi5y04npsyavblcdad1xccc8swvnmf9d"))))
5541     (build-system gnu-build-system)
5542     (propagated-inputs
5543      `(("libxcb" ,libxcb)))
5544     (inputs
5545      `(("xcb-util" ,xcb-util)))
5546     (native-inputs
5547      `(("pkg-config" ,pkg-config)))
5548     (home-page "https://cgit.freedesktop.org/xcb/util-image/")
5549     (synopsis "XCB port of Xlib's XImage and XShmImage")
5550     (description
5551      "The XCB util module provides a number of libraries which sit on
5552 top of libxcb, the core X protocol library, and some of the extension
5553 libraries.  These experimental libraries provide convenience functions
5554 and interfaces which make the raw X protocol more usable.  Some of the
5555 libraries also provide client-side code which is not strictly part of
5556 the X protocol but which has traditionally been provided by Xlib.
5557
5558 The XCB util-image module provides the following library:
5559
5560 - image: Port of Xlib's XImage and XShmImage functions.")
5561     (license license:x11)))
5562
5563
5564 (define-public xcb-util-keysyms
5565   (package
5566     (name "xcb-util-keysyms")
5567     (version "0.4.0")
5568     (source (origin
5569              (method url-fetch)
5570              (uri (string-append "mirror://xorg/individual/xcb/"
5571                                  name "-" version ".tar.bz2"))
5572              (sha256
5573               (base32
5574                "1nbd45pzc1wm6v5drr5338j4nicbgxa5hcakvsvm5pnyy47lky0f"))))
5575     (build-system gnu-build-system)
5576     (propagated-inputs
5577      `(("libxcb" ,libxcb)))
5578     (native-inputs
5579      `(("pkg-config" ,pkg-config)))
5580     (home-page "https://cgit.freedesktop.org/xcb/util-keysyms/")
5581     (synopsis "Standard X constants and conversion to/from keycodes")
5582     (description
5583      "The XCB util module provides a number of libraries which sit on
5584 top of libxcb, the core X protocol library, and some of the extension
5585 libraries.  These experimental libraries provide convenience functions
5586 and interfaces which make the raw X protocol more usable.  Some of the
5587 libraries also provide client-side code which is not strictly part of
5588 the X protocol but which has traditionally been provided by Xlib.
5589
5590 The XCB util-keysyms module provides the following library:
5591
5592 - keysyms: Standard X key constants and conversion to/from keycodes.")
5593     (license license:x11)))
5594
5595
5596 (define-public xcb-util-renderutil
5597   (package
5598     (name "xcb-util-renderutil")
5599     (version "0.3.9")
5600     (source (origin
5601              (method url-fetch)
5602              (uri (string-append "mirror://xorg/individual/xcb/"
5603                                  name "-" version ".tar.bz2"))
5604              (sha256
5605               (base32
5606                "0nza1csdvvxbmk8vgv8vpmq7q8h05xrw3cfx9lwxd1hjzd47xsf6"))))
5607     (build-system gnu-build-system)
5608     (propagated-inputs
5609      `(("libxcb" ,libxcb)))
5610     (native-inputs
5611      `(("pkg-config" ,pkg-config)))
5612     (home-page "https://cgit.freedesktop.org/xcb/util-renderutil/")
5613     (synopsis "Convenience functions for the Render extension")
5614     (description
5615      "The XCB util module provides a number of libraries which sit on
5616 top of libxcb, the core X protocol library, and some of the extension
5617 libraries.  These experimental libraries provide convenience functions
5618 and interfaces which make the raw X protocol more usable.  Some of the
5619 libraries also provide client-side code which is not strictly part of
5620 the X protocol but which has traditionally been provided by Xlib.
5621
5622 The XCB util-renderutil module provides the following library:
5623
5624 - renderutil: Convenience functions for the Render extension.")
5625     (license license:x11)))
5626
5627
5628 (define-public xcb-util-wm
5629   (package
5630     (name "xcb-util-wm")
5631     (version "0.4.1")
5632     (source (origin
5633              (method url-fetch)
5634              (uri (string-append "mirror://xorg/individual/xcb/"
5635                                  name "-" version ".tar.bz2"))
5636              (sha256
5637               (base32
5638                "0gra7hfyxajic4mjd63cpqvd20si53j1q3rbdlkqkahfciwq3gr8"))))
5639     (build-system gnu-build-system)
5640     (propagated-inputs
5641      `(("libxcb" ,libxcb)))
5642     (native-inputs
5643      `(("m4" ,m4)
5644        ("pkg-config" ,pkg-config)))
5645     (home-page "https://cgit.freedesktop.org/xcb/util-wm/")
5646     (synopsis "Client and window-manager helpers for ICCCM and EWMH")
5647     (description
5648      "The XCB util modules provides a number of libraries which sit on
5649 top of libxcb, the core X protocol library, and some of the extension
5650 libraries.  These experimental libraries provide convenience functions
5651 and interfaces which make the raw X protocol more usable.  Some of the
5652 libraries also provide client-side code which is not strictly part of
5653 the X protocol but which has traditionally been provided by Xlib.
5654
5655 The XCB util-wm module provides the following libraries:
5656
5657 - ewmh: Both client and window-manager helpers for EWMH.
5658
5659 - icccm: Both client and window-manager helpers for ICCCM.")
5660     (license license:x11)))
5661
5662 (define-public xinit
5663   (package
5664     (name "xinit")
5665     (version "1.4.1")
5666     (source (origin
5667               (method url-fetch)
5668               (uri (string-append "mirror://xorg/individual/app/xinit-"
5669                                   version ".tar.bz2"))
5670               (sha256
5671                (base32
5672                 "1fdbakx59vyh474skjydj1bbglpby3y03nl7mxn0z9v8gdhqz6yy"))))
5673     (build-system gnu-build-system)
5674     (inputs
5675      `(("xorgproto" ,xorgproto)
5676        ("libx11" ,libx11)))
5677     (native-inputs
5678      `(("pkg-config" ,pkg-config)))
5679     (propagated-inputs
5680      `(("xauth" ,xauth)))
5681     (home-page "https://www.x.org/")
5682     (synopsis "Commands to start the X Window server")
5683     (description
5684      "The xinit program is used to start the X Window System server and a
5685 first client program on systems that are not using a display manager such as
5686 xdm.  This package also provides the @code{startx} command, which provides a
5687 user-friendly mechanism to start the X server.")
5688     (license license:x11)))
5689
5690 ;; package outside the x.org system proper of height 5
5691
5692 (define-public libxaw3d
5693   (package
5694     (name "libxaw3d")
5695     (version "1.6.3")
5696     (source
5697       (origin
5698         (method url-fetch)
5699         (uri (string-append
5700                "mirror://xorg/individual/lib/libXaw3d-"
5701                version
5702                ".tar.bz2"))
5703         (sha256
5704           (base32
5705             "0i653s8g25cc0mimkwid9366bqkbyhdyjhckx7bw77j20hzrkfid"))))
5706     (build-system gnu-build-system)
5707     (propagated-inputs
5708       `(("libxext" ,libxext)
5709         ("libxmu" ,libxmu)
5710         ("libxt" ,libxt)))
5711     (inputs
5712      `(("libx11" ,libx11)))
5713     (native-inputs
5714      `(("pkg-config" ,pkg-config)))
5715     (home-page "https://www.x.org/wiki/")
5716     (synopsis "Xorg Xaw3d library")
5717     (description
5718      "Xaw is the X 3D Athena Widget Set based on the X Toolkit
5719 Intrinsics (Xt) Library.")
5720     (license license:x11)))
5721
5722 (define-public xclock
5723   (package
5724     (name "xclock")
5725     (version "1.0.8")
5726     (source
5727      (origin
5728        (method url-fetch)
5729        (uri (string-append "https://www.x.org/releases/individual/app/"
5730                            name "-" version ".tar.bz2"))
5731        (sha256
5732         (base32 "0m92zhamh15my9f2rqa14q41d6k2cn468azm3g7g3w9n7942024k"))))
5733     (build-system gnu-build-system)
5734     (arguments
5735      `(#:configure-flags
5736        (list (string-append "--with-appdefaultdir="
5737                             %output ,%app-defaults-dir))))
5738     (inputs
5739      `(("libxmu" ,libxmu)
5740        ("libx11" ,libx11)
5741        ("libxaw" ,libxaw)
5742        ("libxrender" ,libxrender)
5743        ("libxft" ,libxft)
5744        ("libxkbfile" ,libxkbfile)))
5745     (native-inputs
5746      `(("pkg-config" ,pkg-config)))
5747     (home-page "https://gitlab.freedesktop.org/xorg/app/xclock")
5748     (synopsis "Analog / digital clock for X")
5749     (description "The xclock program displays the time in analog or digital
5750 form.")
5751     (license (license:x11-style "file://COPYING" "See COPYING for details."))))
5752
5753 (define-public xmag
5754   (package
5755     (name "xmag")
5756     (version "1.0.6")
5757     (source
5758      (origin
5759        (method url-fetch)
5760        (uri (string-append
5761              "mirror://xorg/individual/app/" name "-"
5762              version
5763              ".tar.gz"))
5764        (sha256
5765         (base32
5766          "19bsg5ykal458d52v0rvdx49v54vwxwqg8q36fdcsv9p2j8yri87"))))
5767     (build-system gnu-build-system)
5768     (arguments
5769      `(#:configure-flags
5770        (list (string-append "--with-appdefaultdir="
5771                             %output ,%app-defaults-dir))))
5772     (inputs
5773      `(("libxaw" ,libxaw)))
5774     (native-inputs
5775      `(("pkg-config" ,pkg-config)))
5776     (home-page "https://www.x.org/wiki/")
5777     (synopsis "Display or capture a magnified part of a X11 screen")
5778     (description "Xmag displays and captures a magnified snapshot of a portion
5779 of an X11 screen.")
5780     (license license:x11)))
5781
5782 (define-public xmessage
5783   (package
5784     (name "xmessage")
5785     (version "1.0.5")
5786     (source
5787      (origin
5788        (method url-fetch)
5789        (uri (string-append
5790              "mirror://xorg/individual/app/" name "-"
5791              version
5792              ".tar.gz"))
5793        (sha256
5794         (base32
5795          "0sw0b0cbrjl44brw7qi1jkm61xd7a1lpj04418c6iqk6mf83llwr"))))
5796     (build-system gnu-build-system)
5797     (arguments
5798      `(#:configure-flags
5799        (list (string-append "--with-appdefaultdir="
5800                             %output ,%app-defaults-dir))))
5801     (inputs
5802      `(("libxaw" ,libxaw)))
5803     (native-inputs
5804      `(("pkg-config" ,pkg-config)))
5805     (home-page "https://www.x.org/wiki/")
5806     (synopsis "Displays a message or query in a window")
5807     (description
5808      "Xmessage displays a message or query in a window.   The user can click
5809 on a button to dismiss it or can select one of several buttons
5810 to answer a question.  Xmessage can also exit after a specified time.")
5811     (license license:x11)))
5812
5813 (define-public xterm
5814   (package
5815     (name "xterm")
5816     (version "335")
5817     (source (origin
5818               (method url-fetch)
5819               (uri (list
5820                     (string-append "http://invisible-mirror.net/archives/xterm/"
5821                                    name "-" version ".tgz")
5822                     (string-append "ftp://ftp.invisible-island.net/xterm/"
5823                                    name "-" version ".tgz")))
5824               (sha256
5825                (base32
5826                 "15nbgys4s2idhx6jzzc24g9bb1s6yps5fyg2bafvs0gkkcm1ggz0"))))
5827     (build-system gnu-build-system)
5828     (arguments
5829      '(#:configure-flags '("--enable-wide-chars" "--enable-load-vt-fonts"
5830                            "--enable-i18n" "--enable-doublechars"
5831                            "--enable-luit" "--enable-mini-luit")
5832        #:tests? #f))
5833     (native-inputs
5834      `(("pkg-config" ,pkg-config)))
5835     (inputs
5836      `(("luit" ,luit)
5837        ("libXft" ,libxft)
5838        ("fontconfig" ,fontconfig)
5839        ("freetype" ,freetype)
5840        ("ncurses" ,ncurses)
5841        ("libICE" ,libice)
5842        ("libSM" ,libsm)
5843        ("libX11" ,libx11)
5844        ("libXext" ,libxext)
5845        ("libXt" ,libxt)
5846        ("xorgproto" ,xorgproto)
5847        ("libXaw" ,libxaw)))
5848     (home-page "https://invisible-island.net/xterm/")
5849     (synopsis "Terminal emulator for the X Window System")
5850     (description
5851      "The xterm program is a terminal emulator for the X Window System.  It
5852 provides DEC VT102/VT220 (VTxxx) and Tektronix 4014 compatible terminals for
5853 programs that cannot use the window system directly.")
5854     (license license:x11)))
5855
5856 (define-public perl-x11-xcb
5857   (package
5858     (name "perl-x11-xcb")
5859     (version "0.18")
5860     (source (origin
5861               (method url-fetch)
5862               (uri (string-append
5863                     "mirror://cpan/authors/id/M/MS/MSTPLBG/"
5864                     "X11-XCB-" version ".tar.gz"))
5865               (sha256
5866                (base32
5867                 "1cjpghw7cnackw20lbd7yzm222kz5bnrwz52f8ay24d1f4pwrnxf"))))
5868     (build-system perl-build-system)
5869     (arguments
5870      '(;; Disable parallel build to prevent a race condition.
5871        #:parallel-build? #f
5872        #:phases
5873        (modify-phases %standard-phases
5874          (add-before 'configure 'set-perl-search-path
5875            (lambda _
5876              (setenv "PERL5LIB"
5877                      (string-append (getcwd) ":"
5878                                     (getenv "PERL5LIB")))
5879              #t))
5880          (add-before 'build 'patch-Makefile
5881            (lambda* (#:key inputs #:allow-other-keys)
5882              (substitute* "Makefile"
5883                ;; XXX: Without this hack, attempts at using XCB.so fails with
5884                ;; an error such as "XCB.so: undefined symbol: xcb_xinerama_id"
5885                (("^LDDLFLAGS = ")
5886                 (string-append "LDDLFLAGS = "
5887                                "-lxcb -lxcb-util -lxcb-xinerama -lxcb-icccm ")))
5888              #t)))
5889        ;; Tests require a running X11 server.
5890        #:tests? #f))
5891     (native-inputs
5892      `(("perl-extutils-depends" ,perl-extutils-depends)
5893        ("perl-extutils-pkgconfig" ,perl-extutils-pkgconfig)
5894        ("perl-module-install" ,perl-module-install)
5895        ("perl-test-deep" ,perl-test-deep)
5896        ("perl-test-exception" ,perl-test-exception)))
5897     (propagated-inputs
5898      `(("perl-data-dump" ,perl-data-dump)
5899        ("perl-mouse" ,perl-mouse)
5900        ("perl-mousex-nativetraits" ,perl-mousex-nativetraits)
5901        ("perl-try-tiny" ,perl-try-tiny)
5902        ("perl-xml-descent" ,perl-xml-descent)
5903        ("perl-xml-simple" ,perl-xml-simple)
5904        ("perl-xs-object-magic" ,perl-xs-object-magic)))
5905     (inputs
5906      `(("libxcb" ,libxcb)
5907        ("xcb-proto" ,xcb-proto)
5908        ("xcb-util" ,xcb-util)
5909        ("xcb-util-wm" ,xcb-util-wm)))
5910     (home-page "https://metacpan.org/release/X11-XCB")
5911     (synopsis "Perl bindings for libxcb")
5912     (description
5913      "These bindings wrap @code{libxcb} (a C library to speak with X11,
5914 in many cases better than @code{Xlib}), and provides an object oriented
5915 interface to its methods (using @code{Mouse}).")
5916     (license license:perl-license)))
5917
5918 (define-public perl-x11-protocol
5919   (package
5920     (name "perl-x11-protocol")
5921     (version "0.56")
5922     (source (origin
5923              (method url-fetch)
5924              (uri (string-append
5925                    "mirror://cpan/authors/id/S/SM/SMCCAM/X11-Protocol-"
5926                    version ".tar.gz"))
5927              (sha256
5928               (base32
5929                "1dq89bh6fqv7l5mbffqcismcljpq5f869bx7g8lg698zgindv5ny"))))
5930     (build-system perl-build-system)
5931     (arguments '(#:tests? #f))          ;tests require a running x server
5932     (synopsis "Raw interface to X Window System servers")
5933     (description
5934      "X11::Protocol is a client-side interface to the X11 Protocol, allowing
5935 perl programs to display windows and graphics on X11 servers.")
5936     (home-page "https://metacpan.org/release/X11-Protocol")
5937     ;; From the package README: "you can redistribute and/or modify it under
5938     ;; the same terms as Perl itself. (As an exception, the file
5939     ;; Keysyms.pm,which is derived from a file in the standard X11
5940     ;; distribution, has another, less restrictive copying policy, as do some
5941     ;; of the extension modules in the directory Protocol/Ext: see those files
5942     ;; for details)."
5943     (license license:perl-license)))
5944
5945 (define-public perl-x11-protocol-other
5946   (package
5947     (name "perl-x11-protocol-other")
5948     (version "30")
5949     (source
5950      (origin
5951        (method url-fetch)
5952        (uri (string-append
5953              "mirror://cpan/authors/id/K/KR/KRYDE/X11-Protocol-Other-"
5954              version ".tar.gz"))
5955        (sha256
5956         (base32
5957          "1mambi57cdkj82wiw1l8y2f70a60qsamdas0165hlj10drryfgrj"))))
5958     (build-system perl-build-system)
5959     (native-inputs
5960      `(("perl-encode-hanextra" ,perl-encode-hanextra)
5961        ("perl-module-util" ,perl-module-util)))
5962     (propagated-inputs
5963      `(("perl-x11-protocol" ,perl-x11-protocol)))
5964     (home-page "https://metacpan.org/release/X11-Protocol-Other")
5965     (synopsis "Miscellaneous helpers for @code{X11::Protocol} connections")
5966     (description
5967      "@code{X11::Protocol::Other} contains window manager related functions for
5968 use by client programs, as per the @dfn{ICCCM} (Inter-Client Communication
5969 Conventions Manual) and some of the @dfn{EWMH}
5970 (Extended Window Manager Hints).")
5971     (license license:gpl3+)))
5972
5973 (define-public xcompmgr
5974   (package
5975     (name "xcompmgr")
5976     (version "1.1.8")
5977     (source
5978      (origin
5979        ;; There's no current tarball.
5980        (method git-fetch)
5981        (uri (git-reference
5982              (url "https://anongit.freedesktop.org/git/xorg/app/xcompmgr.git")
5983              (commit (string-append "xcompmgr-" version))))
5984        (sha256
5985         (base32 "11i7vyk3pynw8q8aczpy56qncm84y0cmhlvyja3sj8dgy60g03q2"))
5986        (file-name (git-file-name name version))))
5987     (build-system gnu-build-system)
5988     (arguments
5989      `(#:phases (modify-phases %standard-phases
5990                   (add-after 'unpack 'autogen
5991                               (lambda _
5992                                 (setenv "NOCONFIGURE" "t")
5993                                 (invoke "sh" "autogen.sh"))))))
5994     (native-inputs
5995      `(("pkg-config" ,pkg-config)
5996        ("autoconf" ,autoconf)
5997        ("automake" ,automake)))
5998     (inputs
5999      `(("libX11" ,libx11)
6000        ("libXext" ,libxext)
6001        ("libXcomposite" ,libxcomposite)
6002        ("libXfixes" ,libxfixes)
6003        ("libXdamage" ,libxdamage)
6004        ("libXrender" ,libxrender)))
6005     (synopsis "X Compositing manager using RENDER")
6006     (description "xcompmgr is a sample compositing manager for X servers
6007 supporting the XFIXES, DAMAGE, RENDER, and COMPOSITE extensions.  It enables
6008 basic eye-candy effects.")
6009     (home-page "https://cgit.freedesktop.org/xorg/app/xcompmgr/")
6010     (license (license:x11-style
6011               "https://cgit.freedesktop.org/xorg/app/xcompmgr/tree/COPYING"))))
6012
6013 (define-public xpra
6014   (package
6015     (name "xpra")
6016     (version "2.5.1")
6017     (source
6018      (origin
6019        (method url-fetch)
6020        (uri (string-append "https://www.xpra.org/src/xpra-"
6021                            version ".tar.xz"))
6022        (sha256
6023         (base32
6024          "14l3bs7mlkd2lphjhnbw5dr95pg7x1k61s9wk35dra4li2xjy1lm"))))
6025     (build-system python-build-system)
6026     (inputs `(("ffmpeg" ,ffmpeg)
6027               ("flac" ,flac)
6028               ("gtk+-2" ,gtk+-2) ;; no full GTK3 support yet
6029               ("libjpeg" ,libjpeg)
6030               ("libpng" ,libpng)
6031               ("libvpx" ,libvpx)
6032               ("libx264" ,libx264)
6033               ("libxcomposite" ,libxcomposite)
6034               ("libxdamage" ,libxdamage)
6035               ("libxi" ,libxi)
6036               ("libxkbfile" ,libxkbfile)
6037               ("libxrandr" ,libxrandr)
6038               ("libxtst" ,libxtst)
6039               ("lzo" ,lzo)
6040               ("python2-cryptography" ,python2-cryptography)
6041               ("python2-dbus" ,python2-dbus)
6042               ("python2-lz4" ,python2-lz4)
6043               ("python2-lzo" ,python2-lzo)
6044               ("python2-netifaces" ,python2-netifaces)
6045               ("python2-numpy" ,python2-numpy)
6046               ("python2-pillow" ,python2-pillow)
6047               ("python2-pycairo" ,python2-pycairo)
6048               ("python2-pycrypto" ,python2-pycrypto)
6049               ("python2-pygobject" ,python2-pygobject)
6050               ("python2-pyopengl" ,python2-pyopengl)
6051               ("python2-pyopengl-accelerate" ,python2-pyopengl-accelerate)
6052               ("python2-pygtk" ,python2-pygtk)
6053               ("python2-rencode" ,python2-rencode)
6054               ("xorg-server" ,xorg-server)))
6055     (native-inputs `(("pkg-config" ,pkg-config)
6056                      ("python2-cython" ,python2-cython)))
6057     (arguments
6058      `(#:python ,python-2 ;; no full Python 3 support yet
6059        #:configure-flags '("--with-tests"
6060                            "--with-bundle_tests"
6061                            "--without-Xdummy" ;; We use Xvfb instead.
6062                            "--without-Xdummy_wrapper"
6063                            "--without-strict")
6064        #:modules ((guix build python-build-system)
6065                   (guix build utils))
6066
6067        #:phases
6068        (modify-phases %standard-phases
6069          (delete 'build)
6070          (delete 'check) ;; There's no test suite at the moment.
6071
6072          ;; Remove BUILD_CPU, BUILD_DATE, BUILD_TIME from build info to
6073          ;; prevent deterministic issues.  Also correct some directories and
6074          ;; use the xvfb binary instead of xorg-server (which doesn't seem to
6075          ;; work).
6076          (add-before 'install 'remove-timestamps&set-file-names
6077            (lambda* (#:key inputs outputs #:allow-other-keys)
6078              (substitute* "add_build_info.py"
6079                ((".*\"BUILD_CPU\", get_cpuinfo.*") ""))
6080              (substitute* "add_build_info.py"
6081                ((".*\"BUILD_DATE\", datetime.*") ""))
6082              (substitute* "add_build_info.py"
6083                ((".*\"BUILD_TIME\", datetime.*") ""))
6084              (substitute* "setup.py"
6085                (("/etc/init.d/")
6086                 (string-append (assoc-ref outputs "out")
6087                                "/etc/init.d/")))
6088              (substitute* "setup.py"
6089                (("/usr/lib/")
6090                 (string-append (assoc-ref outputs "out") "/lib/")))
6091              ;; Use Xvfb with '-nolisten local' to disable abstract X11 sockets.
6092              (substitute* "./xpra/scripts/config.py"
6093                ((":.*join.*xvfb.*")
6094                 (string-append ": \"" (assoc-ref inputs "xorg-server")
6095                                "/bin/Xvfb +extension Composite"
6096                                " -screen 0 5760x2560x24+32 -dpi 96 -nolisten"
6097                                " tcp -nolisten local -noreset -auth"
6098                                " $XAUTHORITY\",\n")))
6099              (substitute* "./xpra/scripts/config.py"
6100                (("socket-dir.*: \"\",")
6101                 "socket-dir\"        : \"~/.xpra\","))
6102              #t)))))
6103     (home-page "https://www.xpra.org/")
6104     (synopsis "Remote access to individual applications or full desktops")
6105     (description "Xpra is a persistent remote display server and client for
6106 forwarding applications and desktop screens.  It gives you remote access to
6107 individual applications or full desktops.  On X11, it is also known as
6108 ``@command{screen} for X11'': it allows you to run programs, usually on a
6109 remote host, direct their display to your local machine, and then to
6110 disconnect from these programs and reconnect from the same or another machine,
6111 without losing any state.  It can also be used to forward full desktops from
6112 X11 servers, Windows, or macOS.")
6113     (license license:gpl2+)))
6114
6115 (define-public uim
6116   (package
6117     (name "uim")
6118     (version "1.8.8")
6119     (source
6120      (origin
6121        (method url-fetch)
6122        (uri (string-append "https://github.com/uim/uim/releases/download/"
6123                            version "/uim-" version ".tar.bz2"))
6124        (sha256
6125         (base32
6126          "1p7sl0js47ja4glmax93ci59h02ipqw3wxkh4f1qgaz5qjy9nn9l"))))
6127     (build-system gnu-build-system)
6128     (inputs
6129      `(("anthy" ,anthy)
6130        ("libedit" ,libedit)
6131        ("libxft" ,libxft)
6132        ("m17n-lib" ,m17n-lib)))
6133     (native-inputs
6134      `(("emacs" ,emacs-minimal)
6135        ("intltool" ,intltool)
6136        ("pkg-config" ,pkg-config)))
6137     (arguments
6138      `(#:modules ((guix build gnu-build-system)
6139                   (guix build utils)
6140                   (guix build emacs-utils))
6141        #:imported-modules (,@%gnu-build-system-modules
6142                            (guix build emacs-utils))
6143        #:configure-flags
6144        (list "--with-anthy-utf8"
6145              (string-append "--with-lispdir=" %output
6146                             "/share/emacs/site-lisp/guix.d")
6147              ;; Set proper runpath
6148              (string-append "LDFLAGS=-Wl,-rpath=" %output "/lib"))
6149        #:phases
6150        (modify-phases %standard-phases
6151          ;; Set path of uim-el-agent and uim-el-helper-agent executables
6152          (add-after 'configure 'configure-uim-el
6153            (lambda* (#:key outputs #:allow-other-keys)
6154              (substitute* "emacs/uim-var.el"
6155                (("\"(uim-el-agent|uim-el-helper-agent)\"" _ executable)
6156                 (string-append "\"" (assoc-ref outputs "out")
6157                                "/bin/" executable "\"")))
6158              #t))
6159          ;; Generate emacs autoloads for uim.el
6160          (add-after 'install 'make-autoloads
6161            (lambda* (#:key outputs #:allow-other-keys)
6162              (emacs-generate-autoloads
6163               ,name (string-append (assoc-ref outputs "out")
6164                                    "/share/emacs/site-lisp"))
6165              #t)))))
6166     (home-page "https://github.com/uim/uim")
6167     (synopsis "Multilingual input method framework")
6168     (description "Uim is a multilingual input method library and environment.
6169 It provides a simple, easily extensible and high code-quality input method
6170 development platform, and useful input method environment for users of desktop
6171 and embedded platforms.")
6172     (license (list license:lgpl2.1+ ; scm/py.scm, pixmaps/*.{svg,png} (see pixmaps/README)
6173                    license:gpl2+ ; scm/pinyin-big5.scm
6174                    license:gpl3+ ; scm/elatin-rules.cm
6175                    license:public-domain ; scm/input-parse.scm, scm/match.scm
6176                    ;; gtk2/toolbar/eggtrayicon.{ch},
6177                    ;; qt3/chardict/kseparator.{cpp,h},
6178                    ;; qt3/pref/kseparator.{cpp,h}
6179                    license:lgpl2.0+
6180                    ;; pixmaps/*.{svg,png} (see pixmaps/README),
6181                    ;; all other files
6182                    license:bsd-3))))
6183
6184 (define-public uim-gtk
6185   (package
6186     (inherit uim)
6187     (name "uim-gtk")
6188     (inputs
6189      `(("gtk" ,gtk+)
6190        ("gtk" ,gtk+-2)
6191        ,@(package-inputs uim)))
6192     (synopsis "Multilingual input method framework (GTK+ support)")))
6193
6194 (define-public uim-qt
6195   (package
6196     (inherit uim)
6197     (name "uim-qt")
6198     (inputs
6199      `(("qt" ,qt-4)
6200        ,@(package-inputs uim)))
6201     (arguments
6202      (substitute-keyword-arguments (package-arguments uim)
6203        ((#:configure-flags configure-flags)
6204         (append configure-flags (list "--with-qt4-immodule"
6205                                       "--with-qt4")))))
6206     (synopsis "Multilingual input method framework (Qt support)")))
6207
6208 (define-public keynav
6209   (package
6210     (name "keynav")
6211     (version "0.20110708.0")
6212     (source
6213      (origin
6214        (method url-fetch)
6215        (uri (string-append
6216              "http://http.debian.net/debian/pool/main/k/keynav/keynav_"
6217              version ".orig.tar.gz"))
6218        (file-name (string-append name "-" version ".tar.gz"))
6219        (sha256
6220         (base32
6221          "1gizjhji3yspxxxvb90js3z1bv18rbf5phxg8rciixpj3cccff8z"))))
6222     (build-system gnu-build-system)
6223     (inputs
6224      `(("cairo" ,cairo)
6225        ("glib" ,glib)
6226        ("libx11" ,libx11)
6227        ("libxext" ,libxext)
6228        ("libxinerama" ,libxinerama)
6229        ("libxtst" ,libxtst)
6230        ("xdotool" ,xdotool)))
6231     (native-inputs
6232      `(("pkg-config" ,pkg-config)))
6233     (arguments
6234      `(#:tests? #f ;No tests.
6235        #:phases
6236        (modify-phases %standard-phases
6237          (add-after 'unpack 'setenv
6238            (lambda _
6239              (setenv "CC" (which "gcc"))
6240              #t))
6241          (add-after 'unpack 'patch-keynav
6242            (lambda _
6243              (substitute* "keynav.c"
6244                (("xdo_symbol_map") "xdo_get_symbol_map")
6245                (("xdo_window_setclass") "xdo_set_window_class")
6246                (("xdo_window_get_active") "xdo_get_window_at_mouse")
6247                (("xdo_click") "xdo_click_window")
6248                (("xdo_mouseup") "xdo_mouse_up")
6249                (("xdo_mousedown") "xdo_mouse_down")
6250                (("xdo_mousemove") "xdo_move_mouse")
6251                (("xdo_mousemove_relative") "xdo_move_mouse_relative")
6252                (("xdo_mouselocation") "xdo_get_mouse_location")
6253                (("xdo_mouse_wait_for_move_to") "xdo_wait_for_mouse_move_to")
6254                (("xdo_keysequence_up") "xdo_send_keysequence_window_up")
6255                (("xdo_keysequence_down") "xdo_send_keysequence_window_down"))
6256              #t))
6257          (delete 'configure)
6258          (replace 'install
6259            (lambda* (#:key outputs #:allow-other-keys)
6260              (let ((out (assoc-ref outputs "out")))
6261                (install-file "keynav" (string-append out "/bin"))
6262                (install-file "keynavrc" (string-append out "/etc")))
6263              #t)))))
6264     (home-page "https://www.semicomplete.com/projects/keynav/")
6265     (synopsis "Keyboard-driven mouse cursor mover")
6266     (description
6267      "Keynav makes your keyboard a fast mouse cursor mover.  You can move the
6268 cursor to any point on the screen with a few key strokes.  It also simulates
6269 mouse click.  You can do everything mouse can do with a keyboard.")
6270     (license license:bsd-3)))
6271
6272 (define-public transset-df
6273   (package
6274     (name "transset-df")
6275     (version "6")
6276     (source (origin
6277               (method url-fetch)
6278               (uri (string-append "http://forchheimer.se/" name "/" name "-" version
6279                                   ".tar.gz"))
6280               (sha256
6281                (base32
6282                 "1vnykwwrv75miigbhmcwxniw8xnhsdyzhqydip2m9crxi2lwhqs5"))))
6283     (build-system gnu-build-system)
6284     (arguments
6285      '(#:phases
6286        (modify-phases %standard-phases
6287          (add-after 'unpack 'setenv
6288            (lambda _
6289              (setenv "CC" (which "gcc"))
6290              #t))
6291          (delete 'configure)
6292          (delete 'check)
6293          (replace 'install
6294            (lambda* (#:key outputs #:allow-other-keys)
6295              (let* ((out (assoc-ref outputs "out"))
6296                     (bin (string-append out "/bin")))
6297                (install-file "transset-df" bin)
6298                #t))))))
6299     (native-inputs
6300      `(("pkg-config" ,pkg-config)))
6301     (inputs `(("libxcomposite" ,libxcomposite)
6302               ("libxdamager" ,libxdamage)
6303               ("libxrender" ,libxrender)))
6304     (synopsis "Set the transparency of X11 windows")
6305     (description "The @command{transset-df} command allows you to set the
6306 opacity of X11 windows.  This patched version of X.Org's @command{transset}
6307 adds functionality, including: selecting window by clicking (as transset),
6308 selecting windows by pointing select actual focused X11 window, selecting by
6309 window name or id, forcing toggle, increase or decrease opacity.")
6310     (home-page "http://forchheimer.se/transset-df/")
6311     (license license:x11)))
6312
6313 (define-public bdfresize
6314   (package
6315     (name "bdfresize")
6316     (version "1.5-11")
6317     (source (origin
6318               ;; Former upstream at
6319               ;; <http://openlab.ring.gr.jp/efont/dist/tools/bdfresize/>
6320               ;; vanished so use Debian, which in practice is the new
6321               ;; upstream.
6322               (method git-fetch)
6323               (uri (git-reference
6324                     (url "https://salsa.debian.org/debian/bdfresize.git")
6325                     (commit (string-append "debian/" version))))
6326               (sha256
6327                (base32
6328                 "0n3i29wicak8n10vkkippym8yw4ir8f7a263a8rwb8q16wqrxx85"))
6329               (modules '((guix build utils)))
6330               (snippet
6331                '(begin
6332                   (for-each make-file-writable (find-files "."))
6333
6334                   ;; Remove broken declaration.
6335                   (substitute* "charresize.c"
6336                     (("char\t\\*malloc\\(\\);")
6337                      ""))
6338
6339                   ;; Remove old configury that doesn't support modern
6340                   ;; command-line options, new architectures, etc.
6341                   (for-each delete-file
6342                             '("configure" "install-sh"
6343                               "missing" "mkinstalldirs"))
6344                   #t))
6345               (file-name (git-file-name name version))))
6346     (build-system gnu-build-system)
6347     (native-inputs
6348      `(("pkg-config" ,pkg-config)
6349        ("autoconf" ,autoconf)
6350        ("automake" ,automake)))
6351     (synopsis "Resize fonts in the BDF format")
6352     (description
6353      "This packages provides @command{bdfresize}, a command to magnify or
6354 reduce fonts in the Glyph Bitmap Distribution Format (BDF).  It produces BDF
6355 output.")
6356     (home-page "https://tracker.debian.org/pkg/bdfresize")
6357     (license license:gpl2+)) )
6358
6359 (define-public console-setup
6360   (package
6361     (name "console-setup")
6362     (version "1.191")
6363     (source
6364      (origin
6365        (method git-fetch)
6366        (uri (git-reference
6367              (url "https://salsa.debian.org/installer-team/console-setup.git")
6368              (commit version)))
6369        (sha256
6370         (base32 "0wplhjadk530fqxhfnizil32rcvkcl5m2r18yskspcib53r4pmim"))
6371        (file-name (git-file-name name version))))
6372     (build-system gnu-build-system)
6373     (arguments
6374      '(#:make-flags
6375        (let ((bash (assoc-ref %build-inputs "bash"))
6376              (out (assoc-ref %outputs "out")))
6377          (list (string-append "SHELL=" bash "/bin/bash")))
6378        #:tests? #f                                ;no tests
6379        #:phases
6380        (modify-phases %standard-phases
6381          (delete 'configure)
6382          (add-after 'unpack 'patch-file-names
6383            (lambda _
6384              ;; 'ckbcomp' calls out to 'cat' (!).  Give it the right file
6385              ;; name.
6386              (substitute* '("Keyboard/ckbcomp")
6387                (("\"cat ")
6388                 (string-append "\"" (which "cat")
6389                                " ")))
6390              #t))
6391          (add-before 'build 'make-doubled-bdfs
6392            (lambda* (#:key inputs #:allow-other-keys)
6393              (invoke "make" "-C" "Fonts"
6394                      "doubled_bdfs"
6395                      (string-append "SHELL="
6396                                     (assoc-ref inputs "bash")
6397                                     "/bin/bash"))))
6398          (replace 'install
6399            (lambda* (#:key inputs outputs #:allow-other-keys)
6400              (let ((out (assoc-ref %outputs "out")))
6401                (invoke "make" "install-linux"
6402                        (string-append "prefix=" out)
6403                        (string-append "SHELL="
6404                                       (assoc-ref inputs "bash")
6405                                       "/bin/bash"))))))))
6406     (native-inputs
6407      `(("pkg-config" ,pkg-config)
6408        ("bdftopcf" ,bdftopcf)
6409        ("bdfresize" ,bdfresize)
6410        ("sharutils" ,sharutils)))                 ;for 'uuencode'
6411     (inputs
6412      `(("perl" ,perl)))                           ;used by 'ckbcomp'
6413     (synopsis "Set up the Linux console font and keyboard")
6414     (description
6415      "console-setup provides the console with the same keyboard
6416 configuration scheme that X Window System has.  In particular, the
6417 @command{ckbcomp} program compiles an XKB keyboard description to a keymap
6418 suitable for @command{loadkeys} or @command{kbdcontrol}.  As a result, there
6419 is no need to duplicate or change the console keyboard files just to make
6420 simple customizations.
6421
6422 Besides the keyboard, the package also configures the font on the console.  It
6423 includes a rich collection of fonts and supports several languages that would
6424 otherwise be unsupported on the console (such as Armenian, Georgian, Lao, and
6425 Thai).")
6426     (home-page "https://salsa.debian.org/installer-team/console-setup/")
6427
6428     ;; Most of the code is GPLv2+; the Expat license applies to 'setupcon' and
6429     ;; 'ckbcomp-mini'.  The installed precompiled keyboard files are covered
6430     ;; by simple permissive licenses.  See the 'COPYRIGHT' file.
6431     (license (list license:gpl2+
6432                    license:expat))))