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