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