gnu/packages/xorg.scm

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