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