gnu/packages/xorg.scm

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