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