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