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