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