gnu/packages/xorg.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2013, 2014 Andreas Enge <andreas@enge.fr>
   3 ;;; Copyright © 2014, 2015, 2017 Mark H Weaver <mhw@netris.org>
   4 ;;; Copyright © 2014, 2015 Eric Bavier <bavier@member.fsf.org>
   5 ;;; Copyright © 2015, 2016, 2017 Ludovic Courtès <ludo@gnu.org>
   6 ;;; Copyright © 2015 Eric Dvorsak <eric@dvorsak.fr>
   7 ;;; Copyright © 2016 Mathieu Lirzin <mthl@gnu.org>
   8 ;;; Copyright © 2015 Cyrill Schenkel <cyrill.schenkel@gmail.com>
   9 ;;; Copyright © 2016, 2017 Efraim Flashner <efraim@flashner.co.il>
  10 ;;; Copyright © 2016 ng0 <ng0@we.make.ritual.n0.is>
  11 ;;; Copyright © 2016 Alex Kost <alezost@gmail.com>
  12 ;;; Copyright © 2016 David Craven <david@craven.ch>
  13 ;;; Copyright © 2016, 2017 John Darrington <jmd@gnu.org>
  14 ;;; Copyright © 2017, 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.7")
 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           "04awfwmy3f9f0bchidc4ssbgrbicn5gzasg3jydpfnp5513d76h8"))))
 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.8")
 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             "1ik0mdidmyvy48hn8p2hwvf3535rf3m96hhf0mvcqrbj44x23vp6"))))
 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.3")
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             "0siag28jpm8hj62bgjvw81sjfgrc7vcy2h7127bl4iazxrlxz60y"))))
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.1")
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             "19h6wflpmh7xxqr6lk5z8pds6r9r0dn7ijbvaacymx2q0m05km0q"))))
1863     (build-system gnu-build-system)
1864     (native-inputs `(("pkg-config" ,pkg-config)))
1865     (arguments
1866      `(#:phases (alist-cons-after
1867                  'unpack 'fix-makefile-in
1868                  (lambda _
1869                    (substitute* "Makefile.in"
1870                      ;; Install xorg-macros.pc in PREFIX/lib/pkgconfig,
1871                      ;; not PREFIX/share/pkgconfig.
1872                      (("\\$\\(datadir\\)/pkgconfig") "$(libdir)/pkgconfig")))
1873                  (alist-cons-after
1874                   'install 'post-install-cleanup
1875                   (lambda* (#:key outputs #:allow-other-keys)
1876                     (let ((out (assoc-ref outputs "out")))
1877                       (with-directory-excursion out
1878                         (delete-file "share/util-macros/INSTALL")
1879                         (rmdir "share/util-macros"))))
1880                   %standard-phases))))
1881     (home-page "https://www.x.org/wiki/")
1882     (synopsis "Xorg autoconf macros")
1883     (description
1884      "This package provides a set of autoconf macros used by the
1885 configure.ac scripts in other Xorg modular packages, and is needed to
1886 generate new versions of their configure scripts with autoconf.")
1887     (license license:x11)))
1888
1889
1890 (define-public videoproto
1891   (package
1892     (name "videoproto")
1893     (version "2.3.3")
1894     (source
1895       (origin
1896         (method url-fetch)
1897         (uri (string-append
1898                "mirror://xorg/individual/proto/videoproto-"
1899                version
1900                ".tar.bz2"))
1901         (sha256
1902           (base32
1903             "00m7rh3pwmsld4d5fpii3xfk5ciqn17kkk38gfpzrrh8zn4ki067"))))
1904     (build-system gnu-build-system)
1905     (native-inputs `(("pkg-config" ,pkg-config)))
1906     (home-page "https://www.x.org/wiki/")
1907     (synopsis "Xorg VideoProto protocol headers")
1908     (description
1909      "Video Extension provides a protocol for a video output mechanism,
1910 mainly to rescale video playback in the video controller hardware.")
1911     (license license:x11)))
1912
1913
1914 (define-public windowswmproto
1915   (package
1916     (name "windowswmproto")
1917     (version "1.0.4")
1918     (source
1919       (origin
1920         (method url-fetch)
1921         (uri (string-append
1922                "mirror://xorg/individual/proto/windowswmproto-"
1923                version
1924                ".tar.bz2"))
1925         (sha256
1926           (base32
1927             "0syjxgy4m8l94qrm03nvn5k6bkxc8knnlld1gbllym97nvnv0ny0"))))
1928     (build-system gnu-build-system)
1929     (native-inputs `(("pkg-config" ,pkg-config)))
1930     (home-page "https://www.x.org/wiki/")
1931     (synopsis "Xorg WindowsWMProto protocol headers")
1932     (description
1933      "WindowsWM Extension defines a protocol, used for coordination between
1934 an X11 server and the Microsoft Windows native window manager.  WindowsWM
1935 is only intended to be used on Cygwin when running a rootless XWin
1936 server.")
1937     (license license:x11)))
1938
1939
1940 (define-public x11perf
1941   (package
1942     (name "x11perf")
1943     (version "1.6.0")
1944     (source
1945       (origin
1946         (method url-fetch)
1947         (uri (string-append
1948                "mirror://xorg/individual/app/x11perf-"
1949                version
1950                ".tar.bz2"))
1951         (sha256
1952           (base32
1953             "0lb716yfdb8f11h4cz93d1bapqdxf1xplsb21kbp4xclq7g9hw78"))))
1954     (build-system gnu-build-system)
1955     (inputs
1956       `(("libx11" ,libx11)
1957         ("libxft" ,libxft)
1958         ("libxmu" ,libxmu)
1959         ("libxrender" ,libxrender)))
1960     (native-inputs
1961       `(("pkg-config" ,pkg-config)))
1962     (home-page "https://www.x.org/wiki/")
1963     (synopsis "X server performance benchmarker")
1964     (description
1965      "X11Perf is a simple performance benchmarker for the Xorg X server.")
1966     (license license:x11)))
1967
1968
1969 (define-public xauth
1970   (package
1971     (name "xauth")
1972     (version "1.0.10")
1973     (source
1974       (origin
1975         (method url-fetch)
1976         (uri (string-append
1977                "mirror://xorg/individual/app/xauth-"
1978                version
1979                ".tar.bz2"))
1980         (sha256
1981           (base32
1982             "0kgwz9rmxjfdvi2syf8g0ms5rr5cgyqx4n0n1m960kyz7k745zjs"))))
1983     (build-system gnu-build-system)
1984     (inputs
1985       `(("libxmu" ,libxmu)
1986         ("libxext" ,libxext)
1987         ("libxau" ,libxau)
1988         ("libx11" ,libx11)))
1989     (native-inputs
1990      `(("cmdtest" ,cmdtest)
1991        ("pkg-config" ,pkg-config)))
1992     (home-page "https://www.x.org/wiki/")
1993     (synopsis "X authority file utility")
1994     (description
1995      "XAuth program is used to edit and display the authorization
1996 information used in connecting to the X server.")
1997     (license license:x11)))
1998
1999
2000 (define-public xbacklight
2001   (package
2002     (name "xbacklight")
2003     (version "1.2.2")
2004     (source
2005       (origin
2006         (method url-fetch)
2007         (uri (string-append
2008                "mirror://xorg/individual/app/xbacklight-"
2009                version
2010                ".tar.bz2"))
2011         (sha256
2012           (base32
2013             "0pmzaz4kp38qv2lqiw5rnqhwzmwrq65m1x5j001mmv99wh9isnk1"))))
2014     (build-system gnu-build-system)
2015     (inputs
2016      `(("libxcb" ,libxcb)
2017        ("xcb-util" ,xcb-util)))
2018     (native-inputs
2019      `(("pkg-config" ,pkg-config)))
2020     (home-page "https://www.x.org/wiki/")
2021     (synopsis "Control display backlight")
2022     (description
2023      "Xbacklight is used to adjust the backlight brightness where
2024 supported.  It uses the RandR extension to find all outputs on the X
2025 server supporting backlight brightness control and changes them all in
2026 the same way.")
2027     (license license:x11)))
2028
2029
2030 (define-public xbitmaps
2031   (package
2032     (name "xbitmaps")
2033     (version "1.1.2")
2034     (source
2035       (origin
2036         (method url-fetch)
2037         (uri (string-append
2038                "mirror://xorg/individual/data/xbitmaps-"
2039                version
2040                ".tar.bz2"))
2041         (sha256
2042           (base32
2043             "1vh73sc13s7w5r6gnc6irca56s7998bja7wgdivkfn8jccawgw5r"))))
2044     (build-system gnu-build-system)
2045     (native-inputs `(("pkg-config" ,pkg-config)))
2046     (home-page "https://www.x.org/wiki/")
2047     (synopsis "X bitmaps")
2048     (description
2049      "xbitmaps provides basic bitmaps (little pictures) used by some
2050 legacy X clients.")
2051     (license license:x11)))
2052
2053 (define-public xcalc
2054   (package
2055     (name "xcalc")
2056     (version "1.0.6")
2057     (source
2058      (origin
2059        (method url-fetch)
2060        (uri (string-append
2061              "mirror://xorg/individual/app/" name "-"
2062              version
2063              ".tar.gz"))
2064        (sha256
2065         (base32
2066          "1lg8xwj0nr8anbd77n3cs87s57sr4gmb3pxs3k22a28n6ndcvmbz"))))
2067     (build-system gnu-build-system)
2068     (arguments
2069      `(#:phases (modify-phases %standard-phases
2070                   (add-after
2071                    'configure 'mutate-makefile
2072                    (lambda _
2073                      (substitute* "Makefile"
2074                        (("^appdefaultdir = .*$")
2075                         (string-append "appdefaultdir = " %output
2076                                        ,%app-defaults-dir "\n")))
2077                      #t)))))
2078     (inputs
2079      `(("libxaw" ,libxaw)))
2080     (native-inputs
2081      `(("pkg-config" ,pkg-config)))
2082     (home-page "https://www.x.org/wiki/")
2083     (synopsis "Hand calculator for the X Window system")
2084     (description "Xcalc is a scientific calculator desktop accessory that can
2085 emulate a TI-30 or an HP-10C.")
2086     (license license:x11)))
2087
2088
2089 (define-public xcb-proto
2090   (package
2091     (name "xcb-proto")
2092     (version "1.12")
2093     (source
2094       (origin
2095         (method url-fetch)
2096         (uri (string-append
2097                "https://xcb.freedesktop.org/dist/xcb-proto-"
2098                version
2099                ".tar.bz2"))
2100         (sha256
2101           (base32
2102            "01j91946q8f34l1mbvmmgvyc393sm28ym4lxlacpiav4qsjan8jr"))
2103         (patches
2104          (search-patches "xcb-proto-python3-whitespace.patch"
2105                          "xcb-proto-python3-print.patch"))))
2106     (build-system gnu-build-system)
2107     (native-inputs
2108       `(("pkg-config" ,pkg-config) ("python" ,python-minimal-wrapper)))
2109     (home-page "https://xcb.freedesktop.org/")
2110     (synopsis "XML-XCB protocol descriptions")
2111     (description
2112      "XCB-Proto provides the XML-XCB protocol descriptions that libxcb
2113 uses to generate the majority of its code and API.  XCB-Proto is
2114 separated from libxcb to allow reuse by other projects, such as
2115 additional language bindings, protocol dissectors, or documentation
2116 generators.
2117
2118 XCB-Proto also contains language-independent Python libraries that are
2119 used to parse an XML description and create objects used by Python code
2120 generators in individual language bindings.")
2121     (license license:x11)))
2122
2123
2124 (define-public xcmiscproto
2125   (package
2126     (name "xcmiscproto")
2127     (version "1.2.2")
2128     (source
2129       (origin
2130         (method url-fetch)
2131         (uri (string-append
2132                "mirror://xorg/individual/proto/xcmiscproto-"
2133                version
2134                ".tar.bz2"))
2135         (sha256
2136           (base32
2137             "1pyjv45wivnwap2wvsbrzdvjc5ql8bakkbkrvcv6q9bjjf33ccmi"))))
2138     (build-system gnu-build-system)
2139     (native-inputs `(("pkg-config" ,pkg-config)))
2140     (home-page "https://www.x.org/wiki/")
2141     (synopsis "Xorg XCMiscProto protocol headers")
2142     (description
2143      "XC-MISC Extension defines a protocol that provides Xlib two ways
2144 to query the server for available resource IDs.")
2145     (license license:x11)))
2146
2147
2148 (define-public xcmsdb
2149   (package
2150     (name "xcmsdb")
2151     (version "1.0.5")
2152     (source
2153       (origin
2154         (method url-fetch)
2155         (uri (string-append
2156                "mirror://xorg/individual/app/xcmsdb-"
2157                version
2158                ".tar.bz2"))
2159         (sha256
2160           (base32
2161             "1ik7gzlp2igz183x70883000ygp99r20x3aah6xhaslbpdhm6n75"))))
2162     (build-system gnu-build-system)
2163     (inputs
2164       `(("libx11" ,libx11)))
2165     (native-inputs
2166       `(("pkg-config" ,pkg-config)))
2167     (home-page "https://www.x.org/wiki/")
2168     (synopsis "Device Color Characterization utility")
2169     (description
2170      "XCMSDB is used to load, query, or remove Device Color
2171 Characterization data stored in properties on the root window of the
2172 screen as specified in section 7, Device Color Characterization, of the
2173 X11 Inter-Client Communication Conventions Manual (ICCCM).")
2174     (license license:x11)))
2175
2176
2177 (define-public xcursor-themes
2178   (package
2179     (name "xcursor-themes")
2180     (version "1.0.5")
2181     (source
2182       (origin
2183         (method url-fetch)
2184         (uri (string-append
2185                "mirror://xorg/individual/data/xcursor-themes-"
2186                version
2187                ".tar.bz2"))
2188         (sha256
2189           (base32
2190             "0whjiq6d5z4z75zh37pji6llfcyrg6q3mg9zx5zqyncnj39q30xf"))))
2191     (build-system gnu-build-system)
2192     (inputs
2193       `(("libxcursor" ,libxcursor)
2194         ("xcursorgen" ,xcursorgen)))
2195     (native-inputs
2196       `(("pkg-config" ,pkg-config)))
2197     (arguments
2198      `(#:configure-flags
2199        (list (string-append "--with-cursordir="
2200                             (assoc-ref %outputs "out")
2201                             "/share/icons"))))
2202     (home-page "https://www.x.org/wiki/")
2203     (synopsis "Default Xorg cursors")
2204     (description
2205      "This package provides a default set of cursor themes for the Xorg
2206 X server: 'handhelds', 'redglass' and 'whiteglass'.")
2207     (license license:x11)))
2208
2209
2210 (define-public xcursorgen
2211   (package
2212     (name "xcursorgen")
2213     (version "1.0.6")
2214     (source
2215       (origin
2216         (method url-fetch)
2217         (uri (string-append
2218                "mirror://xorg/individual/app/xcursorgen-"
2219                version
2220                ".tar.bz2"))
2221         (sha256
2222           (base32
2223             "0v7nncj3kaa8c0524j7ricdf4rvld5i7c3m6fj55l5zbah7r3j1i"))))
2224     (build-system gnu-build-system)
2225     (inputs
2226       `(("libxcursor" ,libxcursor)
2227         ("libpng" ,libpng)))
2228     (native-inputs
2229       `(("pkg-config" ,pkg-config)))
2230     (home-page "https://www.x.org/wiki/")
2231     (synopsis "Create an X cursor file from PNG images")
2232     (description
2233      "XCursorGen prepares X11 cursor sets for use with libXcursor.")
2234     (license license:x11)))
2235
2236
2237 (define-public xdpyinfo
2238   (package
2239     (name "xdpyinfo")
2240     (version "1.3.2")
2241     (source
2242       (origin
2243         (method url-fetch)
2244         (uri (string-append
2245                "mirror://xorg/individual/app/xdpyinfo-"
2246                version
2247                ".tar.bz2"))
2248         (sha256
2249           (base32
2250             "0ldgrj4w2fa8jng4b3f3biaj0wyn8zvya88pnk70d7k12pcqw8rh"))))
2251     (build-system gnu-build-system)
2252     (inputs
2253       `(("inputproto" ,inputproto)
2254         ("libx11" ,libx11)
2255         ("libxxf86vm" ,libxxf86vm)
2256         ("libxxf86dga" ,libxxf86dga)
2257         ("libxtst" ,libxtst)
2258         ("libxrender" ,libxrender)
2259         ("libxinerama" ,libxinerama)
2260         ("libxi" ,libxi)
2261         ("libxcomposite" ,libxcomposite)
2262         ("libdmx" ,libdmx)))
2263     (native-inputs
2264       `(("pkg-config" ,pkg-config)))
2265     (home-page "https://www.x.org/wiki/")
2266     (synopsis "Xorg display information utility")
2267     (description
2268      "Xdpyinfo is used to display information about an X server: the
2269 capabilities of a server, the predefined values for various parameters
2270 used in communicating between clients and the server, and the different
2271 types of screens, visuals, and X11 protocol extensions that are
2272 available.")
2273     (license license:x11)))
2274
2275
2276 (define-public xdriinfo
2277   (package
2278     (name "xdriinfo")
2279     (version "1.0.6")
2280     (source
2281       (origin
2282         (method url-fetch)
2283         (uri (string-append
2284                "mirror://xorg/individual/app/xdriinfo-"
2285                version
2286                ".tar.bz2"))
2287         (sha256
2288           (base32
2289             "0lcx8h3zd11m4w8wf7dyp89826d437iz78cyrix436bqx31x5k6r"))))
2290     (build-system gnu-build-system)
2291     (inputs
2292       `(("mesa" ,mesa)
2293         ("libx11" ,libx11)))
2294     (native-inputs
2295       `(("pkg-config" ,pkg-config)))
2296     (home-page "https://www.x.org/wiki/")
2297     (synopsis "Query DRI configuration information")
2298     (description
2299      "XDRIInfo is used to query configuration information of X11
2300 DRI (Direct Rendering Infrastructure) drivers.")
2301     (license license:x11)))
2302
2303
2304 (define-public xev
2305   (package
2306     (name "xev")
2307     (version "1.2.2")
2308     (source
2309       (origin
2310         (method url-fetch)
2311         (uri (string-append
2312                "mirror://xorg/individual/app/xev-"
2313                version
2314                ".tar.bz2"))
2315         (sha256
2316           (base32
2317             "0krivhrxpq6719103r541xpi3i3a0y15f7ypc4lnrx8sdhmfcjnr"))))
2318     (build-system gnu-build-system)
2319     (inputs
2320       `(("libxrender" ,libxrender)
2321         ("libxrandr" ,libxrandr)
2322         ("xproto" ,xproto)
2323         ("libx11" ,libx11)))
2324     (native-inputs
2325      `(("pkg-config" ,pkg-config)))
2326     (home-page "https://www.x.org/wiki/")
2327     (synopsis "Print contents of X events")
2328     (description
2329      "XEv creates a window and then asks the X server to send it X11
2330 events whenever anything happens to the window (such as it being moved,
2331 resized, typed in, clicked in, etc.).  You can also attach it to an
2332 existing window.  It is useful for seeing what causes events to occur
2333 and to display the information that they contain; it is essentially a
2334 debugging and development tool, and should not be needed in normal
2335 usage.")
2336     (license license:x11)))
2337
2338
2339 (define-public xextproto
2340   (package
2341     (name "xextproto")
2342     (version "7.3.0")
2343     (source
2344       (origin
2345         (method url-fetch)
2346         (uri (string-append
2347                "mirror://xorg/individual/proto/xextproto-"
2348                version
2349                ".tar.bz2"))
2350         (sha256
2351           (base32
2352             "1c2vma9gqgc2v06rfxdiqgwhxmzk2cbmknwf1ng3m76vr0xb5x7k"))))
2353     (build-system gnu-build-system)
2354     (native-inputs `(("pkg-config" ,pkg-config)))
2355     (home-page "https://www.x.org/wiki/")
2356     (synopsis "Xorg XExtProto protocol headers")
2357     (description
2358      "XExtProto provides the following extensions: DOUBLE-BUFFER, DPMS,
2359 Extended-Visual-Information, Generic Event Extension, LBX, MIT-SHM,
2360 MIT-SUNDRY-NONSTANDARD, Multi-Buffering, SECURITY, SHAPE, SYNC, TOG-CUP,
2361 XC-APPGROUP, XTEST.")
2362     (license license:x11)))
2363
2364
2365 (define-public libevdev
2366   (package
2367     (name "libevdev")
2368     (version "1.5.6")
2369     (source
2370      (origin
2371        (method url-fetch)
2372        (uri (string-append "https://www.freedesktop.org/software/" name "/"
2373                            name "-" version ".tar.xz"))
2374        (sha256
2375         (base32
2376          "1256ypz93039n6km4macg158fpmjgylhmcmk20pnklxicsfpxv7c"))))
2377     (build-system gnu-build-system)
2378     (native-inputs `(("python" ,python)))
2379     (home-page "https://www.freedesktop.org/wiki/Software/libevdev/")
2380     (synopsis "Wrapper library for evdev devices")
2381     (description
2382      "libevdev is a wrapper library for evdev devices. it moves the common
2383 tasks when dealing with evdev devices into a library and provides a library
2384 interface to the callers, thus avoiding erroneous ioctls, etc.
2385
2386 The eventual goal is that libevdev wraps all ioctls available to evdev
2387 devices, thus making direct access unnecessary.")
2388     (license (license:x11-style "file://COPYING"))))
2389
2390
2391 (define-public xf86-input-evdev
2392   (package
2393     (name "xf86-input-evdev")
2394     (version "2.10.5")
2395     (source
2396       (origin
2397         (method url-fetch)
2398         (uri (string-append
2399                "mirror://xorg/individual/driver/xf86-input-evdev-"
2400                version
2401                ".tar.bz2"))
2402         (sha256
2403           (base32
2404            "03dphgwjaxxyys8axc1kyysp6xvy9bjxicsdrhi2jvdgbchadnly"))))
2405     (build-system gnu-build-system)
2406     (inputs
2407       `(("udev" ,eudev)
2408         ("libevdev" ,libevdev)
2409         ("mtdev" ,mtdev)
2410         ("xorg-server" ,xorg-server)))
2411     (native-inputs `(("pkg-config" ,pkg-config)))
2412     (arguments
2413      `(#:configure-flags
2414        (list (string-append "--with-sdkdir="
2415                             (assoc-ref %outputs "out")
2416                             "/include/xorg"))))
2417     (home-page "https://www.x.org/wiki/")
2418     (synopsis "Generic input driver for X server")
2419     (description
2420      "xf86-input-evdev is a generic input driver for the Xorg X server.
2421 This driver supports all input devices that the kernel knows about,
2422 including most mice, keyboards, tablets and touchscreens.")
2423     (license license:x11)))
2424
2425 (define-public xf86-input-libinput
2426   (package
2427     (name "xf86-input-libinput")
2428     (version "0.26.0")
2429     (source (origin
2430               (method url-fetch)
2431               (uri (string-append
2432                     "mirror://xorg/individual/driver/"
2433                     name "-" version ".tar.bz2"))
2434               (sha256
2435                (base32
2436                 "0yrqs88b7yn9nljwlxzn76jfmvf0sh939kzij5b2jvr2qa7mbjmb"))))
2437     (build-system gnu-build-system)
2438     (arguments
2439      '(#:configure-flags
2440        (list (string-append "--with-sdkdir="
2441                             %output "/include/xorg"))))
2442     (native-inputs
2443      `(("pkg-config" ,pkg-config)))
2444     (inputs
2445      `(("libinput" ,libinput)
2446        ("xorg-server" ,xorg-server)))
2447     (home-page "https://www.x.org/wiki/")
2448     (synopsis "Input driver for X server based on libinput")
2449     (description
2450      "xf86-input-libinput is an input driver for the Xorg X server based
2451 on libinput.  It is a thin wrapper around libinput, so while it does
2452 provide all features that libinput supports it does little beyond.")
2453     (license license:x11)))
2454
2455 (define-public xf86-input-joystick
2456   (package
2457     (name "xf86-input-joystick")
2458     (version "1.6.3")
2459     (source
2460       (origin
2461         (method url-fetch)
2462         (uri (string-append
2463                "mirror://xorg/individual/driver/xf86-input-joystick-"
2464                version
2465                ".tar.bz2"))
2466         (sha256
2467           (base32
2468             "1awfq496d082brgjbr60lhm6jvr9537rflwxqdfqwfzjy3n6jxly"))))
2469     (build-system gnu-build-system)
2470     (inputs `(("xorg-server" ,xorg-server)))
2471     (native-inputs `(("pkg-config" ,pkg-config)))
2472     (arguments
2473      `(#:configure-flags
2474        (list (string-append "--with-sdkdir="
2475                             (assoc-ref %outputs "out")
2476                             "/include/xorg"))))
2477     (home-page "https://www.x.org/wiki/")
2478     (synopsis "Joystick input driver for X server")
2479     (description
2480      "xf86-input-joystick is a joystick input driver for the Xorg X server.
2481 It is used to cotrol the pointer with a joystick device.")
2482     (license license:x11)))
2483
2484
2485 (define-public xf86-input-keyboard
2486   (package
2487     (name "xf86-input-keyboard")
2488     (version "1.9.0")
2489     (source
2490       (origin
2491         (method url-fetch)
2492         (uri (string-append
2493                "mirror://xorg/individual/driver/xf86-input-keyboard-"
2494                version
2495                ".tar.bz2"))
2496         (sha256
2497           (base32
2498             "12032yg412kyvnmc5fha1in7mpi651d8sa1bk4138s2j2zr01jgp"))))
2499     (build-system gnu-build-system)
2500     (inputs `(("xorg-server" ,xorg-server)))
2501     (native-inputs `(("pkg-config" ,pkg-config)))
2502     (home-page "https://www.x.org/wiki/")
2503     (synopsis "Keyboard input driver for X server")
2504     (description
2505      "xf86-input-keyboard is a keyboard input driver for the Xorg X server.")
2506     (license license:x11)))
2507
2508
2509 (define-public xf86-input-mouse
2510   (package
2511     (name "xf86-input-mouse")
2512     (version "1.9.2")
2513     (source
2514       (origin
2515         (method url-fetch)
2516         (uri (string-append
2517                "mirror://xorg/individual/driver/xf86-input-mouse-"
2518                version
2519                ".tar.bz2"))
2520         (sha256
2521           (base32
2522             "0bsbgww9421792zan43j60mndqprhfxhc48agsi15d3abjqda9gl"))))
2523     (build-system gnu-build-system)
2524     (inputs `(("xorg-server" ,xorg-server)))
2525     (native-inputs `(("pkg-config" ,pkg-config)))
2526     (arguments
2527      `(#:configure-flags
2528        (list (string-append "--with-sdkdir="
2529                             (assoc-ref %outputs "out")
2530                             "/include/xorg"))))
2531     (home-page "https://www.x.org/wiki/")
2532     (synopsis "Mouse input driver for X server")
2533     (description
2534      "xf86-input-mouse is a mouse input driver for the Xorg X server.
2535 This driver supports four classes of mice: serial, bus and PS/2 mice,
2536 and additional mouse types supported by specific operating systems, such
2537 as USB mice.")
2538     (license license:x11)))
2539
2540
2541 (define-public xf86-input-synaptics
2542   (package
2543     (name "xf86-input-synaptics")
2544     (version "1.9.0")
2545     (source
2546       (origin
2547         (method url-fetch)
2548         (uri (string-append
2549                "mirror://xorg/individual/driver/xf86-input-synaptics-"
2550                version
2551                ".tar.bz2"))
2552         (sha256
2553           (base32
2554             "0niv0w1czbxh4y3qkqbpdp5gjwhp3379inwhknhif0m4sy4k5fmg"))))
2555     (build-system gnu-build-system)
2556     (inputs `(("libx11" ,libx11)
2557               ("libxi" ,libxi)
2558               ("libevdev" ,libevdev)
2559               ("mtdev" ,mtdev)
2560               ("xorg-server" ,xorg-server)))
2561     (native-inputs `(("pkg-config" ,pkg-config)))
2562     (arguments
2563      `(#:configure-flags
2564        (list (string-append "--with-sdkdir="
2565                             (assoc-ref %outputs "out")
2566                             "/include/xorg")
2567              (string-append "--with-xorg-conf-dir="
2568                             (assoc-ref %outputs "out")
2569                             "/share/X11/xorg.conf.d"))))
2570     (home-page "https://www.x.org/wiki/")
2571     (synopsis "Touchpad input driver for X server")
2572     (description
2573      "xf86-input-synaptics is a touchpad driver for the Xorg X server.")
2574     (license license:x11)))
2575
2576
2577 (define-public xf86-input-void
2578   (package
2579     (name "xf86-input-void")
2580     (version "1.4.1")
2581     (source
2582       (origin
2583         (method url-fetch)
2584         (uri (string-append
2585                "mirror://xorg/individual/driver/xf86-input-void-"
2586                version
2587                ".tar.bz2"))
2588         (sha256
2589           (base32
2590             "171k8b8s42s3w73l7ln9jqwk88w4l7r1km2blx1vy898c854yvpr"))))
2591     (build-system gnu-build-system)
2592     (inputs `(("xorg-server" ,xorg-server)))
2593     (native-inputs `(("pkg-config" ,pkg-config)))
2594     (home-page "https://www.x.org/wiki/")
2595     (synopsis "Void (null) input driver for X server")
2596     (description
2597      "xf86-input-void is a null input driver for the Xorg X server.")
2598     (license license:x11)))
2599
2600
2601 (define-public xf86-video-ark
2602   (package
2603     (name "xf86-video-ark")
2604     (version "0.7.5")
2605     (source
2606       (origin
2607         (method url-fetch)
2608         (uri (string-append
2609                "mirror://xorg/individual/driver/xf86-video-ark-"
2610                version
2611                ".tar.bz2"))
2612         (sha256
2613           (base32
2614            "07p5vdsj2ckxb6wh02s61akcv4qfg6s1d5ld3jn3lfaayd3f1466"))
2615         (patches (search-patches "xf86-video-ark-remove-mibstore.patch"))))
2616     (build-system gnu-build-system)
2617     (inputs `(("xorg-server" ,xorg-server)))
2618     (native-inputs `(("pkg-config" ,pkg-config)))
2619     (home-page "https://www.x.org/wiki/")
2620     (synopsis "Ark Logic video driver for X server")
2621     (description
2622      "xf86-video-ark is an Ark Logic video driver for the Xorg X server.")
2623     (license license:x11)))
2624
2625 ;; This driver depends on XAA which has been removed from xorg-server.
2626 ;;
2627 ;; (define-public xf86-video-ast
2628 ;;   (package
2629 ;;     (name "xf86-video-ast")
2630 ;;     (version "0.93.10")
2631 ;;     (source
2632 ;;       (origin
2633 ;;         (method url-fetch)
2634 ;;         (uri (string-append
2635 ;;                "mirror://xorg/individual/driver/xf86-video-ast-"
2636 ;;                version
2637 ;;                ".tar.bz2"))
2638 ;;         (sha256
2639 ;;           (base32
2640 ;;            "1q64z8qqa0ix3cymqiwk1s3sphd1fvvz30lvyxhgkgciygz6dm69"))
2641 ;;         (patches (search-patches "xf86-video-ast-remove-mibstore.patch"))))
2642 ;;     (build-system gnu-build-system)
2643 ;;     (inputs `(("xorg-server" ,xorg-server)))
2644 ;;     (native-inputs `(("pkg-config" ,pkg-config)))
2645 ;;     (home-page "https://www.x.org/wiki/")
2646 ;;     (synopsis "ASpeed Technologies video driver for X server")
2647 ;;     (description
2648 ;;      "xf86-video-ast is an ASpeed Technologies video driver for the Xorg
2649 ;; X server.")
2650 ;;     (license license:x11)))
2651
2652
2653 (define-public xf86-video-ati
2654   (package
2655     (name "xf86-video-ati")
2656     (version "7.10.0")
2657     (source
2658       (origin
2659         (method url-fetch)
2660         (uri (string-append
2661                "mirror://xorg/individual/driver/xf86-video-ati-"
2662                version
2663                ".tar.bz2"))
2664         (sha256
2665           (base32
2666             "0yafix56vkqglw243cwb94nv91vbjv12sqh29x1bap0hwd1dclgf"))))
2667     (build-system gnu-build-system)
2668     (inputs `(("mesa" ,mesa)
2669               ("xxf86driproto" ,xf86driproto)
2670               ("xorg-server" ,xorg-server)))
2671     (native-inputs `(("pkg-config" ,pkg-config)))
2672     (arguments `(#:configure-flags `("--disable-glamor"))) ; TODO: Enable glamor
2673     (home-page "https://www.x.org/wiki/")
2674     (synopsis "ATI Radeon video driver for X server")
2675     (description
2676      "xf86-video-ati is an ATI Radeon video driver for the Xorg
2677 X server.")
2678     (license license:x11)))
2679
2680
2681 (define-public xf86-video-cirrus
2682   (package
2683     (name "xf86-video-cirrus")
2684     (version "1.5.3")
2685     (source
2686       (origin
2687         (method url-fetch)
2688         (uri (string-append
2689                "mirror://xorg/individual/driver/xf86-video-cirrus-"
2690                version
2691                ".tar.bz2"))
2692         (sha256
2693           (base32
2694             "1asifc6ld2g9kap15vfhvsvyl69lj7pw3d9ra9mi4najllh7pj7d"))))
2695     (build-system gnu-build-system)
2696     (inputs `(("xorg-server" ,xorg-server)))
2697     (native-inputs `(("pkg-config" ,pkg-config)))
2698     (home-page "https://www.x.org/wiki/")
2699     (synopsis "Cirrus Logic video driver for X server")
2700     (description
2701      "xf86-video-cirrus is a Cirrus Logic video driver for the Xorg
2702 X server.")
2703     (license license:x11)))
2704
2705
2706 ;; non-free license
2707 ;; (define-public xf86-video-dummy
2708
2709
2710 (define-public xf86-video-fbdev
2711   (package
2712     (name "xf86-video-fbdev")
2713     (version "0.4.4")
2714     (source
2715       (origin
2716         (method url-fetch)
2717         (uri (string-append
2718                "mirror://xorg/individual/driver/xf86-video-fbdev-"
2719                version
2720                ".tar.bz2"))
2721         (sha256
2722           (base32
2723             "06ym7yy017lanj730hfkpfk4znx3dsj8jq3qvyzsn8w294kb7m4x"))))
2724     (build-system gnu-build-system)
2725     (inputs `(("xorg-server" ,xorg-server)))
2726     (native-inputs `(("pkg-config" ,pkg-config)))
2727     (home-page "https://www.x.org/wiki/")
2728     (synopsis "Framebuffer device video driver for X server")
2729     (description
2730      "xf86-video-fbdev is a video driver for the Xorg X server for
2731 framebuffer device.")
2732     (license license:x11)))
2733
2734
2735 (define-public xf86-video-freedreno
2736   (let ((commit "ccba8f89995de7d5e1b216e580b789c4cda05035"))
2737     (package
2738       (name "xf86-video-freedreno")
2739       (version (string-append "1.4.0-1-" (string-take commit 7)))
2740       (source
2741        (origin
2742          ;; there's no current tarball
2743          (method git-fetch)
2744          (uri (git-reference
2745                (url (string-append "https://anongit.freedesktop.org/git/xorg/"
2746                                    "driver/xf86-video-freedreno.git"))
2747                (commit commit)))
2748          (sha256
2749           (base32
2750            "0bl9m1agi793lcddv94j8afzw1xc9w810q91mbq0n3dscbbcr9nh"))
2751          (file-name (string-append name "-" version))))
2752       (build-system gnu-build-system)
2753       (inputs
2754        `(("libdrm" ,libdrm)
2755          ("mesa" ,mesa)
2756          ("udev" ,eudev)
2757          ("xorg-server" ,xorg-server)
2758          ("zlib" ,zlib)))
2759       (native-inputs
2760        `(("pkg-config" ,pkg-config)
2761          ("autoconf" ,autoconf)
2762          ("automake" ,automake)
2763          ("libtool" ,libtool)))
2764        ;; This driver is only supported on ARM systems.
2765       (supported-systems '("armhf-linux" "aarch64-linux"))
2766       (arguments
2767        `(#:configure-flags
2768          (list (string-append "--with-xorg-conf-dir="
2769                               (assoc-ref %outputs "out")
2770                               "/share/X11/xorg.conf.d"))
2771          #:phases (modify-phases %standard-phases
2772                     (add-after 'unpack 'bootstrap
2773                       (lambda _
2774                         (zero? (system* "autoreconf" "-vfi")))))))
2775       (home-page "https://www.x.org/wiki/")
2776       (synopsis "Adreno video driver for X server")
2777       (description
2778        "xf86-video-freedreno is a 2D graphics driver for the Xorg X server.
2779 It supports a variety of Adreno graphics chipsets.")
2780       (license license:x11))))
2781
2782
2783 (define-public xf86-video-geode
2784   (package
2785     (name "xf86-video-geode")
2786     (version "2.11.19")
2787     (source
2788       (origin
2789         (method url-fetch)
2790         (uri (string-append
2791                "mirror://xorg/individual/driver/xf86-video-geode-"
2792                version
2793                ".tar.bz2"))
2794         (sha256
2795           (base32
2796            "0zn9gb49grds5mcs1dlrx241k2w1sgqmx4i5x7v6159xxqhlqsf6"))
2797         (patches (search-patches "xf86-video-geode-glibc-2.20.patch"))))
2798     (build-system gnu-build-system)
2799     (inputs `(("xorg-server" ,xorg-server)))
2800     (native-inputs `(("pkg-config" ,pkg-config)))
2801     (supported-systems
2802      ;; This driver is only supported on i686 systems.
2803      (filter (lambda (system) (string-prefix? "i686-" system))
2804              %supported-systems))
2805     (home-page "https://www.x.org/wiki/")
2806     (synopsis "AMD Geode GX/LX video driver for X server")
2807     (description
2808      "xf86-video-geode is an Xorg X server video driver for the AMD
2809 Geode GX and LX processors.  The GX component supports both XAA and EXA
2810 for graphics acceleration.  The LX component supports EXA, including
2811 compositing.  Both support Xv overlay and dynamic rotation with XRandR.")
2812     (license license:x11)))
2813
2814
2815 ;; Driver for obsolete graphics cards, depends on libglide:
2816 ;; http://sourceforge.net/projects/glide/ ,
2817 ;; last updated in 2003, and which does not compile out of the box any more.
2818 ;; (define-public xf86-video-glide
2819 ;;   (package
2820 ;;     (name "xf86-video-glide")
2821 ;;     (version "1.2.0")
2822 ;;     (source
2823 ;;       (origin
2824 ;;         (method url-fetch)
2825 ;;         (uri (string-append
2826 ;;                "mirror://xorg/X11R7.7/src/everything/xf86-video-glide-"
2827 ;;                version
2828 ;;                ".tar.bz2"))
2829 ;;         (sha256
2830 ;;           (base32
2831 ;;             "0byapm9mnpqk3wijfnnan3d22ii5cw6dmg4xn1625iiz89j5vs1l"))))
2832 ;;     (build-system gnu-build-system)
2833 ;;     (inputs `(("pkg-config" ,pkg-config)
2834 ;;               ("xorg-server" ,xorg-server)))
2835 ;;     (home-page "https://www.x.org/wiki/")
2836 ;;     (synopsis "Glide video driver for X server")
2837 ;;     (description
2838 ;;      "xf86-video-glide is a Glide video driver for the Xorg X server.")
2839 ;;     (license license:x11)))
2840
2841
2842 (define-public xf86-video-glint
2843   (package
2844     (name "xf86-video-glint")
2845     (version "1.2.9")
2846     (source
2847       (origin
2848         (method url-fetch)
2849         (uri (string-append
2850                "mirror://xorg/individual/driver/xf86-video-glint-"
2851                version
2852                ".tar.bz2"))
2853         (sha256
2854           (base32
2855            "1lkpspvrvrp9s539bhfdjfh4andaqyk63l6zjn8m3km95smk6a45"))))
2856     (build-system gnu-build-system)
2857     (inputs `(("xf86dgaproto" ,xf86dgaproto)
2858               ("xorg-server" ,xorg-server)))
2859     (native-inputs `(("pkg-config" ,pkg-config)))
2860     (home-page "https://www.x.org/wiki/")
2861     (synopsis "GLINT/Permedia video driver for X server")
2862     (description
2863      "xf86-video-glint is a GLINT/Permedia video driver for the Xorg
2864 X server.")
2865     (license license:x11)))
2866
2867
2868 (define-public xf86-video-i128
2869   (package
2870     (name "xf86-video-i128")
2871     (version "1.3.6")
2872     (source
2873       (origin
2874         (method url-fetch)
2875         (uri (string-append
2876                "mirror://xorg/individual/driver/xf86-video-i128-"
2877                version
2878                ".tar.bz2"))
2879         (sha256
2880           (base32
2881            "171b8lbxr56w3isph947dnw7x87hc46v6m3mcxdcz44gk167x0pq"))
2882         (patches (search-patches "xf86-video-i128-remove-mibstore.patch"))))
2883     (build-system gnu-build-system)
2884     (inputs `(("xorg-server" ,xorg-server)))
2885     (native-inputs `(("pkg-config" ,pkg-config)))
2886     (home-page "https://www.x.org/wiki/")
2887     (synopsis "I128 video driver for X server")
2888     (description
2889      "xf86-video-i128 is an I128 (Imagine 128) video driver for the Xorg
2890 X server.")
2891     (license license:x11)))
2892
2893
2894 (define-public xf86-video-intel
2895   (let ((commit "af6d8e9e8f546e5cba60e3a62765c2dbd0328e83")
2896         (revision "9"))
2897     (package
2898       (name "xf86-video-intel")
2899       (version (string-append "2.99.917-" revision "-"
2900                               (string-take commit 7)))
2901       (source
2902        (origin
2903          ;; there's no current tarball
2904          (method git-fetch)
2905          (uri (git-reference
2906                (url "https://anongit.freedesktop.org/git/xorg/driver/xf86-video-intel.git")
2907                (commit commit)))
2908          (sha256
2909           (base32
2910            "0f6sbkgykvvdggy8z6y7blf7yharg9vmiixxy190643bjxlnpp2s"))
2911          (file-name (string-append name "-" version))))
2912       (build-system gnu-build-system)
2913       (inputs `(("mesa" ,mesa)
2914                 ("udev" ,eudev)
2915                 ("libx11" ,libx11)
2916                 ("libxfont" ,libxfont2)
2917                 ("xorg-server" ,xorg-server)))
2918       (native-inputs
2919        `(("pkg-config" ,pkg-config)
2920          ("autoconf" ,autoconf)
2921          ("automake" ,automake)
2922          ("libtool" ,libtool)))
2923       (supported-systems
2924        ;; This driver is only supported on Intel systems.
2925        (filter (lambda (system) (or (string-prefix? "i686-" system)
2926                                     (string-prefix? "x86_64-" system)))
2927                %supported-systems))
2928       (arguments
2929        '(#:configure-flags '("--with-default-accel=uxa")
2930          #:phases (modify-phases %standard-phases
2931                     (add-after 'unpack 'bootstrap
2932                       (lambda _
2933                         (zero? (system* "autoreconf" "-vfi")))))))
2934       (home-page "https://www.x.org/wiki/")
2935       (synopsis "Intel video driver for X server")
2936       (description
2937        "xf86-video-intel is a 2D graphics driver for the Xorg X server.
2938 It supports a variety of Intel graphics chipsets.")
2939       (license license:x11))))
2940
2941
2942 (define-public xf86-video-mach64
2943   (package
2944     (name "xf86-video-mach64")
2945     (version "6.9.5")
2946     (source
2947       (origin
2948         (method url-fetch)
2949         (uri (string-append
2950                "mirror://xorg/individual/driver/xf86-video-mach64-"
2951                version
2952                ".tar.bz2"))
2953         (sha256
2954           (base32
2955            "07xlf5nsjm0x18ij5gyy4lf8hwpl10i8chi3skpqjh84drdri61y"))
2956         (patches (search-patches "xf86-video-mach64-glibc-2.20.patch"))))
2957     (build-system gnu-build-system)
2958     (inputs `(("mesa" ,mesa)
2959               ("xf86driproto" ,xf86driproto)
2960               ("xorg-server" ,xorg-server)))
2961     (native-inputs
2962       `(("pkg-config" ,pkg-config)))
2963     (home-page "https://www.x.org/wiki/")
2964     (synopsis "Mach64 video driver for X server")
2965     (description
2966      "xf86-video-mach64 is a video driver for the Xorg X server.
2967 This driver is intended for all ATI video adapters based on the Mach64
2968 series or older chipsets, providing maximum video function within
2969 hardware limitations.  The driver is also intended to optionally provide
2970 the same level of support for generic VGA or 8514/A adapters.")
2971     (license license:x11)))
2972
2973
2974 (define-public xf86-video-mga
2975   (package
2976     (name "xf86-video-mga")
2977     (version "1.6.5")
2978     (source
2979       (origin
2980         (method url-fetch)
2981         (uri (string-append
2982                "mirror://xorg/individual/driver/xf86-video-mga-"
2983                version
2984                ".tar.bz2"))
2985         (sha256
2986           (base32
2987            "08ll52hlar9z446v0wwca5qkj3hxhswwm7vvcgic9xv4cf7csqxn"))))
2988     (build-system gnu-build-system)
2989     (inputs `(("mesa" ,mesa)
2990               ("xf86driproto" ,xf86driproto)
2991               ("xorg-server" ,xorg-server)))
2992     (native-inputs `(("pkg-config" ,pkg-config)))
2993     (home-page "https://www.x.org/wiki/")
2994     (synopsis "Matrox video driver for X server")
2995     (description
2996      "xf86-video-mga is a Matrox video driver for the Xorg X server.")
2997     (license license:x11)))
2998
2999 (define-public xf86-video-neomagic
3000   (package
3001     (name "xf86-video-neomagic")
3002     (version "1.2.9")
3003     (source
3004       (origin
3005         (method url-fetch)
3006         (uri (string-append
3007                "mirror://xorg/individual/driver/xf86-video-neomagic-"
3008                version
3009                ".tar.bz2"))
3010         (sha256
3011           (base32
3012             "1whb2kgyqaxdjim27ya404acz50izgmafwnb6y9m89q5n6b97y3j"))))
3013     (build-system gnu-build-system)
3014     (inputs `(("xf86dgaproto" ,xf86dgaproto)
3015               ("xorg-server" ,xorg-server)))
3016     (native-inputs `(("pkg-config" ,pkg-config)))
3017     (home-page "https://www.x.org/wiki/")
3018     (synopsis "NeoMagic video driver for X server")
3019     (description
3020      "xf86-video-neomagic is a NeoMagic video driver for the Xorg X server.")
3021     (license license:x11)))
3022
3023
3024 ;; This driver depends on XAA which has been removed from xorg-server.
3025
3026 ;; (define-public xf86-video-newport
3027 ;;   (package
3028 ;;     (name "xf86-video-newport")
3029 ;;     (version "0.2.4")
3030 ;;     (source
3031 ;;       (origin
3032 ;;         (method url-fetch)
3033 ;;         (uri (string-append
3034 ;;                "mirror://xorg/individual/driver/xf86-video-newport-"
3035 ;;                version
3036 ;;                ".tar.bz2"))
3037 ;;         (sha256
3038 ;;           (base32
3039 ;;             "1yafmp23jrfdmc094i6a4dsizapsc9v0pl65cpc8w1kvn7343k4i"))))
3040 ;;     (build-system gnu-build-system)
3041 ;;     (inputs `(("xorg-server" ,xorg-server)))
3042 ;;     (native-inputs `(("pkg-config" ,pkg-config)))
3043 ;;     (home-page "https://www.x.org/wiki/")
3044 ;;     (synopsis "Newport video driver for X server")
3045 ;;     (description
3046 ;;      "xf86-video-newport is an Xorg X server video driver for the SGI
3047 ;; newport cards.")
3048 ;;     (license license:x11)))
3049
3050
3051 (define-public xf86-video-nv
3052   (package
3053     (name "xf86-video-nv")
3054     (version "2.1.21")
3055     (source
3056       (origin
3057         (method url-fetch)
3058         (uri (string-append
3059                "mirror://xorg/individual/driver/xf86-video-nv-"
3060                version
3061                ".tar.bz2"))
3062         (sha256
3063           (base32
3064            "0bdk3pc5y0n7p53q4gc2ff7bw16hy5hwdjjxkm5j3s7hdyg6960z"))))
3065     (build-system gnu-build-system)
3066     (inputs `(("xorg-server" ,xorg-server)))
3067     (native-inputs `(("pkg-config" ,pkg-config)))
3068     (home-page "https://www.x.org/wiki/")
3069     (synopsis "NVIDIA video driver for X server")
3070     (description
3071      "This package contains Xorg support for the NVIDIA GeForce 8 series of
3072 graphics processors.
3073
3074 There are a few caveats of which to be aware: the XVideo extension is not
3075 supported, and the RENDER extension is not accelerated by this driver.")
3076     (license license:x11)))
3077
3078 (define-public xf86-video-nouveau
3079   (package
3080     (name "xf86-video-nouveau")
3081     (version "1.0.15")
3082     (source
3083      (origin
3084        (method url-fetch)
3085        (uri (string-append
3086              "mirror://xorg/individual/driver/xf86-video-nouveau-"
3087              version
3088              ".tar.bz2"))
3089        (sha256
3090         (base32
3091          "0k0xah72ryjwak4dc4crszxrlkmi9x1s7p3sd4la642n77yi1pmf"))))
3092     (build-system gnu-build-system)
3093     (inputs `(("xorg-server" ,xorg-server)))
3094     (native-inputs `(("pkg-config" ,pkg-config)))
3095     (home-page "https://nouveau.freedesktop.org")
3096     (synopsis "NVIDIA video driver for X server")
3097     (description
3098      "This package provides modern, high-quality Xorg drivers for NVIDIA
3099 graphics cards.")
3100     (license license:x11)))
3101
3102 (define-public xf86-video-openchrome
3103   (package
3104     (name "xf86-video-openchrome")
3105     (version "0.6.0")
3106     (source
3107       (origin
3108         (method url-fetch)
3109         (uri (string-append
3110                "mirror://xorg/individual/driver/xf86-video-openchrome-"
3111                version
3112                ".tar.bz2"))
3113         (sha256
3114          (base32
3115           "0x9gq3hw6k661k82ikd1y2kkk4dmgv310xr5q59dwn4k6z37aafs"))))
3116     (build-system gnu-build-system)
3117     (inputs `(("libx11" ,libx11)
3118               ("libxext" ,libxext)
3119               ("libxvmc" ,libxvmc)
3120               ("mesa" ,mesa)
3121               ("xf86driproto" ,xf86driproto)
3122               ("xorg-server" ,xorg-server)))
3123     (native-inputs
3124      `(("pkg-config" ,pkg-config)))
3125     (home-page "https://www.x.org/wiki/")
3126     (synopsis "Openchrome video driver for X server")
3127     (description
3128      "xf86-video-openchrome is a video driver for the Xorg X server.
3129 This driver is intended for VIA chipsets featuring the VIA UniChrome,
3130 UniChrome Pro and Chrome9 integrated graphics processors.")
3131     (license license:x11)))
3132
3133
3134 (define-public xf86-video-qxl
3135   (package
3136     (name "xf86-video-qxl")
3137     (version "0.1.5")
3138     (source (origin
3139               (method url-fetch)
3140               (uri (string-append
3141                 "mirror://xorg/individual/driver/"
3142                 "xf86-video-qxl-" version ".tar.bz2"))
3143               (sha256
3144                (base32
3145                 "14jc24znnahhmz4kqalafmllsg8awlz0y6gpgdpk5ih38ph851mi"))))
3146     (build-system gnu-build-system)
3147     (inputs
3148       `(("fontsproto" ,fontsproto)
3149         ("libxfont" ,libxfont2)
3150         ("spice-protocol" ,spice-protocol)
3151         ("xf86dgaproto" ,xf86dgaproto)
3152         ("xorg-server" ,xorg-server)
3153         ("xproto" ,xproto)))
3154     (native-inputs
3155       `(("pkg-config" ,pkg-config)))
3156     (synopsis "Qxl video driver for X server")
3157     (description "xf86-video-qxl is a video driver for the Xorg X server.
3158 This driver is intended for the spice qxl virtio device.")
3159     (home-page "http://www.spice-space.org")
3160     (license license:x11)))
3161
3162
3163 (define-public xf86-video-r128
3164   (package
3165     (name "xf86-video-r128")
3166     (version "6.10.2")
3167     (source
3168       (origin
3169         (method url-fetch)
3170         (uri (string-append
3171                "mirror://xorg/individual/driver/xf86-video-r128-"
3172                version
3173                ".tar.bz2"))
3174         (sha256
3175           (base32
3176            "1pkpka5m4cd6iy0f8iqnmg6xci14nb6887ilvxzn3xrsgx8j3nl4"))))
3177     (build-system gnu-build-system)
3178     (inputs `(("mesa" ,mesa)
3179               ("xf86driproto" ,xf86driproto)
3180               ("xorg-server" ,xorg-server)))
3181     (native-inputs `(("pkg-config" ,pkg-config)))
3182     (home-page "https://www.x.org/wiki/")
3183     (synopsis "ATI Rage 128 video driver for X server")
3184     (description
3185      "xf86-video-r128 is a video driver for the Xorg X server.
3186 This driver is intended for ATI Rage 128 based cards.")
3187     (license license:x11)))
3188
3189
3190 (define-public xf86-video-savage
3191   (package
3192     (name "xf86-video-savage")
3193     (version "2.3.9")
3194     (source
3195       (origin
3196         (method url-fetch)
3197         (uri (string-append
3198                "mirror://xorg/individual/driver/xf86-video-savage-"
3199                version
3200                ".tar.bz2"))
3201         (sha256
3202           (base32
3203            "11pcrsdpdrwk0mrgv83s5nsx8a9i4lhmivnal3fjbrvi3zdw94rc"))))
3204     (build-system gnu-build-system)
3205     (inputs `(("mesa" ,mesa)
3206               ("xf86driproto" ,xf86driproto)
3207               ("xorg-server" ,xorg-server)))
3208     (native-inputs `(("pkg-config" ,pkg-config)))
3209     (home-page "https://www.x.org/wiki/")
3210     (synopsis "Savage video driver for X server")
3211     (description
3212      "xf86-video-savage is an S3 Savage video driver for the Xorg X server.")
3213     (license license:x11)))
3214
3215
3216 (define-public xf86-video-siliconmotion
3217   (package
3218     (name "xf86-video-siliconmotion")
3219     (version "1.7.9")
3220     (source
3221       (origin
3222         (method url-fetch)
3223         (uri (string-append
3224                "mirror://xorg/individual/driver/xf86-video-siliconmotion-"
3225                version
3226                ".tar.bz2"))
3227         (sha256
3228           (base32
3229            "1g2r6gxqrmjdff95d42msxdw6vmkg2zn5sqv0rxd420iwy8wdwyh"))
3230         (patches (search-patches "xf86-video-siliconmotion-fix-ftbfs.patch"))))
3231     (build-system gnu-build-system)
3232     (inputs `(("xorg-server" ,xorg-server)))
3233     (native-inputs `(("pkg-config" ,pkg-config)))
3234     (home-page "https://www.x.org/wiki/")
3235     (synopsis "Silicon Motion video driver for X server")
3236     (description
3237      "xf86-video-siliconmotion is a Silicon Motion video driver for the
3238 Xorg X server.")
3239     (license license:x11)))
3240
3241
3242 (define-public xf86-video-sis
3243   (package
3244     (name "xf86-video-sis")
3245     (version "0.10.9")
3246     (source
3247       (origin
3248         (method url-fetch)
3249         (uri (string-append
3250                "mirror://xorg/individual/driver/xf86-video-sis-"
3251                version
3252                ".tar.bz2"))
3253         (sha256
3254           (base32
3255            "03f1abjjf68y8y1iz768rn95va9d33wmbwfbsqrgl6k0gi0bf9jj"))))
3256     (build-system gnu-build-system)
3257     (inputs `(("mesa" ,mesa)
3258               ("xf86dgaproto" ,xf86dgaproto)
3259               ("xf86driproto" ,xf86driproto)
3260               ("xorg-server" ,xorg-server)))
3261     (native-inputs
3262       `(("pkg-config" ,pkg-config)))
3263     (home-page "https://www.x.org/wiki/")
3264     (synopsis "Sis video driver for X server")
3265     (description
3266      "xf86-video-SiS is a SiS video driver for the Xorg X server.
3267 This driver supports SiS chipsets of 300/315/330/340 series.")
3268     (license license:bsd-3)))
3269
3270
3271 (define-public xf86-video-suncg6
3272   (package
3273     (name "xf86-video-suncg6")
3274     (version "1.1.2")
3275     (source
3276       (origin
3277         (method url-fetch)
3278         (uri (string-append
3279                "mirror://xorg/individual/driver/xf86-video-suncg6-"
3280                version
3281                ".tar.bz2"))
3282         (sha256
3283           (base32
3284             "04fgwgk02m4nimlv67rrg1wnyahgymrn6rb2cjj1l8bmzkii4glr"))))
3285     (build-system gnu-build-system)
3286     (inputs `(("xorg-server" ,xorg-server)))
3287     (native-inputs `(("pkg-config" ,pkg-config)))
3288     (home-page "https://www.x.org/wiki/")
3289     (synopsis "GX/TurboGX video driver for X server")
3290     (description
3291      "xf86-video-suncg6 is a GX/TurboGX video driver for the Xorg X server.")
3292     (license license:x11)))
3293
3294
3295 (define-public xf86-video-sunffb
3296   (package
3297     (name "xf86-video-sunffb")
3298     (version "1.2.2")
3299     (source
3300       (origin
3301         (method url-fetch)
3302         (uri (string-append
3303                "mirror://xorg/individual/driver/xf86-video-sunffb-"
3304                version
3305                ".tar.bz2"))
3306         (sha256
3307           (base32
3308             "07z3ngifwg2d4jgq8pms47n5lr2yn0ai72g86xxjnb3k20n5ym7s"))))
3309     (build-system gnu-build-system)
3310     (inputs `(("xorg-server" ,xorg-server)))
3311     (native-inputs `(("pkg-config" ,pkg-config)))
3312     (home-page "https://www.x.org/wiki/")
3313     (synopsis "SUNFFB video driver for X server")
3314     (description
3315      "xf86-video-sunffb is a SUNFFB video driver for the Xorg X server.")
3316     (license license:x11)))
3317
3318
3319 (define-public xf86-video-tdfx
3320   (package
3321     (name "xf86-video-tdfx")
3322     (version "1.4.7")
3323     (source
3324       (origin
3325         (method url-fetch)
3326         (uri (string-append
3327                "mirror://xorg/individual/driver/xf86-video-tdfx-"
3328                version
3329                ".tar.bz2"))
3330         (sha256
3331           (base32
3332            "0hia45z4jc472fxp00803nznizcn4h1ybp63jcsb4lmd9vhqxx2c"))))
3333     (build-system gnu-build-system)
3334     (inputs `(("mesa" ,mesa)
3335               ("xf86driproto" ,xf86driproto)
3336               ("xorg-server" ,xorg-server)))
3337     (native-inputs `(("pkg-config" ,pkg-config)))
3338     (home-page "https://www.x.org/wiki/")
3339     (synopsis "3Dfx video driver for X server")
3340     (description
3341      "xf86-video-tdfx is a 3Dfx video driver for the Xorg X server.")
3342     (license license:x11)))
3343
3344
3345 (define-public xf86-video-tga
3346   (package
3347     (name "xf86-video-tga")
3348     (version "1.2.2")
3349     (source
3350       (origin
3351         (method url-fetch)
3352         (uri (string-append
3353                "mirror://xorg/individual/driver/xf86-video-tga-"
3354                version
3355                ".tar.bz2"))
3356         (sha256
3357           (base32
3358            "0cb161lvdgi6qnf1sfz722qn38q7kgakcvj7b45ba3i0020828r0"))
3359         (patches (search-patches "xf86-video-tga-remove-mibstore.patch"))))
3360     (build-system gnu-build-system)
3361     (inputs `(("xf86dgaproto" ,xf86dgaproto)
3362               ("xorg-server" ,xorg-server)))
3363     (native-inputs `(("pkg-config" ,pkg-config)))
3364     (home-page "https://www.x.org/wiki/")
3365     (synopsis "TGA video driver for X server")
3366     (description
3367      "xf86-video-tga is a TGA (DEC 21030) video driver for the Xorg
3368 X server.")
3369     (license license:x11)))
3370
3371
3372 (define-public xf86-video-trident
3373   (package
3374     (name "xf86-video-trident")
3375     (version "1.3.8")
3376     (source
3377       (origin
3378         (method url-fetch)
3379         (uri (string-append
3380                "mirror://xorg/individual/driver/xf86-video-trident-"
3381                version
3382                ".tar.bz2"))
3383         (sha256
3384           (base32
3385            "0gxcar434kx813fxdpb93126lhmkl3ikabaljhcj5qn3fkcijlcy"))))
3386     (build-system gnu-build-system)
3387     (inputs `(("xf86dgaproto" ,xf86dgaproto)
3388               ("xorg-server" ,xorg-server)))
3389     (native-inputs `(("pkg-config" ,pkg-config)))
3390     (home-page "https://www.x.org/wiki/")
3391     (synopsis "Trident video driver for X server")
3392     (description
3393      "xf86-video-trident is a Trident video driver for the Xorg X server.")
3394     (license license:x11)))
3395
3396
3397 ;; no license
3398 ;; (define-public xf86-video-v4l
3399
3400
3401 (define-public xf86-video-vesa
3402   (package
3403     (name "xf86-video-vesa")
3404     (version "2.4.0")
3405     (source
3406       (origin
3407         (method url-fetch)
3408         (uri (string-append
3409                "mirror://xorg/individual/driver/xf86-video-vesa-"
3410                version
3411                ".tar.bz2"))
3412         (sha256
3413           (base32
3414             "1373vsxn6qh00na0s9c09kf09gj78rzi98zq93id8v5zsya3qi5z"))))
3415     (build-system gnu-build-system)
3416     (inputs `(("xorg-server" ,xorg-server)))
3417     (native-inputs `(("pkg-config" ,pkg-config)))
3418     (home-page "https://www.x.org/wiki/")
3419     (synopsis "VESA video driver for X server")
3420     (description
3421      "xf86-video-vesa is a generic VESA video driver for the Xorg
3422 X server.")
3423     (license license:x11)))
3424
3425
3426 (define-public xf86-video-vmware
3427   (package
3428     (name "xf86-video-vmware")
3429     (version "13.2.1")
3430     (source
3431       (origin
3432         (method url-fetch)
3433         (uri (string-append
3434                "mirror://xorg/individual/driver/xf86-video-vmware-"
3435                version
3436                ".tar.bz2"))
3437         (sha256
3438           (base32
3439            "0azn3g0vcki47n5jddagk2rmbwdvp845k8p7d2r56zxs3w8ggxz2"))))
3440     (build-system gnu-build-system)
3441     (inputs
3442      `(("libx11" ,libx11)
3443        ("libxext" ,libxext)
3444        ("llvm" ,llvm)
3445        ("mesa" ,mesa)                   ; for xatracker
3446        ("xorg-server" ,xorg-server)))
3447     (native-inputs
3448      `(("eudev" ,eudev)
3449        ("pkg-config" ,pkg-config)))
3450     (home-page "https://www.x.org/wiki/")
3451     (synopsis "VMware SVGA video driver for X server")
3452     (description
3453      "xf86-video-vmware is a VMware SVGA video driver for the Xorg X server.")
3454     (license license:x11)))
3455
3456
3457 (define-public xf86-video-voodoo
3458   (package
3459     (name "xf86-video-voodoo")
3460     (version "1.2.5")
3461     (source
3462       (origin
3463         (method url-fetch)
3464         (uri (string-append
3465                "mirror://xorg/individual/driver/xf86-video-voodoo-"
3466                version
3467                ".tar.bz2"))
3468         (sha256
3469           (base32
3470            "1s6p7yxmi12q4y05va53rljwyzd6ry492r1pgi7wwq6cznivhgly"))
3471         (patches
3472          (list (origin
3473                  (method url-fetch)
3474                  (uri "https://cgit.freedesktop.org/xorg/driver/\
3475 xf86-video-voodoo/patch/?id=9172ae566a0e85313fc80ab62b4455393eefe593")
3476                  (sha256
3477                   (base32
3478                    "0rndmxf5b8j3hjnhrwrnzsq5024fli134fj1mprhkcrvax2zq8db"))
3479                  (file-name "xf86-video-voodoo-pcitag.patch"))))))
3480     (build-system gnu-build-system)
3481     (inputs `(("xf86dgaproto" ,xf86dgaproto)
3482               ("xorg-server" ,xorg-server)))
3483     (native-inputs `(("pkg-config" ,pkg-config)))
3484     (home-page "https://www.x.org/wiki/")
3485     (synopsis "Voodoo/Voodoo2 video driver for X server")
3486     (description
3487      "xf86-video-voodoo is a Voodoo video driver for the Xorg X server.")
3488     (license license:x11)))
3489
3490
3491 ;; Only relevant for the frame buffer on BSD systems.
3492 ;; (define-public xf86-video-wsfb
3493
3494
3495 (define-public xf86bigfontproto
3496   (package
3497     (name "xf86bigfontproto")
3498     (version "1.2.0")
3499     (source
3500       (origin
3501         (method url-fetch)
3502         (uri (string-append
3503                "mirror://xorg/individual/proto/xf86bigfontproto-"
3504                version
3505                ".tar.bz2"))
3506         (sha256
3507           (base32
3508             "0j0n7sj5xfjpmmgx6n5x556rw21hdd18fwmavp95wps7qki214ms"))))
3509     (build-system gnu-build-system)
3510     (home-page "https://www.x.org/wiki/")
3511     (synopsis "Xorg XF86BigFontProto protocol headers")
3512     (description
3513      "XFree86 Bigfont Extension contains header files and documentation
3514 for the XF86BigFontProto protocol.")
3515     (license license:x11)))
3516
3517
3518 (define-public xf86dgaproto
3519   (package
3520     (name "xf86dgaproto")
3521     (version "2.1")
3522     (source
3523       (origin
3524         (method url-fetch)
3525         (uri (string-append
3526                "mirror://xorg/individual/proto/xf86dgaproto-"
3527                version
3528                ".tar.bz2"))
3529         (sha256
3530           (base32
3531             "0l4hx48207mx0hp09026r6gy9nl3asbq0c75hri19wp1118zcpmc"))))
3532     (build-system gnu-build-system)
3533     (home-page "https://www.x.org/wiki/")
3534     (synopsis "Xorg XF86DGAProto protocol headers")
3535     (description
3536      "XFree86 Direct Graphic Access Extension defines a protocol for
3537 direct linear framebuffer access.")
3538     (license license:x11)))
3539
3540
3541 (define-public xf86driproto
3542   (package
3543     (name "xf86driproto")
3544     (version "2.1.1")
3545     (source
3546       (origin
3547         (method url-fetch)
3548         (uri (string-append
3549                "mirror://xorg/individual/proto/xf86driproto-"
3550                version
3551                ".tar.bz2"))
3552         (sha256
3553           (base32
3554             "07v69m0g2dfzb653jni4x656jlr7l84c1k39j8qc8vfb45r8sjww"))))
3555     (build-system gnu-build-system)
3556     (home-page "https://www.x.org/wiki/")
3557     (synopsis "Xorg XF86DRIProto protocol headers")
3558     (description
3559      "XFree86 Direct Rendering Infrastructure Extension defines a
3560 protocol to allow user applications to access the video hardware without
3561 requiring data to be passed through the X server.")
3562     (license license:x11)))
3563
3564
3565 (define-public xf86vidmodeproto
3566   (package
3567     (name "xf86vidmodeproto")
3568     (version "2.3.1")
3569     (source
3570       (origin
3571         (method url-fetch)
3572         (uri (string-append
3573                "mirror://xorg/individual/proto/xf86vidmodeproto-"
3574                version
3575                ".tar.bz2"))
3576         (sha256
3577           (base32
3578             "0w47d7gfa8zizh2bshdr2rffvbr4jqjv019mdgyh6cmplyd4kna5"))))
3579     (build-system gnu-build-system)
3580     (home-page "https://www.x.org/wiki/")
3581     (synopsis "Xorg XF86VidModeProto protocol headers")
3582     (description
3583      "XFree86 Video Mode Extension defines a protocol for dynamically
3584 configuring modelines and gamma.")
3585     (license license:x11)))
3586
3587
3588 (define-public xgamma
3589   (package
3590     (name "xgamma")
3591     (version "1.0.6")
3592     (source
3593       (origin
3594         (method url-fetch)
3595         (uri (string-append
3596                "mirror://xorg/individual/app/xgamma-"
3597                version
3598                ".tar.bz2"))
3599         (sha256
3600           (base32
3601             "1lr2nb1fhg5fk2fchqxdxyl739602ggwhmgl2wiv5c8qbidw7w8f"))))
3602     (build-system gnu-build-system)
3603     (inputs
3604       `(("libxxf86vm" ,libxxf86vm)
3605         ("libx11" ,libx11)))
3606     (native-inputs
3607       `(("pkg-config" ,pkg-config)))
3608     (home-page "https://www.x.org/wiki/")
3609     (synopsis "Alter a monitor's gamma correction")
3610     (description
3611      "XGamma is used to query and alter the gamma correction of a
3612 monitor via the X video mode extension.")
3613     (license license:x11)))
3614
3615
3616 (define-public xhost
3617   (package
3618     (name "xhost")
3619     (version "1.0.7")
3620     (source
3621       (origin
3622         (method url-fetch)
3623         (uri (string-append
3624                "mirror://xorg/individual/app/xhost-"
3625                version
3626                ".tar.bz2"))
3627         (sha256
3628           (base32
3629             "16n26xw6l01zq31d4qvsaz50misvizhn7iihzdn5f7s72pp1krlk"))))
3630     (build-system gnu-build-system)
3631     (inputs
3632       `(("libxmu" ,libxmu)
3633         ("libxau" ,libxau)
3634         ("libx11" ,libx11)))
3635     (native-inputs
3636       `(("pkg-config" ,pkg-config)))
3637     (home-page "https://www.x.org/wiki/")
3638     (synopsis "Xorg server access control utility")
3639     (description
3640      "XHost is used to manage the list of host names or user names
3641 allowed to make connections to the X server.")
3642     (license license:x11)))
3643
3644
3645 (define-public xineramaproto
3646   (package
3647     (name "xineramaproto")
3648     (version "1.2.1")
3649     (source
3650       (origin
3651         (method url-fetch)
3652         (uri (string-append
3653                "mirror://xorg/individual/proto/xineramaproto-"
3654                version
3655                ".tar.bz2"))
3656         (sha256
3657           (base32
3658             "0ns8abd27x7gbp4r44z3wc5k9zqxxj8zjnazqpcyr4n17nxp8xcp"))))
3659     (build-system gnu-build-system)
3660     (native-inputs `(("pkg-config" ,pkg-config)))
3661     (home-page "https://www.x.org/wiki/")
3662     (synopsis "Xorg XineramaProto protocol headers")
3663     (description
3664      "Xinerama Extension allows clients to query information about multiple
3665 physical screens controlled by a single X server that appear as a single
3666 screen to core X11 protocol operations.
3667
3668 This extension provides a common network protocol for querying information
3669 which may be provided by different underlying screen combination
3670 technologies in the X server, such as the original Xinerama multiplexer, or
3671 alternative implementations like XRandR or TwinView.")
3672     (license license:x11)))
3673
3674
3675 (define-public xinput
3676   (package
3677     (name "xinput")
3678     (version "1.6.2")
3679     (source
3680       (origin
3681         (method url-fetch)
3682         (uri (string-append
3683                "mirror://xorg/individual/app/xinput-"
3684                version
3685                ".tar.bz2"))
3686         (sha256
3687           (base32
3688             "1i75mviz9dyqyf7qigzmxq8vn31i86aybm662fzjz5c086dx551n"))))
3689     (build-system gnu-build-system)
3690     (inputs
3691       `(("libxrender" ,libxrender)
3692         ("libxrandr" ,libxrandr)
3693         ("libxinerama" ,libxinerama)
3694         ("libxext" ,libxext)
3695         ("libxi" ,libxi)
3696         ("libx11" ,libx11)
3697         ("inputproto" ,inputproto)))
3698     (native-inputs
3699        `(("pkg-config" ,pkg-config)))
3700     (home-page "https://www.x.org/wiki/")
3701     (synopsis "Configure input devices for X server")
3702     (description
3703      "XInput is used to configure and test XInput devices.")
3704     (license license:x11)))
3705
3706
3707 (define xkbcomp-intermediate ; used as input for xkeyboard-config
3708   (package
3709     (name "xkbcomp-intermediate")
3710     (version "1.4.0")
3711     (source
3712       (origin
3713         (method url-fetch)
3714         (uri (string-append
3715                "mirror://xorg/individual/app/xkbcomp-"
3716                version
3717                ".tar.bz2"))
3718         (sha256
3719          (base32
3720           "0syfc6zscvai824mzihlnrqxhkcr27dzkpy8zndavi83iischsdw"))))
3721     (build-system gnu-build-system)
3722     (inputs
3723       `(("xproto" ,xproto)
3724         ("libxkbfile" ,libxkbfile)
3725         ("libx11" ,libx11)))
3726     (native-inputs
3727         `(("pkg-config" ,pkg-config)))
3728     (home-page "https://www.x.org/wiki/")
3729     (synopsis "Compile XKB keyboard description")
3730     (description
3731      "xkbcomp keymap compiler converts a description of an XKB keymap
3732 into one of several output formats.  The most common use for xkbcomp is
3733 to create a compiled keymap file (.xkm extension) which can be read
3734 directly by XKB- capable X servers or utilities.
3735
3736 X Keyboard (XKB) Extension essentially replaces the core protocol
3737 definition of keyboard.  The extension makes possible to clearly and
3738 explicitly specify most aspects of keyboard behaviour on per-key basis
3739 and to more closely track the logical and physical state of the
3740 keyboard.  It also includes a number of keyboard controls designed to
3741 make keyboards more accessible to people with physical impairments.")
3742     (license license:x11)))
3743
3744 (define-public xkbcomp ; using xkeyboard-config as input
3745   (package (inherit xkbcomp-intermediate)
3746     (name "xkbcomp")
3747     (inputs
3748       `(,@(package-inputs xkbcomp-intermediate)
3749         ("xkeyboard-config" ,xkeyboard-config)))
3750     (arguments
3751      `(#:configure-flags
3752        (list (string-append "--with-xkb-config-root="
3753                             (assoc-ref %build-inputs "xkeyboard-config")
3754                             "/share/X11/xkb"))))))
3755
3756
3757 (define-public xkbevd
3758   (package
3759     (name "xkbevd")
3760     (version "1.1.4")
3761     (source
3762       (origin
3763         (method url-fetch)
3764         (uri (string-append
3765                "mirror://xorg/individual/app/xkbevd-"
3766                version
3767                ".tar.bz2"))
3768         (sha256
3769           (base32
3770             "0sprjx8i86ljk0l7ldzbz2xlk8916z5zh78cafjv8k1a63js4c14"))))
3771     (build-system gnu-build-system)
3772     (inputs
3773       `(("libxkbfile" ,libxkbfile)
3774         ("libx11" ,libx11)))
3775     (native-inputs
3776       `(("pkg-config" ,pkg-config)))
3777     (home-page "https://www.x.org/wiki/")
3778     (synopsis "XKB event daemon demo")
3779     (description
3780      "XKB event daemon listens for the specified XKB events and executes
3781 requested commands if they occur.")
3782     (license license:x11)))
3783
3784
3785 (define-public xkbutils
3786   (package
3787     (name "xkbutils")
3788     (version "1.0.4")
3789     (source
3790       (origin
3791         (method url-fetch)
3792         (uri (string-append
3793                "mirror://xorg/individual/app/xkbutils-"
3794                version
3795                ".tar.bz2"))
3796         (sha256
3797           (base32
3798             "0c412isxl65wplhl7nsk12vxlri29lk48g3p52hbrs3m0awqm8fj"))))
3799     (build-system gnu-build-system)
3800     (inputs
3801       `(("libxt" ,libxt)
3802         ("xproto" ,xproto)
3803         ("libxaw" ,libxaw)
3804         ("inputproto" ,inputproto)))
3805     (native-inputs
3806       `(("pkg-config" ,pkg-config)))
3807     (home-page "https://www.x.org/wiki/")
3808     (synopsis "XKB utilities")
3809     (description
3810      "XKBUtils is a collection of small utilities for X Keyboard (XKB)
3811 extension to the X11 protocol.  It includes:
3812
3813 - xkbbell: generate XKB bell events;
3814
3815 - xkbvleds: display the state of LEDs on an XKB keyboard in a window;
3816
3817 - xkbwatch: reports changes in the XKB keyboard state.")
3818     (license license:x11)))
3819
3820
3821 (define-public xkeyboard-config
3822   (package
3823     (name "xkeyboard-config")
3824     (version "2.22")
3825     (source
3826       (origin
3827         (method url-fetch)
3828         (uri (string-append
3829               "mirror://xorg/individual/data/xkeyboard-config/xkeyboard-config-"
3830               version
3831               ".tar.bz2"))
3832         (sha256
3833           (base32
3834             "1garmbyfjp0han04l2l90zzwlfbdgdxl6r1qnic36i5wkycckbny"))))
3835     (build-system gnu-build-system)
3836     (inputs
3837       `(("gettext" ,gettext-minimal)
3838         ("libx11" ,libx11)
3839         ("xkbcomp-intermediate" ,xkbcomp-intermediate)))
3840     (native-inputs
3841       `(("intltool" ,intltool)
3842         ("pkg-config" ,pkg-config)))
3843     (home-page "https://www.x.org/wiki/")
3844     (synopsis "Xorg XKB configuration files")
3845     (description
3846      "xkeyboard-config provides a database for X Keyboard (XKB) Extension.
3847 There are five components that define a complete keyboard mapping:
3848 symbols, geometry, keycodes, compat, and types; these five components
3849 can be combined together using the 'rules' component of this database.")
3850     (license license:x11)))
3851
3852
3853 (define-public xkill
3854   (package
3855     (name "xkill")
3856     (version "1.0.5")
3857     (source
3858       (origin
3859         (method url-fetch)
3860         (uri (string-append
3861                "mirror://xorg/individual/app/xkill-"
3862                version
3863                ".tar.bz2"))
3864         (sha256
3865           (base32
3866             "0szzd9nzn0ybkhnfyizb876irwnjsnb78rcaxx6prb71jmmbpw65"))))
3867     (build-system gnu-build-system)
3868     (inputs
3869       `(("libxmu" ,libxmu)
3870         ("libx11" ,libx11)))
3871     (native-inputs
3872        `(("pkg-config" ,pkg-config)))
3873     (home-page "https://www.x.org/wiki/")
3874     (synopsis "Kill a client by its X resource")
3875     (description
3876      "XKill is used to force the X server to close connections to
3877 clients.  This program is very dangerous, but is useful for aborting
3878 programs that have displayed undesired windows on a user's screen.")
3879     (license license:x11)))
3880
3881
3882 (define-public xlsatoms
3883   (package
3884     (name "xlsatoms")
3885     (version "1.1.2")
3886     (source
3887       (origin
3888         (method url-fetch)
3889         (uri (string-append
3890                "mirror://xorg/individual/app/xlsatoms-"
3891                version
3892                ".tar.bz2"))
3893         (sha256
3894           (base32
3895             "196yjik910xsr7dwy8daa0amr0r22ynfs360z0ndp9mx7mydrra7"))))
3896     (build-system gnu-build-system)
3897     (inputs
3898       `(("libxcb" ,libxcb)))
3899     (native-inputs
3900       `(("pkg-config" ,pkg-config)))
3901     (home-page "https://www.x.org/wiki/")
3902     (synopsis "List interned X server atoms")
3903     (description
3904      "XLsAtoms is used to list the interned atoms defined on X server.")
3905     (license license:x11)))
3906
3907
3908 (define-public xlsclients
3909   (package
3910     (name "xlsclients")
3911     (version "1.1.4")
3912     (source
3913       (origin
3914         (method url-fetch)
3915         (uri (string-append
3916                "mirror://xorg/individual/app/xlsclients-"
3917                version
3918                ".tar.bz2"))
3919         (sha256
3920           (base32
3921             "1h8931sn34mcip6vpi4v7hdmr1r58gkbw4s2p97w98kykks2lgvp"))))
3922     (build-system gnu-build-system)
3923     (inputs
3924       `(("libxcb" ,libxcb)))
3925     (native-inputs
3926       `(("pkg-config" ,pkg-config)))
3927     (home-page "https://www.x.org/wiki/")
3928     (synopsis "List client applications running on a display")
3929     (description
3930      "XLsClients is used to list information about the client programs
3931 running on X server.")
3932     (license license:x11)))
3933
3934
3935 (define-public xlsfonts
3936   (package
3937     (name "xlsfonts")
3938     (version "1.0.6")
3939     (source
3940      (origin
3941        (method url-fetch)
3942        (uri (string-append
3943              "mirror://xorg/individual/app/xlsfonts-"
3944              version
3945              ".tar.bz2"))
3946        (sha256
3947         (base32
3948          "0s6kxgv78chkwsqmhw929f4pf91gq63f4yvixxnan1h00cx0pf49"))))
3949     (build-system gnu-build-system)
3950     (inputs
3951      `(("xproto" ,xproto)
3952        ("libx11" ,libx11)))
3953     (native-inputs
3954      `(("pkg-config" ,pkg-config)))
3955     (home-page "https://www.x.org/wiki/")
3956     (synopsis "List fonts available from an X server")
3957     (description
3958      "xlsfonts lists fonts available from an X server via the X11 core
3959 protocol.")
3960     (license license:x11)))
3961
3962 (define-public xfontsel
3963   (package
3964     (name "xfontsel")
3965     (version "1.0.6")
3966     (source (origin
3967               (method url-fetch)
3968               (uri (string-append
3969                     "mirror://xorg/individual/app/xfontsel-"
3970                     version ".tar.bz2"))
3971               (sha256
3972                (base32
3973                 "0700lf6hx7dg88wq1yll7zjvf9gbwh06xff20yffkxb289y0pai5"))))
3974     (build-system gnu-build-system)
3975     (arguments
3976      `(#:configure-flags
3977        (list (string-append "--with-appdefaultdir="
3978                             %output ,%app-defaults-dir))))
3979     (inputs
3980      `(("libx11" ,libx11)
3981        ("libxaw" ,libxaw)
3982        ("libxmu" ,libxmu)
3983        ("libxt" ,libxt)))
3984     (native-inputs
3985      `(("pkg-config" ,pkg-config)))
3986     (home-page "https://www.x.org/wiki/")
3987     (synopsis "Browse and select X font names")
3988     (description
3989      "XFontSel provides a simple way to display the X11 core protocol fonts
3990 known to your X server, examine samples of each, and retrieve the X Logical
3991 Font Description (XLFD) full name for a font.")
3992     (license license:x11)))
3993
3994 (define-public xfd
3995   (package
3996     (name "xfd")
3997     (version "1.1.2")
3998     (source (origin
3999               (method url-fetch)
4000               (uri (string-append
4001                     "mirror://xorg/individual/app/xfd-"
4002                     version ".tar.bz2"))
4003               (sha256
4004                (base32
4005                 "0n97iqqap9wyxjan2n520vh4rrf5bc0apsw2k9py94dqzci258y1"))))
4006     (build-system gnu-build-system)
4007     (arguments
4008        `(#:configure-flags
4009          (list (string-append "--with-appdefaultdir="
4010                               %output ,%app-defaults-dir))))
4011     (inputs
4012      `(("fontconfig" ,fontconfig)
4013        ("libx11" ,libx11)
4014        ("libxaw" ,libxaw)
4015        ("libxft" ,libxft)
4016        ("libxmu" ,libxmu)
4017        ("libxrender" ,libxrender)))
4018     (native-inputs
4019      `(("gettext" ,gettext-minimal)
4020        ("pkg-config" ,pkg-config)))
4021     (home-page "https://www.x.org/wiki/")
4022     (synopsis "Display all the characters in an X font")
4023     (description
4024      "XFD (X Font Display) package provides an utility that displays a
4025 window containing the name of the font being displayed, a row of command
4026 buttons, several lines of text for displaying character metrics, and a grid
4027 containing one glyph per cell.")
4028     (license license:x11)))
4029
4030 (define-public xmodmap
4031   (package
4032     (name "xmodmap")
4033     (version "1.0.9")
4034     (source
4035       (origin
4036         (method url-fetch)
4037         (uri (string-append
4038                "mirror://xorg/individual/app/xmodmap-"
4039                version
4040                ".tar.bz2"))
4041         (sha256
4042           (base32
4043             "0y649an3jqfq9klkp9y5gj20xb78fw6g193f5mnzpl0hbz6fbc5p"))
4044         (patches (search-patches "xmodmap-asprintf.patch"))))
4045     (build-system gnu-build-system)
4046     (inputs
4047       `(("xproto" ,xproto)
4048         ("libx11" ,libx11)))
4049     (native-inputs
4050       `(("pkg-config" ,pkg-config)))
4051     (home-page "https://www.x.org/wiki/")
4052     (synopsis "Modify keymaps and button mappings on X server")
4053     (description
4054      "Xmodmap is used to display and edit the keyboard modifier map and
4055 keymap table that are used by client programs running on X server to
4056 convert event keycodes into keysyms.  It is usually run from the user's
4057 session startup script to configure the keyboard according to personal
4058 tastes.")
4059     (license license:x11)))
4060
4061
4062 ;; no license
4063 ;; (define-public xorg-docs
4064
4065
4066 (define-public xorg-sgml-doctools
4067   (package
4068     (name "xorg-sgml-doctools")
4069     (version "1.11")
4070     (source
4071       (origin
4072         (method url-fetch)
4073         (uri (string-append
4074                "mirror://xorg/individual/doc/xorg-sgml-doctools-"
4075                version
4076                ".tar.bz2"))
4077         (sha256
4078           (base32
4079             "0k5pffyi5bx8dmfn033cyhgd3gf6viqj3x769fqixifwhbgy2777"))))
4080     (build-system gnu-build-system)
4081     (native-inputs `(("pkg-config" ,pkg-config)))
4082     (home-page "https://www.x.org/wiki/")
4083     (synopsis "Xorg SGML documentation tools")
4084     (description
4085     "This package provides a common set of SGML entities and XML/CSS style
4086 sheets used in building/formatting the documentation provided in other
4087 Xorg packages.  It's typically only needed by people building from
4088 source who want to produce formatted documentation from their builds, or
4089 those who have installed the HTML version of the documentation, which
4090 refers to the included common xorg.css stylesheet.")
4091     (license license:x11)))
4092
4093
4094 (define-public xpr
4095   (package
4096     (name "xpr")
4097     (version "1.0.5")
4098     (source
4099       (origin
4100         (method url-fetch)
4101         (uri (string-append
4102                "mirror://xorg/individual/app/xpr-"
4103                version
4104                ".tar.bz2"))
4105         (sha256
4106           (base32
4107             "07qy9lwjvxighcmg6qvjkgagad3wwvidrfx0jz85lgynz3qy0dmr"))))
4108     (build-system gnu-build-system)
4109     (inputs
4110       `(("xproto" ,xproto)
4111         ("libxmu" ,libxmu)
4112         ("libx11" ,libx11)))
4113     (native-inputs
4114         `(("pkg-config" ,pkg-config)))
4115     (home-page "https://www.x.org/wiki/")
4116     (synopsis "Print an X window dump from xwd")
4117     (description
4118      "XPr takes as input a window dump file produced by xwd and formats
4119 it for output on various types of printers.")
4120     (license license:x11)))
4121
4122
4123 (define-public xprop
4124   (package
4125     (name "xprop")
4126     (version "1.2.3")
4127     (source
4128       (origin
4129         (method url-fetch)
4130         (uri (string-append
4131                "mirror://xorg/individual/app/xprop-"
4132                version
4133                ".tar.bz2"))
4134         (sha256
4135           (base32
4136             "06sjgahjiz85v0k0pmv5x05chc591xynl5ah1bqzz1bdr0lgnanj"))))
4137     (build-system gnu-build-system)
4138     (inputs
4139       `(("xproto" ,xproto)
4140         ("libx11" ,libx11)))
4141     (native-inputs
4142       `(("pkg-config" ,pkg-config)))
4143     (home-page "https://www.x.org/wiki/")
4144     (synopsis "Display X server properties")
4145     (description
4146      "xprop is used to display and/or set window and font properties of
4147 an X server.")
4148     (license license:x11)))
4149
4150
4151 (define-public xrandr
4152   (package
4153     (name "xrandr")
4154     (version "1.5.0")
4155     (source
4156       (origin
4157         (method url-fetch)
4158         (uri (string-append
4159                "mirror://xorg/individual/app/xrandr-"
4160                version ".tar.bz2"))
4161         (sha256
4162           (base32
4163             "1kaih7rmzxr1vp5a5zzjhm5x7dn9mckya088sqqw026pskhx9ky1"))))
4164     (build-system gnu-build-system)
4165     (inputs
4166       `(("libxrender" ,libxrender)
4167         ("libxrandr" ,libxrandr)
4168         ("xproto" ,xproto)
4169         ("libx11" ,libx11)))
4170     (native-inputs
4171      `(("pkg-config" ,pkg-config)))
4172     (home-page "https://www.x.org/wiki/")
4173     (synopsis "Command line interface to X RandR extension")
4174     (description
4175      "xrandr - primitive command line interface to X11 Resize, Rotate,
4176 and Reflect (RandR) extension.")
4177     (license license:x11)))
4178
4179
4180 (define-public xrdb
4181   (package
4182     (name "xrdb")
4183     (version "1.1.1")
4184     (source
4185       (origin
4186         (method url-fetch)
4187         (uri (string-append
4188                "mirror://xorg/individual/app/xrdb-"
4189                version
4190                ".tar.bz2"))
4191         (sha256
4192           (base32
4193             "1dqp486nd5sagbg572kl0k839nwvpqnb7jvppyb7jj5vrpkss8rd"))))
4194     (build-system gnu-build-system)
4195     (inputs
4196       `(("libxmu" ,libxmu)
4197         ("libx11" ,libx11)))
4198     (native-inputs
4199       `(("pkg-config" ,pkg-config)))
4200     (home-page "https://www.x.org/wiki/")
4201     (synopsis "X server resource database utility")
4202     (description
4203      "XRDB is used to get or set the contents of the RESOURCE_MANAGER
4204 property on the root window of screen 0, or the SCREEN_RESOURCES
4205 property on the root window of any or all screens, or everything
4206 combined.  You would normally run this program from your X startup
4207 file.")
4208     (license license:x11)))
4209
4210
4211 (define-public xrefresh
4212   (package
4213     (name "xrefresh")
4214     (version "1.0.6")
4215     (source
4216       (origin
4217         (method url-fetch)
4218         (uri (string-append
4219                "mirror://xorg/individual/app/xrefresh-"
4220                version
4221                ".tar.bz2"))
4222         (sha256
4223           (base32
4224             "0lv3rlshh7s0z3aqx5ahnnf8cl082m934bk7gv881mz8nydznz98"))))
4225     (build-system gnu-build-system)
4226     (inputs
4227       `(("libx11" ,libx11)))
4228     (native-inputs
4229       `(("pkg-config" ,pkg-config)))
4230     (home-page "https://www.x.org/wiki/")
4231     (synopsis "Refresh all or part of an X screen")
4232     (description
4233      "Xrefresh is a simple X program that causes all or part of your
4234 screen to be repainted.  This is useful when system messages have messed
4235 up your screen.")
4236     (license license:x11)))
4237
4238
4239 (define-public xset
4240   (package
4241     (name "xset")
4242     (version "1.2.4")
4243     (source
4244       (origin
4245         (method url-fetch)
4246         (uri (string-append
4247                "mirror://xorg/individual/app/xset-"
4248                version
4249                ".tar.bz2"))
4250         (sha256
4251           (base32
4252             "0my987wjvra7l92ry6q44ky383yg3phzxhdbn3lqhapm1ll9bzg4"))))
4253     (build-system gnu-build-system)
4254     (inputs
4255       `(("xproto" ,xproto)
4256         ("libxmu" ,libxmu)
4257         ("libxext" ,libxext)
4258         ("libx11" ,libx11)))
4259     (native-inputs
4260        `(("pkg-config" ,pkg-config)))
4261     (home-page "https://www.x.org/wiki/")
4262     (synopsis "User preference utility for X server")
4263     (description
4264      "XSet is used to set various user preference options of the display.")
4265     (license license:x11)))
4266
4267
4268 (define-public xsetroot
4269   (package
4270     (name "xsetroot")
4271     (version "1.1.2")
4272     (source
4273       (origin
4274         (method url-fetch)
4275         (uri (string-append
4276                "mirror://xorg/individual/app/xsetroot-"
4277                version
4278                ".tar.bz2"))
4279         (sha256
4280           (base32
4281             "0z21mqvmdl6rl63q77479wgkfygnll57liza1i3va7sr4fx45i0h"))))
4282     (build-system gnu-build-system)
4283     (inputs
4284       `(("libxmu" ,libxmu)
4285         ("libxcursor" ,libxcursor)
4286         ("xbitmaps" ,xbitmaps)))
4287     (native-inputs
4288       `(("pkg-config" ,pkg-config)))
4289     (home-page "https://www.x.org/wiki/")
4290     (synopsis "Root window parameter setting utility for X server")
4291     (description
4292      "XSetRoot allows you to tailor the appearance of the root window on
4293 a display running X server.")
4294     (license license:x11)))
4295
4296
4297 (define-public xtrans
4298   (package
4299     (name "xtrans")
4300     (version "1.3.5")
4301     (source
4302       (origin
4303         (method url-fetch)
4304         (uri (string-append
4305                "mirror://xorg/individual/lib/xtrans-"
4306                version
4307                ".tar.bz2"))
4308         (sha256
4309           (base32
4310             "00c3ph17acnsch3gbdmx33b9ifjnl5w7vx8hrmic1r1cjcv3pgdd"))))
4311     (build-system gnu-build-system)
4312     (native-inputs `(("pkg-config" ,pkg-config)))
4313     (home-page "https://www.x.org/wiki/")
4314     (synopsis "Xorg Network Transport layer library")
4315     (description
4316      "Xtrans is a library of code that is shared among various X packages to
4317 handle network protocol transport in a modular fashion, allowing a single
4318 place to add new transport types.  It is used by the X server, libX11,
4319 libICE, the X font server, and related components.")
4320     (license license:x11)))
4321
4322
4323 (define-public xvinfo
4324   (package
4325     (name "xvinfo")
4326     (version "1.1.3")
4327     (source
4328       (origin
4329         (method url-fetch)
4330         (uri (string-append
4331                "mirror://xorg/individual/app/xvinfo-"
4332                version
4333                ".tar.bz2"))
4334         (sha256
4335           (base32
4336             "1sz5wqhxd1fqsfi1w5advdlwzkizf2fgl12hdpk66f7mv9l8pflz"))))
4337     (build-system gnu-build-system)
4338     (inputs
4339       `(("libxext" ,libxext)
4340         ("libxv" ,libxv)
4341         ("libx11" ,libx11)))
4342     (native-inputs
4343       `(("pkg-config" ,pkg-config)))
4344     (home-page "https://www.x.org/wiki/")
4345     (synopsis "Print out X-Video extension adaptor information")
4346     (description
4347      "XVInfo is used to print out the capabilities of any video adaptors
4348 associated with the display that are accessible through the X-Video
4349 extension.")
4350     (license license:x11)))
4351
4352
4353 (define-public xwd
4354   (package
4355     (name "xwd")
4356     (version "1.0.7")
4357     (source
4358       (origin
4359         (method url-fetch)
4360         (uri (string-append
4361                "mirror://xorg/individual/app/xwd-"
4362                version
4363                ".tar.bz2"))
4364         (sha256
4365           (base32
4366             "1537i8q8pgf0sjklakzfvjwrq5b246qjywrx9ll8xfg0p6w1as6d"))))
4367     (build-system gnu-build-system)
4368     (inputs
4369       `(("libxt" ,libxt)
4370         ("libxkbfile" ,libxkbfile)
4371         ("xproto" ,xproto)))
4372     (native-inputs
4373        `(("pkg-config" ,pkg-config)))
4374     (home-page "https://www.x.org/wiki/")
4375     (synopsis "Dump current contents of X window or screen to file")
4376     (description
4377      "Xwd is used to store window images in a specially formatted dump
4378 file.  This file can then be read by various other X utilities for
4379 redisplay, printing, editing, formatting, archiving, image processing,
4380 etc.  The target window is selected by clicking the pointer in the
4381 desired window.  The keyboard bell is rung once at the beginning of the
4382 dump and twice whenthe dump is completed.")
4383     (license license:x11)))
4384
4385
4386 (define-public xwininfo
4387   (package
4388     (name "xwininfo")
4389     (version "1.1.4")
4390     (source
4391       (origin
4392         (method url-fetch)
4393         (uri (string-append
4394                "mirror://xorg/individual/app/xwininfo-"
4395                version
4396                ".tar.bz2"))
4397         (sha256
4398           (base32
4399             "00avrpw4h5mr1klp41lv2j4dmq465v6l5kb5bhm4k5ml8sm9i543"))))
4400     (build-system gnu-build-system)
4401     (inputs
4402       `(("libx11" ,libx11)
4403         ("xproto" ,xproto)))
4404     (native-inputs
4405        `(("pkg-config" ,pkg-config)))
4406     (home-page "https://www.x.org/wiki/")
4407     (synopsis "Window information utility for X server")
4408     (description
4409      "XWinInfo is used to print out information about windows on an X server.
4410 Various information is displayed depending on which options are selected.")
4411     (license license:x11)))
4412
4413
4414 (define-public xwud
4415   (package
4416     (name "xwud")
4417     (version "1.0.5")
4418     (source
4419       (origin
4420         (method url-fetch)
4421         (uri (string-append
4422                "mirror://xorg/individual/app/xwud-"
4423                version
4424                ".tar.bz2"))
4425         (sha256
4426           (base32
4427             "1a8hdgy40smvblnh3s9f0vkqckl68nmivx7d48zk34m8z18p16cr"))))
4428     (build-system gnu-build-system)
4429     (inputs
4430       `(("xproto" ,xproto)
4431         ("libx11" ,libx11)))
4432     (native-inputs
4433        `(("pkg-config" ,pkg-config)))
4434     (home-page "https://www.x.org/wiki/")
4435     (synopsis "Display an X window dump from xwd")
4436     (description
4437      "Xwud is used to display in a window an image saved in a specially
4438 formatted dump file, such as produced by xwd.")
4439     (license license:x11)))
4440
4441 (define-public xorg-rgb
4442   (package
4443     (name "xorg-rgb")
4444     (version "1.0.6")
4445     (source
4446       (origin
4447         (method url-fetch)
4448         (uri (string-append
4449                "mirror://xorg/individual/app/rgb-"
4450                version
4451                ".tar.bz2"))
4452         (sha256
4453           (base32
4454             "1c76zcjs39ljil6f6jpx1x17c8fnvwazz7zvl3vbjfcrlmm7rjmv"))))
4455     (build-system gnu-build-system)
4456     (inputs
4457      `(("xproto" ,xproto)))
4458     (native-inputs
4459      `(("pkg-config" ,pkg-config)))
4460     (home-page "https://www.x.org/wiki/")
4461     (synopsis "X color name database")
4462     (description
4463      "This package provides the X color name database.")
4464     (license license:x11)))
4465
4466 ;; packages of height 1 in the propagated-inputs tree
4467
4468 (define-public fixesproto
4469   (package
4470     (name "fixesproto")
4471     (version "5.0")
4472     (source
4473       (origin
4474         (method url-fetch)
4475         (uri (string-append
4476                "mirror://xorg/individual/proto/fixesproto-"
4477                version
4478                ".tar.bz2"))
4479         (sha256
4480           (base32
4481             "1ki4wiq2iivx5g4w5ckzbjbap759kfqd72yg18m3zpbb4hqkybxs"))))
4482     (build-system gnu-build-system)
4483     (propagated-inputs
4484       `(("xextproto" ,xextproto)))
4485     (native-inputs
4486       `(("pkg-config" ,pkg-config)))
4487     (home-page "https://www.x.org/wiki/")
4488     (synopsis "Xorg FixesProto protocol headers")
4489     (description
4490      "Fixes Extension makes changes to many areas of the protocol to resolve
4491 issues raised by application interaction with core protocol mechanisms that
4492 cannot be adequately worked around on the client side of the wire.")
4493     (license license:x11)))
4494
4495
4496 (define-public libxdamage
4497   (package
4498     (name "libxdamage")
4499     (version "1.1.4")
4500     (source
4501       (origin
4502         (method url-fetch)
4503         (uri (string-append
4504                "mirror://xorg/individual/lib/libXdamage-"
4505                version
4506                ".tar.bz2"))
4507         (sha256
4508           (base32
4509             "1bamagq7g6s0d23l8rb3nppj8ifqj05f7z9bhbs4fdg8az3ffgvw"))))
4510     (build-system gnu-build-system)
4511     (propagated-inputs
4512       ;; These are all in the Requires or Requires.private field of xdamage.pc
4513       `(("damageproto" ,damageproto)
4514         ("libxfixes" ,libxfixes)
4515         ("xproto" ,xproto)
4516         ("libx11" ,libx11)))
4517     (native-inputs
4518       `(("pkg-config" ,pkg-config)))
4519     (home-page "https://www.x.org/wiki/")
4520     (synopsis "Xorg Damage Extension library")
4521     (description "Xorg library for the XDamage extension.")
4522     (license license:x11)))
4523
4524
4525 (define-public libxext
4526   (package
4527     (name "libxext")
4528     (version "1.3.3")
4529     (source
4530       (origin
4531         (method url-fetch)
4532         (uri (string-append
4533                "mirror://xorg/individual/lib/libXext-"
4534                version
4535                ".tar.bz2"))
4536         (sha256
4537           (base32
4538             "0dbfn5bznnrhqzvkrcmw4c44yvvpwdcsrvzxf4rk27r36b9x865m"))))
4539     (build-system gnu-build-system)
4540     (propagated-inputs
4541       `(("xextproto" ,xextproto)))
4542     (inputs
4543       `(("libxau" ,libxau)
4544         ("libx11" ,libx11)))
4545     (native-inputs
4546       `(("pkg-config" ,pkg-config)))
4547     (home-page "https://www.x.org/wiki/")
4548     (synopsis "Xorg Common extensions library")
4549     (description
4550      "Library for common extensions to the X11 protocol.")
4551     (license license:x11)))
4552
4553
4554 (define-public libxinerama
4555   (package
4556     (name "libxinerama")
4557     (version "1.1.3")
4558     (source
4559       (origin
4560         (method url-fetch)
4561         (uri (string-append
4562                "mirror://xorg/individual/lib/libXinerama-"
4563                version
4564                ".tar.bz2"))
4565         (sha256
4566           (base32
4567             "1qlqfvzw45gdzk9xirgwlp2qgj0hbsyiqj8yh8zml2bk2ygnjibs"))))
4568     (build-system gnu-build-system)
4569     (propagated-inputs
4570       `(("xineramaproto" ,xineramaproto)))
4571     (inputs
4572       `(("libxext" ,libxext)
4573         ("libx11" ,libx11)))
4574     (native-inputs
4575       `(("pkg-config" ,pkg-config)))
4576     (home-page "https://www.x.org/wiki/")
4577     (synopsis "Xorg Xinerama protocol library")
4578     (description "API for Xinerama extension to X11 protocol.")
4579     (license license:x11)))
4580
4581
4582 (define-public libxp
4583   (package
4584     (name "libxp")
4585     (version "1.0.3")
4586     (source
4587       (origin
4588         (method url-fetch)
4589         (uri (string-append
4590                "mirror://xorg/individual/lib/libXp-"
4591                version
4592                ".tar.bz2"))
4593         (sha256
4594           (base32
4595             "0mwc2jwmq03b1m9ihax5c6gw2ln8rc70zz4fsj3kb7440nchqdkz"))))
4596     (build-system gnu-build-system)
4597     (propagated-inputs
4598       `(("printproto" ,printproto)))
4599     (inputs
4600       `(("libx11" ,libx11)
4601         ("libxext" ,libxext)))
4602     (native-inputs
4603       `(("pkg-config" ,pkg-config)))
4604     (home-page "https://www.x.org/wiki/")
4605     (synopsis "Xorg Print Client library")
4606     (description "Xorg Print Client library.")
4607     (license license:x11)))
4608
4609
4610 (define-public libxrender
4611   (package
4612     (name "libxrender")
4613     (version "0.9.10")
4614     (source
4615       (origin
4616         (method url-fetch)
4617         (uri (string-append
4618                "mirror://xorg/individual/lib/libXrender-"
4619                version
4620                ".tar.bz2"))
4621         (sha256
4622           (base32
4623             "0j89cnb06g8x79wmmnwzykgkkfdhin9j7hjpvsxwlr3fz1wmjvf0"))))
4624     (build-system gnu-build-system)
4625     (propagated-inputs
4626       `(("renderproto" ,renderproto)))
4627     (inputs
4628       `(("xproto" ,xproto)
4629         ("libx11" ,libx11)))
4630     (native-inputs
4631       `(("pkg-config" ,pkg-config)))
4632     (home-page "https://www.x.org/wiki/")
4633     (synopsis "Xorg Render Extension library")
4634     (description "Library for the Render Extension to the X11 protocol.")
4635     (license license:x11)))
4636
4637 (define-public libxtst
4638   (package
4639     (name "libxtst")
4640     (version "1.2.3")
4641     (source
4642       (origin
4643         (method url-fetch)
4644         (uri (string-append
4645                "mirror://xorg/individual/lib/libXtst-"
4646                version
4647                ".tar.bz2"))
4648         (sha256
4649           (base32
4650             "012jpyj7xfm653a9jcfqbzxyywdmwb2b5wr1dwylx14f3f54jma6"))))
4651     (build-system gnu-build-system)
4652     (propagated-inputs
4653       `(("recordproto" ,recordproto)
4654         ("libxi" ,libxi)))
4655     (inputs
4656       `(("libx11" ,libx11)
4657         ("inputproto" ,inputproto)))
4658     (native-inputs
4659       `(("pkg-config" ,pkg-config)))
4660     (home-page "https://www.x.org/wiki/")
4661     (synopsis "Xorg library for Xtest and Record extensions")
4662     (description
4663      "libXtst provides the Xlib-based client API for the XTEST & RECORD
4664 extensions.
4665
4666 The XTEST extension is a minimal set of client and server extensions
4667 required to completely test the X11 server with no user intervention.  This
4668 extension is not intended to support general journaling and playback of user
4669 actions.
4670
4671 The RECORD extension supports the recording and reporting of all core X
4672 protocol and arbitrary X extension protocol.")
4673     (license license:x11)))
4674
4675 (define-public libxv
4676   (package
4677     (name "libxv")
4678     (version "1.0.11")
4679     (source
4680       (origin
4681         (method url-fetch)
4682         (uri (string-append
4683                "mirror://xorg/individual/lib/libXv-"
4684                version
4685                ".tar.bz2"))
4686         (sha256
4687           (base32
4688             "125hn06bd3d8y97hm2pbf5j55gg4r2hpd3ifad651i4sr7m16v6j"))))
4689     (build-system gnu-build-system)
4690     (propagated-inputs
4691      `(("videoproto" ,videoproto)))
4692     (inputs
4693       `(("xproto" ,xproto)
4694         ("libxext" ,libxext)
4695         ("libx11" ,libx11)))
4696     (native-inputs
4697       `(("pkg-config" ,pkg-config)))
4698     (home-page "https://www.x.org/wiki/")
4699     (synopsis "Xorg XVideo Extension library")
4700     (description "Library for the X Video Extension to the X11 protocol.")
4701     (license license:x11)))
4702
4703 (define-public mkfontdir
4704   (package
4705     (name "mkfontdir")
4706     (version "1.0.7")
4707     (source
4708       (origin
4709         (method url-fetch)
4710         (uri (string-append
4711                "mirror://xorg/individual/app/mkfontdir-"
4712                version
4713                ".tar.bz2"))
4714         (sha256
4715           (base32
4716             "0c3563kw9fg15dpgx4dwvl12qz6sdqdns1pxa574hc7i5m42mman"))))
4717     (build-system gnu-build-system)
4718     (arguments
4719      '(#:phases
4720        (modify-phases %standard-phases
4721          (add-after 'install 'wrap-mkfontdir
4722            (lambda* (#:key inputs outputs #:allow-other-keys)
4723              (wrap-program (string-append (assoc-ref outputs "out")
4724                                           "/bin/mkfontdir")
4725                `("PATH" ":" prefix
4726                  (,(string-append (assoc-ref inputs "mkfontscale")
4727                                   "/bin")))))))))
4728     (inputs
4729       `(("mkfontscale" ,mkfontscale)))
4730     (native-inputs
4731       `(("pkg-config" ,pkg-config)))
4732     (home-page "https://www.x.org/wiki/")
4733     (synopsis "Create an index of X font files in a directory")
4734     (description
4735      "MkFontDir creates the 'fonts.dir' files needed by the legacy X
4736 server core font system.  The current implementation is a simple wrapper
4737 script around the mkfontscale program.")
4738     (license license:x11)))
4739
4740
4741 (define-public xproto
4742   (package
4743     (name "xproto")
4744     (version "7.0.31")
4745     (source
4746       (origin
4747         (method url-fetch)
4748         (uri (string-append
4749                "mirror://xorg/individual/proto/xproto-"
4750                version
4751                ".tar.bz2"))
4752         (sha256
4753           (base32
4754             "0ivpxz0rx2a7nahkpkhfgymz7j0pwzaqvyqpdgw9afmxl1yp9yf6"))))
4755     (build-system gnu-build-system)
4756     (propagated-inputs
4757       `(("util-macros" ,util-macros))) ; to get util-macros in (almost?) all package inputs
4758     (native-inputs
4759       `(("pkg-config" ,pkg-config)))
4760     (home-page "https://www.x.org/wiki/")
4761     (synopsis "Xorg X11Proto protocol headers")
4762     (description
4763      "XProto provides the headers and specification documents defining
4764 the X Window System Core Protocol, Version 11.
4765
4766 It also includes a number of headers that aren't purely protocol related,
4767 but are depended upon by many other X Window System packages to provide
4768 common definitions and porting layer.")
4769     (license license:x11)))
4770
4771 (define-public xorgproto
4772   (package
4773     (name "xorgproto")
4774     (version "2018.4")
4775     (source (origin
4776               (method url-fetch)
4777               (uri (string-append "mirror://xorg/individual/proto/"
4778                                   name "-" version ".tar.bz2"))
4779               (sha256
4780                (base32
4781                 "180mqkp70i44rkmj430pmn9idssvffrgv4y5h19fm698a7h8bs7y"))))
4782     (build-system gnu-build-system)
4783     (propagated-inputs
4784      ;; To get util-macros in (almost?) all package inputs.
4785      `(("util-macros" ,util-macros)))
4786     (home-page "https://cgit.freedesktop.org/xorg/proto/xorgproto")
4787     (synopsis "Xorg protocol headers")
4788     (description
4789      "This package provides the headers and specification documents defining
4790 the core protocol and (many) extensions for the X Window System.")
4791     (license license:x11)))
4792
4793
4794 ;; packages of height 2 in the propagated-inputs tree
4795
4796 (define-public libice
4797   (package
4798     (name "libice")
4799     (version "1.0.9")
4800     (source
4801       (origin
4802         (method url-fetch)
4803         (uri (string-append
4804                "mirror://xorg/individual/lib/libICE-"
4805                version
4806                ".tar.bz2"))
4807         (sha256
4808           (base32
4809             "00p2b6bsg6kcdbb39bv46339qcywxfl4hsrz8asm4hy6q7r34w4g"))))
4810     (build-system gnu-build-system)
4811     (propagated-inputs
4812       `(("xproto" ,xproto)))
4813     (inputs
4814       `(("libbsd" ,libbsd)
4815         ("xtrans" ,xtrans)))
4816     (native-inputs
4817       `(("pkg-config" ,pkg-config)))
4818     (home-page "https://www.x.org/wiki/")
4819     (synopsis "Xorg Inter-Client Exchange library")
4820     (description "Xorg Inter-Client Exchange library.")
4821     (license license:x11)))
4822
4823
4824 (define-public libxau
4825   (package
4826     (name "libxau")
4827     (version "1.0.8")
4828     (source
4829       (origin
4830         (method url-fetch)
4831         (uri (string-append
4832                "mirror://xorg/individual/lib/libXau-"
4833                version
4834                ".tar.bz2"))
4835         (sha256
4836           (base32
4837             "1wm4pv12f36cwzhldpp7vy3lhm3xdcnp4f184xkxsp7b18r7gm7x"))))
4838     (build-system gnu-build-system)
4839     (propagated-inputs
4840       `(("xproto" ,xproto)))
4841     (native-inputs
4842       `(("pkg-config" ,pkg-config)))
4843     (home-page "https://www.x.org/wiki/")
4844     (synopsis "Xorg Authorization library")
4845     (description
4846      "libXau provides an authorization library for individual access to
4847 an X Window System display.")
4848     (license license:x11)))
4849
4850 (define-public libxfixes
4851   (package
4852     (name "libxfixes")
4853     (version "5.0.3")
4854     (source
4855       (origin
4856         (method url-fetch)
4857         (uri (string-append
4858                "mirror://xorg/individual/lib/libXfixes-"
4859                version
4860                ".tar.bz2"))
4861         (sha256
4862           (base32
4863             "1miana3y4hwdqdparsccmygqr3ic3hs5jrqfzp70hvi2zwxd676y"))))
4864     (build-system gnu-build-system)
4865     (propagated-inputs
4866       `(("fixesproto" ,fixesproto)))
4867     (inputs
4868       `(("xproto" ,xproto)
4869         ("libx11" ,libx11)))
4870     (native-inputs
4871       `(("pkg-config" ,pkg-config)))
4872     (home-page "https://www.x.org/wiki/")
4873     (synopsis "Xorg Fixes Extension library")
4874     (description "Library for the XFixes Extension to the X11 protocol.")
4875     (license license:x11)))
4876
4877 (define-public libxfont
4878   (package
4879     (name "libxfont")
4880     (version "1.5.4")
4881     (source
4882       (origin
4883         (method url-fetch)
4884         (uri (string-append
4885                "mirror://xorg/individual/lib/libXfont-"
4886                version
4887                ".tar.bz2"))
4888         (sha256
4889           (base32
4890             "0hiji1bvpl78aj3a3141hkk353aich71wv8l5l2z51scfy878zqs"))))
4891     (build-system gnu-build-system)
4892     (propagated-inputs
4893       `(("fontsproto" ,fontsproto)
4894         ("freetype" ,freetype)
4895         ("libfontenc" ,libfontenc)
4896         ("xproto" ,xproto)))
4897     (inputs
4898       `(("zlib" ,zlib)
4899         ("xtrans" ,xtrans)))
4900     (native-inputs
4901        `(("pkg-config" ,pkg-config)))
4902     (home-page "https://www.x.org/wiki/")
4903     (synopsis "Xorg Font handling library")
4904     (description
4905      "libXfont provides the core of the legacy X11 font system, handling the
4906 index files (fonts.dir, fonts.alias, fonts.scale), the various font file
4907 formats, and rasterizing them.  It is used by the X servers, the X Font
4908 Server (xfs), and some font utilities (bdftopcf for instance), but should
4909 not be used by normal X11 clients.  X11 clients access fonts via either the
4910 new API's in libXft, or the legacy API's in libX11.")
4911     (license license:x11)))
4912
4913 (define-public libxfont2
4914   (package
4915     (inherit libxfont)
4916     (version "2.0.3")
4917     (source (origin
4918               (method url-fetch)
4919               (uri (string-append "mirror://xorg/individual/lib/libXfont2-"
4920                                   version ".tar.bz2"))
4921               (sha256
4922                (base32
4923                 "0klwmimmhm3axpj8pwn5l41lbggh47r5aazhw63zxkbwfgyvg2hf"))))))
4924
4925 (define-public libxi
4926   (package
4927     (name "libxi")
4928     (version "1.7.9")
4929     (source
4930       (origin
4931         (method url-fetch)
4932         (uri (string-append
4933                "mirror://xorg/individual/lib/libXi-"
4934                version
4935                ".tar.bz2"))
4936         (sha256
4937           (base32
4938             "0idg1wc01hndvaa820fvfs7phvd1ymf0lldmq6386i7rhkzvirn2"))))
4939     (build-system gnu-build-system)
4940     (propagated-inputs
4941       `(("inputproto" ,inputproto)
4942         ("libx11" ,libx11)
4943         ("libxext" ,libxext)
4944         ("libxfixes" ,libxfixes)))
4945     (inputs
4946       `(("xproto" ,xproto)))
4947     (native-inputs
4948        `(("pkg-config" ,pkg-config)))
4949     (home-page "https://www.x.org/wiki/")
4950     (synopsis "Xorg Input Extension library")
4951     (description "Library for the XInput Extension to the X11 protocol.")
4952     (license license:x11)))
4953
4954 (define-public libxrandr
4955   (package
4956     (name "libxrandr")
4957     (version "1.5.1")
4958     (source
4959       (origin
4960         (method url-fetch)
4961         (uri (string-append
4962                "mirror://xorg/individual/lib/libXrandr-"
4963                version
4964                ".tar.bz2"))
4965         (sha256
4966           (base32
4967             "06pmphx8lp3iywqnh88fvbfb0d8xgkx0qpvan49akpja1vxfgy8z"))))
4968     (build-system gnu-build-system)
4969     (propagated-inputs
4970       ;; In accordance with xrandr.pc.
4971       `(("libx11" ,libx11)
4972         ("libxext" ,libxext)
4973         ("libxrender" ,libxrender)
4974         ("randrproto" ,randrproto)
4975         ("xproto" ,xproto)))
4976     (native-inputs
4977        `(("pkg-config" ,pkg-config)))
4978     (home-page "https://www.x.org/wiki/")
4979     (synopsis "Xorg Resize and Rotate Extension library")
4980     (description
4981      "Library for the Resize and Rotate Extension to the X11 protocol.")
4982     (license license:x11)))
4983
4984 (define-public libxvmc
4985   (package
4986     (name "libxvmc")
4987     (version "1.0.10")
4988     (source
4989       (origin
4990         (method url-fetch)
4991         (uri (string-append
4992                "mirror://xorg/individual/lib/libXvMC-"
4993                version
4994                ".tar.bz2"))
4995         (sha256
4996           (base32
4997             "0bpffxr5dal90a8miv2w0rif61byqxq2f5angj4z1bnznmws00g5"))))
4998     (build-system gnu-build-system)
4999     (propagated-inputs
5000       `(("libxv" ,libxv)))
5001     (inputs
5002       `(("xproto" ,xproto)
5003         ("libxext" ,libxext)
5004         ("libx11" ,libx11)))
5005     (native-inputs
5006        `(("pkg-config" ,pkg-config)))
5007     (home-page "https://www.x.org/wiki/")
5008     (synopsis "Xorg XvMC library")
5009     (description "Xorg XvMC library.")
5010     (license license:x11)))
5011
5012 (define-public libxxf86vm
5013   (package
5014     (name "libxxf86vm")
5015     (version "1.1.4")
5016     (source
5017       (origin
5018         (method url-fetch)
5019         (uri (string-append
5020                "mirror://xorg/individual/lib/libXxf86vm-"
5021                version
5022                ".tar.bz2"))
5023         (sha256
5024           (base32
5025             "0mydhlyn72i7brjwypsqrpkls3nm6vxw0li8b2nw0caz7kwjgvmg"))))
5026     (build-system gnu-build-system)
5027     (propagated-inputs
5028       `(("libxext" ,libxext)
5029         ("xf86vidmodeproto" ,xf86vidmodeproto)))
5030     (inputs
5031       `(("libx11" ,libx11)))
5032     (native-inputs
5033        `(("pkg-config" ,pkg-config)))
5034     (home-page "https://www.x.org/wiki/")
5035     (synopsis "Xorg XF86 Video Mode Extension library")
5036     (description
5037      "Library for the XFree86 Video Mode Extension Extension to the X11
5038 protocol.")
5039     (license license:x11)))
5040
5041
5042 ;; packages of height 3 in the propagated-inputs tree
5043
5044 (define-public libxcb
5045   (package
5046     (name "libxcb")
5047     (version "1.12")
5048     (source
5049       (origin
5050         (method url-fetch)
5051         (uri (string-append "https://xcb.freedesktop.org/dist/"
5052                             name "-" version ".tar.bz2"))
5053         (sha256
5054           (base32
5055            "0nvv0la91cf8p5qqlb3r5xnmg1jn2wphn4fb5jfbr6byqsvv3psa"))
5056         (patches
5057          (search-patches "libxcb-python-3.5-compat.patch"))))
5058     (build-system gnu-build-system)
5059     (propagated-inputs
5060       `(("libpthread-stubs" ,libpthread-stubs)
5061         ("libxau" ,libxau)
5062         ("libxdmcp" ,libxdmcp)))
5063     (inputs
5064       `(("xcb-proto" ,xcb-proto)
5065         ("libxslt" ,libxslt)))
5066     (native-inputs
5067       `(("pkg-config" ,pkg-config)
5068         ("python" ,python-minimal-wrapper)))
5069     (arguments
5070      `(#:configure-flags '("--enable-xkb")))
5071     (home-page "https://xcb.freedesktop.org/")
5072     (synopsis "The X C Binding (XCB) library")
5073     (description
5074      "libxcb provides an interface to the X Window System protocol,
5075 which replaces the current Xlib interface.  It has several advantages
5076 over Xlib, including:
5077
5078 - size: small, simple library, and lower memory footprint;
5079
5080 - latency hiding: batch several requests and wait for the replies later;
5081
5082 - direct protocol access: interface and protocol correspond exactly;
5083
5084 - proven thread support: transparently access XCB from multiple threads;
5085
5086 - easy extension implementation: interfaces auto-generated from XML-XCB.")
5087     (license license:x11)))
5088
5089
5090 (define-public xorg-server
5091   (package
5092     (name "xorg-server")
5093     (version "1.19.6")
5094     (source
5095       (origin
5096         (method url-fetch)
5097         (uri (string-append
5098               "mirror://xorg/individual/xserver/"
5099               name "-" version ".tar.bz2"))
5100         (sha256
5101          (base32
5102           "15y13ihgkggmly5s07vzvpn35gzx1w0hrkbnlcvcy05h3lpm0cm7"))
5103         (patches
5104          (list
5105           ;; See:
5106           ;;   https://lists.fedoraproject.org/archives/list/devel@lists.
5107           ;;      fedoraproject.org/message/JU655YB7AM4OOEQ4MOMCRHJTYJ76VFOK/
5108           (origin
5109             (method url-fetch)
5110             (uri (string-append
5111                   "http://pkgs.fedoraproject.org/cgit/rpms/xorg-x11-server.git"
5112                   "/plain/06_use-intel-only-on-pre-gen4.diff"))
5113             (sha256
5114              (base32
5115               "0mm70y058r8s9y9jiv7q2myv0ycnaw3iqzm7d274410s0ik38w7q"))
5116             (file-name "xorg-server-use-intel-only-on-pre-gen4.diff"))))))
5117     (build-system gnu-build-system)
5118     (propagated-inputs
5119       `(("dri2proto" ,dri2proto)
5120         ("dri3proto" ,dri3proto)
5121         ("fontsproto" ,fontsproto)
5122         ("inputproto" ,inputproto)
5123         ("kbproto" ,kbproto)
5124         ("libpciaccess" ,libpciaccess)
5125         ("mesa" ,mesa)
5126         ("pixman" ,pixman)
5127         ("presentproto" ,presentproto)
5128         ("randrproto" ,randrproto)
5129         ("renderproto" ,renderproto)
5130         ("resourceproto" ,resourceproto)
5131         ("scrnsaverproto" ,scrnsaverproto)
5132         ("videoproto" ,videoproto)
5133         ("xextproto" ,xextproto)
5134         ("xineramaproto" ,xineramaproto)
5135         ("xf86driproto" ,xf86driproto)
5136         ("xproto" ,xproto)))
5137     (inputs
5138       `(("bigreqsproto" ,bigreqsproto)
5139         ("compositeproto" ,compositeproto)
5140         ("damageproto" ,damageproto)
5141         ("udev" ,eudev)
5142         ("dbus" ,dbus)
5143         ("dmxproto" ,dmxproto)
5144         ("libdmx" ,libdmx)
5145         ("libepoxy" ,libepoxy)
5146         ("libgcrypt" ,libgcrypt)
5147         ("libxau" ,libxau)
5148         ("libxaw" ,libxaw)
5149         ("libxdmcp" ,libxdmcp)
5150         ("libxfixes" ,libxfixes)
5151         ("libxfont2" ,libxfont2)
5152         ("libxkbfile" ,libxkbfile)
5153         ("libxrender" ,libxrender)
5154         ("libxres" ,libxres)
5155         ("libxshmfence" ,libxshmfence)
5156         ("libxt" ,libxt)
5157         ("libxv" ,libxv)
5158         ("recordproto" ,recordproto)
5159         ("xcmiscproto" ,xcmiscproto)
5160         ("xf86bigfontproto" ,xf86bigfontproto)
5161         ("xf86dgaproto" ,xf86dgaproto)
5162         ("xf86vidmodeproto" ,xf86vidmodeproto)
5163         ("xkbcomp" ,xkbcomp)
5164         ("xkeyboard-config" ,xkeyboard-config)
5165         ("xtrans" ,xtrans)
5166         ("zlib" ,zlib)
5167         ;; Inputs for Xephyr
5168         ("xcb-util" ,xcb-util)
5169         ("xcb-util-image" ,xcb-util-image)
5170         ("xcb-util-keysyms" ,xcb-util-keysyms)
5171         ("xcb-util-renderutil" ,xcb-util-renderutil)
5172         ("xcb-util-wm" ,xcb-util-wm)))
5173     (native-inputs
5174        `(("python" ,python-minimal-wrapper)
5175          ("pkg-config" ,pkg-config)))
5176     (arguments
5177      `(#:parallel-tests? #f
5178        #:configure-flags
5179        (list (string-append "--with-xkb-path="
5180                             (assoc-ref %build-inputs "xkeyboard-config")
5181                             "/share/X11/xkb")
5182              (string-append "--with-xkb-output="
5183                             "/tmp") ; FIXME: This is a bit doubtful; where should
5184                                     ; the compiled keyboard maps go?
5185              (string-append "--with-xkb-bin-directory="
5186                             (assoc-ref %build-inputs "xkbcomp")
5187                             "/bin")
5188              ;; By default, it ends up with invalid '${prefix}/...', causes:
5189              ;;   _FontTransOpen: Unable to Parse address ${prefix}/share/...
5190              ;; It's not used anyway, so set it to empty.
5191              "--with-default-font-path="
5192
5193              ;; The default is to use "uname -srm", which captures the kernel
5194              ;; version and makes builds non-reproducible.
5195              "--with-os-name=GNU"
5196
5197              "--with-os-vendor=GuixSD"    ;not strictly needed, but looks nice
5198
5199
5200              ;; For the log file, etc.
5201              "--localstatedir=/var"
5202              ;; For sddm
5203              "--enable-kdrive"
5204              "--enable-xephyr")
5205
5206        #:phases
5207        (modify-phases %standard-phases
5208          (add-before 'configure 'pre-configure
5209            (lambda _
5210              (substitute* (find-files "." "\\.c$")
5211                (("/bin/sh") (which "sh")))
5212
5213              ;; Don't try to 'mkdir /var'.
5214              (substitute* "hw/xfree86/Makefile.in"
5215                (("\\$\\(MKDIR_P\\).*logdir.*")
5216                 "true\n"))
5217
5218              ;; Strip timestamps that would otherwise end up in the 'Xorg'
5219              ;; binary.
5220              (substitute* "configure"
5221                (("^BUILD_DATE=.*$")
5222                 "BUILD_DATE=19700101\n")
5223                (("^BUILD_TIME=.*$")
5224                 "BUILD_TIME=000001\n"))
5225
5226              #t)))))
5227     (home-page "https://www.x.org/wiki/")
5228     (synopsis "Xorg implementation of the X Window System")
5229     (description
5230      "This package provides the Xorg X server itself.
5231 The X server accepts requests from client programs to create windows, which
5232 are (normally rectangular) 'virtual screens' that the client program can
5233 draw into.
5234
5235 Windows are then composed on the actual screen by the X server (or by a
5236 separate composite manager) as directed by the window manager, which usually
5237 communicates with the user via graphical controls such as buttons and
5238 draggable titlebars and borders.")
5239     (license license:x11)))
5240
5241 ;; This package is intended to be used when building GTK+.
5242 ;; Note: It's currently marked as "hidden" to avoid having two non-eq?
5243 ;; packages with the same name and version.
5244 (define-public xorg-server-1.19.3
5245   (hidden-package
5246    (package
5247      (inherit xorg-server)
5248      (name "xorg-server")
5249      (version "1.19.3")
5250      (source
5251       (origin
5252         (method url-fetch)
5253         (uri (string-append
5254               "mirror://xorg/individual/xserver/"
5255               name "-" version ".tar.bz2"))
5256         (sha256
5257          (base32
5258           "162s1v901djr57gxmmk4airk8hiwcz79dqyz72972x1lw1k82yk7")))))))
5259
5260 (define-public xorg-server-xwayland
5261   (package
5262     (inherit xorg-server)
5263     (name "xorg-server-xwayland")
5264     (inputs
5265      `(("wayland" ,wayland)
5266        ("wayland-protocols" ,wayland-protocols)
5267        ,@(package-inputs xorg-server)))
5268     (arguments
5269      (substitute-keyword-arguments (package-arguments xorg-server)
5270        ((#:configure-flags flags)
5271         `(cons* "--enable-xwayland" "--disable-xorg"
5272                 "--disable-docs"    "--disable-devel-docs"
5273                 "--disable-xvfb"    "--disable-xnest"
5274                 "--disable-xquartz" "--disable-xwin"
5275                 ,flags))))
5276     (synopsis "Xorg server with wayland backend")))
5277
5278
5279 ;; packages of height 4 in the propagated-inputs tree
5280
5281 (define-public libx11
5282   (package
5283     (name "libx11")
5284     (version "1.6.5")
5285     (source
5286       (origin
5287         (method url-fetch)
5288         (uri (string-append
5289                "mirror://xorg/individual/lib/libX11-"
5290                version
5291                ".tar.bz2"))
5292         (sha256
5293           (base32
5294             "0pa3cfp6h9rl2vxmkph65250gfqyki0ccqyaan6bl9d25gdr0f2d"))))
5295     (build-system gnu-build-system)
5296     (outputs '("out"
5297                "doc"))                            ;8 MiB of man pages + XML
5298     (arguments
5299      '(#:configure-flags (list (string-append "--mandir="
5300                                               (assoc-ref %outputs "doc")
5301                                               "/share/man"))))
5302     (propagated-inputs
5303       `(("kbproto" ,kbproto)
5304         ("libxcb" ,libxcb)))
5305     (inputs
5306       `(("inputproto" ,inputproto)
5307         ("xextproto" ,xextproto)
5308         ("xtrans" ,xtrans)))
5309     (native-inputs
5310       `(("pkg-config" ,pkg-config)))
5311     (home-page "https://www.x.org/wiki/")
5312     (synopsis "Xorg Core X11 protocol client library")
5313     (description "Xorg Core X11 protocol client library.")
5314     (license license:x11)))
5315
5316 ;; packages of height 5 in the propagated-inputs tree
5317
5318 (define-public libxcursor
5319   (package
5320     (name "libxcursor")
5321     (version "1.1.15")
5322     (source
5323       (origin
5324         (method url-fetch)
5325         (uri (string-append
5326                "mirror://xorg/individual/lib/libXcursor-"
5327                version
5328                ".tar.bz2"))
5329         (sha256
5330           (base32
5331             "0syzlfvh29037p0vnlc8f3jxz8nl55k65blswsakklkwsc6nfki9"))))
5332     (build-system gnu-build-system)
5333     (propagated-inputs
5334       `(("libx11" ,libx11)
5335         ("libxrender" ,libxrender)
5336         ("libxfixes" ,libxfixes)
5337         ("xproto" ,xproto)))
5338     (native-inputs
5339       `(("pkg-config" ,pkg-config)))
5340 ;; TODO: add XCURSOR_PATH=.../share/icons to profile search paths, so
5341 ;; libXcursor finds cursors installed into a profile.  If we solve bugs
5342 ;; <http://bugs.gnu.org/20255> and <http://bugs.gnu.org/22138>, we can fix
5343 ;; this with a search-path as follows:
5344 ;;
5345 ;;    (native-search-paths
5346 ;;     (list (search-path-specification
5347 ;;            (variable "XCURSOR_PATH")
5348 ;;            (files '("share/icons")))))
5349     (home-page "https://www.x.org/wiki/")
5350     (synopsis "Xorg Cursor management library")
5351     (description "Xorg Cursor management library.")
5352     (license license:x11)))
5353
5354 (define-public libxt
5355   (package
5356     (name "libxt")
5357     (version "1.1.5")
5358     (source
5359       (origin
5360         (method url-fetch)
5361         (uri (string-append
5362                "mirror://xorg/individual/lib/libXt-"
5363                version
5364                ".tar.bz2"))
5365         (sha256
5366           (base32
5367            "06lz6i7rbrp19kgikpaz4c97fw7n31k2h2aiikczs482g2zbdvj6"))
5368         (patches (search-patches "libxt-guix-search-paths.patch"))))
5369     (build-system gnu-build-system)
5370     (outputs '("out"
5371                "doc"))                            ;2 MiB of man pages + XML
5372     (arguments
5373      '(#:configure-flags (list (string-append "--mandir="
5374                                               (assoc-ref %outputs "doc")
5375                                               "/share/man"))))
5376     (propagated-inputs
5377       `(("libx11" ,libx11)
5378         ("libice" ,libice)
5379         ("libsm" ,libsm)))
5380     (inputs
5381       `(("libx11" ,libx11)))
5382     (native-inputs
5383       `(("pkg-config" ,pkg-config)))
5384     (home-page "https://www.x.org/wiki/")
5385     (synopsis "Xorg XToolkit Intrinsics library")
5386     (description "Xorg XToolkit Intrinsics library.")
5387     (license license:x11)))
5388
5389
5390 (define-public libxaw
5391   (package
5392     (name "libxaw")
5393     (version "1.0.13")
5394     (source
5395       (origin
5396         (method url-fetch)
5397         (uri (string-append
5398                "mirror://xorg/individual/lib/libXaw-"
5399                version
5400                ".tar.bz2"))
5401         (sha256
5402           (base32
5403             "1kdhxplwrn43d9jp3v54llp05kwx210lrsdvqb6944jp29rhdy4f"))))
5404     (build-system gnu-build-system)
5405     (propagated-inputs
5406       `(("libxext" ,libxext)
5407         ("libxmu" ,libxmu)
5408         ("libxpm" ,libxpm)
5409         ("libxt" ,libxt)))
5410     (inputs
5411       `(("xproto" ,xproto)))
5412     (native-inputs
5413       `(("pkg-config" ,pkg-config)))
5414     (home-page "https://www.x.org/wiki/")
5415     (synopsis "Xorg Xaw library")
5416     (description
5417      "Xaw is the X Athena Widget Set based on the X Toolkit
5418 Intrinsics (Xt) Library.")
5419     (license license:x11)))
5420
5421 (define-public twm
5422   (package
5423     (name "twm")
5424     (version "1.0.10")
5425     (source
5426      (origin
5427        (method url-fetch)
5428        (uri (string-append
5429              "mirror://xorg/individual/app/" name "-"
5430              version
5431              ".tar.bz2"))
5432        (sha256
5433         (base32
5434          "1ms5cj1w3g26zg6bxdv1j9hl0pxr4300qnv003cz1q3cl7ffljb4"))))
5435     (build-system gnu-build-system)
5436     (inputs
5437      `(("libxt" ,libxt)
5438        ("libxmu" ,libxmu)
5439        ("libxext" ,libxext)
5440        ("xproto" ,xproto)))
5441     (native-inputs
5442      `(("bison" ,bison)
5443        ("pkg-config" ,pkg-config)))
5444     (home-page "https://www.x.org/wiki/")
5445     (synopsis "Tab Window Manager for the X Window System")
5446     (description "Twm is a window manager for the X Window System.
5447 It provides titlebars, shaped windows, several forms of icon management,
5448 user-defined macro functions, click-to-type and pointer-driven
5449 keyboard focus, and user-specified key and pointer button bindings.")
5450     (license license:x11)))
5451
5452 (define-public xcb-util
5453   (package
5454     (name "xcb-util")
5455     (version "0.4.0")
5456     (source (origin
5457              (method url-fetch)
5458              (uri (string-append "mirror://xorg/individual/xcb/"
5459                                  name "-" version ".tar.bz2"))
5460              (sha256
5461               (base32
5462                "1sahmrgbpyki4bb72hxym0zvxwnycmswsxiisgqlln9vrdlr9r26"))))
5463     (build-system gnu-build-system)
5464     (propagated-inputs
5465      `(("libxcb" ,libxcb)))
5466     (native-inputs
5467      `(("pkg-config" ,pkg-config)))
5468     (home-page "https://cgit.freedesktop.org/xcb/util/")
5469     (synopsis "Core XCB utility functions")
5470     (description
5471      "The XCB util module provides a number of libraries which sit on
5472 top of libxcb, the core X protocol library, and some of the extension
5473 libraries.  These experimental libraries provide convenience functions
5474 and interfaces which make the raw X protocol more usable.  Some of the
5475 libraries also provide client-side code which is not strictly part of
5476 the X protocol but which has traditionally been provided by Xlib.
5477
5478 The XCB util module provides the following libraries:
5479
5480 - aux: Convenient access to connection setup and some core requests.
5481
5482 - atom: Standard core X atom constants and atom caching.
5483
5484 - event: Some utilities that have little to do with events any more.")
5485     (license license:x11)))
5486
5487
5488 (define-public xcb-util-cursor
5489   (package
5490     (name "xcb-util-cursor")
5491     (version "0.1.3")
5492     (source (origin
5493               (method url-fetch)
5494               (uri (string-append "https://xcb.freedesktop.org/dist/"
5495                                   "xcb-util-cursor-" version ".tar.bz2"))
5496               (sha256
5497                (base32
5498                 "0krr4rcw6r42cncinzvzzdqnmxk3nrgpnadyg2h8k9x10q3hm885"))))
5499     (build-system gnu-build-system)
5500     (native-inputs
5501      `(("m4" ,m4)
5502        ("pkg-config" ,pkg-config)))
5503     (inputs
5504      `(("libxcb" ,libxcb)))
5505     (propagated-inputs
5506      `(("xcb-util-renderutil" ,xcb-util-renderutil)
5507        ("xcb-util-image" ,xcb-util-image)))
5508     (home-page "https://cgit.freedesktop.org/xcb/util-cursor/")
5509     (synopsis "Port of libxcursor")
5510     (description "XCB-util-cursor is a port of libxcursor.")
5511     (license
5512      ; expat license  with added clause regarding advertising
5513      (license:non-copyleft
5514       "file://COPYING"
5515       "See COPYING in the distribution."))))
5516
5517
5518 (define-public xcb-util-image
5519   (package
5520     (name "xcb-util-image")
5521     (version "0.4.0")
5522     (source (origin
5523              (method url-fetch)
5524              (uri (string-append "mirror://xorg/individual/xcb/"
5525                                  name "-" version ".tar.bz2"))
5526              (sha256
5527               (base32
5528                "1z1gxacg7q4cw6jrd26gvi5y04npsyavblcdad1xccc8swvnmf9d"))))
5529     (build-system gnu-build-system)
5530     (propagated-inputs
5531      `(("libxcb" ,libxcb)))
5532     (inputs
5533      `(("xcb-util" ,xcb-util)))
5534     (native-inputs
5535      `(("pkg-config" ,pkg-config)))
5536     (home-page "https://cgit.freedesktop.org/xcb/util-image/")
5537     (synopsis "XCB port of Xlib's XImage and XShmImage")
5538     (description
5539      "The XCB util module provides a number of libraries which sit on
5540 top of libxcb, the core X protocol library, and some of the extension
5541 libraries.  These experimental libraries provide convenience functions
5542 and interfaces which make the raw X protocol more usable.  Some of the
5543 libraries also provide client-side code which is not strictly part of
5544 the X protocol but which has traditionally been provided by Xlib.
5545
5546 The XCB util-image module provides the following library:
5547
5548 - image: Port of Xlib's XImage and XShmImage functions.")
5549     (license license:x11)))
5550
5551
5552 (define-public xcb-util-keysyms
5553   (package
5554     (name "xcb-util-keysyms")
5555     (version "0.4.0")
5556     (source (origin
5557              (method url-fetch)
5558              (uri (string-append "mirror://xorg/individual/xcb/"
5559                                  name "-" version ".tar.bz2"))
5560              (sha256
5561               (base32
5562                "1nbd45pzc1wm6v5drr5338j4nicbgxa5hcakvsvm5pnyy47lky0f"))))
5563     (build-system gnu-build-system)
5564     (propagated-inputs
5565      `(("libxcb" ,libxcb)))
5566     (native-inputs
5567      `(("pkg-config" ,pkg-config)))
5568     (home-page "https://cgit.freedesktop.org/xcb/util-keysyms/")
5569     (synopsis "Standard X constants and conversion to/from keycodes")
5570     (description
5571      "The XCB util module provides a number of libraries which sit on
5572 top of libxcb, the core X protocol library, and some of the extension
5573 libraries.  These experimental libraries provide convenience functions
5574 and interfaces which make the raw X protocol more usable.  Some of the
5575 libraries also provide client-side code which is not strictly part of
5576 the X protocol but which has traditionally been provided by Xlib.
5577
5578 The XCB util-keysyms module provides the following library:
5579
5580 - keysyms: Standard X key constants and conversion to/from keycodes.")
5581     (license license:x11)))
5582
5583
5584 (define-public xcb-util-renderutil
5585   (package
5586     (name "xcb-util-renderutil")
5587     (version "0.3.9")
5588     (source (origin
5589              (method url-fetch)
5590              (uri (string-append "mirror://xorg/individual/xcb/"
5591                                  name "-" version ".tar.bz2"))
5592              (sha256
5593               (base32
5594                "0nza1csdvvxbmk8vgv8vpmq7q8h05xrw3cfx9lwxd1hjzd47xsf6"))))
5595     (build-system gnu-build-system)
5596     (propagated-inputs
5597      `(("libxcb" ,libxcb)))
5598     (native-inputs
5599      `(("pkg-config" ,pkg-config)))
5600     (home-page "https://cgit.freedesktop.org/xcb/util-renderutil/")
5601     (synopsis "Convenience functions for the Render extension")
5602     (description
5603      "The XCB util module provides a number of libraries which sit on
5604 top of libxcb, the core X protocol library, and some of the extension
5605 libraries.  These experimental libraries provide convenience functions
5606 and interfaces which make the raw X protocol more usable.  Some of the
5607 libraries also provide client-side code which is not strictly part of
5608 the X protocol but which has traditionally been provided by Xlib.
5609
5610 The XCB util-renderutil module provides the following library:
5611
5612 - renderutil: Convenience functions for the Render extension.")
5613     (license license:x11)))
5614
5615
5616 (define-public xcb-util-wm
5617   (package
5618     (name "xcb-util-wm")
5619     (version "0.4.1")
5620     (source (origin
5621              (method url-fetch)
5622              (uri (string-append "mirror://xorg/individual/xcb/"
5623                                  name "-" version ".tar.bz2"))
5624              (sha256
5625               (base32
5626                "0gra7hfyxajic4mjd63cpqvd20si53j1q3rbdlkqkahfciwq3gr8"))))
5627     (build-system gnu-build-system)
5628     (propagated-inputs
5629      `(("libxcb" ,libxcb)))
5630     (native-inputs
5631      `(("m4" ,m4)
5632        ("pkg-config" ,pkg-config)))
5633     (home-page "https://cgit.freedesktop.org/xcb/util-wm/")
5634     (synopsis "Client and window-manager helpers for ICCCM and EWMH")
5635     (description
5636      "The XCB util modules provides a number of libraries which sit on
5637 top of libxcb, the core X protocol library, and some of the extension
5638 libraries.  These experimental libraries provide convenience functions
5639 and interfaces which make the raw X protocol more usable.  Some of the
5640 libraries also provide client-side code which is not strictly part of
5641 the X protocol but which has traditionally been provided by Xlib.
5642
5643 The XCB util-wm module provides the following libraries:
5644
5645 - ewmh: Both client and window-manager helpers for EWMH.
5646
5647 - icccm: Both client and window-manager helpers for ICCCM.")
5648     (license license:x11)))
5649
5650 (define-public xinit
5651   (package
5652     (name "xinit")
5653     (version "1.4.0")
5654     (source (origin
5655               (method url-fetch)
5656               (uri (string-append "mirror://xorg/individual/app/xinit-"
5657                                   version ".tar.bz2"))
5658               (sha256
5659                (base32
5660                 "1vw2wlg74ig52naw0cha3pgzcwwk25l834j42cg8m5zmybp3a213"))))
5661     (build-system gnu-build-system)
5662     (inputs
5663      `(("xproto" ,xproto)
5664        ("libx11" ,libx11)))
5665     (native-inputs
5666      `(("pkg-config" ,pkg-config)))
5667     (propagated-inputs
5668      `(("xauth" ,xauth)))
5669     (home-page "https://www.x.org/")
5670     (synopsis "Commands to start the X Window server")
5671     (description
5672      "The xinit program is used to start the X Window System server and a
5673 first client program on systems that are not using a display manager such as
5674 xdm.  This package also provides the 'startx' command, which provides a
5675 user-friendly mechanism to start the X server.")
5676     (license license:x11)))
5677
5678 ;; package outside the x.org system proper of height 5
5679
5680 (define-public libxaw3d
5681   (package
5682     (name "libxaw3d")
5683     (version "1.6.2")
5684     (source
5685       (origin
5686         (method url-fetch)
5687         (uri (string-append
5688                "mirror://xorg/individual/lib/libXaw3d-"
5689                version
5690                ".tar.bz2"))
5691         (sha256
5692           (base32
5693             "0awplv1nf53ywv01yxphga3v6dcniwqnxgnb0cn4khb121l12kxp"))))
5694     (build-system gnu-build-system)
5695     (propagated-inputs
5696       `(("libxext" ,libxext)
5697         ("libxmu" ,libxmu)
5698         ("libxt" ,libxt)))
5699     (inputs
5700      `(("libx11" ,libx11)))
5701     (native-inputs
5702      `(("pkg-config" ,pkg-config)))
5703     (home-page "https://www.x.org/wiki/")
5704     (synopsis "Xorg Xaw3d library")
5705     (description
5706      "Xaw is the X 3D Athena Widget Set based on the X Toolkit
5707 Intrinsics (Xt) Library.")
5708     (license license:x11)))
5709
5710 (define-public xmag
5711   (package
5712     (name "xmag")
5713     (version "1.0.6")
5714     (source
5715      (origin
5716        (method url-fetch)
5717        (uri (string-append
5718              "mirror://xorg/individual/app/" name "-"
5719              version
5720              ".tar.gz"))
5721        (sha256
5722         (base32
5723          "19bsg5ykal458d52v0rvdx49v54vwxwqg8q36fdcsv9p2j8yri87"))))
5724     (build-system gnu-build-system)
5725     (arguments
5726      `(#:configure-flags
5727        (list (string-append "--with-appdefaultdir="
5728                             %output ,%app-defaults-dir))))
5729     (inputs
5730      `(("libxaw" ,libxaw)))
5731     (native-inputs
5732      `(("pkg-config" ,pkg-config)))
5733     (home-page "https://www.x.org/wiki/")
5734     (synopsis "Display or capture a magnified part of a X11 screen")
5735     (description "Xmag displays and captures a magnified snapshot of a portion
5736 of an X11 screen.")
5737     (license license:x11)))
5738
5739 (define-public xmessage
5740   (package
5741     (name "xmessage")
5742     (version "1.0.5")
5743     (source
5744      (origin
5745        (method url-fetch)
5746        (uri (string-append
5747              "mirror://xorg/individual/app/" name "-"
5748              version
5749              ".tar.gz"))
5750        (sha256
5751         (base32
5752          "0sw0b0cbrjl44brw7qi1jkm61xd7a1lpj04418c6iqk6mf83llwr"))))
5753     (build-system gnu-build-system)
5754     (arguments
5755      `(#:configure-flags
5756        (list (string-append "--with-appdefaultdir="
5757                             %output ,%app-defaults-dir))))
5758     (inputs
5759      `(("libxaw" ,libxaw)))
5760     (native-inputs
5761      `(("pkg-config" ,pkg-config)))
5762     (home-page "https://www.x.org/wiki/")
5763     (synopsis "Displays a message or query in a window")
5764     (description
5765      "Xmessage displays a message or query in a window.   The user can click
5766 on a button to dismiss it or can select one of several buttons
5767 to answer a question.  Xmessage can also exit after a specified time.")
5768     (license license:x11)))
5769
5770 (define-public xterm
5771   (package
5772     (name "xterm")
5773     (version "331")
5774     (source (origin
5775               (method url-fetch)
5776               (uri (list
5777                     (string-append "http://invisible-mirror.net/archives/xterm/"
5778                                    name "-" version ".tgz")
5779                     (string-append "ftp://ftp.invisible-island.net/xterm/"
5780                                    name "-" version ".tgz")))
5781               (sha256
5782                (base32
5783                 "047gk58hvj64974sg259ss5gixj7pac6halmjfz4cc6r1yimds4s"))))
5784     (build-system gnu-build-system)
5785     (arguments
5786      '(#:configure-flags '("--enable-wide-chars" "--enable-load-vt-fonts"
5787                            "--enable-i18n" "--enable-doublechars"
5788                            "--enable-luit" "--enable-mini-luit")
5789        #:tests? #f))
5790     (native-inputs
5791      `(("pkg-config" ,pkg-config)))
5792     (inputs
5793      `(("luit" ,luit)
5794        ("libXft" ,libxft)
5795        ("fontconfig" ,fontconfig)
5796        ("freetype" ,freetype)
5797        ("ncurses" ,ncurses)
5798        ("libICE" ,libice)
5799        ("libSM" ,libsm)
5800        ("libX11" ,libx11)
5801        ("libXext" ,libxext)
5802        ("libXt" ,libxt)
5803        ("xproto" ,xproto)
5804        ("libXaw" ,libxaw)))
5805     (home-page "https://invisible-island.net/xterm/")
5806     (synopsis "Terminal emulator for the X Window System")
5807     (description
5808      "The xterm program is a terminal emulator for the X Window System.  It
5809 provides DEC VT102/VT220 (VTxxx) and Tektronix 4014 compatible terminals for
5810 programs that cannot use the window system directly.")
5811     (license license:x11)))
5812
5813 (define-public perl-x11-xcb
5814   (package
5815     (name "perl-x11-xcb")
5816     (version "0.17")
5817     (source (origin
5818               (method url-fetch)
5819               (uri (string-append
5820                     "mirror://cpan/authors/id/M/MS/MSTPLBG/"
5821                     "X11-XCB-" version ".tar.gz"))
5822               (sha256
5823                (base32
5824                 "12qyf98s5hbybmh0mblpz50c00i68srq73w5rw31m2dhclj8n96q"))))
5825     (build-system perl-build-system)
5826     (arguments
5827      '(;; Disable parallel build to prevent a race condition.
5828        #:parallel-build? #f
5829        #:phases
5830        (modify-phases %standard-phases
5831          (add-before 'configure 'set-perl-search-path
5832            (lambda _
5833              (setenv "PERL5LIB"
5834                      (string-append (getcwd) ":"
5835                                     (getenv "PERL5LIB")))
5836              #t))
5837          (add-before 'build 'patch-Makefile
5838            (lambda* (#:key inputs #:allow-other-keys)
5839              (substitute* "Makefile"
5840                ;; XXX: Without this hack, attempts at using XCB.so fails with
5841                ;; an error such as "XCB.so: undefined symbol: xcb_xinerama_id"
5842                (("^LDDLFLAGS = ")
5843                 (string-append "LDDLFLAGS = "
5844                                "-lxcb -lxcb-util -lxcb-xinerama -lxcb-icccm ")))
5845              #t)))
5846        ;; Tests require a running X11 server.
5847        #:tests? #f))
5848     (native-inputs
5849      `(("perl-extutils-depends" ,perl-extutils-depends)
5850        ("perl-extutils-pkgconfig" ,perl-extutils-pkgconfig)
5851        ("perl-module-install" ,perl-module-install)
5852        ("perl-test-deep" ,perl-test-deep)
5853        ("perl-test-exception" ,perl-test-exception)))
5854     (propagated-inputs
5855      `(("perl-data-dump" ,perl-data-dump)
5856        ("perl-mouse" ,perl-mouse)
5857        ("perl-mousex-nativetraits" ,perl-mousex-nativetraits)
5858        ("perl-try-tiny" ,perl-try-tiny)
5859        ("perl-xml-descent" ,perl-xml-descent)
5860        ("perl-xml-simple" ,perl-xml-simple)
5861        ("perl-xs-object-magic" ,perl-xs-object-magic)))
5862     (inputs
5863      `(("libxcb" ,libxcb)
5864        ("xcb-proto" ,xcb-proto)
5865        ("xcb-util" ,xcb-util)
5866        ("xcb-util-wm" ,xcb-util-wm)))
5867     (home-page "http://search.cpan.org/dist/X11-XCB")
5868     (synopsis "Perl bindings for libxcb")
5869     (description
5870      "These bindings wrap @code{libxcb} (a C library to speak with X11,
5871 in many cases better than @code{Xlib}), and provides an object oriented
5872 interface to its methods (using @code{Mouse}).")
5873     (license license:perl-license)))
5874
5875 (define-public perl-x11-protocol
5876   (package
5877     (name "perl-x11-protocol")
5878     (version "0.56")
5879     (source (origin
5880              (method url-fetch)
5881              (uri (string-append
5882                    "mirror://cpan/authors/id/S/SM/SMCCAM/X11-Protocol-"
5883                    version ".tar.gz"))
5884              (sha256
5885               (base32
5886                "1dq89bh6fqv7l5mbffqcismcljpq5f869bx7g8lg698zgindv5ny"))))
5887     (build-system perl-build-system)
5888     (arguments '(#:tests? #f))          ;tests require a running x server
5889     (synopsis "Raw interface to X Window System servers")
5890     (description
5891      "X11::Protocol is a client-side interface to the X11 Protocol, allowing
5892 perl programs to display windows and graphics on X11 servers.")
5893     (home-page
5894      (string-append "http://search.cpan.org/~smccam/X11-Protocol-" version))
5895     ;; From the package README: "you can redistribute and/or modify it under
5896     ;; the same terms as Perl itself. (As an exception, the file
5897     ;; Keysyms.pm,which is derived from a file in the standard X11
5898     ;; distribution, has another, less restrictive copying policy, as do some
5899     ;; of the extension modules in the directory Protocol/Ext: see those files
5900     ;; for details)."
5901     (license license:perl-license)))
5902
5903 (define-public xcompmgr
5904   (package
5905     (name "xcompmgr")
5906     (version "1.1.7")
5907     (source
5908      (origin
5909        ;; there's no current tarball
5910        (method git-fetch)
5911        (uri (git-reference
5912              (url "https://anongit.freedesktop.org/git/xorg/app/xcompmgr.git")
5913              (commit (string-append name "-" version))))
5914        (sha256
5915         (base32
5916          "04swkrm3gk689wrjc418bd3n25w8r20kg1xfbn5j8d7mx1r5gf16"))
5917        (file-name (string-append name "-" version))))
5918     (build-system gnu-build-system)
5919     (arguments
5920      `(#:phases (modify-phases %standard-phases
5921                   (add-after 'unpack 'autogen
5922                               (lambda _
5923                                 (setenv "NOCONFIGURE" "t")
5924                                 (zero? (system* "sh" "autogen.sh")))))))
5925     (native-inputs
5926      `(("pkg-config" ,pkg-config)
5927        ("autoconf" ,autoconf)
5928        ("automake" ,automake)))
5929     (inputs
5930      `(("libX11" ,libx11)
5931        ("libXext" ,libxext)
5932        ("libXcomposite" ,libxcomposite)
5933        ("libXfixes" ,libxfixes)
5934        ("libXdamage" ,libxdamage)
5935        ("libXrender" ,libxrender)))
5936     (synopsis "X Compositing manager using RENDER")
5937     (description "xcompmgr is a sample compositing manager for X servers
5938 supporting the XFIXES, DAMAGE, RENDER, and COMPOSITE extensions.  It enables
5939 basic eye-candy effects.")
5940     (home-page "https://cgit.freedesktop.org/xorg/app/xcompmgr/")
5941     (license (license:x11-style
5942               "https://cgit.freedesktop.org/xorg/app/xcompmgr/tree/COPYING"))))
5943
5944 (define-public xpra
5945   (package
5946     (name "xpra")
5947     (version "2.2.5")
5948     (source
5949      (origin
5950        (method url-fetch)
5951        (uri (string-append "https://www.xpra.org/src/xpra-"
5952                            version ".tar.xz"))
5953        (sha256
5954         (base32
5955          "1q2l00nc3bgwlhjzkbk4a8x2l8z9w1799yn31icsx5hrgh98a1js"))))
5956     (build-system python-build-system)
5957     (inputs `(("ffmpeg" ,ffmpeg)
5958               ("flac" ,flac)
5959               ("gtk+-2" ,gtk+-2) ;; no full GTK3 support yet
5960               ("libjpeg" ,libjpeg)
5961               ("libpng" ,libpng)
5962               ("libvpx" ,libvpx)
5963               ("libx264" ,libx264)
5964               ("libxcomposite" ,libxcomposite)
5965               ("libxdamage" ,libxdamage)
5966               ("libxkbfile" ,libxkbfile)
5967               ("libxrandr" ,libxrandr)
5968               ("libxtst" ,libxtst)
5969               ("lzo" ,lzo)
5970               ("python2-cryptography" ,python2-cryptography)
5971               ("python2-dbus" ,python2-dbus)
5972               ("python2-lz4" ,python2-lz4)
5973               ("python2-lzo" ,python2-lzo)
5974               ("python2-netifaces" ,python2-netifaces)
5975               ("python2-numpy" ,python2-numpy)
5976               ("python2-pillow" ,python2-pillow)
5977               ("python2-pycairo" ,python2-pycairo)
5978               ("python2-pycrypto" ,python2-pycrypto)
5979               ("python2-pygobject" ,python2-pygobject)
5980               ("python2-pyopengl" ,python2-pyopengl)
5981               ("python2-pyopengl-accelerate" ,python2-pyopengl-accelerate)
5982               ("python2-pygtk" ,python2-pygtk)
5983               ("python2-rencode" ,python2-rencode)
5984               ("xorg-server" ,xorg-server)))
5985     (native-inputs `(("pkg-config" ,pkg-config)
5986                      ("python2-cython" ,python2-cython)))
5987     (arguments
5988      `(#:python ,python-2 ;; no full Python 3 support yet
5989        #:configure-flags '("--with-tests"
5990                            "--with-bundle_tests"
5991                            "--without-Xdummy" ;; We use Xvfb instead.
5992                            "--without-Xdummy_wrapper"
5993                            "--without-strict")
5994        #:modules ((guix build python-build-system)
5995                   (guix build utils))
5996
5997        #:phases
5998        (modify-phases %standard-phases
5999          (delete 'build)
6000          (delete 'check) ;; There's no test suite at the moment.
6001
6002          ;; Remove BUILD_CPU, BUILD_DATE, BUILD_TIME from build info to
6003          ;; prevent deterministic issues.  Also correct some directories and
6004          ;; use the xvfb binary instead of xorg-server (which doesn't seem to
6005          ;; work).
6006          (add-before 'install 'remove-timestamps&set-file-names
6007            (lambda* (#:key inputs outputs #:allow-other-keys)
6008              (substitute* "add_build_info.py"
6009                ((".*\"BUILD_CPU\", get_cpuinfo.*") ""))
6010              (substitute* "add_build_info.py"
6011                ((".*\"BUILD_DATE\", datetime.*") ""))
6012              (substitute* "add_build_info.py"
6013                ((".*\"BUILD_TIME\", datetime.*") ""))
6014              (substitute* "setup.py"
6015                (("/etc/init.d/")
6016                 (string-append (assoc-ref outputs "out")
6017                                "/etc/init.d/")))
6018              (substitute* "setup.py"
6019                (("/usr/lib/")
6020                 (string-append (assoc-ref outputs "out") "/lib/")))
6021              ;; Use Xvfb with '-nolisten local' to disable abstract X11 sockets.
6022              (substitute* "./xpra/scripts/config.py"
6023                ((":.*join.*xvfb.*")
6024                 (string-append ": \"" (assoc-ref inputs "xorg-server")
6025                                "/bin/Xvfb +extension Composite"
6026                                " -screen 0 5760x2560x24+32 -dpi 96 -nolisten"
6027                                " tcp -nolisten local -noreset -auth"
6028                                " $XAUTHORITY\",\n")))
6029              (substitute* "./xpra/scripts/config.py"
6030                (("socket-dir.*: \"\",")
6031                 "socket-dir\"        : \"~/.xpra\","))
6032              #t)))))
6033     (home-page "https://www.xpra.org/")
6034     (synopsis "Remote access to individual applications or full desktops")
6035     (description "Xpra is a persistent remote display server and client for
6036 forwarding applications and desktop screens.  It gives you remote access to
6037 individual applications or full desktops.  On X11, it is also known as
6038 ``@command{screen} for X11'': it allows you to run programs, usually on a
6039 remote host, direct their display to your local machine, and then to
6040 disconnect from these programs and reconnect from the same or another machine,
6041 without losing any state.  It can also be used to forward full desktops from
6042 X11 servers, Windows, or macOS.")
6043     (license license:gpl2+)))
6044
6045 (define-public uim
6046   (package
6047     (name "uim")
6048     (version "1.8.6")
6049     (source
6050      (origin
6051        (method url-fetch)
6052        (uri (string-append "https://github.com/uim/uim/releases/download/uim-"
6053                            version "/uim-" version ".tar.bz2"))
6054        (sha256
6055         (base32
6056          "0pr3rfqpxha8p6cxzdjsxbbmmr76riklzw36f68phd1zqw1sh7kv"))))
6057     (build-system gnu-build-system)
6058     (inputs
6059      `(("anthy" ,anthy)
6060        ("libedit" ,libedit)
6061        ("libxft" ,libxft)
6062        ("m17n-lib" ,m17n-lib)))
6063     (native-inputs
6064      `(("emacs" ,emacs-minimal)
6065        ("intltool" ,intltool)
6066        ("pkg-config" ,pkg-config)))
6067     (arguments
6068      `(#:modules ((guix build gnu-build-system)
6069                   (guix build utils)
6070                   (guix build emacs-utils))
6071        #:imported-modules (,@%gnu-build-system-modules
6072                            (guix build emacs-utils))
6073        #:configure-flags
6074        (list "--with-anthy-utf8"
6075              (string-append "--with-lispdir=" %output
6076                             "/share/emacs/site-lisp/guix.d")
6077              ;; Set proper runpath
6078              (string-append "LDFLAGS=-Wl,-rpath=" %output "/lib"))
6079        #:phases
6080        (modify-phases %standard-phases
6081          ;; Set path of uim-el-agent and uim-el-helper-agent executables
6082          (add-after 'configure 'configure-uim-el
6083            (lambda* (#:key outputs #:allow-other-keys)
6084              (substitute* "emacs/uim-var.el"
6085                (("\"(uim-el-agent|uim-el-helper-agent)\"" _ executable)
6086                 (string-append "\"" (assoc-ref outputs "out")
6087                                "/bin/" executable "\"")))
6088              #t))
6089          ;; Generate emacs autoloads for uim.el
6090          (add-after 'install 'make-autoloads
6091            (lambda* (#:key outputs #:allow-other-keys)
6092              (emacs-generate-autoloads
6093               ,name (string-append (assoc-ref outputs "out")
6094                                    "/share/emacs/site-lisp"))
6095              #t)))))
6096     (home-page "https://github.com/uim/uim")
6097     (synopsis "Multilingual input method framework")
6098     (description "Uim is a multilingual input method library and environment.
6099 It provides a simple, easily extensible and high code-quality input method
6100 development platform, and useful input method environment for users of desktop
6101 and embedded platforms.")
6102     (license (list license:lgpl2.1+ ; scm/py.scm, pixmaps/*.{svg,png} (see pixmaps/README)
6103                    license:gpl2+ ; scm/pinyin-big5.scm
6104                    license:gpl3+ ; scm/elatin-rules.cm
6105                    license:public-domain ; scm/input-parse.scm, scm/match.scm
6106                    ;; gtk2/toolbar/eggtrayicon.{ch},
6107                    ;; qt3/chardict/kseparator.{cpp,h},
6108                    ;; qt3/pref/kseparator.{cpp,h}
6109                    license:lgpl2.0+
6110                    ;; pixmaps/*.{svg,png} (see pixmaps/README),
6111                    ;; all other files
6112                    license:bsd-3))))
6113
6114 (define-public uim-gtk
6115   (package
6116     (inherit uim)
6117     (name "uim-gtk")
6118     (inputs
6119      `(("gtk" ,gtk+)
6120        ("gtk" ,gtk+-2)
6121        ,@(package-inputs uim)))
6122     (synopsis "Multilingual input method framework (GTK+ support)")))
6123
6124 (define-public uim-qt
6125   (package
6126     (inherit uim)
6127     (name "uim-qt")
6128     (inputs
6129      `(("qt" ,qt-4)
6130        ,@(package-inputs uim)))
6131     (arguments
6132      (substitute-keyword-arguments (package-arguments uim)
6133        ((#:configure-flags configure-flags)
6134         (append configure-flags (list "--with-qt4-immodule"
6135                                       "--with-qt4")))))
6136     (synopsis "Multilingual input method framework (Qt support)")))