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 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 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.3")
 532     (source (xorg-font-origin
 533              name version
 534              "16ic8wfwwr3jicaml7b5a0sk6plcgc1kg84w02881yhwmqm3nicb"))
 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.3")
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             "02ddsdx138g7szhwklpbzi0cxr34871iay3k28kdcihrz8f4zg36"))))
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)
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
2831 ;; non-free license
2832 ;; (define-public xf86-video-dummy
2833
2834
2835 (define-public xf86-video-fbdev
2836   (package
2837     (name "xf86-video-fbdev")
2838     (version "0.5.0")
2839     (source
2840       (origin
2841         (method url-fetch)
2842         (uri (string-append
2843                "mirror://xorg/individual/driver/xf86-video-fbdev-"
2844                version
2845                ".tar.bz2"))
2846         (sha256
2847           (base32
2848             "16a66zr0l1lmssa07i3rzy07djxnb45c17ks8c71h8l06xgxihyw"))))
2849     (build-system gnu-build-system)
2850     (inputs `(("xorg-server" ,xorg-server)))
2851     (native-inputs `(("pkg-config" ,pkg-config)))
2852     (home-page "https://www.x.org/wiki/")
2853     (synopsis "Framebuffer device video driver for X server")
2854     (description
2855      "xf86-video-fbdev is a video driver for the Xorg X server for
2856 framebuffer device.")
2857     (license license:x11)))
2858
2859
2860 (define-public xf86-video-freedreno
2861   (let ((commit "ccba8f89995de7d5e1b216e580b789c4cda05035"))
2862     (package
2863       (name "xf86-video-freedreno")
2864       (version (string-append "1.4.0-1-" (string-take commit 7)))
2865       (source
2866        (origin
2867          ;; there's no current tarball
2868          (method git-fetch)
2869          (uri (git-reference
2870                (url (string-append "https://anongit.freedesktop.org/git/xorg/"
2871                                    "driver/xf86-video-freedreno.git"))
2872                (commit commit)))
2873          (sha256
2874           (base32
2875            "0bl9m1agi793lcddv94j8afzw1xc9w810q91mbq0n3dscbbcr9nh"))
2876          (file-name (string-append name "-" version))))
2877       (build-system gnu-build-system)
2878       (inputs
2879        `(("libdrm" ,libdrm)
2880          ("mesa" ,mesa)
2881          ("udev" ,eudev)
2882          ("xorg-server" ,xorg-server)
2883          ("zlib" ,zlib)))
2884       (native-inputs
2885        `(("pkg-config" ,pkg-config)
2886          ("autoconf" ,autoconf)
2887          ("automake" ,automake)
2888          ("libtool" ,libtool)))
2889        ;; This driver is only supported on ARM systems.
2890       (supported-systems '("armhf-linux" "aarch64-linux"))
2891       (arguments
2892        `(#:configure-flags
2893          (list (string-append "--with-xorg-conf-dir="
2894                               (assoc-ref %outputs "out")
2895                               "/share/X11/xorg.conf.d"))))
2896       (home-page "https://www.x.org/wiki/")
2897       (synopsis "Adreno video driver for X server")
2898       (description
2899        "xf86-video-freedreno is a 2D graphics driver for the Xorg X server.
2900 It supports a variety of Adreno graphics chipsets.")
2901       (license license:x11))))
2902
2903
2904 (define-public xf86-video-geode
2905   (package
2906     (name "xf86-video-geode")
2907     (version "2.11.19")
2908     (source
2909       (origin
2910         (method url-fetch)
2911         (uri (string-append
2912                "mirror://xorg/individual/driver/xf86-video-geode-"
2913                version
2914                ".tar.bz2"))
2915         (sha256
2916           (base32
2917            "0zn9gb49grds5mcs1dlrx241k2w1sgqmx4i5x7v6159xxqhlqsf6"))
2918         (patches (search-patches "xf86-video-geode-glibc-2.20.patch"))))
2919     (build-system gnu-build-system)
2920     (inputs `(("xorg-server" ,xorg-server)))
2921     (native-inputs `(("pkg-config" ,pkg-config)))
2922     (supported-systems
2923      ;; This driver is only supported on i686 systems.
2924      (filter (lambda (system) (string-prefix? "i686-" system))
2925              %supported-systems))
2926     (home-page "https://www.x.org/wiki/")
2927     (synopsis "AMD Geode GX/LX video driver for X server")
2928     (description
2929      "xf86-video-geode is an Xorg X server video driver for the AMD
2930 Geode GX and LX processors.  The GX component supports both XAA and EXA
2931 for graphics acceleration.  The LX component supports EXA, including
2932 compositing.  Both support Xv overlay and dynamic rotation with XRandR.")
2933     (license license:x11)))
2934
2935
2936 ;; Driver for obsolete graphics cards, depends on libglide:
2937 ;; http://sourceforge.net/projects/glide/ ,
2938 ;; last updated in 2003, and which does not compile out of the box any more.
2939 ;; (define-public xf86-video-glide
2940 ;;   (package
2941 ;;     (name "xf86-video-glide")
2942 ;;     (version "1.2.0")
2943 ;;     (source
2944 ;;       (origin
2945 ;;         (method url-fetch)
2946 ;;         (uri (string-append
2947 ;;                "mirror://xorg/X11R7.7/src/everything/xf86-video-glide-"
2948 ;;                version
2949 ;;                ".tar.bz2"))
2950 ;;         (sha256
2951 ;;           (base32
2952 ;;             "0byapm9mnpqk3wijfnnan3d22ii5cw6dmg4xn1625iiz89j5vs1l"))))
2953 ;;     (build-system gnu-build-system)
2954 ;;     (inputs `(("pkg-config" ,pkg-config)
2955 ;;               ("xorg-server" ,xorg-server)))
2956 ;;     (home-page "https://www.x.org/wiki/")
2957 ;;     (synopsis "Glide video driver for X server")
2958 ;;     (description
2959 ;;      "xf86-video-glide is a Glide video driver for the Xorg X server.")
2960 ;;     (license license:x11)))
2961
2962
2963 (define-public xf86-video-glint
2964   (package
2965     (name "xf86-video-glint")
2966     (version "1.2.9")
2967     (source
2968       (origin
2969         (method url-fetch)
2970         (uri (string-append
2971                "mirror://xorg/individual/driver/xf86-video-glint-"
2972                version
2973                ".tar.bz2"))
2974         (sha256
2975           (base32
2976            "1lkpspvrvrp9s539bhfdjfh4andaqyk63l6zjn8m3km95smk6a45"))))
2977     (build-system gnu-build-system)
2978     (inputs `(("xorgproto" ,xorgproto)
2979               ("xorg-server" ,xorg-server)))
2980     (native-inputs `(("pkg-config" ,pkg-config)))
2981     (home-page "https://www.x.org/wiki/")
2982     (synopsis "GLINT/Permedia video driver for X server")
2983     (description
2984      "xf86-video-glint is a GLINT/Permedia video driver for the Xorg
2985 X server.")
2986     (license license:x11)))
2987
2988
2989 (define-public xf86-video-i128
2990   (package
2991     (name "xf86-video-i128")
2992     (version "1.4.0")
2993     (source
2994       (origin
2995         (method url-fetch)
2996         (uri (string-append
2997                "mirror://xorg/individual/driver/xf86-video-i128-"
2998                version
2999                ".tar.bz2"))
3000         (sha256
3001           (base32
3002            "1snhpv1igrhifcls3r498kjd14ml6x2xvih7zk9xlsd1ymmhlb4g"))))
3003     (build-system gnu-build-system)
3004     (inputs `(("xorg-server" ,xorg-server)))
3005     (native-inputs `(("pkg-config" ,pkg-config)))
3006     (home-page "https://www.x.org/wiki/")
3007     (synopsis "I128 video driver for X server")
3008     (description
3009      "xf86-video-i128 is an I128 (Imagine 128) video driver for the Xorg
3010 X server.")
3011     (license license:x11)))
3012
3013
3014 (define-public xf86-video-intel
3015   (let ((commit "f66d39544bb8339130c96d282a80f87ca1606caf")
3016         (revision "15"))
3017     (package
3018       (name "xf86-video-intel")
3019       (version (git-version "2.99.917" revision commit))
3020       (source
3021        (origin
3022          ;; there's no current tarball
3023          (method git-fetch)
3024          (uri (git-reference
3025                (url "https://anongit.freedesktop.org/git/xorg/driver/xf86-video-intel.git")
3026                (commit commit)))
3027          (sha256
3028           (base32
3029            "14rwbbn06l8qpx7s5crxghn80vgcx8jmfc7qvivh72d81r0kvywl"))
3030          (file-name (git-file-name name version))))
3031       (build-system gnu-build-system)
3032       (inputs `(("mesa" ,mesa)
3033                 ("udev" ,eudev)
3034                 ("libx11" ,libx11)
3035                 ("libxfont" ,libxfont2)
3036                 ("xorg-server" ,xorg-server)))
3037       (native-inputs
3038        `(("pkg-config" ,pkg-config)
3039          ("autoconf" ,autoconf)
3040          ("automake" ,automake)
3041          ("libtool" ,libtool)))
3042       (supported-systems
3043        ;; This driver is only supported on Intel systems.
3044        (filter (lambda (system) (or (string-prefix? "i686-" system)
3045                                     (string-prefix? "x86_64-" system)))
3046                %supported-systems))
3047       (arguments
3048        '(#:configure-flags '("--with-default-accel=uxa")))
3049       (home-page "https://www.x.org/wiki/")
3050       (synopsis "Intel video driver for X server")
3051       (description
3052        "xf86-video-intel is a 2D graphics driver for the Xorg X server.
3053 It supports a variety of Intel graphics chipsets.")
3054       (license license:x11))))
3055
3056
3057 (define-public xf86-video-mach64
3058   (package
3059     (name "xf86-video-mach64")
3060     (version "6.9.6")
3061     (source
3062       (origin
3063         (method url-fetch)
3064         (uri (string-append
3065                "mirror://xorg/individual/driver/xf86-video-mach64-"
3066                version
3067                ".tar.bz2"))
3068         (sha256
3069           (base32
3070            "171wg8r6py1l138s58rlapin3rlpwsg9spmvhc7l68mm3g3hf1vs"))
3071         (patches (search-patches "xf86-video-mach64-glibc-2.20.patch"))))
3072     (build-system gnu-build-system)
3073     (inputs `(("mesa" ,mesa)
3074               ("xorgproto" ,xorgproto)
3075               ("xorg-server" ,xorg-server)))
3076     (native-inputs
3077       `(("pkg-config" ,pkg-config)))
3078     (home-page "https://www.x.org/wiki/")
3079     (synopsis "Mach64 video driver for X server")
3080     (description
3081      "xf86-video-mach64 is a video driver for the Xorg X server.
3082 This driver is intended for all ATI video adapters based on the Mach64
3083 series or older chipsets, providing maximum video function within
3084 hardware limitations.  The driver is also intended to optionally provide
3085 the same level of support for generic VGA or 8514/A adapters.")
3086     (license license:x11)))
3087
3088
3089 (define-public xf86-video-mga
3090   (package
3091     (name "xf86-video-mga")
3092     (version "2.0.0")
3093     (source
3094       (origin
3095         (method url-fetch)
3096         (uri (string-append
3097                "mirror://xorg/individual/driver/xf86-video-mga-"
3098                version
3099                ".tar.bz2"))
3100         (sha256
3101           (base32
3102            "0yaxpgyyj9398nzzr5vnsfxcis76z46p9814yzj8179yl7hld296"))))
3103     (build-system gnu-build-system)
3104     (inputs `(("mesa" ,mesa)
3105               ("xorgproto" ,xorgproto)
3106               ("xorg-server" ,xorg-server)))
3107     (native-inputs `(("pkg-config" ,pkg-config)))
3108     (home-page "https://www.x.org/wiki/")
3109     (synopsis "Matrox video driver for X server")
3110     (description
3111      "xf86-video-mga is a Matrox video driver for the Xorg X server.")
3112     (license license:x11)))
3113
3114 (define-public xf86-video-neomagic
3115   (package
3116     (name "xf86-video-neomagic")
3117     (version "1.3.0")
3118     (source
3119       (origin
3120         (method url-fetch)
3121         (uri (string-append
3122                "mirror://xorg/individual/driver/xf86-video-neomagic-"
3123                version
3124                ".tar.bz2"))
3125         (sha256
3126           (base32
3127             "0r4h673kw8fl7afc30anwbjlbhp82mg15fvaxf470xg7z983k0wk"))))
3128     (build-system gnu-build-system)
3129     (inputs `(("xorgproto" ,xorgproto)
3130               ("xorg-server" ,xorg-server)))
3131     (native-inputs `(("pkg-config" ,pkg-config)))
3132     (home-page "https://www.x.org/wiki/")
3133     (synopsis "NeoMagic video driver for X server")
3134     (description
3135      "xf86-video-neomagic is a NeoMagic video driver for the Xorg X server.")
3136     (license license:x11)))
3137
3138
3139 ;; This driver depends on XAA which has been removed from xorg-server.
3140
3141 ;; (define-public xf86-video-newport
3142 ;;   (package
3143 ;;     (name "xf86-video-newport")
3144 ;;     (version "0.2.4")
3145 ;;     (source
3146 ;;       (origin
3147 ;;         (method url-fetch)
3148 ;;         (uri (string-append
3149 ;;                "mirror://xorg/individual/driver/xf86-video-newport-"
3150 ;;                version
3151 ;;                ".tar.bz2"))
3152 ;;         (sha256
3153 ;;           (base32
3154 ;;             "1yafmp23jrfdmc094i6a4dsizapsc9v0pl65cpc8w1kvn7343k4i"))))
3155 ;;     (build-system gnu-build-system)
3156 ;;     (inputs `(("xorg-server" ,xorg-server)))
3157 ;;     (native-inputs `(("pkg-config" ,pkg-config)))
3158 ;;     (home-page "https://www.x.org/wiki/")
3159 ;;     (synopsis "Newport video driver for X server")
3160 ;;     (description
3161 ;;      "xf86-video-newport is an Xorg X server video driver for the SGI
3162 ;; newport cards.")
3163 ;;     (license license:x11)))
3164
3165
3166 (define-public xf86-video-nv
3167   (package
3168     (name "xf86-video-nv")
3169     (version "2.1.21")
3170     (source
3171       (origin
3172         (method url-fetch)
3173         (uri (string-append
3174                "mirror://xorg/individual/driver/xf86-video-nv-"
3175                version
3176                ".tar.bz2"))
3177         (sha256
3178           (base32
3179            "0bdk3pc5y0n7p53q4gc2ff7bw16hy5hwdjjxkm5j3s7hdyg6960z"))))
3180     (build-system gnu-build-system)
3181     (inputs `(("xorg-server" ,xorg-server)))
3182     (native-inputs `(("pkg-config" ,pkg-config)))
3183     (home-page "https://www.x.org/wiki/")
3184     (synopsis "NVIDIA video driver for X server")
3185     (description
3186      "This package contains Xorg support for the NVIDIA GeForce 8 series of
3187 graphics processors.
3188
3189 There are a few caveats of which to be aware: the XVideo extension is not
3190 supported, and the RENDER extension is not accelerated by this driver.")
3191     (license license:x11)))
3192
3193 (define-public xf86-video-nouveau
3194   (package
3195     (name "xf86-video-nouveau")
3196     (version "1.0.16")
3197     (source
3198      (origin
3199        (method url-fetch)
3200        (uri (string-append
3201              "mirror://xorg/individual/driver/xf86-video-nouveau-"
3202              version
3203              ".tar.bz2"))
3204        (sha256
3205         (base32
3206          "01mz8gnq7j6bvrqb2ljm3d1wpjhi9p2z2w8zbkdrqmqmcj060h1h"))))
3207     (build-system gnu-build-system)
3208     (inputs `(("xorg-server" ,xorg-server)))
3209     (native-inputs `(("pkg-config" ,pkg-config)))
3210     (home-page "https://nouveau.freedesktop.org")
3211     (synopsis "NVIDIA video driver for X server")
3212     (description
3213      "This package provides modern, high-quality Xorg drivers for NVIDIA
3214 graphics cards.")
3215     (license license:x11)))
3216
3217 (define-public xf86-video-openchrome
3218   (package
3219     (name "xf86-video-openchrome")
3220     (version "0.6.0")
3221     (source
3222       (origin
3223         (method url-fetch)
3224         (uri (string-append
3225                "mirror://xorg/individual/driver/xf86-video-openchrome-"
3226                version
3227                ".tar.bz2"))
3228         (sha256
3229          (base32
3230           "0x9gq3hw6k661k82ikd1y2kkk4dmgv310xr5q59dwn4k6z37aafs"))))
3231     (build-system gnu-build-system)
3232     (inputs `(("libx11" ,libx11)
3233               ("libxext" ,libxext)
3234               ("libxvmc" ,libxvmc)
3235               ("mesa" ,mesa)
3236               ("xorgproto" ,xorgproto)
3237               ("xorg-server" ,xorg-server)))
3238     (native-inputs
3239      `(("pkg-config" ,pkg-config)))
3240     (home-page "https://www.x.org/wiki/")
3241     (synopsis "Openchrome video driver for X server")
3242     (description
3243      "xf86-video-openchrome is a video driver for the Xorg X server.
3244 This driver is intended for VIA chipsets featuring the VIA UniChrome,
3245 UniChrome Pro and Chrome9 integrated graphics processors.")
3246     (license license:x11)))
3247
3248
3249 (define-public xf86-video-qxl
3250   (package
3251     (name "xf86-video-qxl")
3252     (version "0.1.5")
3253     (source (origin
3254               (method url-fetch)
3255               (uri (string-append
3256                 "mirror://xorg/individual/driver/"
3257                 "xf86-video-qxl-" version ".tar.bz2"))
3258               (sha256
3259                (base32
3260                 "14jc24znnahhmz4kqalafmllsg8awlz0y6gpgdpk5ih38ph851mi"))))
3261     (build-system gnu-build-system)
3262     (inputs
3263       `(("libxfont" ,libxfont2)
3264         ("spice-protocol" ,spice-protocol)
3265         ("xorg-server" ,xorg-server)
3266         ("xorgproto" ,xorgproto)))
3267     (native-inputs
3268       `(("pkg-config" ,pkg-config)))
3269     (synopsis "Qxl video driver for X server")
3270     (description "xf86-video-qxl is a video driver for the Xorg X server.
3271 This driver is intended for the spice qxl virtio device.")
3272     (home-page "http://www.spice-space.org")
3273     (license license:x11)))
3274
3275 (define-public xf86-video-r128
3276   (package
3277     (name "xf86-video-r128")
3278     (version "6.12.0")
3279     (source (origin
3280               (method url-fetch)
3281               (uri (string-append "mirror://xorg/individual/driver/"
3282                                   name "-" version ".tar.bz2"))
3283               (sha256
3284                (base32
3285                 "0mz0v5mqmmbncr2drd5zvia1fb7frz2xqwflhhqbnaxx5j48c740"))))
3286     (build-system gnu-build-system)
3287     (inputs `(("mesa" ,mesa)
3288               ("xorgproto" ,xorgproto)
3289               ("xorg-server" ,xorg-server)))
3290     (native-inputs
3291      `(("pkg-config" ,pkg-config)))
3292     (home-page "https://www.x.org/wiki/")
3293     (synopsis "ATI Rage 128 video driver for X server")
3294     (description
3295      "xf86-video-r128 is a video driver for the Xorg X server.
3296 This driver is intended for ATI Rage 128 based cards.")
3297     (license license:x11)))
3298
3299 (define-public xf86-video-savage
3300   (package
3301     (name "xf86-video-savage")
3302     (version "2.3.9")
3303     (source
3304       (origin
3305         (method url-fetch)
3306         (uri (string-append
3307                "mirror://xorg/individual/driver/xf86-video-savage-"
3308                version
3309                ".tar.bz2"))
3310         (patches (search-patches "xf86-video-savage-xorg-compat.patch"))
3311         (sha256
3312           (base32
3313            "11pcrsdpdrwk0mrgv83s5nsx8a9i4lhmivnal3fjbrvi3zdw94rc"))))
3314     (build-system gnu-build-system)
3315     (inputs `(("mesa" ,mesa)
3316               ("xorgproto" ,xorgproto)
3317               ("xorg-server" ,xorg-server)))
3318     (native-inputs `(("pkg-config" ,pkg-config)))
3319     (home-page "https://www.x.org/wiki/")
3320     (synopsis "Savage video driver for X server")
3321     (description
3322      "xf86-video-savage is an S3 Savage video driver for the Xorg X server.")
3323     (license license:x11)))
3324
3325
3326 (define-public xf86-video-siliconmotion
3327   (package
3328     (name "xf86-video-siliconmotion")
3329     (version "1.7.9")
3330     (source
3331       (origin
3332         (method url-fetch)
3333         (uri (string-append
3334                "mirror://xorg/individual/driver/xf86-video-siliconmotion-"
3335                version
3336                ".tar.bz2"))
3337         (sha256
3338           (base32
3339            "1g2r6gxqrmjdff95d42msxdw6vmkg2zn5sqv0rxd420iwy8wdwyh"))
3340         (patches (search-patches "xf86-video-siliconmotion-fix-ftbfs.patch"))))
3341     (build-system gnu-build-system)
3342     (inputs `(("xorg-server" ,xorg-server)))
3343     (native-inputs `(("pkg-config" ,pkg-config)))
3344     (home-page "https://www.x.org/wiki/")
3345     (synopsis "Silicon Motion video driver for X server")
3346     (description
3347      "xf86-video-siliconmotion is a Silicon Motion video driver for the
3348 Xorg X server.")
3349     (license license:x11)))
3350
3351
3352 (define-public xf86-video-sis
3353   (package
3354     (name "xf86-video-sis")
3355     (version "0.10.9")
3356     (source
3357       (origin
3358         (method url-fetch)
3359         (uri (string-append
3360                "mirror://xorg/individual/driver/xf86-video-sis-"
3361                version
3362                ".tar.bz2"))
3363         (patches (search-patches "xf86-video-sis-xorg-compat.patch"))
3364         (sha256
3365           (base32
3366            "03f1abjjf68y8y1iz768rn95va9d33wmbwfbsqrgl6k0gi0bf9jj"))))
3367     (build-system gnu-build-system)
3368     (inputs `(("mesa" ,mesa)
3369               ("xorgproto" ,xorgproto)
3370               ("xorg-server" ,xorg-server)))
3371     (native-inputs
3372       `(("pkg-config" ,pkg-config)))
3373     (home-page "https://www.x.org/wiki/")
3374     (synopsis "Sis video driver for X server")
3375     (description
3376      "xf86-video-SiS is a SiS video driver for the Xorg X server.
3377 This driver supports SiS chipsets of 300/315/330/340 series.")
3378     (license license:bsd-3)))
3379
3380
3381 (define-public xf86-video-suncg6
3382   (package
3383     (name "xf86-video-suncg6")
3384     (version "1.1.2")
3385     (source
3386       (origin
3387         (method url-fetch)
3388         (uri (string-append
3389                "mirror://xorg/individual/driver/xf86-video-suncg6-"
3390                version
3391                ".tar.bz2"))
3392         (sha256
3393           (base32
3394             "04fgwgk02m4nimlv67rrg1wnyahgymrn6rb2cjj1l8bmzkii4glr"))))
3395     (build-system gnu-build-system)
3396     (inputs `(("xorg-server" ,xorg-server)))
3397     (native-inputs `(("pkg-config" ,pkg-config)))
3398     (home-page "https://www.x.org/wiki/")
3399     (synopsis "GX/TurboGX video driver for X server")
3400     (description
3401      "xf86-video-suncg6 is a GX/TurboGX video driver for the Xorg X server.")
3402     (license license:x11)))
3403
3404
3405 (define-public xf86-video-sunffb
3406   (package
3407     (name "xf86-video-sunffb")
3408     (version "1.2.2")
3409     (source
3410       (origin
3411         (method url-fetch)
3412         (uri (string-append
3413                "mirror://xorg/individual/driver/xf86-video-sunffb-"
3414                version
3415                ".tar.bz2"))
3416         (sha256
3417           (base32
3418             "07z3ngifwg2d4jgq8pms47n5lr2yn0ai72g86xxjnb3k20n5ym7s"))))
3419     (build-system gnu-build-system)
3420     (inputs `(("xorg-server" ,xorg-server)))
3421     (native-inputs `(("pkg-config" ,pkg-config)))
3422     (home-page "https://www.x.org/wiki/")
3423     (synopsis "SUNFFB video driver for X server")
3424     (description
3425      "xf86-video-sunffb is a SUNFFB video driver for the Xorg X server.")
3426     (license license:x11)))
3427
3428
3429 (define-public xf86-video-tdfx
3430   (package
3431     (name "xf86-video-tdfx")
3432     (version "1.5.0")
3433     (source
3434       (origin
3435         (method url-fetch)
3436         (uri (string-append
3437                "mirror://xorg/individual/driver/xf86-video-tdfx-"
3438                version
3439                ".tar.bz2"))
3440         (sha256
3441           (base32
3442            "0qc5wzwf1n65si9rc37bh224pzahh7gp67vfimbxs0b9yvhq0i9g"))))
3443     (build-system gnu-build-system)
3444     (inputs `(("mesa" ,mesa)
3445               ("xorgproto" ,xorgproto)
3446               ("xorg-server" ,xorg-server)))
3447     (native-inputs `(("pkg-config" ,pkg-config)))
3448     (home-page "https://www.x.org/wiki/")
3449     (synopsis "3Dfx video driver for X server")
3450     (description
3451      "xf86-video-tdfx is a 3Dfx video driver for the Xorg X server.")
3452     (license license:x11)))
3453
3454
3455 (define-public xf86-video-tga
3456   (package
3457     (name "xf86-video-tga")
3458     (version "1.2.2")
3459     (source
3460       (origin
3461         (method url-fetch)
3462         (uri (string-append
3463                "mirror://xorg/individual/driver/xf86-video-tga-"
3464                version
3465                ".tar.bz2"))
3466         (sha256
3467           (base32
3468            "0cb161lvdgi6qnf1sfz722qn38q7kgakcvj7b45ba3i0020828r0"))
3469         (patches (search-patches "xf86-video-tga-remove-mibstore.patch"))))
3470     (build-system gnu-build-system)
3471     (inputs `(("xorgproto" ,xorgproto)
3472               ("xorg-server" ,xorg-server)))
3473     (native-inputs `(("pkg-config" ,pkg-config)))
3474     (home-page "https://www.x.org/wiki/")
3475     (synopsis "TGA video driver for X server")
3476     (description
3477      "xf86-video-tga is a TGA (DEC 21030) video driver for the Xorg
3478 X server.")
3479     (license license:x11)))
3480
3481
3482 (define-public xf86-video-trident
3483   (package
3484     (name "xf86-video-trident")
3485     (version "1.3.8")
3486     (source
3487       (origin
3488         (method url-fetch)
3489         (uri (string-append
3490                "mirror://xorg/individual/driver/xf86-video-trident-"
3491                version
3492                ".tar.bz2"))
3493         (sha256
3494           (base32
3495            "0gxcar434kx813fxdpb93126lhmkl3ikabaljhcj5qn3fkcijlcy"))))
3496     (build-system gnu-build-system)
3497     (inputs `(("xorgproto" ,xorgproto)
3498               ("xorg-server" ,xorg-server)))
3499     (native-inputs `(("pkg-config" ,pkg-config)))
3500     (home-page "https://www.x.org/wiki/")
3501     (synopsis "Trident video driver for X server")
3502     (description
3503      "xf86-video-trident is a Trident video driver for the Xorg X server.")
3504     (license license:x11)))
3505
3506
3507 ;; no license
3508 ;; (define-public xf86-video-v4l
3509
3510
3511 (define-public xf86-video-vesa
3512   (package
3513     (name "xf86-video-vesa")
3514     (version "2.4.0")
3515     (source
3516       (origin
3517         (method url-fetch)
3518         (uri (string-append
3519                "mirror://xorg/individual/driver/xf86-video-vesa-"
3520                version
3521                ".tar.bz2"))
3522         (sha256
3523           (base32
3524             "1373vsxn6qh00na0s9c09kf09gj78rzi98zq93id8v5zsya3qi5z"))))
3525     (build-system gnu-build-system)
3526     (inputs `(("xorg-server" ,xorg-server)))
3527     (native-inputs `(("pkg-config" ,pkg-config)))
3528     (home-page "https://www.x.org/wiki/")
3529     (synopsis "VESA video driver for X server")
3530     (description
3531      "xf86-video-vesa is a generic VESA video driver for the Xorg
3532 X server.")
3533     (license license:x11)))
3534
3535 (define-public v86d
3536   (package
3537     (name "v86d")
3538     (version "0.1.10")
3539     (source
3540      (origin
3541        (method git-fetch)
3542        (uri (git-reference
3543              (url "https://github.com/mjanusz/v86d.git")
3544              (commit (string-append name "-" version))))
3545        (file-name (git-file-name name version))
3546        (sha256
3547         (base32 "1c4iiggb5r9i2hxhk8c6q1m2vpfva39l1w33fsfkrz6fav6x34pp"))
3548        (modules '((guix build utils)))
3549        (snippet
3550         '(begin
3551            ;; remove bundled x86emu
3552            (for-each delete-file
3553                      (filter (lambda (name) ;keep customized Makefile
3554                                (not (string-suffix? "Makefile" name)))
3555                              (find-files "libs/x86emu")))
3556            ;; remove non-working vbetest utility program (it is unnecessary)
3557            (delete-file "libs/lrmi-0.10/vbe.h")
3558            (delete-file "libs/lrmi-0.10/vbetest.c")
3559            #t))))
3560
3561     ;; We keep the bundled copy of the Linux Real Mode Interface lrmi-0.10,
3562     ;; because it includes fixes missing from upstream lrmi.  We do not use
3563     ;; libx86, because we already use x86emu with the more current lrmi.
3564
3565     (inputs `(("xorg-server-sources" ,(package-source xorg-server)) ;for x86emu
3566               ("xorgproto" ,xorgproto))) ;upstream x86emu uses X11/Xfuncproto.h
3567     (outputs '("out" ;main v86d helper
3568                "testvbe")) ;test program for listing video modes
3569     (supported-systems '("i686-linux" "x86_64-linux"))
3570     (build-system gnu-build-system)
3571     (arguments
3572      `(#:tests? #f ;there are no tests
3573        #:modules ((guix build utils)
3574                   (guix build gnu-build-system)
3575                   (ice-9 popen))
3576        #:phases
3577        (modify-phases %standard-phases
3578          ;; Replace the bundled x86emu with its upstream copy from Xorg-server:
3579          (add-after 'unpack 'unpack-x86emu-sources
3580            (lambda* (#:key inputs #:allow-other-keys)
3581              (begin
3582                (format #t "decompressing x86emu source code~%")
3583                (with-directory-excursion "libs"
3584                  (let ((srcs (assoc-ref inputs "xorg-server-sources"))
3585                        (tar-binary (string-append (assoc-ref inputs "tar")
3586                                                   "/bin/tar")))
3587                    (invoke tar-binary "xvf" srcs "--strip-components=3"
3588                            "--wildcards" "*/hw/xfree86/x86emu/")
3589                    ;; extract license:
3590                    (with-directory-excursion "x86emu"
3591                      (invoke tar-binary "xvf" srcs "--strip-components=1"
3592                              "--wildcards" "*/COPYING"))
3593                    #t)))))
3594          (replace 'configure
3595            (lambda* (#:key outputs #:allow-other-keys)
3596              (let ((out (assoc-ref outputs "out")))
3597                (setenv "CC" (which "gcc"))
3598                (setenv "DESTDIR" out)
3599                (invoke "./configure" "--with-x86emu"))))
3600          (add-after 'build 'build-testvbe
3601            (lambda _
3602              (invoke "make" "testvbe")))
3603          (add-after 'install 'install-testvbe
3604            (lambda* (#:key outputs #:allow-other-keys)
3605              (let ((testvbe (assoc-ref outputs "testvbe"))
3606                    (olddest (getenv "DESTDIR")))
3607                (setenv "DESTDIR" testvbe)
3608                (invoke "make" "install_testvbe")
3609                (setenv "DESTDIR" olddest)
3610                #t)))
3611          (add-after 'install 'install-docs
3612            (lambda* (#:key outputs #:allow-other-keys)
3613              (let* ((out (assoc-ref outputs "out"))
3614                     (doc-dir (string-append out "/share/doc/v86d")))
3615                (mkdir-p doc-dir)
3616                (copy-file "README"
3617                           (string-append doc-dir "/README"))
3618                (copy-file "libs/lrmi-0.10/README"
3619                           (string-append doc-dir "/README.lrmi"))
3620                (copy-file "libs/x86emu/COPYING"
3621                           (string-append doc-dir "/COPYING.xorg-server.x86emu"))
3622                #t))))))
3623     (home-page "https://github.com/mjanusz/v86d")
3624     (synopsis "Userspace helper for uvesafb")
3625     (description
3626      "v86d provides a backend for kernel drivers that need to execute x86 BIOS
3627 code.  The code is executed in a controlled environment and the results are
3628 passed back to the kernel via the netlink interface.  v86d is required by the
3629 uvesafb Linux kernel module that provides an fbdev framebuffer when Kernel
3630 Mode Setting is unavailable.  It can be a last resort when no other Xorg X
3631 server driver works.")
3632     (license (list license:gpl2
3633                    license:x11)))) ;for bundled lrmi and x86emu
3634
3635 (define-public xf86-video-vmware
3636   (package
3637     (name "xf86-video-vmware")
3638     (version "13.3.0")
3639     (source
3640       (origin
3641         (method url-fetch)
3642         (uri (string-append
3643                "mirror://xorg/individual/driver/xf86-video-vmware-"
3644                version
3645                ".tar.bz2"))
3646         (sha256
3647           (base32
3648            "0v06qhm059klq40m2yx4wypzb7h53aaassbjfmm6clcyclj1k5s7"))))
3649     (build-system gnu-build-system)
3650     (inputs
3651      `(("libx11" ,libx11)
3652        ("libxext" ,libxext)
3653        ("llvm" ,llvm)
3654        ("mesa" ,mesa)                   ; for xatracker
3655        ("xorg-server" ,xorg-server)))
3656     (native-inputs
3657      `(("eudev" ,eudev)
3658        ("pkg-config" ,pkg-config)))
3659     (home-page "https://www.x.org/wiki/")
3660     (synopsis "VMware SVGA video driver for X server")
3661     (description
3662      "xf86-video-vmware is a VMware SVGA video driver for the Xorg X server.")
3663     (license license:x11)))
3664
3665
3666 (define-public xf86-video-voodoo
3667   (package
3668     (name "xf86-video-voodoo")
3669     (version "1.2.5")
3670     (source
3671       (origin
3672         (method url-fetch)
3673         (uri (string-append
3674                "mirror://xorg/individual/driver/xf86-video-voodoo-"
3675                version
3676                ".tar.bz2"))
3677         (sha256
3678           (base32
3679            "1s6p7yxmi12q4y05va53rljwyzd6ry492r1pgi7wwq6cznivhgly"))
3680         (patches
3681          (search-patches "xf86-video-voodoo-pcitag.patch"))))
3682     (build-system gnu-build-system)
3683     (inputs `(("xorgproto" ,xorgproto)
3684               ("xorg-server" ,xorg-server)))
3685     (native-inputs `(("pkg-config" ,pkg-config)))
3686     (home-page "https://www.x.org/wiki/")
3687     (synopsis "Voodoo/Voodoo2 video driver for X server")
3688     (description
3689      "xf86-video-voodoo is a Voodoo video driver for the Xorg X server.")
3690     (license license:x11)))
3691
3692
3693 ;; Only relevant for the frame buffer on BSD systems.
3694 ;; (define-public xf86-video-wsfb
3695
3696
3697 (define-public xf86bigfontproto
3698   (package
3699     (name "xf86bigfontproto")
3700     (version "1.2.0")
3701     (source
3702       (origin
3703         (method url-fetch)
3704         (uri (string-append
3705                "mirror://xorg/individual/proto/xf86bigfontproto-"
3706                version
3707                ".tar.bz2"))
3708         (sha256
3709           (base32
3710             "0j0n7sj5xfjpmmgx6n5x556rw21hdd18fwmavp95wps7qki214ms"))))
3711     (build-system gnu-build-system)
3712     (home-page "https://www.x.org/wiki/")
3713     (synopsis "Xorg XF86BigFontProto protocol headers")
3714     (description
3715      "XFree86 Bigfont Extension contains header files and documentation
3716 for the XF86BigFontProto protocol.")
3717     (license license:x11)
3718     (properties `((superseded . ,xorgproto)))))
3719
3720 (define-public xf86dgaproto
3721   (package
3722     (name "xf86dgaproto")
3723     (version "2.1")
3724     (source
3725       (origin
3726         (method url-fetch)
3727         (uri (string-append
3728                "mirror://xorg/individual/proto/xf86dgaproto-"
3729                version
3730                ".tar.bz2"))
3731         (sha256
3732           (base32
3733             "0l4hx48207mx0hp09026r6gy9nl3asbq0c75hri19wp1118zcpmc"))))
3734     (build-system gnu-build-system)
3735     (home-page "https://www.x.org/wiki/")
3736     (synopsis "Xorg XF86DGAProto protocol headers")
3737     (description
3738      "XFree86 Direct Graphic Access Extension defines a protocol for
3739 direct linear framebuffer access.")
3740     (license license:x11)
3741     (properties `((superseded . ,xorgproto)))))
3742
3743 (define-public xf86driproto
3744   (package
3745     (name "xf86driproto")
3746     (version "2.1.1")
3747     (source
3748       (origin
3749         (method url-fetch)
3750         (uri (string-append
3751                "mirror://xorg/individual/proto/xf86driproto-"
3752                version
3753                ".tar.bz2"))
3754         (sha256
3755           (base32
3756             "07v69m0g2dfzb653jni4x656jlr7l84c1k39j8qc8vfb45r8sjww"))))
3757     (build-system gnu-build-system)
3758     (home-page "https://www.x.org/wiki/")
3759     (synopsis "Xorg XF86DRIProto protocol headers")
3760     (description
3761      "XFree86 Direct Rendering Infrastructure Extension defines a
3762 protocol to allow user applications to access the video hardware without
3763 requiring data to be passed through the X server.")
3764     (license license:x11)
3765     (properties `((superseded . ,xorgproto)))))
3766
3767 (define-public xf86vidmodeproto
3768   (package
3769     (name "xf86vidmodeproto")
3770     (version "2.3.1")
3771     (source
3772       (origin
3773         (method url-fetch)
3774         (uri (string-append
3775                "mirror://xorg/individual/proto/xf86vidmodeproto-"
3776                version
3777                ".tar.bz2"))
3778         (sha256
3779           (base32
3780             "0w47d7gfa8zizh2bshdr2rffvbr4jqjv019mdgyh6cmplyd4kna5"))))
3781     (build-system gnu-build-system)
3782     (home-page "https://www.x.org/wiki/")
3783     (synopsis "Xorg XF86VidModeProto protocol headers")
3784     (description
3785      "XFree86 Video Mode Extension defines a protocol for dynamically
3786 configuring modelines and gamma.")
3787     (license license:x11)
3788     (properties `((superseded . ,xorgproto)))))
3789
3790 (define-public xgamma
3791   (package
3792     (name "xgamma")
3793     (version "1.0.6")
3794     (source
3795       (origin
3796         (method url-fetch)
3797         (uri (string-append
3798                "mirror://xorg/individual/app/xgamma-"
3799                version
3800                ".tar.bz2"))
3801         (sha256
3802           (base32
3803             "1lr2nb1fhg5fk2fchqxdxyl739602ggwhmgl2wiv5c8qbidw7w8f"))))
3804     (build-system gnu-build-system)
3805     (inputs
3806       `(("libxxf86vm" ,libxxf86vm)
3807         ("libx11" ,libx11)))
3808     (native-inputs
3809       `(("pkg-config" ,pkg-config)))
3810     (home-page "https://www.x.org/wiki/")
3811     (synopsis "Alter a monitor's gamma correction")
3812     (description
3813      "XGamma is used to query and alter the gamma correction of a
3814 monitor via the X video mode extension.")
3815     (license license:x11)))
3816
3817
3818 (define-public xhost
3819   (package
3820     (name "xhost")
3821     (version "1.0.8")
3822     (source
3823       (origin
3824         (method url-fetch)
3825         (uri (string-append
3826                "mirror://xorg/individual/app/xhost-"
3827                version
3828                ".tar.bz2"))
3829         (sha256
3830           (base32
3831             "15n3mnd4i5kh4z32qv11580qjgvnng0wry2y753ljrqkkrbkrp52"))))
3832     (build-system gnu-build-system)
3833     (inputs
3834       `(("libxmu" ,libxmu)
3835         ("libxau" ,libxau)
3836         ("libx11" ,libx11)))
3837     (native-inputs
3838       `(("pkg-config" ,pkg-config)))
3839     (home-page "https://gitlab.freedesktop.org/xorg/app/xhost")
3840     (synopsis "Xorg server access control utility")
3841     (description
3842      "XHost is used to manage the list of host names or user names
3843 allowed to make connections to the X server.")
3844     (license license:x11)))
3845
3846
3847 (define-public xineramaproto
3848   (package
3849     (name "xineramaproto")
3850     (version "1.2.1")
3851     (source
3852       (origin
3853         (method url-fetch)
3854         (uri (string-append
3855                "mirror://xorg/individual/proto/xineramaproto-"
3856                version
3857                ".tar.bz2"))
3858         (sha256
3859           (base32
3860             "0ns8abd27x7gbp4r44z3wc5k9zqxxj8zjnazqpcyr4n17nxp8xcp"))))
3861     (build-system gnu-build-system)
3862     (native-inputs `(("pkg-config" ,pkg-config)))
3863     (home-page "https://www.x.org/wiki/")
3864     (synopsis "Xorg XineramaProto protocol headers")
3865     (description
3866      "Xinerama Extension allows clients to query information about multiple
3867 physical screens controlled by a single X server that appear as a single
3868 screen to core X11 protocol operations.
3869
3870 This extension provides a common network protocol for querying information
3871 which may be provided by different underlying screen combination
3872 technologies in the X server, such as the original Xinerama multiplexer, or
3873 alternative implementations like XRandR or TwinView.")
3874     (license license:x11)
3875     (properties `((superseded . ,xorgproto)))))
3876
3877 (define-public xinput
3878   (package
3879     (name "xinput")
3880     (version "1.6.3")
3881     (source
3882       (origin
3883         (method url-fetch)
3884         (uri (string-append
3885                "mirror://xorg/individual/app/xinput-"
3886                version
3887                ".tar.bz2"))
3888         (sha256
3889           (base32
3890             "1vb6xdd1xmk5f7pwc5zcbxfray5sf1vbnscqwf2yl8lv7gfq38im"))))
3891     (build-system gnu-build-system)
3892     (inputs
3893       `(("libxrender" ,libxrender)
3894         ("libxrandr" ,libxrandr)
3895         ("libxinerama" ,libxinerama)
3896         ("libxext" ,libxext)
3897         ("libxi" ,libxi)
3898         ("libx11" ,libx11)
3899         ("xorgproto" ,xorgproto)))
3900     (native-inputs
3901        `(("pkg-config" ,pkg-config)))
3902     (home-page "https://www.x.org/wiki/")
3903     (synopsis "Configure input devices for X server")
3904     (description
3905      "XInput is used to configure and test XInput devices.")
3906     (license license:x11)))
3907
3908
3909 (define xkbcomp-intermediate ; used as input for xkeyboard-config
3910   (package
3911     (name "xkbcomp-intermediate")
3912     (version "1.4.3")
3913     (source
3914       (origin
3915         (method url-fetch)
3916         (uri (string-append
3917                "mirror://xorg/individual/app/xkbcomp-"
3918                version
3919                ".tar.bz2"))
3920         (sha256
3921          (base32
3922           "0dflr250nlj6rrnv658f6dm8qx37sj0xfimc3ihay761kwb2q906"))))
3923     (build-system gnu-build-system)
3924     (inputs
3925       `(("xorgproto" ,xorgproto)
3926         ("libxkbfile" ,libxkbfile)
3927         ("libx11" ,libx11)))
3928     (native-inputs
3929         `(("pkg-config" ,pkg-config)))
3930     (home-page "https://www.x.org/wiki/")
3931     (synopsis "Compile XKB keyboard description")
3932     (description
3933      "xkbcomp keymap compiler converts a description of an XKB keymap
3934 into one of several output formats.  The most common use for xkbcomp is
3935 to create a compiled keymap file (.xkm extension) which can be read
3936 directly by XKB- capable X servers or utilities.
3937
3938 X Keyboard (XKB) Extension essentially replaces the core protocol
3939 definition of keyboard.  The extension makes possible to clearly and
3940 explicitly specify most aspects of keyboard behaviour on per-key basis
3941 and to more closely track the logical and physical state of the
3942 keyboard.  It also includes a number of keyboard controls designed to
3943 make keyboards more accessible to people with physical impairments.")
3944     (license license:x11)))
3945
3946 (define-public xkbcomp ; using xkeyboard-config as input
3947   (package (inherit xkbcomp-intermediate)
3948     (name "xkbcomp")
3949     (inputs
3950       `(,@(package-inputs xkbcomp-intermediate)
3951         ("xkeyboard-config" ,xkeyboard-config)))
3952     (arguments
3953      `(#:configure-flags
3954        (list (string-append "--with-xkb-config-root="
3955                             (assoc-ref %build-inputs "xkeyboard-config")
3956                             "/share/X11/xkb"))))))
3957
3958
3959 (define-public xkbevd
3960   (package
3961     (name "xkbevd")
3962     (version "1.1.4")
3963     (source
3964       (origin
3965         (method url-fetch)
3966         (uri (string-append
3967                "mirror://xorg/individual/app/xkbevd-"
3968                version
3969                ".tar.bz2"))
3970         (sha256
3971           (base32
3972             "0sprjx8i86ljk0l7ldzbz2xlk8916z5zh78cafjv8k1a63js4c14"))))
3973     (build-system gnu-build-system)
3974     (inputs
3975       `(("libxkbfile" ,libxkbfile)
3976         ("libx11" ,libx11)))
3977     (native-inputs
3978       `(("pkg-config" ,pkg-config)))
3979     (home-page "https://www.x.org/wiki/")
3980     (synopsis "XKB event daemon demo")
3981     (description
3982      "XKB event daemon listens for the specified XKB events and executes
3983 requested commands if they occur.")
3984     (license license:x11)))
3985
3986
3987 (define-public xkbutils
3988   (package
3989     (name "xkbutils")
3990     (version "1.0.4")
3991     (source
3992       (origin
3993         (method url-fetch)
3994         (uri (string-append
3995                "mirror://xorg/individual/app/xkbutils-"
3996                version
3997                ".tar.bz2"))
3998         (sha256
3999           (base32
4000             "0c412isxl65wplhl7nsk12vxlri29lk48g3p52hbrs3m0awqm8fj"))))
4001     (build-system gnu-build-system)
4002     (inputs
4003       `(("libxt" ,libxt)
4004         ("libxaw" ,libxaw)
4005         ("xorgproto" ,xorgproto)))
4006     (native-inputs
4007       `(("pkg-config" ,pkg-config)))
4008     (home-page "https://www.x.org/wiki/")
4009     (synopsis "XKB utilities")
4010     (description
4011      "XKBUtils is a collection of small utilities for X Keyboard (XKB)
4012 extension to the X11 protocol.  It includes:
4013
4014 - xkbbell: generate XKB bell events;
4015
4016 - xkbvleds: display the state of LEDs on an XKB keyboard in a window;
4017
4018 - xkbwatch: reports changes in the XKB keyboard state.")
4019     (license license:x11)))
4020
4021
4022 (define-public xkeyboard-config
4023   (package
4024     (name "xkeyboard-config")
4025     (version "2.29")
4026     (source
4027       (origin
4028         (method url-fetch)
4029         (uri (string-append
4030               "mirror://xorg/individual/data/xkeyboard-config/xkeyboard-config-"
4031               version
4032               ".tar.bz2"))
4033         (sha256
4034           (base32
4035             "00hqc8nykvy8c09b8vab64dcd0ij3n5klxjn6rl00q7hickpah8x"))))
4036     (build-system gnu-build-system)
4037     (inputs
4038       `(("libx11" ,libx11)
4039         ("xkbcomp-intermediate" ,xkbcomp-intermediate)))
4040     (native-inputs
4041       `(("gettext" ,gettext-minimal)
4042         ("perl" ,perl)
4043         ("pkg-config" ,pkg-config)
4044         ("python" ,python)))
4045     (home-page "https://www.x.org/wiki/")
4046     (synopsis "Xorg XKB configuration files")
4047     (description
4048      "xkeyboard-config provides a database for X Keyboard (XKB) Extension.
4049 There are five components that define a complete keyboard mapping:
4050 symbols, geometry, keycodes, compat, and types; these five components
4051 can be combined together using the @code{rules} component of this database.")
4052     (license license:x11)))
4053
4054
4055 (define-public xkill
4056   (package
4057     (name "xkill")
4058     (version "1.0.5")
4059     (source
4060       (origin
4061         (method url-fetch)
4062         (uri (string-append
4063                "mirror://xorg/individual/app/xkill-"
4064                version
4065                ".tar.bz2"))
4066         (sha256
4067           (base32
4068             "0szzd9nzn0ybkhnfyizb876irwnjsnb78rcaxx6prb71jmmbpw65"))))
4069     (build-system gnu-build-system)
4070     (inputs
4071       `(("libxmu" ,libxmu)
4072         ("libx11" ,libx11)))
4073     (native-inputs
4074        `(("pkg-config" ,pkg-config)))
4075     (home-page "https://www.x.org/wiki/")
4076     (synopsis "Kill a client by its X resource")
4077     (description
4078      "XKill is used to force the X server to close connections to
4079 clients.  This program is very dangerous, but is useful for aborting
4080 programs that have displayed undesired windows on a user's screen.")
4081     (license license:x11)))
4082
4083
4084 (define-public xlsatoms
4085   (package
4086     (name "xlsatoms")
4087     (version "1.1.3")
4088     (source
4089       (origin
4090         (method url-fetch)
4091         (uri (string-append
4092                "mirror://xorg/individual/app/xlsatoms-"
4093                version
4094                ".tar.bz2"))
4095         (sha256
4096           (base32
4097             "10m3a046jvaw5ywx4y65kl84lsxqan70gww1g1r7cf96ijaqz1jp"))))
4098     (build-system gnu-build-system)
4099     (inputs
4100       `(("libxcb" ,libxcb)))
4101     (native-inputs
4102       `(("pkg-config" ,pkg-config)))
4103     (home-page "https://gitlab.freedesktop.org/xorg/app/xlsatoms")
4104     (synopsis "List interned X server atoms")
4105     (description
4106      "XLsAtoms is used to list the interned atoms defined on X server.")
4107     (license license:x11)))
4108
4109
4110 (define-public xlsclients
4111   (package
4112     (name "xlsclients")
4113     (version "1.1.4")
4114     (source
4115       (origin
4116         (method url-fetch)
4117         (uri (string-append
4118                "mirror://xorg/individual/app/xlsclients-"
4119                version
4120                ".tar.bz2"))
4121         (sha256
4122           (base32
4123             "1h8931sn34mcip6vpi4v7hdmr1r58gkbw4s2p97w98kykks2lgvp"))))
4124     (build-system gnu-build-system)
4125     (inputs
4126       `(("libxcb" ,libxcb)))
4127     (native-inputs
4128       `(("pkg-config" ,pkg-config)))
4129     (home-page "https://www.x.org/wiki/")
4130     (synopsis "List client applications running on a display")
4131     (description
4132      "XLsClients is used to list information about the client programs
4133 running on X server.")
4134     (license license:x11)))
4135
4136
4137 (define-public xlsfonts
4138   (package
4139     (name "xlsfonts")
4140     (version "1.0.6")
4141     (source
4142      (origin
4143        (method url-fetch)
4144        (uri (string-append
4145              "mirror://xorg/individual/app/xlsfonts-"
4146              version
4147              ".tar.bz2"))
4148        (sha256
4149         (base32
4150          "0s6kxgv78chkwsqmhw929f4pf91gq63f4yvixxnan1h00cx0pf49"))))
4151     (build-system gnu-build-system)
4152     (inputs
4153      `(("xorgproto" ,xorgproto)
4154        ("libx11" ,libx11)))
4155     (native-inputs
4156      `(("pkg-config" ,pkg-config)))
4157     (home-page "https://www.x.org/wiki/")
4158     (synopsis "List fonts available from an X server")
4159     (description
4160      "xlsfonts lists fonts available from an X server via the X11 core
4161 protocol.")
4162     (license license:x11)))
4163
4164 (define-public xfontsel
4165   (package
4166     (name "xfontsel")
4167     (version "1.0.6")
4168     (source (origin
4169               (method url-fetch)
4170               (uri (string-append
4171                     "mirror://xorg/individual/app/xfontsel-"
4172                     version ".tar.bz2"))
4173               (sha256
4174                (base32
4175                 "0700lf6hx7dg88wq1yll7zjvf9gbwh06xff20yffkxb289y0pai5"))))
4176     (build-system gnu-build-system)
4177     (arguments
4178      `(#:configure-flags
4179        (list (string-append "--with-appdefaultdir="
4180                             %output ,%app-defaults-dir))))
4181     (inputs
4182      `(("libx11" ,libx11)
4183        ("libxaw" ,libxaw)
4184        ("libxmu" ,libxmu)
4185        ("libxt" ,libxt)))
4186     (native-inputs
4187      `(("pkg-config" ,pkg-config)))
4188     (home-page "https://www.x.org/wiki/")
4189     (synopsis "Browse and select X font names")
4190     (description
4191      "XFontSel provides a simple way to display the X11 core protocol fonts
4192 known to your X server, examine samples of each, and retrieve the X Logical
4193 Font Description (XLFD) full name for a font.")
4194     (license license:x11)))
4195
4196 (define-public xfd
4197   (package
4198     (name "xfd")
4199     (version "1.1.3")
4200     (source (origin
4201               (method url-fetch)
4202               (uri (string-append
4203                     "mirror://xorg/individual/app/xfd-"
4204                     version ".tar.bz2"))
4205               (sha256
4206                (base32
4207                 "0n6r1v8sm0z0ycqch035xpm46nv5v4mav3kxh36883l3ln5r6bqr"))))
4208     (build-system gnu-build-system)
4209     (arguments
4210        `(#:configure-flags
4211          (list (string-append "--with-appdefaultdir="
4212                               %output ,%app-defaults-dir))))
4213     (inputs
4214      `(("fontconfig" ,fontconfig)
4215        ("libx11" ,libx11)
4216        ("libxaw" ,libxaw)
4217        ("libxft" ,libxft)
4218        ("libxmu" ,libxmu)
4219        ("libxrender" ,libxrender)
4220        ("libxkbfile" ,libxkbfile)))
4221     (native-inputs
4222      `(("gettext" ,gettext-minimal)
4223        ("pkg-config" ,pkg-config)))
4224     (home-page "https://www.x.org/wiki/")
4225     (synopsis "Display all the characters in an X font")
4226     (description
4227      "XFD (X Font Display) package provides an utility that displays a
4228 window containing the name of the font being displayed, a row of command
4229 buttons, several lines of text for displaying character metrics, and a grid
4230 containing one glyph per cell.")
4231     (license license:x11)))
4232
4233 (define-public xmodmap
4234   (package
4235     (name "xmodmap")
4236     (version "1.0.10")
4237     (source
4238       (origin
4239         (method url-fetch)
4240         (uri (string-append
4241                "mirror://xorg/individual/app/xmodmap-"
4242                version
4243                ".tar.bz2"))
4244         (sha256
4245           (base32
4246             "0z28331i2pm16x671fa9qwsfqdmr6a43bzwmp0dm17a3sx0hjgs7"))))
4247     (build-system gnu-build-system)
4248     (inputs
4249       `(("xorgproto" ,xorgproto)
4250         ("libx11" ,libx11)))
4251     (native-inputs
4252       `(("pkg-config" ,pkg-config)))
4253     (home-page "https://gitlab.freedesktop.org/xorg/app/xmodmap")
4254     (synopsis "Modify keymaps and button mappings on X server")
4255     (description
4256      "Xmodmap is used to display and edit the keyboard modifier map and
4257 keymap table that are used by client programs running on X server to
4258 convert event keycodes into keysyms.  It is usually run from the user's
4259 session startup script to configure the keyboard according to personal
4260 tastes.")
4261     (license license:x11)))
4262
4263
4264 ;; no license
4265 ;; (define-public xorg-docs
4266
4267
4268 (define-public xorg-sgml-doctools
4269   (package
4270     (name "xorg-sgml-doctools")
4271     (version "1.11")
4272     (source
4273       (origin
4274         (method url-fetch)
4275         (uri (string-append
4276                "mirror://xorg/individual/doc/xorg-sgml-doctools-"
4277                version
4278                ".tar.bz2"))
4279         (sha256
4280           (base32
4281             "0k5pffyi5bx8dmfn033cyhgd3gf6viqj3x769fqixifwhbgy2777"))))
4282     (build-system gnu-build-system)
4283     (native-inputs `(("pkg-config" ,pkg-config)))
4284     (home-page "https://www.x.org/wiki/")
4285     (synopsis "Xorg SGML documentation tools")
4286     (description
4287     "This package provides a common set of SGML entities and XML/CSS style
4288 sheets used in building/formatting the documentation provided in other
4289 Xorg packages.  It's typically only needed by people building from
4290 source who want to produce formatted documentation from their builds, or
4291 those who have installed the HTML version of the documentation, which
4292 refers to the included common xorg.css stylesheet.")
4293     (license license:x11)))
4294
4295
4296 (define-public xpr
4297   (package
4298     (name "xpr")
4299     (version "1.0.5")
4300     (source
4301       (origin
4302         (method url-fetch)
4303         (uri (string-append
4304                "mirror://xorg/individual/app/xpr-"
4305                version
4306                ".tar.bz2"))
4307         (sha256
4308           (base32
4309             "07qy9lwjvxighcmg6qvjkgagad3wwvidrfx0jz85lgynz3qy0dmr"))))
4310     (build-system gnu-build-system)
4311     (inputs
4312       `(("xorgproto" ,xorgproto)
4313         ("libxmu" ,libxmu)
4314         ("libx11" ,libx11)))
4315     (native-inputs
4316         `(("pkg-config" ,pkg-config)))
4317     (home-page "https://www.x.org/wiki/")
4318     (synopsis "Print an X window dump from xwd")
4319     (description
4320      "XPr takes as input a window dump file produced by xwd and formats
4321 it for output on various types of printers.")
4322     (license license:x11)))
4323
4324
4325 (define-public xprop
4326   (package
4327     (name "xprop")
4328     (version "1.2.4")
4329     (source
4330       (origin
4331         (method url-fetch)
4332         (uri (string-append
4333                "mirror://xorg/individual/app/xprop-"
4334                version
4335                ".tar.bz2"))
4336         (sha256
4337           (base32
4338             "0lzp7kyhpwd5hm83j2zm6j3w3z1z5i4ykgg2nwr01ij6dq4znxwc"))))
4339     (build-system gnu-build-system)
4340     (inputs
4341       `(("xorgproto" ,xorgproto)
4342         ("libx11" ,libx11)))
4343     (native-inputs
4344       `(("pkg-config" ,pkg-config)))
4345     (home-page "https://www.x.org/wiki/")
4346     (synopsis "Display X server properties")
4347     (description
4348      "xprop is used to display and/or set window and font properties of
4349 an X server.")
4350     (license license:x11)))
4351
4352
4353 (define-public xrandr
4354   (package
4355     (name "xrandr")
4356     (version "1.5.1")
4357     (source
4358       (origin
4359         (method url-fetch)
4360         (uri (string-append
4361                "mirror://xorg/individual/app/xrandr-"
4362                version ".tar.xz"))
4363         (sha256
4364           (base32
4365             "0ql75s1n3dm2m3g1ilb9l6hqh15r0v709bgghpwazy3jknpnvivv"))))
4366     (build-system gnu-build-system)
4367     (inputs
4368       `(("libxrender" ,libxrender)
4369         ("libxrandr" ,libxrandr)
4370         ("xorgproto" ,xorgproto)
4371         ("libx11" ,libx11)))
4372     (native-inputs
4373      `(("pkg-config" ,pkg-config)))
4374     (home-page "https://www.x.org/wiki/")
4375     (synopsis "Command line interface to X RandR extension")
4376     (description
4377      "xrandr - primitive command line interface to X11 Resize, Rotate,
4378 and Reflect (RandR) extension.")
4379     (license license:x11)))
4380
4381
4382 (define-public xrdb
4383   (package
4384     (name "xrdb")
4385     (version "1.2.0")
4386     (source
4387       (origin
4388         (method url-fetch)
4389         (uri (string-append
4390                "mirror://xorg/individual/app/xrdb-"
4391                version
4392                ".tar.bz2"))
4393         (sha256
4394           (base32
4395             "0ik9gh6363c47pr0dp7q22nfs8vmavjg2v4bsr0604ppl77nafpj"))))
4396     (build-system gnu-build-system)
4397     (inputs
4398       `(("libxmu" ,libxmu)
4399         ("libx11" ,libx11)))
4400     (native-inputs
4401       `(("pkg-config" ,pkg-config)))
4402     (home-page "https://gitlab.freedesktop.org/xorg/app/xrdb")
4403     (synopsis "X server resource database utility")
4404     (description
4405      "XRDB is used to get or set the contents of the RESOURCE_MANAGER
4406 property on the root window of screen 0, or the SCREEN_RESOURCES
4407 property on the root window of any or all screens, or everything
4408 combined.  You would normally run this program from your X startup
4409 file.")
4410     (license license:x11)))
4411
4412
4413 (define-public xrefresh
4414   (package
4415     (name "xrefresh")
4416     (version "1.0.6")
4417     (source
4418       (origin
4419         (method url-fetch)
4420         (uri (string-append
4421                "mirror://xorg/individual/app/xrefresh-"
4422                version
4423                ".tar.bz2"))
4424         (sha256
4425           (base32
4426             "0lv3rlshh7s0z3aqx5ahnnf8cl082m934bk7gv881mz8nydznz98"))))
4427     (build-system gnu-build-system)
4428     (inputs
4429       `(("libx11" ,libx11)))
4430     (native-inputs
4431       `(("pkg-config" ,pkg-config)))
4432     (home-page "https://www.x.org/wiki/")
4433     (synopsis "Refresh all or part of an X screen")
4434     (description
4435      "Xrefresh is a simple X program that causes all or part of your
4436 screen to be repainted.  This is useful when system messages have messed
4437 up your screen.")
4438     (license license:x11)))
4439
4440
4441 (define-public xset
4442   (package
4443     (name "xset")
4444     (version "1.2.4")
4445     (source
4446       (origin
4447         (method url-fetch)
4448         (uri (string-append
4449                "mirror://xorg/individual/app/xset-"
4450                version
4451                ".tar.bz2"))
4452         (sha256
4453           (base32
4454             "0my987wjvra7l92ry6q44ky383yg3phzxhdbn3lqhapm1ll9bzg4"))))
4455     (build-system gnu-build-system)
4456     (inputs
4457       `(("xorgproto" ,xorgproto)
4458         ("libxmu" ,libxmu)
4459         ("libxext" ,libxext)
4460         ("libx11" ,libx11)))
4461     (native-inputs
4462        `(("pkg-config" ,pkg-config)))
4463     (home-page "https://www.x.org/wiki/")
4464     (synopsis "User preference utility for X server")
4465     (description
4466      "XSet is used to set various user preference options of the display.")
4467     (license license:x11)))
4468
4469
4470 (define-public xsetroot
4471   (package
4472     (name "xsetroot")
4473     (version "1.1.2")
4474     (source
4475       (origin
4476         (method url-fetch)
4477         (uri (string-append
4478                "mirror://xorg/individual/app/xsetroot-"
4479                version
4480                ".tar.bz2"))
4481         (sha256
4482           (base32
4483             "0z21mqvmdl6rl63q77479wgkfygnll57liza1i3va7sr4fx45i0h"))))
4484     (build-system gnu-build-system)
4485     (inputs
4486       `(("libxmu" ,libxmu)
4487         ("libxcursor" ,libxcursor)
4488         ("xbitmaps" ,xbitmaps)))
4489     (native-inputs
4490       `(("pkg-config" ,pkg-config)))
4491     (home-page "https://www.x.org/wiki/")
4492     (synopsis "Root window parameter setting utility for X server")
4493     (description
4494      "XSetRoot allows you to tailor the appearance of the root window on
4495 a display running X server.")
4496     (license license:x11)))
4497
4498
4499 (define-public xtrans
4500   (package
4501     (name "xtrans")
4502     (version "1.4.0")
4503     (source
4504       (origin
4505         (method url-fetch)
4506         (uri (string-append
4507                "mirror://xorg/individual/lib/xtrans-"
4508                version
4509                ".tar.bz2"))
4510         (sha256
4511           (base32
4512             "0wyp0yc6gi72hwc3kjmvm3vkj9p6s407cb6dxx37jh9wb68l8z1p"))))
4513     (build-system gnu-build-system)
4514     (native-inputs `(("pkg-config" ,pkg-config)))
4515     (home-page "https://www.x.org/wiki/")
4516     (synopsis "Xorg Network Transport layer library")
4517     (description
4518      "Xtrans is a library of code that is shared among various X packages to
4519 handle network protocol transport in a modular fashion, allowing a single
4520 place to add new transport types.  It is used by the X server, libX11,
4521 libICE, the X font server, and related components.")
4522     (license license:x11)))
4523
4524
4525 (define-public xvinfo
4526   (package
4527     (name "xvinfo")
4528     (version "1.1.4")
4529     (source
4530       (origin
4531         (method url-fetch)
4532         (uri (string-append
4533                "mirror://xorg/individual/app/xvinfo-"
4534                version
4535                ".tar.bz2"))
4536         (sha256
4537           (base32
4538             "0gz7fvxavqlrqynpfbrm2nc9yx8h0ksnbnv34fj7n1q6cq6j4lq3"))))
4539     (build-system gnu-build-system)
4540     (inputs
4541       `(("libxext" ,libxext)
4542         ("libxv" ,libxv)
4543         ("libx11" ,libx11)))
4544     (native-inputs
4545       `(("pkg-config" ,pkg-config)))
4546     (home-page "https://gitlab.freedesktop.org/xorg/app/xvinfo")
4547     (synopsis "Print out X-Video extension adaptor information")
4548     (description
4549      "XVInfo is used to print out the capabilities of any video adaptors
4550 associated with the display that are accessible through the X-Video
4551 extension.")
4552     (license license:x11)))
4553
4554
4555 (define-public xwd
4556   (package
4557     (name "xwd")
4558     (version "1.0.7")
4559     (source
4560       (origin
4561         (method url-fetch)
4562         (uri (string-append
4563                "mirror://xorg/individual/app/xwd-"
4564                version
4565                ".tar.bz2"))
4566         (sha256
4567           (base32
4568             "1537i8q8pgf0sjklakzfvjwrq5b246qjywrx9ll8xfg0p6w1as6d"))))
4569     (build-system gnu-build-system)
4570     (inputs
4571       `(("libxt" ,libxt)
4572         ("libxkbfile" ,libxkbfile)
4573         ("xorgproto" ,xorgproto)))
4574     (native-inputs
4575        `(("pkg-config" ,pkg-config)))
4576     (home-page "https://www.x.org/wiki/")
4577     (synopsis "Dump current contents of X window or screen to file")
4578     (description
4579      "Xwd is used to store window images in a specially formatted dump
4580 file.  This file can then be read by various other X utilities for
4581 redisplay, printing, editing, formatting, archiving, image processing,
4582 etc.  The target window is selected by clicking the pointer in the
4583 desired window.  The keyboard bell is rung once at the beginning of the
4584 dump and twice when the dump is completed.")
4585     (license license:x11)))
4586
4587
4588 (define-public xwininfo
4589   (package
4590     (name "xwininfo")
4591     (version "1.1.5")
4592     (source
4593       (origin
4594         (method url-fetch)
4595         (uri (string-append
4596                "mirror://xorg/individual/app/xwininfo-"
4597                version
4598                ".tar.bz2"))
4599         (sha256
4600           (base32
4601             "03h8clirhw5ki1xxp18xbf5vynm7r0dwspsgfin6cxn4vx0m8h3s"))))
4602     (build-system gnu-build-system)
4603     (inputs
4604       `(("libx11" ,libx11)
4605         ("xorgproto" ,xorgproto)))
4606     (native-inputs
4607        `(("pkg-config" ,pkg-config)))
4608     (home-page "https://www.x.org/wiki/")
4609     (synopsis "Window information utility for X server")
4610     (description
4611      "XWinInfo is used to print out information about windows on an X server.
4612 Various information is displayed depending on which options are selected.")
4613     (license license:x11)))
4614
4615
4616 (define-public xwud
4617   (package
4618     (name "xwud")
4619     (version "1.0.5")
4620     (source
4621       (origin
4622         (method url-fetch)
4623         (uri (string-append
4624                "mirror://xorg/individual/app/xwud-"
4625                version
4626                ".tar.bz2"))
4627         (sha256
4628           (base32
4629             "1a8hdgy40smvblnh3s9f0vkqckl68nmivx7d48zk34m8z18p16cr"))))
4630     (build-system gnu-build-system)
4631     (inputs
4632       `(("xorgproto" ,xorgproto)
4633         ("libx11" ,libx11)))
4634     (native-inputs
4635        `(("pkg-config" ,pkg-config)))
4636     (home-page "https://www.x.org/wiki/")
4637     (synopsis "Display an X window dump from xwd")
4638     (description
4639      "Xwud is used to display in a window an image saved in a specially
4640 formatted dump file, such as produced by xwd.")
4641     (license license:x11)))
4642
4643 (define-public xorg-rgb
4644   (package
4645     (name "xorg-rgb")
4646     (version "1.0.6")
4647     (source
4648       (origin
4649         (method url-fetch)
4650         (uri (string-append
4651                "mirror://xorg/individual/app/rgb-"
4652                version
4653                ".tar.bz2"))
4654         (sha256
4655           (base32
4656             "1c76zcjs39ljil6f6jpx1x17c8fnvwazz7zvl3vbjfcrlmm7rjmv"))))
4657     (build-system gnu-build-system)
4658     (inputs
4659      `(("xorgproto" ,xorgproto)))
4660     (native-inputs
4661      `(("pkg-config" ,pkg-config)))
4662     (home-page "https://www.x.org/wiki/")
4663     (synopsis "X color name database")
4664     (description
4665      "This package provides the X color name database.")
4666     (license license:x11)))
4667
4668 ;; packages of height 1 in the propagated-inputs tree
4669
4670 (define-public fixesproto
4671   (package
4672     (name "fixesproto")
4673     (version "5.0")
4674     (source
4675       (origin
4676         (method url-fetch)
4677         (uri (string-append
4678                "mirror://xorg/individual/proto/fixesproto-"
4679                version
4680                ".tar.bz2"))
4681         (sha256
4682           (base32
4683             "1ki4wiq2iivx5g4w5ckzbjbap759kfqd72yg18m3zpbb4hqkybxs"))))
4684     (build-system gnu-build-system)
4685     (propagated-inputs
4686       `(("xorgproto" ,xorgproto)))
4687     (native-inputs
4688       `(("pkg-config" ,pkg-config)))
4689     (home-page "https://www.x.org/wiki/")
4690     (synopsis "Xorg FixesProto protocol headers")
4691     (description
4692      "Fixes Extension makes changes to many areas of the protocol to resolve
4693 issues raised by application interaction with core protocol mechanisms that
4694 cannot be adequately worked around on the client side of the wire.")
4695     (license license:x11)
4696     (properties `((superseded . ,xorgproto)))))
4697
4698 (define-public libxdamage
4699   (package
4700     (name "libxdamage")
4701     (version "1.1.5")
4702     (source
4703       (origin
4704         (method url-fetch)
4705         (uri (string-append
4706                "mirror://xorg/individual/lib/libXdamage-"
4707                version
4708                ".tar.bz2"))
4709         (sha256
4710           (base32
4711             "0igaw2akjf712y3rv7lx473jigxmcv9rs9y8sbrvbhya8f30cd5p"))))
4712     (build-system gnu-build-system)
4713     (propagated-inputs
4714       ;; These are all in the Requires or Requires.private field of xdamage.pc
4715       `(("libxfixes" ,libxfixes)
4716         ("xorgproto" ,xorgproto)
4717         ("libx11" ,libx11)))
4718     (native-inputs
4719       `(("pkg-config" ,pkg-config)))
4720     (home-page "https://www.x.org/wiki/")
4721     (synopsis "Xorg Damage Extension library")
4722     (description "Xorg library for the XDamage extension.")
4723     (license license:x11)))
4724
4725
4726 (define-public libxext
4727   (package
4728     (name "libxext")
4729     (version "1.3.4")
4730     (source
4731       (origin
4732         (method url-fetch)
4733         (uri (string-append
4734                "mirror://xorg/individual/lib/libXext-"
4735                version
4736                ".tar.bz2"))
4737         (sha256
4738           (base32
4739             "0azqxllcsfxc3ilhz6kwc6x7m8wc477p59ir9p0yrsldx766zbar"))))
4740     (build-system gnu-build-system)
4741     (arguments
4742      `(#:configure-flags
4743        (list "--disable-static"
4744              ;; Disable zero malloc check that fails when cross-compiling.
4745              ,@(if (%current-target-system)
4746                    '("--disable-malloc0returnsnull")
4747                    '()))))
4748     (propagated-inputs
4749       `(("xorgproto" ,xorgproto)))
4750     (inputs
4751       `(("libxau" ,libxau)
4752         ("libx11" ,libx11)))
4753     (native-inputs
4754       `(("pkg-config" ,pkg-config)))
4755     (home-page "https://www.x.org/wiki/")
4756     (synopsis "Xorg Common extensions library")
4757     (description
4758      "Library for common extensions to the X11 protocol.")
4759     (license license:x11)))
4760
4761
4762 (define-public libxinerama
4763   (package
4764     (name "libxinerama")
4765     (version "1.1.4")
4766     (source
4767       (origin
4768         (method url-fetch)
4769         (uri (string-append
4770                "mirror://xorg/individual/lib/libXinerama-"
4771                version
4772                ".tar.bz2"))
4773         (sha256
4774           (base32
4775             "086p0axqj57nvkaqa6r00dnr9kyrn1m8blgf0zjy25zpxkbxn200"))))
4776     (build-system gnu-build-system)
4777     (arguments
4778      '(#:configure-flags '("--disable-static")))
4779     (propagated-inputs
4780       `(("xorgproto" ,xorgproto)))
4781     (inputs
4782       `(("libxext" ,libxext)
4783         ("libx11" ,libx11)))
4784     (native-inputs
4785       `(("pkg-config" ,pkg-config)))
4786     (home-page "https://www.x.org/wiki/")
4787     (synopsis "Xorg Xinerama protocol library")
4788     (description "API for Xinerama extension to X11 protocol.")
4789     (license license:x11)))
4790
4791
4792 (define-public libxp
4793   (package
4794     (name "libxp")
4795     (version "1.0.3")
4796     (source
4797       (origin
4798         (method url-fetch)
4799         (uri (string-append
4800                "mirror://xorg/individual/lib/libXp-"
4801                version
4802                ".tar.bz2"))
4803         (sha256
4804           (base32
4805             "0mwc2jwmq03b1m9ihax5c6gw2ln8rc70zz4fsj3kb7440nchqdkz"))))
4806     (build-system gnu-build-system)
4807     (propagated-inputs
4808       `(("printproto" ,printproto)))
4809     (inputs
4810       `(("libx11" ,libx11)
4811         ("libxext" ,libxext)))
4812     (native-inputs
4813       `(("pkg-config" ,pkg-config)))
4814     (home-page "https://www.x.org/wiki/")
4815     (synopsis "Xorg Print Client library")
4816     (description "Xorg Print Client library.")
4817     (license license:x11)))
4818
4819
4820 (define-public libxrender
4821   (package
4822     (name "libxrender")
4823     (version "0.9.10")
4824     (source
4825       (origin
4826         (method url-fetch)
4827         (uri (string-append
4828                "mirror://xorg/individual/lib/libXrender-"
4829                version
4830                ".tar.bz2"))
4831         (sha256
4832           (base32
4833             "0j89cnb06g8x79wmmnwzykgkkfdhin9j7hjpvsxwlr3fz1wmjvf0"))))
4834     (build-system gnu-build-system)
4835     (arguments
4836      `(#:configure-flags
4837        (list "--disable-static"
4838              ;; Disable zero malloc check that fails when cross-compiling.
4839              ,@(if (%current-target-system)
4840                    '("--disable-malloc0returnsnull")
4841                    '()))))
4842     (propagated-inputs
4843       `(("xorgproto" ,xorgproto)))
4844     (inputs
4845       `(("libx11" ,libx11)))
4846     (native-inputs
4847       `(("pkg-config" ,pkg-config)))
4848     (home-page "https://www.x.org/wiki/")
4849     (synopsis "Xorg Render Extension library")
4850     (description "Library for the Render Extension to the X11 protocol.")
4851     (license license:x11)))
4852
4853 (define-public libxtst
4854   (package
4855     (name "libxtst")
4856     (version "1.2.3")
4857     (source
4858       (origin
4859         (method url-fetch)
4860         (uri (string-append
4861                "mirror://xorg/individual/lib/libXtst-"
4862                version
4863                ".tar.bz2"))
4864         (sha256
4865           (base32
4866             "012jpyj7xfm653a9jcfqbzxyywdmwb2b5wr1dwylx14f3f54jma6"))))
4867     (build-system gnu-build-system)
4868     (arguments
4869      '(#:configure-flags '("--disable-static")))
4870     (propagated-inputs
4871      `(("libxi" ,libxi)
4872        ("xorgproto" ,xorgproto)))
4873     (inputs
4874       `(("libx11" ,libx11)))
4875     (native-inputs
4876       `(("pkg-config" ,pkg-config)))
4877     (home-page "https://www.x.org/wiki/")
4878     (synopsis "Xorg library for Xtest and Record extensions")
4879     (description
4880      "libXtst provides the Xlib-based client API for the XTEST & RECORD
4881 extensions.
4882
4883 The XTEST extension is a minimal set of client and server extensions
4884 required to completely test the X11 server with no user intervention.  This
4885 extension is not intended to support general journaling and playback of user
4886 actions.
4887
4888 The RECORD extension supports the recording and reporting of all core X
4889 protocol and arbitrary X extension protocol.")
4890     (license license:x11)))
4891
4892 (define-public libxv
4893   (package
4894     (name "libxv")
4895     (version "1.0.11")
4896     (source
4897       (origin
4898         (method url-fetch)
4899         (uri (string-append
4900                "mirror://xorg/individual/lib/libXv-"
4901                version
4902                ".tar.bz2"))
4903         (sha256
4904           (base32
4905             "125hn06bd3d8y97hm2pbf5j55gg4r2hpd3ifad651i4sr7m16v6j"))))
4906     (build-system gnu-build-system)
4907     (arguments
4908      '(#:configure-flags '("--disable-static")))
4909     (propagated-inputs
4910      `(("xorgproto" ,xorgproto)))
4911     (inputs
4912       `(("libxext" ,libxext)
4913         ("libx11" ,libx11)))
4914     (native-inputs
4915       `(("pkg-config" ,pkg-config)))
4916     (home-page "https://www.x.org/wiki/")
4917     (synopsis "Xorg XVideo Extension library")
4918     (description "Library for the X Video Extension to the X11 protocol.")
4919     (license license:x11)))
4920
4921 (define-public mkfontdir
4922   (package
4923     (name "mkfontdir")
4924     (version "1.0.7")
4925     (source
4926       (origin
4927         (method url-fetch)
4928         (uri (string-append
4929                "mirror://xorg/individual/app/mkfontdir-"
4930                version
4931                ".tar.bz2"))
4932         (sha256
4933           (base32
4934             "0c3563kw9fg15dpgx4dwvl12qz6sdqdns1pxa574hc7i5m42mman"))))
4935     (build-system gnu-build-system)
4936     (arguments
4937      `(#:phases
4938        (modify-phases %standard-phases
4939          (add-after 'unpack 'fix-configure
4940            (lambda* (#:key inputs native-inputs #:allow-other-keys)
4941              ;; Replace outdated config.sub and config.guess:
4942              (for-each (lambda (file)
4943                          (install-file (string-append
4944                                         (assoc-ref
4945                                          (or native-inputs inputs) "automake")
4946                                         "/share/automake-"
4947                                         ,(version-major+minor
4948                                           (package-version automake))
4949                                         "/" file) "."))
4950                        '("config.sub" "config.guess"))
4951              #t))
4952          (add-after 'install 'wrap-mkfontdir
4953            (lambda* (#:key inputs outputs #:allow-other-keys)
4954              (wrap-program (string-append (assoc-ref outputs "out")
4955                                           "/bin/mkfontdir")
4956                `("PATH" ":" prefix
4957                  (,(string-append (assoc-ref inputs "mkfontscale")
4958                                   "/bin"))))
4959              #t)))))
4960     (inputs
4961       `(("mkfontscale" ,mkfontscale)))
4962     (native-inputs
4963      `(("pkg-config" ,pkg-config)
4964        ("automake" ,automake))) ;For up to date 'config.guess' and 'config.sub'.
4965     (home-page "https://www.x.org/wiki/")
4966     (synopsis "Create an index of X font files in a directory")
4967     (description
4968      "MkFontDir creates the @code{fonts.dir} files needed by the legacy X
4969 server core font system.  The current implementation is a simple wrapper
4970 script around the mkfontscale program.")
4971     (license license:x11)))
4972
4973 (define-public xproto
4974   (package
4975     (name "xproto")
4976     (version "7.0.31")
4977     (source
4978       (origin
4979         (method url-fetch)
4980         (uri (string-append
4981                "mirror://xorg/individual/proto/xproto-"
4982                version
4983                ".tar.bz2"))
4984         (sha256
4985           (base32
4986             "0ivpxz0rx2a7nahkpkhfgymz7j0pwzaqvyqpdgw9afmxl1yp9yf6"))))
4987     (build-system gnu-build-system)
4988     (propagated-inputs
4989       `(("util-macros" ,util-macros))) ; to get util-macros in (almost?) all package inputs
4990     (native-inputs
4991       `(("pkg-config" ,pkg-config)))
4992     (home-page "https://www.x.org/wiki/")
4993     (synopsis "Xorg X11Proto protocol headers")
4994     (description
4995      "XProto provides the headers and specification documents defining
4996 the X Window System Core Protocol, Version 11.
4997
4998 It also includes a number of headers that aren't purely protocol related,
4999 but are depended upon by many other X Window System packages to provide
5000 common definitions and porting layer.")
5001     (license license:x11)
5002     (properties `((superseded . ,xorgproto)))))
5003
5004 ;; packages of height 2 in the propagated-inputs tree
5005
5006 (define-public libice
5007   (package
5008     (name "libice")
5009     (version "1.0.10")
5010     (source
5011       (origin
5012         (method url-fetch)
5013         (uri (string-append
5014                "mirror://xorg/individual/lib/libICE-"
5015                version
5016                ".tar.bz2"))
5017         (sha256
5018           (base32
5019             "0j638yvmyna2k4mz465jywgdybgdchdqppfx6xfazg7l5khxr1kg"))))
5020     (build-system gnu-build-system)
5021     (arguments
5022      '(#:configure-flags '("--disable-static")))
5023     (propagated-inputs
5024       `(("xorgproto" ,xorgproto)))
5025     (inputs
5026       `(("libbsd" ,libbsd)
5027         ("xtrans" ,xtrans)))
5028     (native-inputs
5029       `(("pkg-config" ,pkg-config)))
5030     (home-page "https://www.x.org/wiki/")
5031     (synopsis "Xorg Inter-Client Exchange library")
5032     (description "Xorg Inter-Client Exchange library.")
5033     (license license:x11)))
5034
5035
5036 (define-public libxau
5037   (package
5038     (name "libxau")
5039     (version "1.0.9")
5040     (source
5041       (origin
5042         (method url-fetch)
5043         (uri (string-append
5044                "mirror://xorg/individual/lib/libXau-"
5045                version
5046                ".tar.bz2"))
5047         (sha256
5048           (base32
5049             "1v3krc6x0zliaa66qq1bf9j60x5nqfy68v8axaiglxpnvgqcpy6c"))))
5050     (build-system gnu-build-system)
5051     (arguments
5052      '(#:configure-flags '("--disable-static")))
5053     (propagated-inputs
5054       `(("xorgproto" ,xorgproto)))
5055     (native-inputs
5056       `(("pkg-config" ,pkg-config)))
5057     (home-page "https://www.x.org/wiki/")
5058     (synopsis "Xorg Authorization library")
5059     (description
5060      "libXau provides an authorization library for individual access to
5061 an X Window System display.")
5062     (license license:x11)))
5063
5064 (define-public libxfixes
5065   (package
5066     (name "libxfixes")
5067     (version "5.0.3")
5068     (source
5069       (origin
5070         (method url-fetch)
5071         (uri (string-append
5072                "mirror://xorg/individual/lib/libXfixes-"
5073                version
5074                ".tar.bz2"))
5075         (sha256
5076           (base32
5077             "1miana3y4hwdqdparsccmygqr3ic3hs5jrqfzp70hvi2zwxd676y"))))
5078     (build-system gnu-build-system)
5079     (arguments
5080      '(#:configure-flags '("--disable-static")))
5081     (propagated-inputs
5082       `(("xorgproto" ,xorgproto)))
5083     (inputs
5084       `(("libx11" ,libx11)))
5085     (native-inputs
5086       `(("pkg-config" ,pkg-config)))
5087     (home-page "https://www.x.org/wiki/")
5088     (synopsis "Xorg Fixes Extension library")
5089     (description "Library for the XFixes Extension to the X11 protocol.")
5090     (license license:x11)))
5091
5092 (define-public libxfont
5093   (package
5094     (name "libxfont")
5095     (version "1.5.4")
5096     (source
5097       (origin
5098         (method url-fetch)
5099         (uri (string-append
5100                "mirror://xorg/individual/lib/libXfont-"
5101                version
5102                ".tar.bz2"))
5103         (sha256
5104           (base32
5105             "0hiji1bvpl78aj3a3141hkk353aich71wv8l5l2z51scfy878zqs"))))
5106     (build-system gnu-build-system)
5107     (arguments
5108      '(#:configure-flags '("--disable-static")))
5109     (propagated-inputs
5110       `(("freetype" ,freetype)
5111         ("libfontenc" ,libfontenc)
5112         ("xorgproto" ,xorgproto)))
5113     (inputs
5114       `(("zlib" ,zlib)
5115         ("xtrans" ,xtrans)))
5116     (native-inputs
5117        `(("pkg-config" ,pkg-config)))
5118     (home-page "https://www.x.org/wiki/")
5119     (synopsis "Xorg Font handling library")
5120     (description
5121      "libXfont provides the core of the legacy X11 font system, handling the
5122 index files (fonts.dir, fonts.alias, fonts.scale), the various font file
5123 formats, and rasterizing them.  It is used by the X servers, the X Font
5124 Server (xfs), and some font utilities (bdftopcf for instance), but should
5125 not be used by normal X11 clients.  X11 clients access fonts via either the
5126 new API's in libXft, or the legacy API's in libX11.")
5127     (license license:x11)))
5128
5129 (define-public libxfont2
5130   (package
5131     (inherit libxfont)
5132     (version "2.0.4")
5133     (source (origin
5134               (method url-fetch)
5135               (uri (string-append "mirror://xorg/individual/lib/libXfont2-"
5136                                   version ".tar.bz2"))
5137               (sha256
5138                (base32
5139                 "1rk9pjxcm01lbr1dxhnvk4f2qrn6zp068qjbvvz5w0z5d0rin5bd"))))))
5140
5141 (define-public libxi
5142   (package
5143     (name "libxi")
5144     (version "1.7.10")
5145     (source
5146       (origin
5147         (method url-fetch)
5148         (uri (string-append
5149                "mirror://xorg/individual/lib/libXi-"
5150                version
5151                ".tar.bz2"))
5152         (sha256
5153           (base32
5154             "0q8hz3slga3w3ch8wp0k7ay9ilhz315qnab0w1y2x9w3cf7hv8rn"))))
5155     (build-system gnu-build-system)
5156     (arguments
5157      '(#:configure-flags '("--disable-static")))
5158     (propagated-inputs
5159       `(("xorgproto" ,xorgproto)
5160         ("libx11" ,libx11)
5161         ("libxext" ,libxext)
5162         ("libxfixes" ,libxfixes)))
5163     (native-inputs
5164        `(("pkg-config" ,pkg-config)))
5165     (home-page "https://www.x.org/wiki/")
5166     (synopsis "Xorg Input Extension library")
5167     (description "Library for the XInput Extension to the X11 protocol.")
5168     (license license:x11)))
5169
5170 (define-public libxrandr
5171   (package
5172     (name "libxrandr")
5173     (version "1.5.2")
5174     (source
5175       (origin
5176         (method url-fetch)
5177         (uri (string-append
5178                "mirror://xorg/individual/lib/libXrandr-"
5179                version
5180                ".tar.bz2"))
5181         (sha256
5182           (base32
5183             "08z0mqywrm7ij8bxlfrx0d2wy6kladdmkva1nw5k6qix82z0xsla"))))
5184     (build-system gnu-build-system)
5185     (arguments
5186      '(#:configure-flags '("--disable-static")))
5187     (propagated-inputs
5188       ;; In accordance with xrandr.pc.
5189       `(("libx11" ,libx11)
5190         ("libxext" ,libxext)
5191         ("libxrender" ,libxrender)
5192         ("xorgproto" ,xorgproto)))
5193     (native-inputs
5194        `(("pkg-config" ,pkg-config)))
5195     (home-page "https://www.x.org/wiki/")
5196     (synopsis "Xorg Resize and Rotate Extension library")
5197     (description
5198      "Library for the Resize and Rotate Extension to the X11 protocol.")
5199     (license license:x11)))
5200
5201 (define-public libxvmc
5202   (package
5203     (name "libxvmc")
5204     (version "1.0.12")
5205     (source
5206       (origin
5207         (method url-fetch)
5208         (uri (string-append
5209                "mirror://xorg/individual/lib/libXvMC-"
5210                version
5211                ".tar.bz2"))
5212         (sha256
5213           (base32
5214             "1kbdjsvkm5l7axv7g477qj18sab2wnqhliy6197syzizgfbsfgbb"))))
5215     (build-system gnu-build-system)
5216     (arguments
5217      '(#:configure-flags '("--disable-static")))
5218     (propagated-inputs
5219       `(("libxv" ,libxv)))
5220     (inputs
5221       `(("xorgproto" ,xorgproto)
5222         ("libxext" ,libxext)
5223         ("libx11" ,libx11)))
5224     (native-inputs
5225        `(("pkg-config" ,pkg-config)))
5226     (home-page "https://www.x.org/wiki/")
5227     (synopsis "Xorg XvMC library")
5228     (description "Xorg XvMC library.")
5229     (license license:x11)))
5230
5231 (define-public libxxf86vm
5232   (package
5233     (name "libxxf86vm")
5234     (version "1.1.4")
5235     (source
5236       (origin
5237         (method url-fetch)
5238         (uri (string-append
5239                "mirror://xorg/individual/lib/libXxf86vm-"
5240                version
5241                ".tar.bz2"))
5242         (sha256
5243           (base32
5244             "0mydhlyn72i7brjwypsqrpkls3nm6vxw0li8b2nw0caz7kwjgvmg"))))
5245     (build-system gnu-build-system)
5246     (arguments
5247      '(#:configure-flags '("--disable-static")))
5248     (propagated-inputs
5249       `(("libxext" ,libxext)
5250         ("xorgproto" ,xorgproto)))
5251     (inputs
5252       `(("libx11" ,libx11)))
5253     (native-inputs
5254        `(("pkg-config" ,pkg-config)))
5255     (home-page "https://www.x.org/wiki/")
5256     (synopsis "Xorg XF86 Video Mode Extension library")
5257     (description
5258      "Library for the XFree86 Video Mode Extension Extension to the X11
5259 protocol.")
5260     (license license:x11)))
5261
5262
5263 ;; packages of height 3 in the propagated-inputs tree
5264
5265 (define-public libxcb
5266   (package
5267     (name "libxcb")
5268     (version "1.14")
5269     (source
5270       (origin
5271         (method url-fetch)
5272         (uri (string-append "https://xcb.freedesktop.org/dist/"
5273                             "libxcb-" version ".tar.xz"))
5274         (sha256
5275           (base32
5276            "0d2chjgyn5lr9sfhacfvqgnj9l9faz11vn322a06jd6lk3dxcpm5"))))
5277     (build-system gnu-build-system)
5278     (propagated-inputs
5279       `(("libpthread-stubs" ,libpthread-stubs)
5280         ("libxau" ,libxau)
5281         ("libxdmcp" ,libxdmcp)))
5282     (inputs
5283       `(("xcb-proto" ,xcb-proto)
5284         ("libxslt" ,libxslt)))
5285     (native-inputs
5286       `(("pkg-config" ,pkg-config)
5287         ("python" ,python-minimal-wrapper)))
5288     (arguments
5289      `(#:configure-flags '("--enable-xkb"
5290                            "--disable-static")))
5291     (home-page "https://xcb.freedesktop.org/")
5292     (synopsis "The X C Binding (XCB) library")
5293     (description
5294      "libxcb provides an interface to the X Window System protocol,
5295 which replaces the current Xlib interface.  It has several advantages
5296 over Xlib, including:
5297
5298 - size: small, simple library, and lower memory footprint;
5299
5300 - latency hiding: batch several requests and wait for the replies later;
5301
5302 - direct protocol access: interface and protocol correspond exactly;
5303
5304 - proven thread support: transparently access XCB from multiple threads;
5305
5306 - easy extension implementation: interfaces auto-generated from XML-XCB.")
5307     (license license:x11)))
5308
5309
5310 (define-public xorg-server
5311   (package
5312     (name "xorg-server")
5313     (version "1.20.7")
5314     (source
5315       (origin
5316         (method url-fetch)
5317         (uri (string-append
5318               "mirror://xorg/individual/xserver/"
5319               "xorg-server-" version ".tar.bz2"))
5320         (sha256
5321          (base32
5322           "18bfl04ihw1jr3h0fs522nnxxq5ixjay77y9dcymnkzk23q8cndx"))
5323         (patches
5324          (list
5325           ;; See:
5326           ;;   https://lists.fedoraproject.org/archives/list/devel@lists.
5327           ;;      fedoraproject.org/message/JU655YB7AM4OOEQ4MOMCRHJTYJ76VFOK/
5328           (origin
5329             (method url-fetch)
5330             (uri (string-append
5331                   "http://pkgs.fedoraproject.org/cgit/rpms/xorg-x11-server.git"
5332                   "/plain/06_use-intel-only-on-pre-gen4.diff"))
5333             (sha256
5334              (base32
5335               "0mm70y058r8s9y9jiv7q2myv0ycnaw3iqzm7d274410s0ik38w7q"))
5336             (file-name "xorg-server-use-intel-only-on-pre-gen4.diff"))))))
5337     (build-system gnu-build-system)
5338     (propagated-inputs
5339       `(("libpciaccess" ,libpciaccess)
5340         ("mesa" ,mesa)
5341         ("pixman" ,pixman)
5342         ("xorgproto" ,xorgproto)))
5343     (inputs
5344       `(("udev" ,eudev)
5345         ("dbus" ,dbus)
5346         ("libdmx" ,libdmx)
5347         ("libepoxy" ,libepoxy)
5348         ("libgcrypt" ,libgcrypt)
5349         ("libxau" ,libxau)
5350         ("libxaw" ,libxaw)
5351         ("libxdmcp" ,libxdmcp)
5352         ("libxfixes" ,libxfixes)
5353         ("libxfont2" ,libxfont2)
5354         ("libxkbfile" ,libxkbfile)
5355         ("libxrender" ,libxrender)
5356         ("libxres" ,libxres)
5357         ("libxshmfence" ,libxshmfence)
5358         ("libxt" ,libxt)
5359         ("libxv" ,libxv)
5360         ("xkbcomp" ,xkbcomp)
5361         ("xkeyboard-config" ,xkeyboard-config)
5362         ("xtrans" ,xtrans)
5363         ("zlib" ,zlib)
5364         ;; Inputs for Xephyr
5365         ("xcb-util" ,xcb-util)
5366         ("xcb-util-image" ,xcb-util-image)
5367         ("xcb-util-keysyms" ,xcb-util-keysyms)
5368         ("xcb-util-renderutil" ,xcb-util-renderutil)
5369         ("xcb-util-wm" ,xcb-util-wm)))
5370     (native-inputs
5371      `(("python" ,python-wrapper)
5372        ("pkg-config" ,pkg-config)))
5373     (arguments
5374      `(#:parallel-tests? #f
5375        #:configure-flags
5376        (list (string-append "--with-xkb-path="
5377                             (assoc-ref %build-inputs "xkeyboard-config")
5378                             "/share/X11/xkb")
5379              (string-append "--with-xkb-output="
5380                             "/tmp") ; FIXME: This is a bit doubtful; where should
5381                                     ; the compiled keyboard maps go?
5382              (string-append "--with-xkb-bin-directory="
5383                             (assoc-ref %build-inputs "xkbcomp")
5384                             "/bin")
5385              ;; By default, it ends up with invalid '${prefix}/...', causes:
5386              ;;   _FontTransOpen: Unable to Parse address ${prefix}/share/...
5387              ;; It's not used anyway, so set it to empty.
5388              "--with-default-font-path="
5389
5390              ;; The default is to use "uname -srm", which captures the kernel
5391              ;; version and makes builds non-reproducible.
5392              "--with-os-name=GNU"
5393
5394              "--with-os-vendor=GuixSD"    ;not strictly needed, but looks nice
5395
5396
5397              ;; For the log file, etc.
5398              "--localstatedir=/var"
5399              ;; For sddm
5400              "--enable-kdrive"
5401              "--enable-xephyr")
5402
5403        #:phases
5404        (modify-phases %standard-phases
5405          (add-before 'configure 'pre-configure
5406            (lambda _
5407              (substitute* (find-files "." "\\.c$")
5408                (("/bin/sh") (which "sh")))
5409
5410              ;; Don't try to 'mkdir /var'.
5411              (substitute* "hw/xfree86/Makefile.in"
5412                (("\\$\\(MKDIR_P\\).*logdir.*")
5413                 "true\n"))
5414
5415              ;; Strip timestamps that would otherwise end up in the 'Xorg'
5416              ;; binary.
5417              (substitute* "configure"
5418                (("^BUILD_DATE=.*$")
5419                 "BUILD_DATE=19700101\n")
5420                (("^BUILD_TIME=.*$")
5421                 "BUILD_TIME=000001\n"))
5422
5423              #t)))))
5424     (home-page "https://www.x.org/wiki/")
5425     (synopsis "Xorg implementation of the X Window System")
5426     (description
5427      "This package provides the Xorg X server itself.
5428 The X server accepts requests from client programs to create windows, which
5429 are (normally rectangular) 'virtual screens' that the client program can
5430 draw into.
5431
5432 Windows are then composed on the actual screen by the X server (or by a
5433 separate composite manager) as directed by the window manager, which usually
5434 communicates with the user via graphical controls such as buttons and
5435 draggable titlebars and borders.")
5436     (license license:x11)))
5437
5438 ;; This package is intended to be used when building GTK+.
5439 ;; Note: It's currently marked as "hidden" to avoid having two non-eq?
5440 ;; packages with the same name and version.
5441 (define-public xorg-server-for-tests
5442   (hidden-package
5443    (package
5444      (inherit xorg-server))))
5445
5446 (define-public xorg-server-xwayland
5447   (package
5448     (inherit xorg-server)
5449     (name "xorg-server-xwayland")
5450     (inputs
5451      `(("wayland" ,wayland)
5452        ("wayland-protocols" ,wayland-protocols)
5453        ,@(package-inputs xorg-server)))
5454     (arguments
5455      (substitute-keyword-arguments (package-arguments xorg-server)
5456        ((#:configure-flags flags)
5457         `(cons* "--enable-xwayland" "--disable-xorg"
5458                 "--disable-docs"    "--disable-devel-docs"
5459                 "--disable-xvfb"    "--disable-xnest"
5460                 "--disable-xquartz" "--disable-xwin"
5461                 ,flags))))
5462     (synopsis "Xorg server with wayland backend")))
5463
5464
5465 ;; packages of height 4 in the propagated-inputs tree
5466
5467 (define-public libx11
5468   (package
5469     (name "libx11")
5470     (version "1.6.9")
5471     (source
5472       (origin
5473         (method url-fetch)
5474         (uri (string-append
5475                "mirror://xorg/individual/lib/libX11-"
5476                version
5477                ".tar.bz2"))
5478         (sha256
5479           (base32
5480             "1ldyn9c6pyx54sxzaw120n3q42rqi7b503aqmyjky6fn038fiiww"))))
5481     (build-system gnu-build-system)
5482     (outputs '("out"
5483                "doc"))                            ;8 MiB of man pages + XML
5484     (arguments
5485      `(#:configure-flags
5486        (list (string-append "--mandir="
5487                             (assoc-ref %outputs "doc")
5488                             "/share/man")
5489              "--disable-static"
5490
5491              ;; Disable zero malloc check that fails when cross-compiling.
5492              ,@(if (%current-target-system)
5493                    '("--disable-malloc0returnsnull")
5494                    '()))))
5495     (propagated-inputs
5496       `(("xorgproto" ,xorgproto)
5497         ("libxcb" ,libxcb)))
5498     (inputs
5499       `(("xtrans" ,xtrans)))
5500     (native-inputs
5501      `(("pkg-config" ,pkg-config)
5502        ("xorgproto" ,xorgproto)))
5503     (home-page "https://www.x.org/wiki/")
5504     (synopsis "Xorg Core X11 protocol client library")
5505     (description "Xorg Core X11 protocol client library.")
5506     (license license:x11)))
5507
5508 ;; packages of height 5 in the propagated-inputs tree
5509
5510 (define-public libxcursor
5511   (package
5512     (name "libxcursor")
5513     (version "1.2.0")
5514     (source
5515       (origin
5516         (method url-fetch)
5517         (uri (string-append
5518                "mirror://xorg/individual/lib/libXcursor-"
5519                version
5520                ".tar.bz2"))
5521         (sha256
5522           (base32
5523             "10l7c9fm0jmpkm9ab9dz8r6m1pr87vvgqjnbx1psz50h4pwfklrs"))))
5524     (build-system gnu-build-system)
5525     (arguments
5526      '(#:configure-flags '("--disable-static")))
5527     (propagated-inputs
5528       `(("libx11" ,libx11)
5529         ("libxrender" ,libxrender)
5530         ("libxfixes" ,libxfixes)
5531         ("xorgproto" ,xorgproto)))
5532     (native-inputs
5533       `(("pkg-config" ,pkg-config)))
5534 ;; TODO: add XCURSOR_PATH=.../share/icons to profile search paths, so
5535 ;; libXcursor finds cursors installed into a profile.  If we solve bugs
5536 ;; <http://bugs.gnu.org/20255> and <http://bugs.gnu.org/22138>, we can fix
5537 ;; this with a search-path as follows:
5538 ;;
5539 ;;    (native-search-paths
5540 ;;     (list (search-path-specification
5541 ;;            (variable "XCURSOR_PATH")
5542 ;;            (files '("share/icons")))))
5543     (home-page "https://www.x.org/wiki/")
5544     (synopsis "Xorg Cursor management library")
5545     (description "Xorg Cursor management library.")
5546     (license license:x11)))
5547
5548 (define-public libxt
5549   (package
5550     (name "libxt")
5551     (version "1.2.0")
5552     (source
5553       (origin
5554         (method url-fetch)
5555         (uri (string-append
5556                "mirror://xorg/individual/lib/libXt-"
5557                version
5558                ".tar.bz2"))
5559         (sha256
5560           (base32
5561            "0cbqlyssr8aia88c8i7z59z9d0kp3p2hp6683xhz9ndyv8qza7dk"))
5562         (patches (search-patches "libxt-guix-search-paths.patch"))))
5563     (build-system gnu-build-system)
5564     (outputs '("out"
5565                "doc"))                            ;2 MiB of man pages + XML
5566     (arguments
5567      `(#:configure-flags
5568        (list (string-append "--mandir="
5569                             (assoc-ref %outputs "doc")
5570                             "/share/man")
5571              "--disable-static"
5572              ;; Disable zero malloc check that fails when cross-compiling.
5573              ,@(if (%current-target-system)
5574                    '("--disable-malloc0returnsnull")
5575                    '()))))
5576     (propagated-inputs
5577       `(("libx11" ,libx11)
5578         ("libice" ,libice)
5579         ("libsm" ,libsm)))
5580     (inputs
5581       `(("libx11" ,libx11)))
5582     (native-inputs
5583       `(("pkg-config" ,pkg-config)))
5584     (home-page "https://www.x.org/wiki/")
5585     (synopsis "Xorg XToolkit Intrinsics library")
5586     (description "Xorg XToolkit Intrinsics library.")
5587     (license license:x11)))
5588
5589
5590 (define-public libxaw
5591   (package
5592     (name "libxaw")
5593     (version "1.0.13")
5594     (source
5595       (origin
5596         (method url-fetch)
5597         (uri (string-append
5598                "mirror://xorg/individual/lib/libXaw-"
5599                version
5600                ".tar.bz2"))
5601         (sha256
5602           (base32
5603             "1kdhxplwrn43d9jp3v54llp05kwx210lrsdvqb6944jp29rhdy4f"))))
5604     (build-system gnu-build-system)
5605     (arguments
5606      '(#:configure-flags '("--disable-static")))
5607     (propagated-inputs
5608       `(("libxext" ,libxext)
5609         ("libxmu" ,libxmu)
5610         ("libxpm" ,libxpm)
5611         ("libxt" ,libxt)))
5612     (inputs
5613       `(("xorgproto" ,xorgproto)))
5614     (native-inputs
5615       `(("pkg-config" ,pkg-config)))
5616     (home-page "https://www.x.org/wiki/")
5617     (synopsis "Xorg Xaw library")
5618     (description
5619      "Xaw is the X Athena Widget Set based on the X Toolkit
5620 Intrinsics (Xt) Library.")
5621     (license license:x11)))
5622
5623 (define-public twm
5624   (package
5625     (name "twm")
5626     (version "1.0.10")
5627     (source
5628      (origin
5629        (method url-fetch)
5630        (uri (string-append
5631              "mirror://xorg/individual/app/" name "-"
5632              version
5633              ".tar.bz2"))
5634        (sha256
5635         (base32
5636          "1ms5cj1w3g26zg6bxdv1j9hl0pxr4300qnv003cz1q3cl7ffljb4"))))
5637     (build-system gnu-build-system)
5638     (inputs
5639      `(("libxt" ,libxt)
5640        ("libxmu" ,libxmu)
5641        ("libxext" ,libxext)
5642        ("xorgproto" ,xorgproto)))
5643     (native-inputs
5644      `(("bison" ,bison)
5645        ("pkg-config" ,pkg-config)))
5646     (home-page "https://www.x.org/wiki/")
5647     (synopsis "Tab Window Manager for the X Window System")
5648     (description "Twm is a window manager for the X Window System.
5649 It provides titlebars, shaped windows, several forms of icon management,
5650 user-defined macro functions, click-to-type and pointer-driven
5651 keyboard focus, and user-specified key and pointer button bindings.")
5652     (license license:x11)))
5653
5654 (define-public xcb-util
5655   (package
5656     (name "xcb-util")
5657     (version "0.4.0")
5658     (source (origin
5659              (method url-fetch)
5660              (uri (string-append "mirror://xorg/individual/xcb/"
5661                                  name "-" version ".tar.bz2"))
5662              (sha256
5663               (base32
5664                "1sahmrgbpyki4bb72hxym0zvxwnycmswsxiisgqlln9vrdlr9r26"))))
5665     (build-system gnu-build-system)
5666     (arguments
5667      '(#:configure-flags '("--disable-static")))
5668     (propagated-inputs
5669      `(("libxcb" ,libxcb)))
5670     (native-inputs
5671      `(("pkg-config" ,pkg-config)))
5672     (home-page "https://cgit.freedesktop.org/xcb/util/")
5673     (synopsis "Core XCB utility functions")
5674     (description
5675      "The XCB util module provides a number of libraries which sit on
5676 top of libxcb, the core X protocol library, and some of the extension
5677 libraries.  These experimental libraries provide convenience functions
5678 and interfaces which make the raw X protocol more usable.  Some of the
5679 libraries also provide client-side code which is not strictly part of
5680 the X protocol but which has traditionally been provided by Xlib.
5681
5682 The XCB util module provides the following libraries:
5683
5684 - aux: Convenient access to connection setup and some core requests.
5685
5686 - atom: Standard core X atom constants and atom caching.
5687
5688 - event: Some utilities that have little to do with events any more.")
5689     (license license:x11)))
5690
5691
5692 (define-public xcb-util-cursor
5693   (package
5694     (name "xcb-util-cursor")
5695     (version "0.1.3")
5696     (source (origin
5697               (method url-fetch)
5698               (uri (string-append "https://xcb.freedesktop.org/dist/"
5699                                   "xcb-util-cursor-" version ".tar.bz2"))
5700               (sha256
5701                (base32
5702                 "0krr4rcw6r42cncinzvzzdqnmxk3nrgpnadyg2h8k9x10q3hm885"))))
5703     (build-system gnu-build-system)
5704     (arguments
5705      '(#:configure-flags '("--disable-static")))
5706     (native-inputs
5707      `(("m4" ,m4)
5708        ("pkg-config" ,pkg-config)))
5709     (inputs
5710      `(("libxcb" ,libxcb)))
5711     (propagated-inputs
5712      `(("xcb-util-renderutil" ,xcb-util-renderutil)
5713        ("xcb-util-image" ,xcb-util-image)))
5714     (home-page "https://cgit.freedesktop.org/xcb/util-cursor/")
5715     (synopsis "Port of libxcursor")
5716     (description "XCB-util-cursor is a port of libxcursor.")
5717     (license
5718      ; expat license  with added clause regarding advertising
5719      (license:non-copyleft
5720       "file://COPYING"
5721       "See COPYING in the distribution."))))
5722
5723 (define-public xcb-util-errors
5724   (let ((commit "5d660ebe872cadcdc85de9d6f9afe05de629c030")
5725         (revision "1"))
5726     (package
5727       (name "xcb-util-errors")
5728       (version (git-version "1.0" revision commit))
5729       (source (origin
5730                 (method git-fetch)
5731                 (uri (git-reference
5732                       (url "https://anongit.freedesktop.org/git/xcb/util-errors.git")
5733                       (commit commit)
5734                       (recursive? #t)))
5735                 (file-name (git-file-name name version))
5736                 (sha256
5737                  (base32
5738                   "12bah0iz5k6b9hwlc5zffyfg2gnrajll3gn5s8zmazgynvw72ahg"))))
5739      (build-system gnu-build-system)
5740      (outputs '("out"))
5741      (inputs
5742       `(("util-macros" ,util-macros)
5743         ("xcb-proto" ,xcb-proto)))
5744      (propagated-inputs
5745       `(("libxcb" ,libxcb)))
5746      (native-inputs
5747       `(("autoconf" ,autoconf)
5748         ("automake" ,automake)
5749         ("libtool" ,libtool)
5750         ("python-2" ,python-2)
5751         ("pkg-config" ,pkg-config)))
5752      (arguments
5753       `(#:phases
5754         (modify-phases %standard-phases
5755           (replace 'bootstrap
5756             (lambda _
5757               ;; The default 'bootstrap' phase would run 'autogen.sh', which
5758               ;; would try to run ./configure and fail due to unpatched
5759               ;; shebangs.
5760               (invoke "autoreconf" "-v" "--install"))))))
5761      (home-page "https://cgit.freedesktop.org/xcb/util-errors/")
5762      (synopsis "XCB helper library for printing information about X11 errors")
5763      (description
5764       "The XCB util module provides a number of libraries which sit on
5765 top of libxcb, the core X protocol library, and some of the extension
5766 libraries.  These experimental libraries provide convenience functions
5767 and interfaces which make the raw X protocol more usable.  Some of the
5768 libraries also provide client-side code which is not strictly part of
5769 the X protocol but which has traditionally been provided by Xlib.
5770
5771 The XCB util-errors module provides a utility library that gives human
5772 readable names to error codes, event codes, and also to major and minor
5773 numbers.")
5774      (license license:x11))))
5775
5776 (define-public xcb-util-image
5777   (package
5778     (name "xcb-util-image")
5779     (version "0.4.0")
5780     (source (origin
5781              (method url-fetch)
5782              (uri (string-append "mirror://xorg/individual/xcb/"
5783                                  name "-" version ".tar.bz2"))
5784              (sha256
5785               (base32
5786                "1z1gxacg7q4cw6jrd26gvi5y04npsyavblcdad1xccc8swvnmf9d"))))
5787     (build-system gnu-build-system)
5788     (arguments
5789      '(#:configure-flags '("--disable-static")))
5790     (propagated-inputs
5791      `(("libxcb" ,libxcb)))
5792     (inputs
5793      `(("xcb-util" ,xcb-util)))
5794     (native-inputs
5795      `(("pkg-config" ,pkg-config)))
5796     (home-page "https://cgit.freedesktop.org/xcb/util-image/")
5797     (synopsis "XCB port of Xlib's XImage and XShmImage")
5798     (description
5799      "The XCB util module provides a number of libraries which sit on
5800 top of libxcb, the core X protocol library, and some of the extension
5801 libraries.  These experimental libraries provide convenience functions
5802 and interfaces which make the raw X protocol more usable.  Some of the
5803 libraries also provide client-side code which is not strictly part of
5804 the X protocol but which has traditionally been provided by Xlib.
5805
5806 The XCB util-image module provides the following library:
5807
5808 - image: Port of Xlib's XImage and XShmImage functions.")
5809     (license license:x11)))
5810
5811
5812 (define-public xcb-util-keysyms
5813   (package
5814     (name "xcb-util-keysyms")
5815     (version "0.4.0")
5816     (source (origin
5817              (method url-fetch)
5818              (uri (string-append "mirror://xorg/individual/xcb/"
5819                                  name "-" version ".tar.bz2"))
5820              (sha256
5821               (base32
5822                "1nbd45pzc1wm6v5drr5338j4nicbgxa5hcakvsvm5pnyy47lky0f"))))
5823     (build-system gnu-build-system)
5824     (arguments
5825      '(#:configure-flags '("--disable-static")))
5826     (propagated-inputs
5827      `(("libxcb" ,libxcb)))
5828     (native-inputs
5829      `(("pkg-config" ,pkg-config)))
5830     (home-page "https://cgit.freedesktop.org/xcb/util-keysyms/")
5831     (synopsis "Standard X constants and conversion to/from keycodes")
5832     (description
5833      "The XCB util module provides a number of libraries which sit on
5834 top of libxcb, the core X protocol library, and some of the extension
5835 libraries.  These experimental libraries provide convenience functions
5836 and interfaces which make the raw X protocol more usable.  Some of the
5837 libraries also provide client-side code which is not strictly part of
5838 the X protocol but which has traditionally been provided by Xlib.
5839
5840 The XCB util-keysyms module provides the following library:
5841
5842 - keysyms: Standard X key constants and conversion to/from keycodes.")
5843     (license license:x11)))
5844
5845
5846 (define-public xcb-util-renderutil
5847   (package
5848     (name "xcb-util-renderutil")
5849     (version "0.3.9")
5850     (source (origin
5851              (method url-fetch)
5852              (uri (string-append "mirror://xorg/individual/xcb/"
5853                                  name "-" version ".tar.bz2"))
5854              (sha256
5855               (base32
5856                "0nza1csdvvxbmk8vgv8vpmq7q8h05xrw3cfx9lwxd1hjzd47xsf6"))))
5857     (build-system gnu-build-system)
5858     (arguments
5859      '(#:configure-flags '("--disable-static")))
5860     (propagated-inputs
5861      `(("libxcb" ,libxcb)))
5862     (native-inputs
5863      `(("pkg-config" ,pkg-config)))
5864     (home-page "https://cgit.freedesktop.org/xcb/util-renderutil/")
5865     (synopsis "Convenience functions for the Render extension")
5866     (description
5867      "The XCB util module provides a number of libraries which sit on
5868 top of libxcb, the core X protocol library, and some of the extension
5869 libraries.  These experimental libraries provide convenience functions
5870 and interfaces which make the raw X protocol more usable.  Some of the
5871 libraries also provide client-side code which is not strictly part of
5872 the X protocol but which has traditionally been provided by Xlib.
5873
5874 The XCB util-renderutil module provides the following library:
5875
5876 - renderutil: Convenience functions for the Render extension.")
5877     (license license:x11)))
5878
5879
5880 (define-public xcb-util-wm
5881   (package
5882     (name "xcb-util-wm")
5883     (version "0.4.1")
5884     (source (origin
5885              (method url-fetch)
5886              (uri (string-append "mirror://xorg/individual/xcb/"
5887                                  name "-" version ".tar.bz2"))
5888              (sha256
5889               (base32
5890                "0gra7hfyxajic4mjd63cpqvd20si53j1q3rbdlkqkahfciwq3gr8"))))
5891     (build-system gnu-build-system)
5892     (arguments
5893      '(#:configure-flags '("--disable-static")))
5894     (propagated-inputs
5895      `(("libxcb" ,libxcb)))
5896     (native-inputs
5897      `(("m4" ,m4)
5898        ("pkg-config" ,pkg-config)))
5899     (home-page "https://cgit.freedesktop.org/xcb/util-wm/")
5900     (synopsis "Client and window-manager helpers for ICCCM and EWMH")
5901     (description
5902      "The XCB util modules provides a number of libraries which sit on
5903 top of libxcb, the core X protocol library, and some of the extension
5904 libraries.  These experimental libraries provide convenience functions
5905 and interfaces which make the raw X protocol more usable.  Some of the
5906 libraries also provide client-side code which is not strictly part of
5907 the X protocol but which has traditionally been provided by Xlib.
5908
5909 The XCB util-wm module provides the following libraries:
5910
5911 - ewmh: Both client and window-manager helpers for EWMH.
5912
5913 - icccm: Both client and window-manager helpers for ICCCM.")
5914     (license license:x11)))
5915
5916 (define-public xinit
5917   (package
5918     (name "xinit")
5919     (version "1.4.1")
5920     (source (origin
5921               (method url-fetch)
5922               (uri (string-append "mirror://xorg/individual/app/xinit-"
5923                                   version ".tar.bz2"))
5924               (sha256
5925                (base32
5926                 "1fdbakx59vyh474skjydj1bbglpby3y03nl7mxn0z9v8gdhqz6yy"))))
5927     (build-system gnu-build-system)
5928     (inputs
5929      `(("xorgproto" ,xorgproto)
5930        ("libx11" ,libx11)))
5931     (native-inputs
5932      `(("pkg-config" ,pkg-config)))
5933     (propagated-inputs
5934      `(("xauth" ,xauth)))
5935     (home-page "https://www.x.org/")
5936     (synopsis "Commands to start the X Window server")
5937     (description
5938      "The xinit program is used to start the X Window System server and a
5939 first client program on systems that are not using a display manager such as
5940 xdm.  This package also provides the @code{startx} command, which provides a
5941 user-friendly mechanism to start the X server.")
5942     (license license:x11)))
5943
5944 ;; package outside the x.org system proper of height 5
5945
5946 (define-public libxaw3d
5947   (package
5948     (name "libxaw3d")
5949     (version "1.6.3")
5950     (source
5951       (origin
5952         (method url-fetch)
5953         (uri (string-append
5954                "mirror://xorg/individual/lib/libXaw3d-"
5955                version
5956                ".tar.bz2"))
5957         (sha256
5958           (base32
5959             "0i653s8g25cc0mimkwid9366bqkbyhdyjhckx7bw77j20hzrkfid"))))
5960     (build-system gnu-build-system)
5961     (propagated-inputs
5962       `(("libxext" ,libxext)
5963         ("libxmu" ,libxmu)
5964         ("libxt" ,libxt)))
5965     (inputs
5966      `(("libx11" ,libx11)))
5967     (native-inputs
5968      `(("pkg-config" ,pkg-config)))
5969     (home-page "https://www.x.org/wiki/")
5970     (synopsis "Xorg Xaw3d library")
5971     (description
5972      "Xaw is the X 3D Athena Widget Set based on the X Toolkit
5973 Intrinsics (Xt) Library.")
5974     (license license:x11)))
5975
5976 (define-public xclock
5977   (package
5978     (name "xclock")
5979     (version "1.0.9")
5980     (source
5981      (origin
5982        (method url-fetch)
5983        (uri (string-append "https://www.x.org/releases/individual/app/"
5984                            "xclock-" version ".tar.bz2"))
5985        (sha256
5986         (base32 "1fr3q4rszgx7x2zxy2ip592a3fgx20hfwac49p2l5b7jqsr1ying"))))
5987     (build-system gnu-build-system)
5988     (arguments
5989      `(#:configure-flags
5990        (list (string-append "--with-appdefaultdir="
5991                             %output ,%app-defaults-dir))))
5992     (inputs
5993      `(("libxmu" ,libxmu)
5994        ("libx11" ,libx11)
5995        ("libxaw" ,libxaw)
5996        ("libxrender" ,libxrender)
5997        ("libxft" ,libxft)
5998        ("libxkbfile" ,libxkbfile)))
5999     (native-inputs
6000      `(("pkg-config" ,pkg-config)))
6001     (home-page "https://gitlab.freedesktop.org/xorg/app/xclock")
6002     (synopsis "Analog / digital clock for X")
6003     (description "The xclock program displays the time in analog or digital
6004 form.")
6005     (license (license:x11-style "file://COPYING" "See COPYING for details."))))
6006
6007 (define-public xmag
6008   (package
6009     (name "xmag")
6010     (version "1.0.6")
6011     (source
6012      (origin
6013        (method url-fetch)
6014        (uri (string-append
6015              "mirror://xorg/individual/app/" name "-"
6016              version
6017              ".tar.gz"))
6018        (sha256
6019         (base32
6020          "19bsg5ykal458d52v0rvdx49v54vwxwqg8q36fdcsv9p2j8yri87"))))
6021     (build-system gnu-build-system)
6022     (arguments
6023      `(#:configure-flags
6024        (list (string-append "--with-appdefaultdir="
6025                             %output ,%app-defaults-dir))))
6026     (inputs
6027      `(("libxaw" ,libxaw)))
6028     (native-inputs
6029      `(("pkg-config" ,pkg-config)))
6030     (home-page "https://www.x.org/wiki/")
6031     (synopsis "Display or capture a magnified part of a X11 screen")
6032     (description "Xmag displays and captures a magnified snapshot of a portion
6033 of an X11 screen.")
6034     (license license:x11)))
6035
6036 (define-public xmessage
6037   (package
6038     (name "xmessage")
6039     (version "1.0.5")
6040     (source
6041      (origin
6042        (method url-fetch)
6043        (uri (string-append
6044              "mirror://xorg/individual/app/" name "-"
6045              version
6046              ".tar.gz"))
6047        (sha256
6048         (base32
6049          "0sw0b0cbrjl44brw7qi1jkm61xd7a1lpj04418c6iqk6mf83llwr"))))
6050     (build-system gnu-build-system)
6051     (arguments
6052      `(#:configure-flags
6053        (list (string-append "--with-appdefaultdir="
6054                             %output ,%app-defaults-dir))))
6055     (inputs
6056      `(("libxaw" ,libxaw)))
6057     (native-inputs
6058      `(("pkg-config" ,pkg-config)))
6059     (home-page "https://www.x.org/wiki/")
6060     (synopsis "Displays a message or query in a window")
6061     (description
6062      "Xmessage displays a message or query in a window.   The user can click
6063 on a button to dismiss it or can select one of several buttons
6064 to answer a question.  Xmessage can also exit after a specified time.")
6065     (license license:x11)))
6066
6067 (define-public xterm
6068   (package
6069     (name "xterm")
6070     (version "353")
6071     (source (origin
6072               (method url-fetch)
6073               (uri (list
6074                     (string-append "http://invisible-mirror.net/archives/xterm/"
6075                                    "xterm-" version ".tgz")
6076                     (string-append "ftp://ftp.invisible-island.net/xterm/"
6077                                    "xterm-" version ".tgz")))
6078               (sha256
6079                (base32
6080                 "0s5pkfn4r8iy09s1q1y78zhnr9f3sm6wgbqir7azaqggkppd68g5"))))
6081     (build-system gnu-build-system)
6082     (arguments
6083      '(#:configure-flags '("--enable-wide-chars" "--enable-load-vt-fonts"
6084                            "--enable-i18n" "--enable-doublechars"
6085                            "--enable-luit" "--enable-mini-luit")
6086        #:tests? #f))
6087     (native-inputs
6088      `(("pkg-config" ,pkg-config)))
6089     (inputs
6090      `(("luit" ,luit)
6091        ("libXft" ,libxft)
6092        ("fontconfig" ,fontconfig)
6093        ("freetype" ,freetype)
6094        ("ncurses" ,ncurses)
6095        ("libICE" ,libice)
6096        ("libSM" ,libsm)
6097        ("libX11" ,libx11)
6098        ("libXext" ,libxext)
6099        ("libXt" ,libxt)
6100        ("xorgproto" ,xorgproto)
6101        ("libXaw" ,libxaw)))
6102     (home-page "https://invisible-island.net/xterm/")
6103     (synopsis "Terminal emulator for the X Window System")
6104     (description
6105      "The xterm program is a terminal emulator for the X Window System.  It
6106 provides DEC VT102/VT220 (VTxxx) and Tektronix 4014 compatible terminals for
6107 programs that cannot use the window system directly.")
6108     (license license:x11)))
6109
6110 (define-public perl-x11-xcb
6111   (package
6112     (name "perl-x11-xcb")
6113     (version "0.18")
6114     (source (origin
6115               (method url-fetch)
6116               (uri (string-append
6117                     "mirror://cpan/authors/id/M/MS/MSTPLBG/"
6118                     "X11-XCB-" version ".tar.gz"))
6119               (sha256
6120                (base32
6121                 "1cjpghw7cnackw20lbd7yzm222kz5bnrwz52f8ay24d1f4pwrnxf"))))
6122     (build-system perl-build-system)
6123     (arguments
6124      '(;; Disable parallel build to prevent a race condition.
6125        #:parallel-build? #f
6126        #:phases
6127        (modify-phases %standard-phases
6128          (add-before 'configure 'set-perl-search-path
6129            (lambda _
6130              (setenv "PERL5LIB"
6131                      (string-append (getcwd) ":"
6132                                     (getenv "PERL5LIB")))
6133              #t))
6134          (add-before 'build 'patch-Makefile
6135            (lambda* (#:key inputs #:allow-other-keys)
6136              (substitute* "Makefile"
6137                ;; XXX: Without this hack, attempts at using XCB.so fails with
6138                ;; an error such as "XCB.so: undefined symbol: xcb_xinerama_id"
6139                (("^LDDLFLAGS = ")
6140                 (string-append "LDDLFLAGS = "
6141                                "-lxcb -lxcb-util -lxcb-xinerama -lxcb-icccm ")))
6142              #t)))
6143        ;; Tests require a running X11 server.
6144        #:tests? #f))
6145     (native-inputs
6146      `(("perl-extutils-depends" ,perl-extutils-depends)
6147        ("perl-extutils-pkgconfig" ,perl-extutils-pkgconfig)
6148        ("perl-module-install" ,perl-module-install)
6149        ("perl-test-deep" ,perl-test-deep)
6150        ("perl-test-exception" ,perl-test-exception)))
6151     (propagated-inputs
6152      `(("perl-data-dump" ,perl-data-dump)
6153        ("perl-mouse" ,perl-mouse)
6154        ("perl-mousex-nativetraits" ,perl-mousex-nativetraits)
6155        ("perl-try-tiny" ,perl-try-tiny)
6156        ("perl-xml-descent" ,perl-xml-descent)
6157        ("perl-xml-simple" ,perl-xml-simple)
6158        ("perl-xs-object-magic" ,perl-xs-object-magic)))
6159     (inputs
6160      `(("libxcb" ,libxcb)
6161        ("xcb-proto" ,xcb-proto)
6162        ("xcb-util" ,xcb-util)
6163        ("xcb-util-wm" ,xcb-util-wm)))
6164     (home-page "https://metacpan.org/release/X11-XCB")
6165     (synopsis "Perl bindings for libxcb")
6166     (description
6167      "These bindings wrap @code{libxcb} (a C library to speak with X11,
6168 in many cases better than @code{Xlib}), and provides an object oriented
6169 interface to its methods (using @code{Mouse}).")
6170     (license license:perl-license)))
6171
6172 (define-public perl-x11-protocol
6173   (package
6174     (name "perl-x11-protocol")
6175     (version "0.56")
6176     (source (origin
6177              (method url-fetch)
6178              (uri (string-append
6179                    "mirror://cpan/authors/id/S/SM/SMCCAM/X11-Protocol-"
6180                    version ".tar.gz"))
6181              (sha256
6182               (base32
6183                "1dq89bh6fqv7l5mbffqcismcljpq5f869bx7g8lg698zgindv5ny"))))
6184     (build-system perl-build-system)
6185     (arguments '(#:tests? #f))          ;tests require a running x server
6186     (synopsis "Raw interface to X Window System servers")
6187     (description
6188      "X11::Protocol is a client-side interface to the X11 Protocol, allowing
6189 perl programs to display windows and graphics on X11 servers.")
6190     (home-page "https://metacpan.org/release/X11-Protocol")
6191     ;; From the package README: "you can redistribute and/or modify it under
6192     ;; the same terms as Perl itself. (As an exception, the file
6193     ;; Keysyms.pm,which is derived from a file in the standard X11
6194     ;; distribution, has another, less restrictive copying policy, as do some
6195     ;; of the extension modules in the directory Protocol/Ext: see those files
6196     ;; for details)."
6197     (license license:perl-license)))
6198
6199 (define-public perl-x11-protocol-other
6200   (package
6201     (name "perl-x11-protocol-other")
6202     (version "31")
6203     (source
6204      (origin
6205        (method url-fetch)
6206        (uri (string-append
6207              "mirror://cpan/authors/id/K/KR/KRYDE/X11-Protocol-Other-"
6208              version ".tar.gz"))
6209        (sha256
6210         (base32 "1x3kvic52jgp2mvd5wzrqrprqi82cdk8l4075v8b33ksvj9mjqiw"))))
6211     (build-system perl-build-system)
6212     (native-inputs
6213      `(("perl-encode-hanextra" ,perl-encode-hanextra)
6214        ("perl-module-util" ,perl-module-util)))
6215     (propagated-inputs
6216      `(("perl-x11-protocol" ,perl-x11-protocol)))
6217     (home-page "https://metacpan.org/release/X11-Protocol-Other")
6218     (synopsis "Miscellaneous helpers for @code{X11::Protocol} connections")
6219     (description
6220      "@code{X11::Protocol::Other} contains window manager related functions for
6221 use by client programs, as per the @dfn{ICCCM} (Inter-Client Communication
6222 Conventions Manual) and some of the @dfn{EWMH}
6223 (Extended Window Manager Hints).")
6224     (license license:gpl3+)))
6225
6226 (define-public xcompmgr
6227   (package
6228     (name "xcompmgr")
6229     (version "1.1.8")
6230     (source
6231      (origin
6232        ;; There's no current tarball.
6233        (method git-fetch)
6234        (uri (git-reference
6235              (url "https://anongit.freedesktop.org/git/xorg/app/xcompmgr.git")
6236              (commit (string-append "xcompmgr-" version))))
6237        (sha256
6238         (base32 "11i7vyk3pynw8q8aczpy56qncm84y0cmhlvyja3sj8dgy60g03q2"))
6239        (file-name (git-file-name name version))))
6240     (build-system gnu-build-system)
6241     (native-inputs
6242      `(("pkg-config" ,pkg-config)
6243        ("autoconf" ,autoconf)
6244        ("automake" ,automake)))
6245     (inputs
6246      `(("libX11" ,libx11)
6247        ("libXext" ,libxext)
6248        ("libXcomposite" ,libxcomposite)
6249        ("libXfixes" ,libxfixes)
6250        ("libXdamage" ,libxdamage)
6251        ("libXrender" ,libxrender)))
6252     (synopsis "X Compositing manager using RENDER")
6253     (description "xcompmgr is a sample compositing manager for X servers
6254 supporting the XFIXES, DAMAGE, RENDER, and COMPOSITE extensions.  It enables
6255 basic eye-candy effects.")
6256     (home-page "https://cgit.freedesktop.org/xorg/app/xcompmgr/")
6257     (license (license:x11-style
6258               "https://cgit.freedesktop.org/xorg/app/xcompmgr/tree/COPYING"))))
6259
6260 (define-public xpra
6261   (package
6262     (name "xpra")
6263     (version "2.5.3")
6264     (source
6265      (origin
6266        (method url-fetch)
6267        (uri (string-append "https://www.xpra.org/src/xpra-"
6268                            version ".tar.xz"))
6269        (sha256
6270         (base32
6271          "1ys35lj28903alccks9p055psy1fsk1nxi8ncchvw8bfxkkkvbys"))))
6272     (build-system python-build-system)
6273     (inputs `(("ffmpeg" ,ffmpeg)
6274               ("flac" ,flac)
6275               ("gtk+-2" ,gtk+-2) ;; no full GTK3 support yet
6276               ("libjpeg" ,libjpeg-turbo)
6277               ("libpng" ,libpng)
6278               ("libvpx" ,libvpx)
6279               ("libx264" ,libx264)
6280               ("libxcomposite" ,libxcomposite)
6281               ("libxdamage" ,libxdamage)
6282               ("libxi" ,libxi)
6283               ("libxkbfile" ,libxkbfile)
6284               ("libxrandr" ,libxrandr)
6285               ("libxtst" ,libxtst)
6286               ("lzo" ,lzo)
6287               ("python2-cryptography" ,python2-cryptography)
6288               ("python2-dbus" ,python2-dbus)
6289               ("python2-lz4" ,python2-lz4)
6290               ("python2-lzo" ,python2-lzo)
6291               ("python2-netifaces" ,python2-netifaces)
6292               ("python2-numpy" ,python2-numpy)
6293               ("python2-pillow" ,python2-pillow)
6294               ("python2-pycairo" ,python2-pycairo)
6295               ("python2-pycrypto" ,python2-pycrypto)
6296               ("python2-pygobject" ,python2-pygobject)
6297               ("python2-pyopengl" ,python2-pyopengl)
6298               ("python2-pyopengl-accelerate" ,python2-pyopengl-accelerate)
6299               ("python2-pygtk" ,python2-pygtk)
6300               ("python2-rencode" ,python2-rencode)
6301               ("xorg-server" ,xorg-server)))
6302     (native-inputs `(("pkg-config" ,pkg-config)
6303                      ("python2-cython" ,python2-cython)))
6304     (arguments
6305      `(#:python ,python-2 ;; no full Python 3 support yet
6306        #:configure-flags '("--with-tests"
6307                            "--with-bundle_tests"
6308                            "--without-Xdummy" ;; We use Xvfb instead.
6309                            "--without-Xdummy_wrapper"
6310                            "--without-strict")
6311        #:modules ((guix build python-build-system)
6312                   (guix build utils))
6313
6314        #:phases
6315        (modify-phases %standard-phases
6316          (delete 'build)
6317          (delete 'check) ;; There's no test suite at the moment.
6318
6319          ;; Remove BUILD_CPU, BUILD_DATE, BUILD_TIME from build info to
6320          ;; prevent deterministic issues.  Also correct some directories and
6321          ;; use the xvfb binary instead of xorg-server (which doesn't seem to
6322          ;; work).
6323          (add-before 'install 'remove-timestamps&set-file-names
6324            (lambda* (#:key inputs outputs #:allow-other-keys)
6325              (substitute* "add_build_info.py"
6326                ((".*\"BUILD_CPU\", get_cpuinfo.*") ""))
6327              (substitute* "add_build_info.py"
6328                ((".*\"BUILD_DATE\", datetime.*") ""))
6329              (substitute* "add_build_info.py"
6330                ((".*\"BUILD_TIME\", datetime.*") ""))
6331              (substitute* "setup.py"
6332                (("/etc/init.d/")
6333                 (string-append (assoc-ref outputs "out")
6334                                "/etc/init.d/")))
6335              (substitute* "setup.py"
6336                (("/usr/lib/")
6337                 (string-append (assoc-ref outputs "out") "/lib/")))
6338              ;; Use Xvfb with '-nolisten local' to disable abstract X11 sockets.
6339              (substitute* "./xpra/scripts/config.py"
6340                ((":.*join.*xvfb.*")
6341                 (string-append ": \"" (assoc-ref inputs "xorg-server")
6342                                "/bin/Xvfb +extension Composite"
6343                                " -screen 0 5760x2560x24+32 -dpi 96 -nolisten"
6344                                " tcp -nolisten local -noreset -auth"
6345                                " $XAUTHORITY\",\n")))
6346              (substitute* "./xpra/scripts/config.py"
6347                (("socket-dir.*: \"\",")
6348                 "socket-dir\"        : \"~/.xpra\","))
6349              #t)))))
6350     (home-page "https://www.xpra.org/")
6351     (synopsis "Remote access to individual applications or full desktops")
6352     (description "Xpra is a persistent remote display server and client for
6353 forwarding applications and desktop screens.  It gives you remote access to
6354 individual applications or full desktops.  On X11, it is also known as
6355 ``@command{screen} for X11'': it allows you to run programs, usually on a
6356 remote host, direct their display to your local machine, and then to
6357 disconnect from these programs and reconnect from the same or another machine,
6358 without losing any state.  It can also be used to forward full desktops from
6359 X11 servers, Windows, or macOS.")
6360     (license license:gpl2+)))
6361
6362 (define-public uim
6363   (package
6364     (name "uim")
6365     (version "1.8.8")
6366     (source
6367      (origin
6368        (method url-fetch)
6369        (uri (string-append "https://github.com/uim/uim/releases/download/"
6370                            version "/uim-" version ".tar.bz2"))
6371        (sha256
6372         (base32
6373          "1p7sl0js47ja4glmax93ci59h02ipqw3wxkh4f1qgaz5qjy9nn9l"))))
6374     (build-system gnu-build-system)
6375     (inputs
6376      `(("anthy" ,anthy)
6377        ("libedit" ,libedit)
6378        ("libxft" ,libxft)
6379        ("m17n-lib" ,m17n-lib)))
6380     (native-inputs
6381      `(("emacs" ,emacs-minimal)
6382        ("intltool" ,intltool)
6383        ("pkg-config" ,pkg-config)))
6384     (arguments
6385      `(#:modules ((guix build gnu-build-system)
6386                   (guix build utils)
6387                   (guix build emacs-utils))
6388        #:imported-modules (,@%gnu-build-system-modules
6389                            (guix build emacs-utils))
6390        #:configure-flags
6391        (list "--with-anthy-utf8"
6392              (string-append "--with-lispdir=" %output "/share/emacs")
6393              ;; Set proper runpath
6394              (string-append "LDFLAGS=-Wl,-rpath=" %output "/lib"))
6395        #:phases
6396        (modify-phases %standard-phases
6397          ;; Set path of uim-el-agent and uim-el-helper-agent executables
6398          (add-after 'configure 'configure-uim-el
6399            (lambda* (#:key outputs #:allow-other-keys)
6400              (let ((out (assoc-ref outputs "out")))
6401                (emacs-substitute-variables "emacs/uim-var.el"
6402                  ("uim-el-agent" (string-append out "/bin/uim-el-agent"))
6403                  ("uim-el-helper-agent" (string-append out "/bin/uim-el-helper-agent"))))
6404              #t))
6405          ;; Fix installation path by renaming share/emacs/uim-el to
6406          ;; share/emacs/site-lisp
6407          (add-after 'install 'fix-install-path
6408            (lambda* (#:key outputs #:allow-other-keys)
6409              (let ((share-emacs (string-append (assoc-ref outputs "out")
6410                                                "/share/emacs")))
6411                (rename-file (string-append share-emacs "/uim-el")
6412                             (string-append share-emacs "/site-lisp")))
6413              #t))
6414          ;; Generate emacs autoloads for uim.el
6415          (add-after 'fix-install-path 'make-autoloads
6416            (lambda* (#:key outputs #:allow-other-keys)
6417              (emacs-generate-autoloads
6418               ,name (string-append (assoc-ref outputs "out")
6419                                    "/share/emacs/site-lisp"))
6420              #t)))))
6421     (home-page "https://github.com/uim/uim")
6422     (synopsis "Multilingual input method framework")
6423     (description "Uim is a multilingual input method library and environment.
6424 It provides a simple, easily extensible and high code-quality input method
6425 development platform, and useful input method environment for users of desktop
6426 and embedded platforms.")
6427     (license (list license:lgpl2.1+ ; scm/py.scm, pixmaps/*.{svg,png} (see pixmaps/README)
6428                    license:gpl2+ ; scm/pinyin-big5.scm
6429                    license:gpl3+ ; scm/elatin-rules.cm
6430                    license:public-domain ; scm/input-parse.scm, scm/match.scm
6431                    ;; gtk2/toolbar/eggtrayicon.{ch},
6432                    ;; qt3/chardict/kseparator.{cpp,h},
6433                    ;; qt3/pref/kseparator.{cpp,h}
6434                    license:lgpl2.0+
6435                    ;; pixmaps/*.{svg,png} (see pixmaps/README),
6436                    ;; all other files
6437                    license:bsd-3))))
6438
6439 (define-public uim-gtk
6440   (package
6441     (inherit uim)
6442     (name "uim-gtk")
6443     (inputs
6444      `(("gtk" ,gtk+)
6445        ("gtk" ,gtk+-2)
6446        ,@(package-inputs uim)))
6447     (synopsis "Multilingual input method framework (GTK+ support)")))
6448
6449 (define-public uim-qt
6450   (package
6451     (inherit uim)
6452     (name "uim-qt")
6453     (inputs
6454      `(("qt" ,qtbase)
6455        ("qtx11extras" ,qtx11extras)
6456        ,@(package-inputs uim)))
6457     (arguments
6458      (substitute-keyword-arguments (package-arguments uim)
6459        ((#:configure-flags configure-flags)
6460         (append configure-flags (list "--with-qt5-immodule"
6461                                       "--with-qt5")))))
6462     (synopsis "Multilingual input method framework (Qt support)")))
6463
6464 (define-public keynav
6465   (package
6466     (name "keynav")
6467     (version "0.20110708.0")
6468     (source
6469      (origin
6470        (method url-fetch)
6471        (uri (string-append
6472              "http://http.debian.net/debian/pool/main/k/keynav/keynav_"
6473              version ".orig.tar.gz"))
6474        (file-name (string-append name "-" version ".tar.gz"))
6475        (sha256
6476         (base32
6477          "1gizjhji3yspxxxvb90js3z1bv18rbf5phxg8rciixpj3cccff8z"))))
6478     (build-system gnu-build-system)
6479     (inputs
6480      `(("cairo" ,cairo)
6481        ("glib" ,glib)
6482        ("libx11" ,libx11)
6483        ("libxext" ,libxext)
6484        ("libxinerama" ,libxinerama)
6485        ("libxtst" ,libxtst)
6486        ("xdotool" ,xdotool)))
6487     (native-inputs
6488      `(("pkg-config" ,pkg-config)))
6489     (arguments
6490      `(#:tests? #f ;No tests.
6491        #:phases
6492        (modify-phases %standard-phases
6493          (add-after 'unpack 'setenv
6494            (lambda _
6495              (setenv "CC" (which "gcc"))
6496              #t))
6497          (add-after 'unpack 'patch-keynav
6498            (lambda _
6499              (substitute* "keynav.c"
6500                (("xdo_symbol_map") "xdo_get_symbol_map")
6501                (("xdo_window_setclass") "xdo_set_window_class")
6502                (("xdo_window_get_active") "xdo_get_window_at_mouse")
6503                (("xdo_click") "xdo_click_window")
6504                (("xdo_mouseup") "xdo_mouse_up")
6505                (("xdo_mousedown") "xdo_mouse_down")
6506                (("xdo_mousemove") "xdo_move_mouse")
6507                (("xdo_mousemove_relative") "xdo_move_mouse_relative")
6508                (("xdo_mouselocation") "xdo_get_mouse_location")
6509                (("xdo_mouse_wait_for_move_to") "xdo_wait_for_mouse_move_to")
6510                (("xdo_keysequence_up") "xdo_send_keysequence_window_up")
6511                (("xdo_keysequence_down") "xdo_send_keysequence_window_down"))
6512              #t))
6513          (delete 'configure)
6514          (replace 'install
6515            (lambda* (#:key outputs #:allow-other-keys)
6516              (let ((out (assoc-ref outputs "out")))
6517                (install-file "keynav" (string-append out "/bin"))
6518                (install-file "keynavrc" (string-append out "/etc")))
6519              #t)))))
6520     (home-page "https://www.semicomplete.com/projects/keynav/")
6521     (synopsis "Keyboard-driven mouse cursor mover")
6522     (description
6523      "Keynav makes your keyboard a fast mouse cursor mover.  You can move the
6524 cursor to any point on the screen with a few key strokes.  It also simulates
6525 mouse click.  You can do everything mouse can do with a keyboard.")
6526     (license license:bsd-3)))
6527
6528 (define-public transset-df
6529   (package
6530     (name "transset-df")
6531     (version "6")
6532     (source (origin
6533               (method url-fetch)
6534               (uri (string-append "http://forchheimer.se/" name "/" name "-" version
6535                                   ".tar.gz"))
6536               (sha256
6537                (base32
6538                 "1vnykwwrv75miigbhmcwxniw8xnhsdyzhqydip2m9crxi2lwhqs5"))))
6539     (build-system gnu-build-system)
6540     (arguments
6541      '(#:phases
6542        (modify-phases %standard-phases
6543          (add-after 'unpack 'setenv
6544            (lambda _
6545              (setenv "CC" (which "gcc"))
6546              #t))
6547          (delete 'configure)
6548          (delete 'check)
6549          (replace 'install
6550            (lambda* (#:key outputs #:allow-other-keys)
6551              (let* ((out (assoc-ref outputs "out"))
6552                     (bin (string-append out "/bin")))
6553                (install-file "transset-df" bin)
6554                #t))))))
6555     (native-inputs
6556      `(("pkg-config" ,pkg-config)))
6557     (inputs `(("libxcomposite" ,libxcomposite)
6558               ("libxdamager" ,libxdamage)
6559               ("libxrender" ,libxrender)))
6560     (synopsis "Set the transparency of X11 windows")
6561     (description "The @command{transset-df} command allows you to set the
6562 opacity of X11 windows.  This patched version of X.Org's @command{transset}
6563 adds functionality, including: selecting window by clicking (as transset),
6564 selecting windows by pointing select actual focused X11 window, selecting by
6565 window name or id, forcing toggle, increase or decrease opacity.")
6566     (home-page "https://forchheimer.se/transset-df/")
6567     (license license:x11)))
6568
6569 (define-public bdfresize
6570   (package
6571     (name "bdfresize")
6572     (version "1.5-11")
6573     (source (origin
6574               ;; Former upstream at
6575               ;; <http://openlab.ring.gr.jp/efont/dist/tools/bdfresize/>
6576               ;; vanished so use Debian, which in practice is the new
6577               ;; upstream.
6578               (method git-fetch)
6579               (uri (git-reference
6580                     (url "https://salsa.debian.org/debian/bdfresize.git")
6581                     (commit (string-append "debian/" version))))
6582               (sha256
6583                (base32
6584                 "0n3i29wicak8n10vkkippym8yw4ir8f7a263a8rwb8q16wqrxx85"))
6585               (modules '((guix build utils)))
6586               (snippet
6587                '(begin
6588                   (for-each make-file-writable (find-files "."))
6589
6590                   ;; Remove broken declaration.
6591                   (substitute* "charresize.c"
6592                     (("char\t\\*malloc\\(\\);")
6593                      ""))
6594
6595                   ;; Remove old configury that doesn't support modern
6596                   ;; command-line options, new architectures, etc.
6597                   (for-each delete-file
6598                             '("configure" "install-sh"
6599                               "missing" "mkinstalldirs"))
6600                   #t))
6601               (file-name (git-file-name name version))))
6602     (build-system gnu-build-system)
6603     (native-inputs
6604      `(("pkg-config" ,pkg-config)
6605        ("autoconf" ,autoconf)
6606        ("automake" ,automake)))
6607     (synopsis "Resize fonts in the BDF format")
6608     (description
6609      "This package provides @command{bdfresize}, a command to magnify or
6610 reduce fonts in the Glyph Bitmap Distribution Format (BDF).  It produces BDF
6611 output.")
6612     (home-page "https://tracker.debian.org/pkg/bdfresize")
6613     (license license:gpl2+)) )
6614
6615 (define-public console-setup
6616   (package
6617     (name "console-setup")
6618     (version "1.195")
6619     (source
6620      (origin
6621        (method git-fetch)
6622        (uri (git-reference
6623              (url "https://salsa.debian.org/installer-team/console-setup.git")
6624              (commit "38512eb9a97f57ead1f87f6aee6df455f721c645"))) ; no tag
6625        (sha256
6626         (base32 "0d0xagigs5k3appzz5lzxdjncvnkgz4amz6ks7imiq8kkjixvmfy"))
6627        (file-name (git-file-name name version))))
6628     (build-system gnu-build-system)
6629     (arguments
6630      '(#:make-flags
6631        (let ((bash (assoc-ref %build-inputs "bash"))
6632              (out (assoc-ref %outputs "out")))
6633          (list (string-append "SHELL=" bash "/bin/bash")))
6634        #:tests? #f                      ; no tests
6635        #:phases
6636        (modify-phases %standard-phases
6637          (delete 'configure)
6638          (add-after 'unpack 'patch-file-names
6639            (lambda _
6640              ;; 'ckbcomp' calls out to 'cat' (!).  Give it the right file
6641              ;; name.
6642              (substitute* '("Keyboard/ckbcomp")
6643                (("\"cat ")
6644                 (string-append "\"" (which "cat")
6645                                " ")))
6646              #t))
6647          (add-before 'build 'make-doubled-bdfs
6648            (lambda* (#:key native-inputs inputs #:allow-other-keys)
6649              (invoke "make" "-C" "Fonts"
6650                      "doubled_bdfs"
6651                      (string-append "SHELL="
6652                                     (assoc-ref (or native-inputs inputs)
6653                                                "bash")
6654                                     "/bin/bash"))))
6655          (replace 'install
6656            (lambda* (#:key native-inputs inputs outputs #:allow-other-keys)
6657              (let ((out (assoc-ref %outputs "out")))
6658                (invoke "make" "install-linux"
6659                        (string-append "prefix=" out)
6660                        (string-append "SHELL="
6661                                       (assoc-ref (or native-inputs inputs)
6662                                                  "bash")
6663                                       "/bin/bash"))))))))
6664     (native-inputs
6665      `(("pkg-config" ,pkg-config)
6666        ("bdftopcf" ,bdftopcf)
6667        ("bdfresize" ,bdfresize)
6668        ("sharutils" ,sharutils)         ; for 'uuencode'
6669        ("perl" ,perl)))
6670     (inputs
6671      `(("perl" ,perl)))                 ; used by 'ckbcomp'
6672     (synopsis "Set up the Linux console font and keyboard")
6673     (description
6674      "console-setup provides the console with the same keyboard
6675 configuration scheme that X Window System has.  In particular, the
6676 @command{ckbcomp} program compiles an XKB keyboard description to a keymap
6677 suitable for @command{loadkeys} or @command{kbdcontrol}.  As a result, there
6678 is no need to duplicate or change the console keyboard files just to make
6679 simple customizations.
6680
6681 Besides the keyboard, the package also configures the font on the console.  It
6682 includes a rich collection of fonts and supports several languages that would
6683 otherwise be unsupported on the console (such as Armenian, Georgian, Lao, and
6684 Thai).")
6685     (home-page "https://salsa.debian.org/installer-team/console-setup/")
6686
6687     ;; Most of the code is GPLv2+; the Expat license applies to 'setupcon' and
6688     ;; 'ckbcomp-mini'.  The installed precompiled keyboard files are covered
6689     ;; by simple permissive licenses.  See the 'COPYRIGHT' file.
6690     (license (list license:gpl2+
6691                    license:expat))))
6692
6693 (define-public xcur2png
6694   (package
6695     (name "xcur2png")
6696     (version "0.7.1")
6697     (source
6698      (origin
6699        (method git-fetch)
6700        (uri (git-reference
6701              (url "https://github.com/eworm-de/xcur2png.git")
6702              (commit version)))
6703        (file-name (git-file-name name version))
6704        (sha256
6705         (base32 "0858wn2p14bxpv9lvaz2bz1rk6zk0g8zgxf8iy595m8fqv4q2fya"))))
6706     (build-system gnu-build-system)
6707     (native-inputs
6708      `(("pkg-config" ,pkg-config)))
6709     (inputs
6710      `(("libpng" ,libpng)
6711        ("libxcursor" ,libxcursor)))
6712     (synopsis "Decode X cursors")
6713     (description
6714      "xcur2png is a program decomposes an X cursor into a set of PNG images and
6715 a configuration file reusable by xcursorgen.")
6716     (home-page "https://github.com/eworm-de/xcur2png")
6717     (license license:gpl3+)))
6718
6719 (define-public gccmakedep
6720   (package
6721     (name "gccmakedep")
6722     (version "1.0.3")
6723     (source
6724      (origin
6725        (method url-fetch)
6726        (uri (string-append "mirror://xorg/individual/util/gccmakedep-"
6727                            version ".tar.bz2"))
6728        (sha256
6729         (base32 "1r1fpy5ni8chbgx7j5sz0008fpb6vbazpy1nifgdhgijyzqxqxdj"))))
6730     (build-system gnu-build-system)
6731     (synopsis "Create dependencies in makefiles using 'gcc -M'")
6732     (description
6733      "@command{gccmakedep} is a deprecated program which calls @code{gcc -M}
6734 to output Makefile rules describing the dependencies of each source file, so
6735 that Make knows which object files must be recompiled when a dependency has
6736 changed.")
6737     (home-page "https://gitlab.freedesktop.org/xorg/util/gccmakedep")
6738     (license license:x11)))