Mirror of GNU Guix
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 

6626 lines
216 KiB

;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013, 2014 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2014, 2015, 2017, 2018 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2014, 2015 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2015 Eric Dvorsak <eric@dvorsak.fr>
;;; Copyright © 2016 Mathieu Lirzin <mthl@gnu.org>
;;; Copyright © 2015 Cyrill Schenkel <cyrill.schenkel@gmail.com>
;;; Copyright © 2016, 2017, 2019 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016 ng0 <ng0@n0.is>
;;; Copyright © 2016 Alex Kost <alezost@gmail.com>
;;; Copyright © 2016 David Craven <david@craven.ch>
;;; Copyright © 2016, 2017 John Darrington <jmd@gnu.org>
;;; Copyright © 2017, 2018, 2019 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2017, 2018, 2019 Rutger Helling <rhelling@mykolab.com>
;;; Copyright © 2017, 2020 Arun Isaac <arunisaac@systemreboot.net>
;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Kei Kebreau <kkebreau@posteo.net>
;;; Copyright © 2018 Oleg Pykhalov <go.wigust@gmail.com>
;;; Copyright © 2018 Benjamin Slade <slade@jnanam.net>
;;; Copyright © 2019 nee <nee@cock.li>
;;; Copyright © 2019 Yoshinori Arai <kumagusu08@gmail.com>
;;; Copyright © 2020 Leo Prikler <leo.prikler@student.tugraz.at>
;;; Copyright © 2020 Florian Pelz <pelzflorian@pelzflorian.de>
;;; Copyright © 2020 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu packages xorg)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages)
#:use-module (guix download)
#:use-module (guix git-download)
#:use-module (guix build-system gnu)
#:use-module (guix build-system perl)
#:use-module (guix build-system python)
#:use-module (guix utils)
#:use-module (gnu packages)
#:use-module (gnu packages anthy)
#:use-module (gnu packages autotools)
#:use-module (gnu packages bison)
#:use-module (gnu packages check)
#:use-module (gnu packages compression)
#:use-module (gnu packages emacs)
#:use-module (gnu packages flex)
#:use-module (gnu packages fontutils)
#:use-module (gnu packages freedesktop)
#:use-module (gnu packages gettext)
#:use-module (gnu packages gl)
#:use-module (gnu packages glib)
#:use-module (gnu packages gnupg)
#:use-module (gnu packages gperf)
#:use-module (gnu packages gtk)
#:use-module (gnu packages inkscape)
#:use-module (gnu packages image)
#:use-module (gnu packages imagemagick)
#:use-module (gnu packages libbsd)
#:use-module (gnu packages libedit)
#:use-module (gnu packages linux)
#:use-module (gnu packages llvm)
#:use-module (gnu packages m4)
#:use-module (gnu packages ncurses)
#:use-module (gnu packages pciutils)
#:use-module (gnu packages perl)
#:use-module (gnu packages perl-check)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages python)
#:use-module (gnu packages python-compression)
#:use-module (gnu packages python-crypto)
#:use-module (gnu packages python-xyz)
#:use-module (gnu packages qt)
#:use-module (gnu packages spice)
#:use-module (gnu packages video)
#:use-module (gnu packages xiph)
#:use-module (gnu packages xml)
#:use-module (gnu packages xdisorg))
;; packages without propagated input
;; (rationale for this separation: The packages in PROPAGATED_INPUTS need to
;; be defined first, the split makes book-keeping easier.)
;; compiles only on macos
;; (define-public applewmproto
(define xorg-cf-files
;; The xorg-cf-files package contains the data files for the imake utility,
;; defining the known settings for a wide variety of platforms (many of which
;; have not been verified or tested in over a decade), and for many of the
;; libraries formerly delivered in the X.Org monolithic releases.
;;
;; License: x11, see COPYING
(origin
(method url-fetch)
(uri "mirror://xorg/individual/util/xorg-cf-files-1.0.6.tar.bz2")
(sha256
(base32 "0kckng0zs1viz0nr84rdl6dswgip7ndn4pnh5nfwnviwpsfmmksd"))))
(define-public imake
(package
(name "imake")
(version "1.0.8")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://xorg/individual/util/imake-"
version ".tar.bz2"))
(sha256
(base32 "00m7l90ws72k1qm101sd2rx92ckd50cszyng5d4dd77jncbf9lmq"))))
(build-system gnu-build-system)
(native-inputs
`(("pkg-config" ,pkg-config)))
(inputs
`(("xorg-cf-files" ,xorg-cf-files)
("xorgproto" ,xorgproto)))
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'install 'install-data
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((cf-files (assoc-ref inputs "xorg-cf-files"))
(out (assoc-ref outputs "out"))
(unpack (assoc-ref %standard-phases 'unpack))
(patch-source-shebangs
(assoc-ref %standard-phases 'patch-source-shebangs)))
(mkdir "xorg-cf-files")
(with-directory-excursion "xorg-cf-files"
(apply unpack (list #:source cf-files))
(apply patch-source-shebangs (list #:source cf-files))
(substitute* '("mingw.cf" "Imake.tmpl" "nto.cf" "os2.cf"
"linux.cf" "Amoeba.cf" "cygwin.cf")
(("/bin/sh") (which "bash")))
(invoke "./configure"
(string-append "SHELL=" (which "bash"))
(string-append "--prefix=" out))
(invoke "make" "install"))))))))
(home-page "https://www.x.org/")
(synopsis "Source code configuration and build system")
(description
"Imake is a deprecated source code configuration and build system which
has traditionally been supplied by and used to build the X Window System in
X11R6 and previous releases. As of the X Window System X11R7 release, the X
Window system has switched to using GNU autotools as the primary build system,
and the Imake system is now deprecated, and should not be used by new software
projects. Software developers are encouraged to migrate software to the GNU
autotools system.")
(license license:x11)))
(define-public lndir
(package
(name "lndir")
(version "1.0.3")
(source (origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/util/"
"lndir-" version ".tar.bz2"))
(sha256
(base32
"0pdngiy8zdhsiqx2am75yfcl36l7kd7d7nl0rss8shcdvsqgmx29"))))
(build-system gnu-build-system)
(native-inputs
`(("pkg-config" ,pkg-config)))
(inputs
`(("xorgproto" ,xorgproto)))
(home-page "https://www.x.org/")
(synopsis "Symlink directory into tree")
(description "Create a shadow directory of symbolic links to another
directory tree.")
(license license:x11)))
(define-public bdftopcf
(package
(name "bdftopcf")
(version "1.1")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/app/bdftopcf-"
version
".tar.bz2"))
(sha256
(base32
"18hiscgljrz10zjcws25bis32nyrg3hzgmiq6scrh7izqmgz0kab"))))
(build-system gnu-build-system)
(inputs
`(("libxfont" ,libxfont2)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Convert X font from BDF to PCF")
(description
"BDFtoPCF is a font compiler for the X server and font server. It
converts X font from Bitmap Distribution Format to Portable Compiled Format
which can be read by any architecture.")
(license license:x11)))
(define-public xorgproto
(package
(name "xorgproto")
(version "2019.1")
(source (origin
(method url-fetch)
(uri (string-append "mirror://xorg/individual/proto/"
"xorgproto-" version ".tar.bz2"))
(sha256
(base32
"16yll1kaffnslik5sizlw3qrigj1gpsgfgyq6903g3mwdixamnm6"))))
(build-system gnu-build-system)
(propagated-inputs
;; To get util-macros in (almost?) all package inputs.
`(("util-macros" ,util-macros)))
(home-page "https://cgit.freedesktop.org/xorg/proto/xorgproto")
(synopsis "Xorg protocol headers")
(description
"This package provides the headers and specification documents defining
the core protocol and (many) extensions for the X Window System.")
(license license:x11)))
(define-public bigreqsproto
(package
(name "bigreqsproto")
(version "1.1.2")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/proto/bigreqsproto-"
version
".tar.bz2"))
(sha256
(base32
"07hvfm84scz8zjw14riiln2v4w03jlhp756ypwhq27g48jmic8a6"))))
(build-system gnu-build-system)
(native-inputs `(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg BigReqsProto protocol headers")
(description
"Big Requests Extension defines a protocol to enable the use of
requests that exceed 262140 bytes in length.")
(license license:x11)
(properties `((superseded . ,xorgproto)))))
(define-public compositeproto
(package
(name "compositeproto")
(version "0.4.2")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/proto/compositeproto-"
version
".tar.bz2"))
(sha256
(base32
"1z0crmf669hirw4s7972mmp8xig80kfndja9h559haqbpvq5k4q4"))))
(build-system gnu-build-system)
(inputs
`(("xorgproto" ,xorgproto)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg CompositeProto protocol headers")
(description
"Composite Extension contains header files and documentation for
the damage protocol.")
(license license:x11)
(properties `((superseded . ,xorgproto)))))
(define-public damageproto
(package
(name "damageproto")
(version "1.2.1")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/proto/damageproto-"
version
".tar.bz2"))
(sha256
(base32
"0nzwr5pv9hg7c21n995pdiv0zqhs91yz3r8rn3aska4ykcp12z2w"))))
(build-system gnu-build-system)
(native-inputs `(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg DamageProto protocol headers")
(description
"Damage Extension contains header files and documentation for
the damage protocol.")
(license license:x11)
(properties `((superseded . ,xorgproto)))))
(define-public dmxproto
(package
(name "dmxproto")
(version "2.3.1")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/proto/dmxproto-"
version
".tar.bz2"))
(sha256
(base32
"02b5x9dkgajizm8dqyx2w6hmqx3v25l67mgf35nj6sz0lgk52877"))))
(build-system gnu-build-system)
(native-inputs `(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg DMXProto protocol headers")
(description
"DMX (Distributed Multihead X) Extension defines a protocol for clients
to access a front-end proxy X server that controls multiple back-end X
servers making up a large display.")
(license license:x11)
(properties `((superseded . ,xorgproto)))))
(define-public dri2proto
(package
(name "dri2proto")
(version "2.8")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/proto/dri2proto-"
version
".tar.bz2"))
(sha256
(base32
"015az1vfdqmil1yay5nlsmpf6cf7vcbpslxjb72cfkzlvrv59dgr"))))
(build-system gnu-build-system)
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg DRI2Proto protocol headers")
(description
"Direct Rendering Infrastructure 2 Extension defines a protocol to
securely allow user applications to access the video hardware without
requiring data to be passed through the X server.")
(license license:x11)
(properties `((superseded . ,xorgproto)))))
(define-public dri3proto
(package
(name "dri3proto")
(version "1.0")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/proto/dri3proto-"
version
".tar.bz2"))
(sha256
(base32
"0x609xvnl8jky5m8jdklw4nymx3irkv32w99dfd8nl800bblkgh1"))))
(build-system gnu-build-system)
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg DRI3Proto protocol headers")
(description
"Direct Rendering Infrastructure 3 Extension provides mechanisms to
translate between direct rendered buffers and X pixmaps. When combined with
the Present extension, a complete direct rendering solution for OpenGL is
provided.")
(license (license:x11-style "file://dri3proto.h"
"See 'dri3proto.h' in the distribution."))
(properties `((superseded . ,xorgproto)))))
(define-public %app-defaults-dir "/lib/X11/app-defaults")
(define-public editres
(package
(name "editres")
(version "1.0.7")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/app/" name "-"
version
".tar.bz2"))
(sha256
(base32
"04awfwmy3f9f0bchidc4ssbgrbicn5gzasg3jydpfnp5513d76h8"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags
(list (string-append "--with-appdefaultdir="
%output ,%app-defaults-dir))))
(inputs
`(("libxaw" ,libxaw)
("libxmu" ,libxmu)
("libxt" ,libxt)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Tool to browse and edit X Toolkit resource specifications")
(description
"Editres is a tool that allows users and application developers to view
the full widget hierarchy of any X Toolkit application that speaks the Editres
protocol. In addition, editres will help the user construct resource
specifications, allow the user to apply the resource to the application and
view the results dynamically. Once the user is happy with a resource
specification editres will append the resource string to the user's X
Resources file.")
(license license:x11)))
(define-public encodings
(package
(name "encodings")
(version "1.0.5")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/font/encodings-"
version
".tar.bz2"))
(sha256
(base32 "0caafx0yqqnqyvbalxhh3mb0r9v36xmcy5zjhygb2i508dhy35mx"))))
(build-system gnu-build-system)
(inputs
`(("mkfontscale" ,mkfontscale)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg font encoding files")
(description "Xorg font encoding files.")
(license license:public-domain)))
(define (%xorg-font-origin font version hash)
(origin
(method url-fetch)
(uri (string-append "mirror://xorg/individual/font/" font "-"
version ".tar.bz2"))
(sha256 hash)
(modules '((guix build utils)))
(snippet
;; Do not include timestamps in '.pcf.gz' files.
'(begin
(substitute* "Makefile.in"
(("^COMPRESS = (.*)$" _ rest)
(string-append "COMPRESS = " (string-trim-right rest)
" --no-name\n")))
#t))))
(define-syntax-rule (xorg-font-origin font version hash)
"Expand to the 'origin' form for the given Xorg font package."
(%xorg-font-origin font version (base32 hash)))
(define-public font-adobe100dpi
(package
(name "font-adobe100dpi")
(version "1.0.3")
(source (xorg-font-origin
"font-adobe-100dpi" version
"0m60f5bd0caambrk8ksknb5dks7wzsg7g7xaf0j21jxmx8rq9h5j"))
(build-system gnu-build-system)
(inputs
`(("bdftopcf" ,bdftopcf)
("font-util" ,font-util)
("mkfontdir" ,mkfontdir)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(arguments
`(#:configure-flags (list
;; install fonts into subdirectory of package output instead of
;; font-util-?.?.?/share/fonts/X11
(string-append "--with-fontrootdir=" %output "/share/fonts/X11"))))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg adobe-100dpi fonts")
(description "Xorg adobe-100dpi fonts.")
(license license:x11)))
(define-public font-adobe75dpi
(package
(name "font-adobe75dpi")
(version "1.0.3")
(source (xorg-font-origin
"font-adobe-75dpi" version
"02advcv9lyxpvrjv8bjh1b797lzg6jvhipclz49z8r8y98g4l0n6"))
(build-system gnu-build-system)
(inputs
`(("bdftopcf" ,bdftopcf)
("font-util" ,font-util)
("mkfontdir" ,mkfontdir)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(arguments
`(#:configure-flags (list
(string-append "--with-fontrootdir=" %output "/share/fonts/X11"))))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg adobe-75dpi fonts")
(description "Xorg adobe-75dpi fonts.")
(license license:x11)))
;; non-free license
;; (define-public font-adobe-utopia100dpi
;; (define-public font-adobe-utopia75dpi
;; (define-public font-adobe-utopia-type1
(define-public font-alias
(package
(name "font-alias")
(version "1.0.3")
(source (xorg-font-origin
name version
"16ic8wfwwr3jicaml7b5a0sk6plcgc1kg84w02881yhwmqm3nicb"))
(build-system gnu-build-system)
(native-inputs `(("pkg-config" ,pkg-config)))
(arguments
`(#:phases (modify-phases %standard-phases
(add-after
'install 'install-fonts-dir
;; The X font server will not add directories to the font
;; path unless they contain a "fonts.dir" file, so add some
;; dummy files.
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(for-each (lambda (d)
(call-with-output-file
(string-append out "/share/fonts/X11"
"/" d "/fonts.dir")
(lambda (p)
(format p "0~%"))))
'("75dpi" "100dpi" "misc" "cyrillic"))
#t))))))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg font aliases")
(description
"This package provides some common aliases for Xorg fonts.
For example: @code{6x10}, @code{9x15bold}, etc.")
(license license:x11)))
(define-public font-arabic-misc
(package
(name "font-arabic-misc")
(version "1.0.3")
(source (xorg-font-origin
name version
"1x246dfnxnmflzf0qzy62k8jdpkb6jkgspcjgbk8jcq9lw99npah"))
(build-system gnu-build-system)
(inputs
`(("mkfontdir" ,mkfontdir)
("bdftopcf" ,bdftopcf)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg arabic-misc font")
(description "Xorg arabic-misc font.")
(license license:x11)))
;; non-free license
;; (define-public font-bh100dpi
;; (define-public font-bh75dpi
;; (define-public font-bh-lucidatypewriter100dpi
;; (define-public font-bh-lucidatypewriter75dpi
;; (define-public font-bh-ttf
;; (define-public font-bh-type1
;; (define-public font-bitstream100dpi
;; (define-public font-bitstream75dpi
(define-public font-cronyx-cyrillic
(package
(name "font-cronyx-cyrillic")
(version "1.0.3")
(source (xorg-font-origin
name version
"0ai1v4n61k8j9x2a1knvfbl2xjxk3xxmqaq3p9vpqrspc69k31kf"))
(build-system gnu-build-system)
(inputs
`(("mkfontdir" ,mkfontdir)
("bdftopcf" ,bdftopcf)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg cronyx-cyrillic font")
(description "Xorg cronyx-cyrillic font.")
(license license:x11)))
;; no license
;; (define-public font-cursor-misc
;; non-free license
;; (define-public font-daewoo-misc
(define-public font-dec-misc
(package
(name "font-dec-misc")
(version "1.0.3")
(source (xorg-font-origin
name version
"0yzza0l4zwyy7accr1s8ab7fjqkpwggqydbm2vc19scdby5xz7g1"))
(build-system gnu-build-system)
(inputs
`(("mkfontdir" ,mkfontdir)
("bdftopcf" ,bdftopcf)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg dec-misc font")
(description "Xorg dec-misc font.")
(license license:x11)))
;; non-free license
;; (define-public font-ibm-type1
(define-public font-isas-misc
(package
(name "font-isas-misc")
(version "1.0.3")
(source (xorg-font-origin
name version
"0rx8q02rkx673a7skkpnvfkg28i8gmqzgf25s9yi0lar915sn92q"))
(build-system gnu-build-system)
(inputs
`(("mkfontdir" ,mkfontdir)
("bdftopcf" ,bdftopcf)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg isas-misc font")
(description "Xorg isas-misc font.")
(license license:x11)))
;; non-free license
;; (define-public font-jis-misc
(define-public font-micro-misc
(package
(name "font-micro-misc")
(version "1.0.3")
(source (xorg-font-origin
name version
"1dldxlh54zq1yzfnrh83j5vm0k4ijprrs5yl18gm3n9j1z0q2cws"))
(build-system gnu-build-system)
(inputs
`(("mkfontdir" ,mkfontdir)
("bdftopcf" ,bdftopcf)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg micro-misc font")
(description "Xorg micro-misc font.")
(license license:public-domain)))
(define-public font-misc-cyrillic
(package
(name "font-misc-cyrillic")
(version "1.0.3")
(source (xorg-font-origin
name version
"0q2ybxs8wvylvw95j6x9i800rismsmx4b587alwbfqiw6biy63z4"))
(build-system gnu-build-system)
(inputs
`(("mkfontdir" ,mkfontdir)
("bdftopcf" ,bdftopcf)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg misc-cyrillic fonts")
(description "Xorg misc-cyrillic fonts.")
(license license:x11)))
(define-public font-misc-ethiopic
(package
(name "font-misc-ethiopic")
(version "1.0.3")
(source (xorg-font-origin
name version
"19cq7iq0pfad0nc2v28n681fdq3fcw1l1hzaq0wpkgpx7bc1zjsk"))
(build-system gnu-build-system)
(inputs
`(("mkfontdir" ,mkfontdir)
("mkfontscale" ,mkfontscale)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg misc-ethiopic fonts")
(description "Xorg misc-ethiopic fonts.")
(license license:x11)))
;; non-free license
;; (define-public font-misc-meltho
(define-public font-misc-misc
(package
(name "font-misc-misc")
(version "1.1.2")
(source (xorg-font-origin
name version
"150pq6n8n984fah34n3k133kggn9v0c5k07igv29sxp1wi07krxq"))
(build-system gnu-build-system)
(inputs
`(("mkfontdir" ,mkfontdir)
("font-util" ,font-util)
("bdftopcf" ,bdftopcf)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(arguments
`(#:configure-flags (list
(string-append "--with-fontrootdir=" %output "/share/fonts/X11"))))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg misc-misc fonts")
(description "Xorg misc-misc fixed fonts.")
(license license:public-domain)))
(define-public font-mutt-misc
(package
(name "font-mutt-misc")
(version "1.0.3")
(source (xorg-font-origin
name version
"13qghgr1zzpv64m0p42195k1kc77pksiv059fdvijz1n6kdplpxx"))
(build-system gnu-build-system)
(inputs
`(("mkfontdir" ,mkfontdir)
("bdftopcf" ,bdftopcf)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg mutt-misc fonts")
(description "Xorg mutt-misc fonts.")
(license license:x11)))
(define-public font-schumacher-misc
(package
(name "font-schumacher-misc")
(version "1.1.2")
(source (xorg-font-origin
name version
"0nkym3n48b4v36y4s927bbkjnsmicajarnf6vlp7wxp0as304i74"))
(build-system gnu-build-system)
(inputs
`(("mkfontdir" ,mkfontdir)
("font-util" ,font-util)
("bdftopcf" ,bdftopcf)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(arguments
`(#:configure-flags (list
(string-append "--with-fontrootdir=" %output "/share/fonts/X11"))))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg schumacher-misc fonts")
(description "Xorg schumacher-misc fonts.")
(license license:x11)))
(define-public font-screen-cyrillic
(package
(name "font-screen-cyrillic")
(version "1.0.4")
(source (xorg-font-origin
name version
"0yayf1qlv7irf58nngddz2f1q04qkpr5jwp4aja2j5gyvzl32hl2"))
(build-system gnu-build-system)
(inputs
`(("mkfontdir" ,mkfontdir)
("bdftopcf" ,bdftopcf)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg screen-cyrillic fonts")
(description "Xorg screen-cyrillic fonts.")
(license license:x11)))
(define-public font-sony-misc
(package
(name "font-sony-misc")
(version "1.0.3")
(source (xorg-font-origin
name version
"1xfgcx4gsgik5mkgkca31fj3w72jw9iw76qyrajrsz1lp8ka6hr0"))
(build-system gnu-build-system)
(inputs
`(("mkfontdir" ,mkfontdir)
("bdftopcf" ,bdftopcf)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg sony-misc fonts")
(description "Xorg sony-misc fonts.")
(license license:x11)))
(define-public font-sun-misc
(package
(name "font-sun-misc")
(version "1.0.3")
(source (xorg-font-origin
name version
"1q6jcqrffg9q5f5raivzwx9ffvf7r11g6g0b125na1bhpz5ly7s8"))
(build-system gnu-build-system)
(inputs
`(("mkfontdir" ,mkfontdir)
("bdftopcf" ,bdftopcf)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg sun-misc fonts")
(description "Xorg sun-misc fonts.")
(license license:x11)))
(define-public font-util
(package
(name "font-util")
(version "1.3.2")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/font/font-util-"
version
".tar.bz2"))
(sha256
(base32 "10i2a8b3d1h3w7klsqf31iz7zbd6l8wglil54fkhdb1385281n1s"))))
(build-system gnu-build-system)
(native-inputs `(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg font utilities")
(description
"Xorg font package creation/installation utilities.")
(license license:x11)))
(define-public font-winitzki-cyrillic
(package
(name "font-winitzki-cyrillic")
(version "1.0.3")
(source (xorg-font-origin
name version
"181n1bgq8vxfxqicmy1jpm1hnr6gwn1kdhl6hr4frjigs1ikpldb"))
(build-system gnu-build-system)
(inputs
`(("mkfontdir" ,mkfontdir)
("bdftopcf" ,bdftopcf)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg winitzki-cyrillic font")
(description "Xorg winitzki-cyrillic font.")
(license license:public-domain)))
(define-public font-xfree86-type1
(package
(name "font-xfree86-type1")
(version "1.0.4")
(source (xorg-font-origin
name version
"0jp3zc0qfdaqfkgzrb44vi9vi0a8ygb35wp082yz7rvvxhmg9sya"))
(build-system gnu-build-system)
(inputs
`(("mkfontdir" ,mkfontdir)
("mkfontscale" ,mkfontscale)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg xfree86-type1 font")
(description "Xorg xfree86-type1 font.")
(license license:x11)))
(define-public fontsproto
(package
(name "fontsproto")
(version "2.1.3")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/proto/fontsproto-"
version
".tar.bz2"))
(sha256
(base32
"1f2sdsd74y34nnaf4m1zlcbhyv8xb6irnisc99f84c4ivnq4d415"))))
(build-system gnu-build-system)
(native-inputs `(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg FontsProto protocol headers")
(description
"Fonts Extension contains header files and documentation for
the fonts protocol.")
(license license:x11)
(properties `((superseded . ,xorgproto)))))
(define-public glproto
(package
(name "glproto")
(version "1.4.17")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/proto/glproto-"
version
".tar.bz2"))
(sha256
(base32
"0h5ykmcddwid5qj6sbrszgkcypwn3mslvswxpgy2n2iixnyr9amd"))))
(build-system gnu-build-system)
(native-inputs `(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg GLProto protocol headers")
(description
"OpenGL Extension defines a protocol for the client to send 3D
rendering commands to the X server.")
(license license:x11)
(properties `((superseded . ,xorgproto)))))
(define-public iceauth
(package
(name "iceauth")
(version "1.0.8")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/app/iceauth-"
version
".tar.bz2"))
(sha256
(base32
"1ik0mdidmyvy48hn8p2hwvf3535rf3m96hhf0mvcqrbj44x23vp6"))))
(build-system gnu-build-system)
(inputs
`(("libice" ,libice)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "ICE authority file utility")
(description
"ICEAuth program is used to edit and display the authorization
information used in connecting with ICE (Inter-Client Exchange). It
operates very much like the xauth program for X11 connection
authentication records.")
(license license:x11)))
(define-public inputproto
(package
(name "inputproto")
(version "2.3.2")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/proto/inputproto-"
version
".tar.bz2"))
(sha256
(base32
"07gk7v006zqn3dcfh16l06gnccy7xnqywf3vl9c209ikazsnlfl9"))))
(build-system gnu-build-system)
(native-inputs `(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg InputProto protocol headers")
(description
"Input Extension defines a protocol to provide additional input
devices management such as graphic tablets.")
(license license:x11)
(properties `((superseded . ,xorgproto)))))
(define-public kbproto
(package
(name "kbproto")
(version "1.0.7")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/proto/kbproto-"
version
".tar.bz2"))
(sha256
(base32
"0mxqj1pzhjpz9495vrjnpi10kv2n1s4vs7di0sh3yvipfq5j30pq"))))
(build-system gnu-build-system)
(native-inputs `(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg KBProto protocol headers")
(description
"X Keyboard (XKB) Extension defines a protocol to provide a number
of new capabilities and controls for text keyboards.")
(license license:x11)
(properties `((superseded . ,xorgproto)))))
;; requires applewmproto, which compiles only on macos
;; (define-public libapplewm
(define-public libdmx
(package
(name "libdmx")
(version "1.1.4")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/lib/libdmx-"
version
".tar.bz2"))
(sha256
(base32
"0hvjfhrcym770cr0zpqajdy3cda30aiwbjzv16iafkqkbl090gr5"))))
(build-system gnu-build-system)
(inputs
`(("xorgproto" ,xorgproto)
("libxext" ,libxext)
("libx11" ,libx11)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg DMX library")
(description
"DMX (Distributed Multihead X) extension library.")
(license license:x11)))
(define-public libxshmfence
(package
(name "libxshmfence")
(version "1.3")
(source (origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/lib/"
name "-" version ".tar.bz2"))
(sha256
(base32
"1ir0j92mnd1nk37mrv9bz5swnccqldicgszvfsh62jd14q6k115q"))))
(build-system gnu-build-system)
(native-inputs `(("pkg-config" ,pkg-config)))
(inputs `(("xorgproto" ,xorgproto)))
(home-page "https://www.x.org/")
(synopsis "Xorg shared memory fences library")
(description
"This library provides an interface to shared-memory fences for
synchronization between the X server and direct-rendering clients.")
;; Same license as libevdev.
(license (license:x11-style "file://COPYING"))))
(define-public libfontenc
(package
(name "libfontenc")
(version "1.1.4")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/lib/libfontenc-"
version
".tar.bz2"))
(sha256
(base32
"0y90170dp8wsidr1dzza0grxr1lfh30ji3b5vkjz4j6x1n0wxz1c"))))
(build-system gnu-build-system)
(inputs
`(("zlib" ,zlib)
("xorgproto" ,xorgproto)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "https://gitlab.freedesktop.org/xorg/lib/libfontenc")
(synopsis "Xorg font encoding library")
(description "Xorg font encoding library.")
(license license:x11)))
(define-public libfs
(package
(name "libfs")
(version "1.0.8")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/lib/libFS-"
version
".tar.bz2"))
(sha256
(base32 "03xxyvpfa3rhqcld4p2chkil482jn9cp80hj17jdybcv2hkkgqf8"))))
(build-system gnu-build-system)
(inputs
`(("xtrans" ,xtrans)
("xorgproto" ,xorgproto)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg Font Service client library")
(description
"Font Service client library is used by clients of X Font
Servers (xfs), such as xfsinfo, fslsfonts, and the X servers
themselves.")
(license license:x11)))
(define-public libpciaccess
(package
(name "libpciaccess")
(version "0.16")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/lib/libpciaccess-"
version
".tar.bz2"))
(sha256
(base32
"12glp4w1kgvmqn89lk19cgr6jccd3awxra4dxisp7pagi06rsk11"))))
(build-system gnu-build-system)
(arguments
'(;; Make sure libpciaccess can read compressed 'pci.ids' files as
;; provided by pciutils.
#:configure-flags
(list "--with-zlib"
(string-append "--with-pciids-path="
(assoc-ref %build-inputs "pciutils")
"/share/hwdata"))
#:phases
(modify-phases %standard-phases
(add-after 'install 'add-L-zlib
(lambda* (#:key inputs outputs #:allow-other-keys)
;; Provide '-LZLIB/lib' next to '-lz' in the .la file.
(let ((zlib (assoc-ref inputs "zlib"))
(out (assoc-ref outputs "out")))
(substitute* (string-append out "/lib/libpciaccess.la")
(("-lz")
(string-append "-L" zlib "/lib -lz")))
#t))))))
(inputs
`(("zlib" ,zlib)
("pciutils" ,pciutils))) ;for 'pci.ids.gz'
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg PCI access library")
(description "Xorg Generic PCI access library.")
(license license:x11)))
(define-public libpthread-stubs
(package
(name "libpthread-stubs")
(version "0.4")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/xcb/libpthread-stubs-"
version
".tar.bz2"))
(sha256
(base32
"0cz7s9w8lqgzinicd4g36rjg08zhsbyngh0w68c3np8nlc8mkl74"))))
(build-system gnu-build-system)
(native-inputs `(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Library with pthread stubs")
(description
"This library provides weak aliases for pthread functions not
provided in libc or otherwise available by default. Libraries like
libxcb rely on pthread stubs to use pthreads optionally, becoming
thread-safe when linked to libpthread, while avoiding any performance
hit when running single-threaded.")
(license license:x11)))
(define-public libsm
(package
(name "libsm")
(version "1.2.3")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/lib/libSM-"
version
".tar.bz2"))
(sha256
(base32
"1fwwfq9v3sqmpzpscymswxn76xhxnysa24pfim1mcpxhvjcl89id"))))
(build-system gnu-build-system)
(propagated-inputs
`(("libice" ,libice))) ; SMlib.h includes ICElib.h
(inputs
`(("xtrans" ,xtrans)
("util-linux" ,util-linux)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg Session Management library")
(description "Xorg Session Management library.")
(license license:x11)))
(define-public libwindowswm
(package
(name "libwindowswm")
(version "1.0.1")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/lib/libWindowsWM-"
version
".tar.bz2"))
(sha256
(base32
"1p0flwb67xawyv6yhri9w17m1i4lji5qnd0gq8v1vsfb8zw7rw15"))))
(build-system gnu-build-system)
(inputs
`(("xorgproto" ,xorgproto)
("libxext" ,libxext)
("libx11" ,libx11)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg WindowsWM library")
(description
"Cygwin/X rootless window management extension.
WindowsWM is a simple library designed to interface with the Windows-WM
extension. This extension allows X window managers to better interact
with the Cygwin XWin server when running X11 in a rootless mode.")
(license license:x11)))
(define-public libxcomposite
(package
(name "libxcomposite")
(version "0.4.5")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/lib/libXcomposite-"
version
".tar.bz2"))
(sha256
(base32
"13sfcglvz87vl58hd9rszwr73z0z4nwga3c12rfh7f5s2ln8l8dk"))))
(build-system gnu-build-system)
(propagated-inputs
;; xcomposite.pc refers to all these.
`(("xorgproto" ,xorgproto)
("libxfixes" ,libxfixes)
("libx11" ,libx11)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg Composite library")
(description
"Client library for the Composite extension to the X11 protocol.")
(license license:x11)))
(define-public libxdmcp
(package
(name "libxdmcp")
(version "1.1.3")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/lib/libXdmcp-"
version
".tar.bz2"))
(sha256
(base32
"0ab53h0rkq721ihk5hi469x500f3pgbkm1wy01yf24x5m923nli0"))))
(build-system gnu-build-system)
(inputs
`(("libbsd" ,libbsd)
("xorgproto" ,xorgproto)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg Display Manager Control Protocol library")
(description "Xorg Display Manager Control Protocol library.")
(license license:x11)))
(define-public libxft
(package
(name "libxft")
(version "2.3.3")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/lib/libXft-"
version
".tar.bz2"))
(sha256
(base32
"05lja9s54090xwh31r0bqms4v3pimng5xr09g2rdnafx2vk6hp12"))))
(build-system gnu-build-system)
(propagated-inputs
;; xft.pc refers to all these.
`(("libxrender" ,libxrender)
("freetype" ,freetype)
("fontconfig" ,fontconfig)))
(inputs
`(("libx11" ,libx11)
("xorgproto" ,xorgproto)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg FreeType library")
(description
"Xorg FreeType library connects X applications with the FreeType font
rasterization library. Xft uses fontconfig to locate fonts so it has no
configuration files.")
(license license:x11)))
(define-public libxkbfile
(package
(name "libxkbfile")
(version "1.1.0")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/lib/libxkbfile-"
version
".tar.bz2"))
(sha256
(base32
"1irq9crvscd3yb8sr802dhvvfr35jdy1n2yz094xplmd42mbv3bm"))))
(build-system gnu-build-system)
(inputs
`(("libx11" ,libx11)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg XKB file handling library")
(description "Xorg XKB file handling library.")
(license license:x11)))
(define-public libxmu
(package
(name "libxmu")
(version "1.1.3")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/lib/libXmu-"
version
".tar.bz2"))
(sha256
(base32
"0cdpqnx6258i4l6qhphvkdiyspysg0i5caqjy820kp63wwjk4d4w"))))
(build-system gnu-build-system)
(inputs
`(("libxt" ,libxt)
("xorgproto" ,xorgproto)
("libxext" ,libxext)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg Xmu library")
(description
"Xmu library contains miscellaneous utilities and is not part of the
Xlib standard. It is intended to support clients in the Xorg distribution;
vendors may choose not to distribute this library if they wish. Therefore,
applications developers who depend on this library should be prepared to
treat it as part of their software base when porting.")
(license license:x11)))
(define-public libxpm
(package
(name "libxpm")
(version "3.5.12")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/lib/libXpm-"
version
".tar.bz2"))
(sha256
(base32
"1v5xaiw4zlhxspvx76y3hq4wpxv7mpj6parqnwdqvpj8vbinsspx"))))
(build-system gnu-build-system)
(inputs
`(("gettext" ,gettext-minimal)
("libxt" ,libxt)
("xorgproto" ,xorgproto)
("libxext" ,libxext)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg XPM library")
(description "XPM (X Pixmap) image file format library.")
(license license:x11)))
(define-public libxres
(package
(name "libxres")
(version "1.2.0")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/lib/libXres-"
version
".tar.bz2"))
(sha256
(base32
"1m0jr0lbz9ixpp9ihk68349q0i7ry2379lnfzdy4mrl86ijc2xgz"))))
(build-system gnu-build-system)
(inputs
`(("xorgproto" ,xorgproto)
("libxext" ,libxext)
("libx11" ,libx11)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg Resource extension library")
(description "X Resource extension library.")
(license license:x11)))
(define-public libxscrnsaver
(package
(name "libxscrnsaver")
(version "1.2.3")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/lib/libXScrnSaver-"
version
".tar.bz2"))
(sha256
(base32
"1y4vx1vabg7j9hamp0vrfrax5b0lmgm3h0lbgbb3hnkv3dd0f5zr"))))
(build-system gnu-build-system)
(inputs
`(("libxext" ,libxext)
("libx11" ,libx11)))
(propagated-inputs
`(("xorgproto" ,xorgproto)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg Screen Saver library")
(description "X11 Screen Saver extension client library.")
(license license:x11)))
(define-public libxxf86dga
(package
(name "libxxf86dga")
(version "1.1.5")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://xorg/individual/lib/"
"libXxf86dga-" version ".tar.bz2"))
(sha256
(base32 "00vjvcdlc1sga251jkxn6gkxmx9h5n290ffxxpa40qbca1gvr61b"))))
(build-system gnu-build-system)
(propagated-inputs
`(("xorgproto" ,xorgproto)))
(inputs
`(("libx11" ,libx11)
("libxext" ,libxext)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg XFree86-DGA library")
(description "Client library for the XFree86-DGA extension.")
(license license:x11)))
(define-public luit
(package
(name "luit")
(version "1.1.1")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/app/luit-"
version
".tar.bz2"))
(sha256
(base32
"0dn694mk56x6hdk6y9ylx4f128h5jcin278gnw2gb807rf3ygc1h"))
;; See https://bugs.freedesktop.org/show_bug.cgi?id=47792;
;; should become obsolete with the next release.
(patches (search-patches "luit-posix.patch"))))
(build-system gnu-build-system)
(inputs
`(("libfontenc" ,libfontenc)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Convert terminal I/O from legacy encodings to UTF-8")
(description
"Luit is a filter that can be run between an arbitrary application and
a UTF-8 terminal emulator such as xterm. It will convert application
output from the locale's encoding into UTF-8, and convert terminal
input from UTF-8 into the locale's encoding.")
(license license:x11)))
(define-public makedepend
(package
(name "makedepend")
(version "1.0.6")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/util/makedepend-"
version
".tar.bz2"))
(sha256
(base32
"072h9nzh8s5vqfz35dli4fba36fnr219asjrb7p89n8ph0paan6m"))))
(build-system gnu-build-system)
(inputs
`(("xorgproto" ,xorgproto)))
(native-inputs `(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg makedepend utility")
(description
"Makedepend is an utility for creating dependencies in makefiles.")
(license license:x11)))
(define-public mkfontscale
(package
(name "mkfontscale")
(version "1.2.1")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/app/mkfontscale-"
version
".tar.bz2"))
(sha256
(base32 "1ixsnsm2mn0zy9ksdid0lj6irnhvasfik9mz8bbrs5sajzmra16a"))))
(build-system gnu-build-system)
(inputs
`(("zlib" ,zlib)
("xorgproto" ,xorgproto)
("freetype" ,freetype)
("libfontenc" ,libfontenc)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Create an index of scalable font files for X server")
(description
"MkFontScale creates the @code{fonts.scale} and @code{fonts.dir} index
files used by the legacy X11 font system.")
(license license:x11)))
(define-public presentproto
(package
(name "presentproto")
(version "1.1")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/proto/presentproto-"
version
".tar.bz2"))
(sha256
(base32
"1f96dlgfwhsd0834z8ydjzjnb0cwha5r6lxgia4say4zhsl276zn"))))
(build-system gnu-build-system)
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg PresentProto protocol headers")
(description
"Present Extension provides a way for applications to update their
window contents from a pixmap in a well defined fashion, synchronizing
with the display refresh and potentially using a more efficient
mechanism than copying the contents of the source pixmap.")
(license (license:x11-style "file://presentproto.h"
"See 'presentproto.h' in the distribution."))
(properties `((superseded . ,xorgproto)))))
(define-public printproto
(package
(name "printproto")
(version "1.0.5")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/proto/printproto-"
version
".tar.bz2"))
(sha256
(base32
"06liap8n4s25sgp27d371cc7yg9a08dxcr3pmdjp761vyin3360j"))))
(build-system gnu-build-system)
(native-inputs `(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg PrintProto protocol headers")
(description
"Print Extension defines a protocol for a portable,
network-transparent printing system.")
(license license:x11)))
(define-public randrproto
(package
(name "randrproto")
(version "1.5.0")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/proto/randrproto-"
version
".tar.bz2"))
(sha256
(base32
"0s4496z61y5q45q20gldwpf788b9nsa8hb13gnck1mwwwwrmarsc"))))
(build-system gnu-build-system)
(native-inputs `(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg RandRProto protocol headers")
(description
"Resize and Rotate Extension defines a protocol for clients to
dynamically change X screens, so as to resize, rotate and reflect the root
window of a screen.")
(license license:x11)
(properties `((superseded . ,xorgproto)))))
(define-public recordproto
(package
(name "recordproto")
(version "1.14.2")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/proto/recordproto-"
version
".tar.bz2"))
(sha256
(base32
"0w3kgr1zabwf79bpc28dcnj0fpni6r53rpi82ngjbalj5s6m8xx7"))))
(build-system gnu-build-system)
(native-inputs `(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg RecordProto protocol headers")
(description
"Record Extension defines a protocol for the recording and playback
of user actions in the X Window System.")
(license license:x11)
(properties `((superseded . ,xorgproto)))))
(define-public renderproto
(package
(name "renderproto")
(version "0.11.1")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/proto/renderproto-"
version
".tar.bz2"))
(sha256
(base32
"0dr5xw6s0qmqg0q5pdkb4jkdhaja0vbfqla79qh5j1xjj9dmlwq6"))))
(build-system gnu-build-system)
(native-inputs `(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg RenderProto protocol headers")
(description
"Rendering Extension defines a protocol for a digital image composition
as the foundation of a new rendering model within the X Window System.")
(license license:x11)
(properties `((superseded . ,xorgproto)))))
(define-public resourceproto
(package
(name "resourceproto")
(version "1.2.0")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/proto/resourceproto-"
version
".tar.bz2"))
(sha256
(base32
"0638iyfiiyjw1hg3139pai0j6m65gkskrvd9684zgc6ydcx00riw"))))
(build-system gnu-build-system)
(native-inputs `(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg ResourceProto protocol headers")
(description
"Resource Extension defines a protocol that allows a client to
query the X server about its usage of various resources.")
(license license:x11)
(properties `((superseded . ,xorgproto)))))
(define-public scrnsaverproto
(package
(name "scrnsaverproto")
(version "1.2.2")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/proto/scrnsaverproto-"
version
".tar.bz2"))
(sha256
(base32
"0rfdbfwd35d761xkfifcscx56q0n56043ixlmv70r4v4l66hmdwb"))))
(build-system gnu-build-system)
(native-inputs `(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg ScrnSaverProto protocol headers")
(description
"Screen Saver Extension defines a protocol to control screensaver
features and to query screensaver info on specific windows.")
(license license:x11)
(properties `((superseded . ,xorgproto)))))
(define-public sessreg
(package
(name "sessreg")
(version "1.1.2")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/app/sessreg-" version ".tar.bz2"))
(sha256
(base32 "0crczl25zynkrslmm8sjaxszhrh4i33m7h5fg4wfdb3k8aarxjyz"))))
(build-system gnu-build-system)
(inputs
`(("xorgproto" ,xorgproto)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Register X sessions in system utmp/utmpx databases")
(description
"SessReg is a simple program for managing utmp/wtmp entries for X
sessions. It was originally written for use with xdm, but may also be
used with other display managers such as gdm or kdm.")
(license license:x11)))
(define-public setxkbmap
(package
(name "setxkbmap")
(version "1.3.2")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/app/setxkbmap-"
version
".tar.bz2"))
(sha256
(base32
"1xdrxs65v7d0rw1yaz0vsz55w4hxym99216p085ya9978j379wlg"))))
(build-system gnu-build-system)
(inputs
`(("libxkbfile" ,libxkbfile)
("xkeyboard-config" ,xkeyboard-config)
("libx11" ,libx11)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(arguments
`(#:configure-flags
(list (string-append "--with-xkb-config-root="
(assoc-ref %build-inputs "xkeyboard-config")
"/share/X11/xkb"))))
(home-page "https://www.x.org/wiki/")
(synopsis "Set the keyboard using the X Keyboard Extension")
(description
"Setxkbmap is an X11 client to change the keymaps in the X server
for a specified keyboard to use the layout determined by the options
listed on the command line.")
(license license:x11)))
(define-public smproxy
(package
(name "smproxy")
(version "1.0.6")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/app/smproxy-"
version
".tar.bz2"))
(sha256
(base32
"0rkjyzmsdqmlrkx8gy2j4q6iksk58hcc92xzdprkf8kml9ar3wbc"))))
(build-system gnu-build-system)
(inputs
`(("libxt" ,libxt)
("libxmu" ,libxmu)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Session Manager Proxy")
(description
"SMProxy allows X applications that do not support X11R6 session
management to participate in an X11R6 session.")
(license license:x11)))
(define-public util-macros
(package
(name "util-macros")
(version "1.19.2")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/util/util-macros-"
version
".tar.bz2"))
(sha256
(base32
"04p7ydqxgq37jklnfj18b70zsifiz4h50wvrk94i2112mmv37r6p"))))
(build-system gnu-build-system)
(native-inputs `(("pkg-config" ,pkg-config)))
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'fix-makefile-in
(lambda _
(substitute* "Makefile.in"
;; Install xorg-macros.pc in PREFIX/lib/pkgconfig,
;; not PREFIX/share/pkgconfig.
(("\\$\\(datadir\\)/pkgconfig") "$(libdir)/pkgconfig"))
#t))
(add-after 'install 'post-install-cleanup
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(with-directory-excursion out
(delete-file "share/util-macros/INSTALL")
(rmdir "share/util-macros"))
#t))))))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg autoconf macros")
(description
"This package provides a set of autoconf macros used by the
configure.ac scripts in other Xorg modular packages, and is needed to
generate new versions of their configure scripts with autoconf.")
(license license:x11)))
(define-public videoproto
(package
(name "videoproto")
(version "2.3.3")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/proto/videoproto-"
version
".tar.bz2"))
(sha256
(base32
"00m7rh3pwmsld4d5fpii3xfk5ciqn17kkk38gfpzrrh8zn4ki067"))))
(build-system gnu-build-system)
(native-inputs `(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg VideoProto protocol headers")
(description
"Video Extension provides a protocol for a video output mechanism,
mainly to rescale video playback in the video controller hardware.")
(license license:x11)
(properties `((superseded . ,xorgproto)))))
(define-public windowswmproto
(package
(name "windowswmproto")
(version "1.0.4")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/proto/windowswmproto-"
version
".tar.bz2"))
(sha256
(base32
"0syjxgy4m8l94qrm03nvn5k6bkxc8knnlld1gbllym97nvnv0ny0"))))
(build-system gnu-build-system)
(native-inputs `(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg WindowsWMProto protocol headers")
(description
"WindowsWM Extension defines a protocol, used for coordination between
an X11 server and the Microsoft Windows native window manager. WindowsWM
is only intended to be used on Cygwin when running a rootless XWin
server.")
(license license:x11)
(properties `((superseded . ,xorgproto)))))
(define-public x11perf
(package
(name "x11perf")
(version "1.6.1")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/app/x11perf-"
version
".tar.bz2"))
(sha256
(base32
"0d3wh6z6znwhfdiv0zaggfj0xgish98xa10yy76b9517zj7hnzhw"))))
(build-system gnu-build-system)
(inputs
`(("libx11" ,libx11)
("libxft" ,libxft)
("libxmu" ,libxmu)
("libxrender" ,libxrender)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "X server performance benchmarker")
(description
"X11Perf is a simple performance benchmarker for the Xorg X server.")
(license license:x11)))
(define-public xauth
(package
(name "xauth")
(version "1.1")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://xorg/individual/app/xauth-" version
".tar.bz2"))
(sha256
(base32 "032klzzw8r09z36x1272ssd79bcisz8j5p8gbdy111fiknvx27bd"))))
(build-system gnu-build-system)
(inputs
`(("libxmu" ,libxmu)
("libxext" ,libxext)
("libxau" ,libxau)
("libx11" ,libx11)))
(native-inputs
`(("cmdtest" ,cmdtest)
("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "X authority file utility")
(description
"XAuth program is used to edit and display the authorization
information used in connecting to the X server.")
(license license:x11)))
(define-public xbacklight
(package
(name "xbacklight")
(version "1.2.3")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/app/xbacklight-"
version
".tar.bz2"))
(sha256
(base32
"1plssg0s3pbslg6rfzxp9sx8ryvn8l32zyvc8zp9zsbsfwjg69rs"))))
(build-system gnu-build-system)
(inputs
`(("libxcb" ,libxcb)
("xcb-util" ,xcb-util)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Control display backlight")
(description
"Xbacklight is used to adjust the backlight brightness where
supported. It uses the RandR extension to find all outputs on the X
server supporting backlight brightness control and changes them all in
the same way.")
(license license:x11)))
(define-public xbitmaps
(package
(name "xbitmaps")
(version "1.1.2")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/data/xbitmaps-"
version
".tar.bz2"))
(sha256
(base32
"1vh73sc13s7w5r6gnc6irca56s7998bja7wgdivkfn8jccawgw5r"))))
(build-system gnu-build-system)
(native-inputs `(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "X bitmaps")
(description
"xbitmaps provides basic bitmaps (little pictures) used by some
legacy X clients.")
(license license:x11)))
(define-public xcalc
(package
(name "xcalc")
(version "1.1.0")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://xorg/individual/app/"
"xcalc-" version ".tar.gz"))
(sha256
(base32 "0c768lh0nh28ram9ldldhaf51024fngc589v4pjmf3lxmzcihr58"))))
(build-system gnu-build-system)
(arguments
`(#:phases (modify-phases %standard-phases
(add-after
'configure 'mutate-makefile
(lambda _
(substitute* "Makefile"
(("^appdefaultdir = .*$")
(string-append "appdefaultdir = " %output
,%app-defaults-dir "\n")))
#t)))))
(inputs
`(("libxaw" ,libxaw)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Hand calculator for the X Window system")
(description "Xcalc is a scientific calculator desktop accessory that can
emulate a TI-30 or an HP-10C.")
(license license:x11)))
(define-public xcb-proto
(package
(name "xcb-proto")
(version "1.13")
(source
(origin
(method url-fetch)
(uri (string-append
"https://xcb.freedesktop.org/dist/xcb-proto-"
version
".tar.bz2"))
(sha256
(base32
"1qdxw9syhbvswiqj5dvj278lrmfhs81apzmvx6205s4vcqg7563v"))))
(build-system gnu-build-system)
(native-inputs
`(("pkg-config" ,pkg-config) ("python" ,python-minimal-wrapper)))
(home-page "https://xcb.freedesktop.org/")
(synopsis "XML-XCB protocol descriptions")
(description
"XCB-Proto provides the XML-XCB protocol descriptions that libxcb
uses to generate the majority of its code and API. XCB-Proto is
separated from libxcb to allow reuse by other projects, such as
additional language bindings, protocol dissectors, or documentation
generators.
XCB-Proto also contains language-independent Python libraries that are
used to parse an XML description and create objects used by Python code
generators in individual language bindings.")
(license license:x11)))
(define-public xcmiscproto
(package
(name "xcmiscproto")
(version "1.2.2")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/proto/xcmiscproto-"
version
".tar.bz2"))
(sha256
(base32
"1pyjv45wivnwap2wvsbrzdvjc5ql8bakkbkrvcv6q9bjjf33ccmi"))))
(build-system gnu-build-system)
(native-inputs `(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg XCMiscProto protocol headers")
(description
"XC-MISC Extension defines a protocol that provides Xlib two ways
to query the server for available resource IDs.")
(license license:x11)
(properties `((superseded . ,xorgproto)))))
(define-public xcmsdb
(package
(name "xcmsdb")
(version "1.0.5")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/app/xcmsdb-"
version
".tar.bz2"))
(sha256
(base32
"1ik7gzlp2igz183x70883000ygp99r20x3aah6xhaslbpdhm6n75"))))
(build-system gnu-build-system)
(inputs
`(("libx11" ,libx11)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Device Color Characterization utility")
(description
"XCMSDB is used to load, query, or remove Device Color
Characterization data stored in properties on the root window of the
screen as specified in section 7, Device Color Characterization, of the
X11 Inter-Client Communication Conventions Manual (ICCCM).")
(license license:x11)))
(define-public xcursor-themes
(package
(name "xcursor-themes")
(version "1.0.6")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/data/xcursor-themes-"
version
".tar.bz2"))
(sha256
(base32
"16a96li0s0ggg60v7f6ywxmsrmxdfizcw55ccv7sp4qjfisca7pf"))))
(build-system gnu-build-system)
(inputs
`(("libxcursor" ,libxcursor)
("xcursorgen" ,xcursorgen)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(arguments
`(#:configure-flags
(list (string-append "--with-cursordir="
(assoc-ref %outputs "out")
"/share/icons"))))
(home-page "https://www.x.org/wiki/")
(synopsis "Default Xorg cursors")
(description
"This package provides a default set of cursor themes for the Xorg
X server: @code{handhelds}, @code{redglass} and @code{whiteglass}.")
(license license:x11)))
(define-public hackneyed-x11-cursors
;; The current release 0.8 suffers from non-deterministic build problems.
(let ((revision "1")
(commit "9423cef2e2e5ff6b1d65d61f7108c97bc7f5fdfb"))
(package
(name "hackneyed-x11-cursors")
(version (git-version "0.8.1" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://gitlab.com/Enthymeme/hackneyed-x11-cursors.git")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"0f637i76sdwz3nm1g1iynamq6j0i6k3c70fpl0fmd0dlynm8ga96"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ;no test suite
#:make-flags (list (string-append "PREFIX=" %output))
#:phases
(modify-phases %standard-phases
(delete 'configure)
(add-before 'build 'set-inkscape-environment-variable
(lambda* (#:key inputs #:allow-other-keys)
(let ((inkscape (string-append (assoc-ref inputs "inkscape")
"/bin/inkscape")))
(setenv "INKSCAPE" inkscape)
#t)))
(add-before 'build 'placate-inkscape-warnings
(lambda _
(setenv "HOME" (getcwd))
#t))
(add-after 'build 'generate-black-cursors
(lambda* (#:key make-flags parallel-build #:allow-other-keys)
(let ((build (assoc-ref %standard-phases 'build))
(make-flags/extended
`(,@make-flags
"THEME_NAME=Hackneyed-Dark"
"COMMON_SOURCE=theme/common-dark.svg"
"RSVG_SOURCE=theme/right-handed-dark.svg"
"LSVG_SOURCE=theme/left-handed-dark.svg")))
(build #:make-flags make-flags/extended
#:parallel-build parallel-build))))
(add-after 'install 'install-black-cursors
(lambda* (#:key make-flags #:allow-other-keys)
(apply invoke `("make" "install" ,@make-flags
"THEME_NAME=Hackneyed-Dark")))))))
(native-inputs `(("imagemagick" ,imagemagick)
("inkscape" ,inkscape)
("xcursorgen" ,xcursorgen)))
(home-page "https://gitlab.com/Enthymeme/hackneyed-x11-cursors")
(synopsis "Classic cursor theme for X11")
(description "Hackneyed is a scalable cursor theme mildly resembling old
Windows 3.x cursors. The cursors are available in white and black colors. A
left-handed version of the cursors is also included.")
(license license:x11))))
(define-public xcursorgen
(package
(name "xcursorgen")
(version "1.0.7")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/app/xcursorgen-"
version
".tar.bz2"))
(sha256
(base32
"0ggbv084cavp52hjgcz3vdj0g018axs0m23c03lpc5sgn92gidim"))))
(build-system gnu-build-system)
(inputs
`(("libxcursor" ,libxcursor)
("libpng" ,libpng)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Create an X cursor file from PNG images")
(description
"XCursorGen prepares X11 cursor sets for use with libXcursor.")
(license license:x11)))
(define-public xdpyinfo
(package
(name "xdpyinfo")
(version "1.3.2")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/app/xdpyinfo-"
version
".tar.bz2"))
(sha256
(base32
"0ldgrj4w2fa8jng4b3f3biaj0wyn8zvya88pnk70d7k12pcqw8rh"))))
(build-system gnu-build-system)
(inputs
`(("xorgproto" ,xorgproto)
("libx11" ,libx11)
("libxxf86vm" ,libxxf86vm)
("libxxf86dga" ,libxxf86dga)
("libxtst" ,libxtst)
("libxrender" ,libxrender)
("libxinerama" ,libxinerama)
("libxi" ,libxi)
("libxcomposite" ,libxcomposite)
("libdmx" ,libdmx)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg display information utility")
(description
"Xdpyinfo is used to display information about an X server: the
capabilities of a server, the predefined values for various parameters
used in communicating between clients and the server, and the different
types of screens, visuals, and X11 protocol extensions that are
available.")
(license license:x11)))
(define-public xdriinfo
(package
(name "xdriinfo")
(version "1.0.6")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/app/xdriinfo-"
version
".tar.bz2"))
(sha256
(base32
"0lcx8h3zd11m4w8wf7dyp89826d437iz78cyrix436bqx31x5k6r"))))
(build-system gnu-build-system)
(inputs
`(("mesa" ,mesa)
("libx11" ,libx11)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Query DRI configuration information")
(description
"XDRIInfo is used to query configuration information of X11
DRI (Direct Rendering Infrastructure) drivers.")
(license license:x11)))
(define-public xev
(package
(name "xev")
(version "1.2.3")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/app/xev-"
version
".tar.bz2"))
(sha256
(base32
"02ddsdx138g7szhwklpbzi0cxr34871iay3k28kdcihrz8f4zg36"))))
(build-system gnu-build-system)
(inputs
`(("libxrender" ,libxrender)
("libxrandr" ,libxrandr)
("xorgproto" ,xorgproto)
("libx11" ,libx11)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "https://gitlab.freedesktop.org/xorg/app/xev")
(synopsis "Print contents of X events")
(description
"XEv creates a window and then asks the X server to send it X11
events whenever anything happens to the window (such as it being moved,
resized, typed in, clicked in, etc.). You can also attach it to an
existing window. It is useful for seeing what causes events to occur
and to display the information that they contain; it is essentially a
debugging and development tool, and should not be needed in normal
usage.")
(license license:x11)))
(define-public xextproto
(package
(name "xextproto")
(version "7.3.0")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/proto/xextproto-"
version
".tar.bz2"))
(sha256
(base32
"1c2vma9gqgc2v06rfxdiqgwhxmzk2cbmknwf1ng3m76vr0xb5x7k"))))
(build-system gnu-build-system)
(native-inputs `(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Xorg XExtProto protocol headers")
(description
"XExtProto provides the following extensions: DOUBLE-BUFFER, DPMS,
Extended-Visual-Information, Generic Event Extension, LBX, MIT-SHM,
MIT-SUNDRY-NONSTANDARD, Multi-Buffering, SECURITY, SHAPE, SYNC, TOG-CUP,
XC-APPGROUP, XTEST.")
(license license:x11)
(properties `((superseded . ,xorgproto)))))
(define-public libevdev
(package
(name "libevdev")
(version "1.8.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://www.freedesktop.org/software/" name "/"
name "-" version ".tar.xz"))
(sha256
(base32
"04a2klvii0in9ln8r85mk2cm73jq8ry2m3yzmf2z8xyjxzjcmlr0"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags '("--disable-static")
#:phases (modify-phases %standard-phases
(add-before 'configure 'pedantry
(lambda _
;; XXX: libevdev includes kernel headers, which causes this
;; compile test to fail with:
;; ...-headers-4.14.67/include/asm-generic/posix_types.h:88:14:
;;error: ISO C90 does not support ‘long long’ [-Werror=long-long]
(substitute* "test/Makefile.in"
(("-pedantic -Werror -std=c89")
"-pedantic -Werror -std=c99"))
#t)))))
(native-inputs `(("python" ,python)))
(home-page "https://www.freedesktop.org/wiki/Software/libevdev/")
(synopsis "Wrapper library for evdev devices")
(description
"libevdev is a wrapper library for evdev devices. it moves the common
tasks when dealing with evdev devices into a library and provides a library
interface to the callers, thus avoiding erroneous ioctls, etc.
The eventual goal is that libevdev wraps all ioctls available to evdev
devices, thus making direct access unnecessary.")
(license (license:x11-style "file://COPYING"))))
(define-public xf86-input-evdev
(package
(name "xf86-input-evdev")
(version "2.10.6")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/driver/xf86-input-evdev-"
version
".tar.bz2"))
(sha256
(base32
"1h1y0fwnawlp4yc5llr1l7hwfcxxpln2fxhy6arcf6w6h4z0f9l7"))))
(build-system gnu-build-system)
(inputs
`(("udev" ,eudev)
("libevdev" ,libevdev)
("mtdev" ,mtdev)
("xorg-server" ,xorg-server)))
(native-inputs `(("pkg-config" ,pkg-config)))
(arguments
`(#:configure-flags
(list (string-append "--with-sdkdir="
(assoc-ref %outputs "out")
"/include/xorg"))))
(home-page "https://www.x.org/wiki/")
(synopsis "Generic input driver for X server")
(description
"xf86-input-evdev is a generic input driver for the Xorg X server.
This driver supports all input devices that the kernel knows about,
including most mice, keyboards, tablets and touchscreens.")
(license license:x11)))
(define-public xf86-input-libinput
(package
(name "xf86-input-libinput")
(version "0.28.2")
(source (origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/driver/"
name "-" version ".tar.bz2"))
(sha256
(base32
"0818vr0yhk9j1y1wcbxzcd458vrvp06rrhi8k43bhqkb5jb4dcxq"))))
(build-system gnu-build-system)
(arguments
'(#:configure-flags
(list (string-append "--with-sdkdir="
%output "/include/xorg"))))
(native-inputs
`(("pkg-config" ,pkg-config)))
(inputs
`(("libinput" ,libinput)
("xorg-server" ,xorg-server)))
(home-page "https://www.x.org/wiki/")
(synopsis "Input driver for X server based on libinput")
(description
"xf86-input-libinput is an input driver for the Xorg X server based
on libinput. It is a thin wrapper around libinput, so while it does
provide all features that libinput supports it does little beyond.")
(license license:x11)))
(define-public xf86-input-joystick
(package
(name "xf86-input-joystick")
(version "1.6.3")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/driver/xf86-input-joystick-"
version
".tar.bz2"))
(sha256
(base32
"1awfq496d082brgjbr60lhm6jvr9537rflwxqdfqwfzjy3n6jxly"))))
(build-system gnu-build-system)
(inputs `(("xorg-server" ,xorg-server)))
(native-inputs `(("pkg-config" ,pkg-config)))
(arguments
`(#:configure-flags
(list (string-append "--with-sdkdir="
(assoc-ref %outputs "out")
"/include/xorg"))))
(home-page "https://www.x.org/wiki/")
(synopsis "Joystick input driver for X server")
(description
"xf86-input-joystick is a joystick input driver for the Xorg X server.
It is used to control the pointer with a joystick device.")
(license license:x11)))
(define-public xf86-input-keyboard
(package
(name "xf86-input-keyboard")
(version "1.9.0")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/driver/xf86-input-keyboard-"
version
".tar.bz2"))
(sha256
(base32
"12032yg412kyvnmc5fha1in7mpi651d8sa1bk4138s2j2zr01jgp"))))
(build-system gnu-build-system)
(inputs `(("xorg-server" ,xorg-server)))
(native-inputs `(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Keyboard input driver for X server")
(description
"xf86-input-keyboard is a keyboard input driver for the Xorg X server.")
(license license:x11)))
(define-public xf86-input-mouse
(package
(name "xf86-input-mouse")
(version "1.9.3")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/driver/xf86-input-mouse-"
version
".tar.bz2"))
(sha256
(base32
"1iawr1wyl2qch1mqszcs0s84i92mh4xxprflnycbw1adc18b7v4k"))))
(build-system gnu-build-system)
(inputs `(("xorg-server" ,xorg-server)))
(native-inputs `(("pkg-config" ,pkg-config)))
(arguments
`(#:configure-flags
(list (string-append "--with-sdkdir="
(assoc-ref %outputs "out")
"/include/xorg"))))
(home-page "https://www.x.org/wiki/")
(synopsis "Mouse input driver for X server")
(description
"xf86-input-mouse is a mouse input driver for the Xorg X server.
This driver supports four classes of mice: serial, bus and PS/2 mice,
and additional mouse types supported by specific operating systems, such
as USB mice.")
(license license:x11)))
(define-public xf86-input-synaptics
(package
(name "xf86-input-synaptics")
(version "1.9.1")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/driver/xf86-input-synaptics-"
version
".tar.bz2"))
(sha256
(base32
"0xhm03qywwfgkpfl904d08lx00y28m1b6lqmks5nxizixwk3by3s"))))
(build-system gnu-build-system)
(inputs `(("libx11" ,libx11)
("libxi" ,libxi)
("libevdev" ,libevdev)
("mtdev" ,mtdev)
("xorg-server" ,xorg-server)))
(native-inputs `(("pkg-config" ,pkg-config)))
(arguments
`(#:configure-flags
(list (string-append "--with-sdkdir="
(assoc-ref %outputs "out")
"/include/xorg")
(string-append "--with-xorg-conf-dir="
(assoc-ref %outputs "out")
"/share/X11/xorg.conf.d"))))
(home-page "https://www.x.org/wiki/")
(synopsis "Touchpad input driver for X server")
(description
"xf86-input-synaptics is a touchpad driver for the Xorg X server.")
(license license:x11)))
(define-public xf86-input-void
(package
(name "xf86-input-void")
(version "1.4.1")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/driver/xf86-input-void-"
version
".tar.bz2"))
(sha256
(base32
"171k8b8s42s3w73l7ln9jqwk88w4l7r1km2blx1vy898c854yvpr"))))
(build-system gnu-build-system)
(inputs `(("xorg-server" ,xorg-server)))
(native-inputs `(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Void (null) input driver for X server")
(description
"xf86-input-void is a null input driver for the Xorg X server.")
(license license:x11)))
(define-public xf86-video-amdgpu
(package
(name "xf86-video-amdgpu")
(version "19.0.1")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://xorg/individual/driver/"
"xf86-video-amdgpu-" version ".tar.bz2"))
(sha256
(base32 "1mf6s7i423b2xyl469kwnakrpp5fr41sm8hh7vli5jxdd8crg8da"))))
(build-system gnu-build-system)
(inputs `(("xorg-server" ,xorg-server)))
(native-inputs `(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "AMD Radeon video driver for X server")
(description
"xf86-video-amdgpu is an AMD Radeon video driver for the Xorg
X server.")
(license license:x11)))
(define-public xf86-video-ark
(package
(name "xf86-video-ark")
(version "0.7.5")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/driver/xf86-video-ark-"
version
".tar.bz2"))
(sha256
(base32
"07p5vdsj2ckxb6wh02s61akcv4qfg6s1d5ld3jn3lfaayd3f1466"))
(patches (search-patches "xf86-video-ark-remove-mibstore.patch"))))
(build-system gnu-build-system)
(inputs `(("xorg-server" ,xorg-server)))
(native-inputs `(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Ark Logic video driver for X server")
(description
"xf86-video-ark is an Ark Logic video driver for the Xorg X server.")
(license license:x11)))
(define-public xf86-video-ast
(package
(name "xf86-video-ast")
(version "1.1.5")
(home-page "https://cgit.freedesktop.org/xorg/driver/xf86-video-ast/")
(source (origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/driver/xf86-video-ast-"
version ".tar.bz2"))
(sha256
(base32
"1pm2cy81ma7ldsw0yfk28b33h9z2hcj5rccrxhfxfgvxsiavrnqy"))))
(build-system gnu-build-system)
(inputs `(("xorg-server" ,xorg-server)))
(native-inputs `(("pkg-config" ,pkg-config)))
(synopsis "ASpeed Technologies video driver for X server")
(description
"xf86-video-ast is an ASpeed Technologies video driver for the Xorg
X server.")
(license license:x11)))
(define-public xf86-video-ati
(package
(name "xf86-video-ati")
(version "19.0.1")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://xorg/individual/driver/"
"xf86-video-ati-" version ".tar.bz2"))
(sha256
(base32 "1c31g5q5p3nk9nscwikh1vvfnhdwsxiw7j8v678nlm34hrfh3djw"))))
(build-system gnu-build-system)
(inputs `(("mesa" ,mesa)
("xorgproto" ,xorgproto)
("xorg-server" ,xorg-server)))
(native-inputs `(("pkg-config" ,pkg-config)))
(arguments `(#:configure-flags `("--disable-glamor"))) ; TODO: Enable glamor
(home-page "https://www.x.org/wiki/")
(synopsis "ATI Radeon video driver for X server")
(description
"xf86-video-ati is an ATI Radeon video driver for the Xorg
X server.")
(license license:x11)))
(define-public xf86-video-cirrus
(package
(name "xf86-video-cirrus")
(version "1.5.3")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://xorg/individual/driver/xf86-video-cirrus-"
version
".tar.bz2"))
(sha256
(base32
"1asifc6ld2g9kap15vfhvsvyl69lj7pw3d9ra9mi4najllh7pj7d"))))
(build-system gnu-build-system)
(inputs `(("xorg-server" ,xorg-server)))
(native-inputs `(("pkg-config" ,pkg-config)))
(home-page "https://www.x.org/wiki/")
(synopsis "Cirrus Logic video driver for X server")
(description
"xf86-video-cirrus is a Cirrus Logic video driver for the Xorg
X server.")
(license license:x11)))
;; non-free license
;; (define-public xf86-video-dummy
(define-public xf86-video-fbdev
<