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