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