gnu/packages/xorg.scm

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