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