gnu/packages/xorg.scm

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