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