gnu/packages/xorg.scm

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