hydra: Fix typo in core package list.
[jackhill/guix/guix.git] / gnu / packages / xorg.scm
index 0659c8d..2e1eeda 100644 (file)
@@ -1,5 +1,6 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2013 Andreas Enge <andreas@enge.fr>
+;;; Copyright © 2014 Mark H Weaver <mhw@netris.org>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
   #:use-module (guix packages)
   #:use-module (guix download)
   #:use-module (guix build-system gnu)
+  #:use-module (gnu packages)
   #:use-module (gnu packages bison)
   #:use-module (gnu packages compression)
   #:use-module (gnu packages flex)
   #:use-module (gnu packages fontutils)
-  #:use-module ((gnu packages gettext)
-                #:renamer (symbol-prefix-proc 'gnu:))
+  #: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 libpng)
   #:use-module (gnu packages linux)
   #:use-module (gnu packages m4)
-  #:use-module (gnu packages openssl)
   #:use-module (gnu packages perl)
   #:use-module (gnu packages pkg-config)
   #:use-module (gnu packages python)
-  #:use-module (gnu packages xml))
+  #:use-module (gnu packages xml)
+  #:use-module (gnu packages ncurses))
 
 
 
@@ -61,8 +64,9 @@
     (inputs
       `(("libxext" ,libxext)
         ("libxmu" ,libxmu)
-        ("libxt" ,libxt)
-        ("pkg-config" ,pkg-config)))
+        ("libxt" ,libxt)))
+    (native-inputs
+     `(("pkg-config" ,pkg-config)))
     (home-page "http://xeyes.sourcearchive.com/")
     (synopsis "A follow the mouse X demo")
     (description "Xeyes is a demo program for x.org. It shows eyes
@@ -73,7 +77,7 @@ following the mouse.")
 (define-public pixman
   (package
     (name "pixman")
-    (version "0.28.2")
+    (version "0.32.4")
     (source
       (origin
         (method url-fetch)
@@ -83,12 +87,13 @@ following the mouse.")
                ".tar.gz"))
         (sha256
           (base32
-            "0mcvxd5gx3w1wzgph91l2vaiic91jmx7s01hi2igphyvd80ckyia"))))
+           "113ycngcssbrps217dyajq96hm9xghsfch82h14yffla1r1fviw0"))))
     (build-system gnu-build-system)
     (inputs
       `(("libpng" ,libpng)
-        ("pkg-config" ,pkg-config)
         ("zlib" ,zlib)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.pixman.org/")
     (synopsis "pixman, a low-level pixel manipulation library")
     (description "Pixman is a low-level software library for pixel
@@ -114,8 +119,9 @@ rasterisation.")
     (build-system gnu-build-system)
     (inputs
       `(("libpciaccess" ,libpciaccess)
-        ("libpthread-stubs" ,libpthread-stubs)
-        ("pkg-config" ,pkg-config)))
+        ("libpthread-stubs" ,libpthread-stubs)))
+    (native-inputs
+       `(("pkg-config" ,pkg-config)))
     (home-page "http://dri.freedesktop.org/wiki/")
     (synopsis "libdrm, direct rendering userspace library")
     (description "The Direct Rendering Infrastructure, also known as the DRI,
@@ -202,8 +208,9 @@ tracking.")
             "02hx981f7jfwylxj21s91yvv4h597nqqzz3vd6ar81zyn84b944w"))))
     (build-system gnu-build-system)
     (inputs
-      `(("libxfont" ,libxfont)
-        ("pkg-config" ,pkg-config)))
+      `(("libxfont" ,libxfont)))
+    (native-inputs
+       `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -225,7 +232,7 @@ tracking.")
           (base32
             "07hvfm84scz8zjw14riiln2v4w03jlhp756ypwhq27g48jmic8a6"))))
     (build-system gnu-build-system)
-    (inputs `(("pkg-config" ,pkg-config)))
+    (native-inputs `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -248,8 +255,9 @@ tracking.")
             "1z0crmf669hirw4s7972mmp8xig80kfndja9h559haqbpvq5k4q4"))))
     (build-system gnu-build-system)
     (inputs
-      `(("fixesproto" ,fixesproto)
-        ("pkg-config" ,pkg-config)))
+      `(("fixesproto" ,fixesproto)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -271,7 +279,7 @@ tracking.")
           (base32
             "0nzwr5pv9hg7c21n995pdiv0zqhs91yz3r8rn3aska4ykcp12z2w"))))
     (build-system gnu-build-system)
-    (inputs `(("pkg-config" ,pkg-config)))
+    (native-inputs `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -293,7 +301,7 @@ tracking.")
           (base32
             "02b5x9dkgajizm8dqyx2w6hmqx3v25l67mgf35nj6sz0lgk52877"))))
     (build-system gnu-build-system)
-    (inputs `(("pkg-config" ,pkg-config)))
+    (native-inputs `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -337,8 +345,9 @@ tracking.")
             "0ffmaw80vmfwdgvdkp6495xgsqszb6s0iira5j0j6pd4i0lk3mnf"))))
     (build-system gnu-build-system)
     (inputs
-      `(("mkfontscale" ,mkfontscale)
-        ("pkg-config" ,pkg-config)))
+      `(("mkfontscale" ,mkfontscale)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -363,8 +372,9 @@ tracking.")
     (inputs
       `(("bdftopcf" ,bdftopcf)
         ("font-util", font-util)
-        ("mkfontdir" ,mkfontdir)
-        ("pkg-config" ,pkg-config)))
+        ("mkfontdir" ,mkfontdir)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (arguments
       `(#:configure-flags (list
         ;; install fonts into subdirectory of package output instead of
@@ -394,8 +404,9 @@ tracking.")
     (inputs
       `(("bdftopcf" ,bdftopcf)
         ("font-util", font-util)
-        ("mkfontdir" ,mkfontdir)
-        ("pkg-config" ,pkg-config)))
+        ("mkfontdir" ,mkfontdir)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (arguments
       `(#:configure-flags (list
         (string-append "--with-fontrootdir=" %output "/share/fonts/X11"))))
@@ -426,7 +437,7 @@ tracking.")
           (base32
             "16ic8wfwwr3jicaml7b5a0sk6plcgc1kg84w02881yhwmqm3nicb"))))
     (build-system gnu-build-system)
-    (inputs `(("pkg-config" ,pkg-config)))
+    (native-inputs `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -450,8 +461,9 @@ tracking.")
     (build-system gnu-build-system)
     (inputs
       `(("mkfontdir" ,mkfontdir)
-        ("bdftopcf" ,bdftopcf)
-        ("pkg-config" ,pkg-config)))
+        ("bdftopcf" ,bdftopcf)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -486,8 +498,9 @@ tracking.")
     (build-system gnu-build-system)
     (inputs
       `(("mkfontdir" ,mkfontdir)
-        ("bdftopcf" ,bdftopcf)
-        ("pkg-config" ,pkg-config)))
+        ("bdftopcf" ,bdftopcf)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -518,8 +531,9 @@ tracking.")
     (build-system gnu-build-system)
     (inputs
       `(("mkfontdir" ,mkfontdir)
-        ("bdftopcf" ,bdftopcf)
-        ("pkg-config" ,pkg-config)))
+        ("bdftopcf" ,bdftopcf)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -546,8 +560,9 @@ tracking.")
     (build-system gnu-build-system)
     (inputs
       `(("mkfontdir" ,mkfontdir)
-        ("bdftopcf" ,bdftopcf)
-        ("pkg-config" ,pkg-config)))
+        ("bdftopcf" ,bdftopcf)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -575,8 +590,9 @@ tracking.")
     (build-system gnu-build-system)
     (inputs
       `(("mkfontdir" ,mkfontdir)
-        ("bdftopcf" ,bdftopcf)
-        ("pkg-config" ,pkg-config)))
+        ("bdftopcf" ,bdftopcf)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -600,8 +616,9 @@ tracking.")
     (build-system gnu-build-system)
     (inputs
       `(("mkfontdir" ,mkfontdir)
-        ("bdftopcf" ,bdftopcf)
-        ("pkg-config" ,pkg-config)))
+        ("bdftopcf" ,bdftopcf)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -624,8 +641,9 @@ tracking.")
             "19cq7iq0pfad0nc2v28n681fdq3fcw1l1hzaq0wpkgpx7bc1zjsk"))))
     (build-system gnu-build-system)
     (inputs
-      `(("mkfontdir" ,mkfontdir)
-        ("pkg-config" ,pkg-config)))
+      `(("mkfontdir" ,mkfontdir)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -654,8 +672,9 @@ tracking.")
     (inputs
       `(("mkfontdir" ,mkfontdir)
         ("font-util" ,font-util)
-        ("bdftopcf" ,bdftopcf)
-        ("pkg-config" ,pkg-config)))
+        ("bdftopcf" ,bdftopcf)))
+    (native-inputs
+     `(("pkg-config" ,pkg-config)))
     (arguments
       `(#:configure-flags (list
         (string-append "--with-fontrootdir=" %output "/share/fonts/X11"))))
@@ -682,8 +701,9 @@ tracking.")
     (build-system gnu-build-system)
     (inputs
       `(("mkfontdir" ,mkfontdir)
-        ("bdftopcf" ,bdftopcf)
-        ("pkg-config" ,pkg-config)))
+        ("bdftopcf" ,bdftopcf)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -708,8 +728,9 @@ tracking.")
     (inputs
       `(("mkfontdir" ,mkfontdir)
         ("font-util" ,font-util)
-        ("bdftopcf" ,bdftopcf)
-        ("pkg-config" ,pkg-config)))
+        ("bdftopcf" ,bdftopcf)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (arguments
       `(#:configure-flags (list
         (string-append "--with-fontrootdir=" %output "/share/fonts/X11"))))
@@ -736,8 +757,9 @@ tracking.")
     (build-system gnu-build-system)
     (inputs
       `(("mkfontdir" ,mkfontdir)
-        ("bdftopcf" ,bdftopcf)
-        ("pkg-config" ,pkg-config)))
+        ("bdftopcf" ,bdftopcf)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -761,8 +783,9 @@ tracking.")
     (build-system gnu-build-system)
     (inputs
       `(("mkfontdir" ,mkfontdir)
-        ("bdftopcf" ,bdftopcf)
-        ("pkg-config" ,pkg-config)))
+        ("bdftopcf" ,bdftopcf)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -786,8 +809,9 @@ tracking.")
     (build-system gnu-build-system)
     (inputs
       `(("mkfontdir" ,mkfontdir)
-        ("bdftopcf" ,bdftopcf)
-        ("pkg-config" ,pkg-config)))
+        ("bdftopcf" ,bdftopcf)))
+    (native-inputs
+     `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -809,7 +833,7 @@ tracking.")
           (base32
             "15cijajwhjzpy3ydc817zz8x5z4gbkyv3fps687jbq544mbfbafz"))))
     (build-system gnu-build-system)
-    (inputs `(("pkg-config" ,pkg-config)))
+    (native-inputs `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -833,8 +857,9 @@ tracking.")
     (build-system gnu-build-system)
     (inputs
       `(("mkfontdir" ,mkfontdir)
-        ("bdftopcf" ,bdftopcf)
-        ("pkg-config" ,pkg-config)))
+        ("bdftopcf" ,bdftopcf)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -857,8 +882,9 @@ tracking.")
             "0jp3zc0qfdaqfkgzrb44vi9vi0a8ygb35wp082yz7rvvxhmg9sya"))))
     (build-system gnu-build-system)
     (inputs
-      `(("mkfontdir" ,mkfontdir)
-        ("pkg-config" ,pkg-config)))
+      `(("mkfontdir" ,mkfontdir)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -880,7 +906,7 @@ tracking.")
           (base32
             "1ab8mbqxdwvdz4k5x4xb9c4n5w7i1xw276cbpk4z7a1nlpjrg746"))))
     (build-system gnu-build-system)
-    (inputs `(("pkg-config" ,pkg-config)))
+    (native-inputs `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -902,7 +928,7 @@ tracking.")
           (base32
             "0wf1vq9g4pyzahb23ywx554pm5bpax49lz188fk6m5p8wbmmc0wr"))))
     (build-system gnu-build-system)
-    (inputs `(("pkg-config" ,pkg-config)))
+    (native-inputs `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -925,8 +951,9 @@ tracking.")
             "1aq6v671s2x5rc6zn0rgxb4wddg4vq94mckw3cpwl7ccrjjvd5hl"))))
     (build-system gnu-build-system)
     (inputs
-      `(("libice" ,libice)
-        ("pkg-config" ,pkg-config)))
+      `(("libice" ,libice)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -948,7 +975,7 @@ tracking.")
           (base32
             "1c5wqamfsd8g5i8kya5pjfmcac8q5zq1l3vclh6p96f24nmicxfy"))))
     (build-system gnu-build-system)
-    (inputs `(("pkg-config" ,pkg-config)))
+    (native-inputs `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -970,7 +997,7 @@ tracking.")
           (base32
             "0yal11hhpiisy3w8wmacsdzzzcnc3xwnswxz8k7zri40xc5aqz03"))))
     (build-system gnu-build-system)
-    (inputs `(("pkg-config" ,pkg-config)))
+    (native-inputs `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -1000,8 +1027,9 @@ tracking.")
       `(("xextproto" ,xextproto)
         ("libxext" ,libxext)
         ("libx11" ,libx11)
-        ("dmxproto" ,dmxproto)
-        ("pkg-config" ,pkg-config)))
+        ("dmxproto" ,dmxproto)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -1025,8 +1053,9 @@ tracking.")
     (build-system gnu-build-system)
     (inputs
       `(("zlib" ,zlib)
-        ("xproto" ,xproto)
-        ("pkg-config" ,pkg-config)))
+        ("xproto" ,xproto)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -1051,8 +1080,9 @@ tracking.")
     (inputs
       `(("xtrans" ,xtrans)
         ("xproto" ,xproto)
-        ("fontsproto" ,fontsproto)
-        ("pkg-config" ,pkg-config)))
+        ("fontsproto" ,fontsproto)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -1075,7 +1105,9 @@ tracking.")
             "11509lkgd5j4g5wy0g13z4sf31h50hqx3jfwb2i4q6k98pv6iar7"))))
     (build-system gnu-build-system)
     (inputs
-      `(("zlib" ,zlib) ("pkg-config" ,pkg-config)))
+      `(("zlib" ,zlib)))
+    (native-inputs
+       `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -1097,7 +1129,7 @@ tracking.")
           (base32
             "16bjv3in19l84hbri41iayvvg4ls9gv1ma0x0qlbmwy67i7dbdim"))))
     (build-system gnu-build-system)
-    (inputs `(("pkg-config" ,pkg-config)))
+    (native-inputs `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -1122,8 +1154,9 @@ tracking.")
     (inputs
       `(("xtrans" ,xtrans)
         ("util-linux" ,util-linux)
-        ("libice" ,libice)
-        ("pkg-config" ,pkg-config)))
+        ("libice" ,libice)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -1149,8 +1182,9 @@ tracking.")
       `(("xextproto" ,xextproto)
         ("libxext" ,libxext)
         ("libx11" ,libx11)
-        ("windowswmproto" ,windowswmproto)
-        ("pkg-config" ,pkg-config)))
+        ("windowswmproto" ,windowswmproto)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -1176,8 +1210,9 @@ tracking.")
       `(("xproto" ,xproto)
         ("libxfixes" ,libxfixes)
         ("libx11" ,libx11)
-        ("compositeproto" ,compositeproto)
-        ("pkg-config" ,pkg-config)))
+        ("compositeproto" ,compositeproto)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -1200,7 +1235,9 @@ tracking.")
             "13highx4xpgkiwykpcl7z2laslrjc4pzi4h617ny9p7r6116vkls"))))
     (build-system gnu-build-system)
     (inputs
-      `(("xproto" ,xproto) ("pkg-config" ,pkg-config)))
+      `(("xproto" ,xproto)))
+    (native-inputs
+       `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -1222,15 +1259,16 @@ tracking.")
           (base32
             "1gdv6559cdz1lfw73x7wsvax1fkvphmayrymprljhyyb5nwk5kkz"))))
     (build-system gnu-build-system)
+    (propagated-inputs
+     ;; xft.pc refers to all these.
+      `(("libxrender" ,libxrender)
+        ("freetype" ,freetype)
+        ("fontconfig" ,fontconfig)))
     (inputs
       `(("libx11" ,libx11)
-        ("xproto" ,xproto)
-        ("libxrender" ,libxrender)
-        ("xproto" ,xproto)
-        ("libx11" ,libx11)
-        ("freetype" ,freetype)
-        ("fontconfig" ,fontconfig)
-        ("pkg-config" ,pkg-config)))
+        ("xproto" ,xproto)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -1253,8 +1291,9 @@ tracking.")
             "0flg5arw6n3njagmsi4i4l0zl5bfx866a1h9ydc3bi1pqlclxaca"))))
     (build-system gnu-build-system)
     (inputs
-      `(("libx11" ,libx11)
-        ("pkg-config" ,pkg-config)))
+      `(("libx11" ,libx11)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -1279,8 +1318,9 @@ tracking.")
     (inputs
       `(("libxt" ,libxt)
         ("xproto" ,xproto)
-        ("libxext" ,libxext)
-        ("pkg-config" ,pkg-config)))
+        ("libxext" ,libxext)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -1303,11 +1343,12 @@ tracking.")
             "0dd737ch4q9gr151wff1m3q2j7wf3pip4y81601xdrsh8wipxnx6"))))
     (build-system gnu-build-system)
     (inputs
-      `(("gettext" ,gnu:gettext)
+      `(("gettext" ,gnu-gettext)
         ("libxt" ,libxt)
         ("xproto" ,xproto)
-        ("libxext" ,libxext)
-        ("pkg-config" ,pkg-config)))
+        ("libxext" ,libxext)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -1333,8 +1374,9 @@ tracking.")
       `(("xproto" ,xproto)
         ("libxext" ,libxext)
         ("libx11" ,libx11)
-        ("resourceproto" ,resourceproto)
-        ("pkg-config" ,pkg-config)))
+        ("resourceproto" ,resourceproto)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -1359,8 +1401,9 @@ tracking.")
     (inputs
       `(("libxext" ,libxext)
         ("libx11" ,libx11)
-        ("scrnsaverproto" ,scrnsaverproto)
-        ("pkg-config" ,pkg-config)))
+        ("scrnsaverproto" ,scrnsaverproto)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -1385,8 +1428,9 @@ tracking.")
     (inputs
       `(("libx11" ,libx11)
         ("libxext" ,libxext)
-        ("pkg-config" ,pkg-config)
         ("xf86dgaproto" ,xf86dgaproto)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -1406,11 +1450,15 @@ tracking.")
                ".tar.bz2"))
         (sha256
           (base32
-            "0dn694mk56x6hdk6y9ylx4f128h5jcin278gnw2gb807rf3ygc1h"))))
+            "0dn694mk56x6hdk6y9ylx4f128h5jcin278gnw2gb807rf3ygc1h"))
+        ;; See https://bugs.freedesktop.org/show_bug.cgi?id=47792;
+        ;; should become obsolete with the next release.
+        (patches (list (search-patch "luit-posix.patch")))))
     (build-system gnu-build-system)
     (inputs
-      `(("libfontenc" ,libfontenc)
-        ("pkg-config" ,pkg-config)))
+      `(("libfontenc" ,libfontenc)))
+    (native-inputs
+       `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -1433,7 +1481,8 @@ tracking.")
             "1zpp2b9dfvlnfj2i1mzdyn785rpl7vih5lap7kcpiv80xspbhmmb"))))
     (build-system gnu-build-system)
     (inputs
-      `(("xproto" ,xproto) ("pkg-config" ,pkg-config)))
+      `(("xproto" ,xproto)))
+    (native-inputs `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -1459,8 +1508,9 @@ tracking.")
       `(("zlib" ,zlib)
         ("xproto" ,xproto)
         ("freetype" ,freetype)
-        ("libfontenc" ,libfontenc)
-        ("pkg-config" ,pkg-config)))
+        ("libfontenc" ,libfontenc)))
+    (native-inputs
+       `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -1483,7 +1533,7 @@ tracking.")
           (base32
             "06liap8n4s25sgp27d371cc7yg9a08dxcr3pmdjp761vyin3360j"))))
     (build-system gnu-build-system)
-    (inputs `(("pkg-config" ,pkg-config)))
+    (native-inputs `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -1505,7 +1555,7 @@ tracking.")
           (base32
             "0wfwcq85wbm0g5r0snc7prgki1wi3kxrxhcxinyr54n45ihh03fr"))))
     (build-system gnu-build-system)
-    (inputs `(("pkg-config" ,pkg-config)))
+    (native-inputs `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -1527,7 +1577,7 @@ tracking.")
           (base32
             "0w3kgr1zabwf79bpc28dcnj0fpni6r53rpi82ngjbalj5s6m8xx7"))))
     (build-system gnu-build-system)
-    (inputs `(("pkg-config" ,pkg-config)))
+    (native-inputs `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -1549,7 +1599,7 @@ tracking.")
           (base32
             "0dr5xw6s0qmqg0q5pdkb4jkdhaja0vbfqla79qh5j1xjj9dmlwq6"))))
     (build-system gnu-build-system)
-    (inputs `(("pkg-config" ,pkg-config)))
+    (native-inputs `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -1571,7 +1621,7 @@ tracking.")
           (base32
             "0638iyfiiyjw1hg3139pai0j6m65gkskrvd9684zgc6ydcx00riw"))))
     (build-system gnu-build-system)
-    (inputs `(("pkg-config" ,pkg-config)))
+    (native-inputs `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -1593,7 +1643,7 @@ tracking.")
           (base32
             "0rfdbfwd35d761xkfifcscx56q0n56043ixlmv70r4v4l66hmdwb"))))
     (build-system gnu-build-system)
-    (inputs `(("pkg-config" ,pkg-config)))
+    (native-inputs `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -1616,7 +1666,9 @@ tracking.")
             "0lifgjxdvc6lwyjk90slddnr12fsv88ldy6qhklr5av409cfwd47"))))
     (build-system gnu-build-system)
     (inputs
-      `(("xproto" ,xproto) ("pkg-config" ,pkg-config)))
+      `(("xproto" ,xproto)))
+    (native-inputs
+       `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -1640,8 +1692,9 @@ tracking.")
     (build-system gnu-build-system)
     (inputs
       `(("libxkbfile" ,libxkbfile)
-        ("libx11" ,libx11)
-        ("pkg-config" ,pkg-config)))
+        ("libx11" ,libx11)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -1665,8 +1718,9 @@ tracking.")
     (build-system gnu-build-system)
     (inputs
       `(("libxt" ,libxt)
-        ("libxmu" ,libxmu)
-        ("pkg-config" ,pkg-config)))
+        ("libxmu" ,libxmu)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -1688,7 +1742,23 @@ tracking.")
           (base32
             "1vbmrcn5n3wp4pyw0n4c3pyvzlc4yf7jzgngavfdq5zwfbgfsybx"))))
     (build-system gnu-build-system)
-    (inputs `(("pkg-config" ,pkg-config)))
+    (native-inputs `(("pkg-config" ,pkg-config)))
+    (arguments
+     `(#:phases (alist-cons-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")))
+                 (alist-cons-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"))))
+                  %standard-phases))))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -1710,7 +1780,7 @@ tracking.")
           (base32
             "0nk3i6gwkqq1w8zwn7bxz344pi1dwcjrmf6hr330h7hxjcj6viry"))))
     (build-system gnu-build-system)
-    (inputs `(("pkg-config" ,pkg-config)))
+    (native-inputs `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -1732,7 +1802,7 @@ tracking.")
           (base32
             "0syjxgy4m8l94qrm03nvn5k6bkxc8knnlld1gbllym97nvnv0ny0"))))
     (build-system gnu-build-system)
-    (inputs `(("pkg-config" ,pkg-config)))
+    (native-inputs `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -1758,8 +1828,9 @@ tracking.")
       `(("libx11" ,libx11)
         ("libxft" ,libxft)
         ("libxmu" ,libxmu)
-        ("libxrender" ,libxrender)
-        ("pkg-config" ,pkg-config)))
+        ("libxrender" ,libxrender)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -1785,8 +1856,9 @@ tracking.")
       `(("libxmu" ,libxmu)
         ("libxext" ,libxext)
         ("libxau" ,libxau)
-        ("libx11" ,libx11)
-        ("pkg-config" ,pkg-config)))
+        ("libx11" ,libx11)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -1811,8 +1883,9 @@ tracking.")
     (inputs
       `(("libx11" ,libx11)
         ("libxrandr" ,libxrandr)
-        ("libxrender" ,libxrender)
-        ("pkg-config" ,pkg-config)))
+        ("libxrender" ,libxrender)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -1834,7 +1907,7 @@ tracking.")
           (base32
             "178ym90kwidia6nas4qr5n5yqh698vv8r02js0r4vg3b6lsb0w9n"))))
     (build-system gnu-build-system)
-    (inputs `(("pkg-config" ,pkg-config)))
+    (native-inputs `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -1856,7 +1929,7 @@ tracking.")
           (base32
             "0ds4qg6slidrzyz6q9ckq0a19hn6blzpnvciy4brh741gn49jpdd"))))
     (build-system gnu-build-system)
-    (inputs
+    (native-inputs
       `(("pkg-config" ,pkg-config) ("python" ,python-wrapper)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
@@ -1879,7 +1952,7 @@ tracking.")
           (base32
             "1pyjv45wivnwap2wvsbrzdvjc5ql8bakkbkrvcv6q9bjjf33ccmi"))))
     (build-system gnu-build-system)
-    (inputs `(("pkg-config" ,pkg-config)))
+    (native-inputs `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -1902,8 +1975,9 @@ tracking.")
             "03ms731l3kvaldq7ycbd30j6134b61i3gbll4b2gl022wyzbjq74"))))
     (build-system gnu-build-system)
     (inputs
-      `(("libx11" ,libx11)
-        ("pkg-config" ,pkg-config)))
+      `(("libx11" ,libx11)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -1927,8 +2001,9 @@ tracking.")
     (build-system gnu-build-system)
     (inputs
       `(("libxcursor" ,libxcursor)
-        ("pkg-config" ,pkg-config)
         ("xcursorgen" ,xcursorgen)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (arguments
      `(#:configure-flags
        (list (string-append "--with-cursordir="
@@ -1957,8 +2032,9 @@ tracking.")
     (build-system gnu-build-system)
     (inputs
       `(("libxcursor" ,libxcursor)
-        ("libpng" ,libpng)
-        ("pkg-config" ,pkg-config)))
+        ("libpng" ,libpng)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -1990,8 +2066,9 @@ tracking.")
         ("libxinerama" ,libxinerama)
         ("libxi" ,libxi)
         ("libxcomposite" ,libxcomposite)
-        ("libdmx" ,libdmx)
-        ("pkg-config" ,pkg-config)))
+        ("libdmx" ,libdmx)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -2015,8 +2092,9 @@ tracking.")
     (build-system gnu-build-system)
     (inputs
       `(("mesa" ,mesa)
-        ("libx11" ,libx11)
-        ("pkg-config" ,pkg-config)))
+        ("libx11" ,libx11)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -2042,8 +2120,9 @@ tracking.")
       `(("libxrender" ,libxrender)
         ("libxrandr" ,libxrandr)
         ("xproto" ,xproto)
-        ("libx11" ,libx11)
-        ("pkg-config" ,pkg-config)))
+        ("libx11" ,libx11)))
+    (native-inputs
+     `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -2065,7 +2144,7 @@ tracking.")
           (base32
             "06kdanbnprxvgl56l5h0lqj4b0f1fbb1ndha33mv5wvy802v2lvw"))))
     (build-system gnu-build-system)
-    (inputs `(("pkg-config" ,pkg-config)))
+    (native-inputs `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -2088,15 +2167,14 @@ tracking.")
             "1ivf5n821chckrgp89mpb18zi00v1hyrkc1hr82q0x6g1kpgxq9y"))))
     (build-system gnu-build-system)
     ;; FIXME: Add required input udev once it is available.
-    (inputs `(("pkg-config" ,pkg-config)
-              ("xorg-server" ,xorg-server)))
+    (inputs `(("xorg-server" ,xorg-server)))
+    (native-inputs `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
     (license license:x11)))
 
 
-;; FIXME: Tries to install file joystick-properties.h into ...--xorg-server-1.12.2/include/xorg
 (define-public xf86-input-joystick
   (package
     (name "xf86-input-joystick")
@@ -2112,8 +2190,13 @@ tracking.")
           (base32
             "1xgpkdmfw4ahjlva97gs9sllzw8nlpa8mxj59g28fxhak67mvv8x"))))
     (build-system gnu-build-system)
-    (inputs `(("pkg-config" ,pkg-config)
-              ("xorg-server" ,xorg-server)))
+    (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 "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -2135,8 +2218,8 @@ tracking.")
           (base32
             "1hwc1bjw5mxv186xbrxiky0agfglwqg8fsxqdh4br1vzgxpck7ma"))))
     (build-system gnu-build-system)
-    (inputs `(("pkg-config" ,pkg-config)
-              ("xorg-server" ,xorg-server)))
+    (inputs `(("xorg-server" ,xorg-server)))
+    (native-inputs `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -2158,8 +2241,8 @@ tracking.")
           (base32
             "0fs1lwnycyv3d0m6l2wrnlgvbs8qw66d93hwlnmrsswfq5bp6ark"))))
     (build-system gnu-build-system)
-    (inputs `(("pkg-config" ,pkg-config)
-              ("xorg-server" ,xorg-server)))
+    (inputs `(("xorg-server" ,xorg-server)))
+    (native-inputs `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -2184,15 +2267,22 @@ tracking.")
     (inputs `(("libx11" ,libx11)
               ("libxi" ,libxi)
               ("mtdev" ,mtdev)
-              ("pkg-config" ,pkg-config)
               ("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 "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
     (license license:x11)))
 
 
-;; FIXME: Installation tries to create ...-xorg-server-1.12.2/share/X11/xorg.conf.d
 (define-public xf86-input-vmmouse
   (package
     (name "xf86-input-vmmouse")
@@ -2208,8 +2298,13 @@ tracking.")
           (base32
             "16l65mnjb1xxav6c5q0xhhqih81bzify2c5qrhqc2j3waq5yr9m8"))))
     (build-system gnu-build-system)
-    (inputs `(("pkg-config" ,pkg-config)
-              ("xorg-server" ,xorg-server)))
+    (inputs `(("xorg-server" ,xorg-server)))
+    (native-inputs `(("pkg-config" ,pkg-config)))
+    (arguments
+     `(#:configure-flags
+       (list(string-append "--with-xorg-conf-dir="
+                            (assoc-ref %outputs "out")
+                            "/share/X11/xorg.conf.d"))))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -2231,8 +2326,8 @@ tracking.")
           (base32
             "01bmk324fq48wydvy1qrnxbw6qz0fjd0i80g0n4cqr1c4mjmif9a"))))
     (build-system gnu-build-system)
-    (inputs `(("pkg-config" ,pkg-config)
-              ("xorg-server" ,xorg-server)))
+    (inputs `(("xorg-server" ,xorg-server)))
+    (native-inputs `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -2254,8 +2349,8 @@ tracking.")
           (base32
             "194zc35ivfh3vcxcilf9nbi88c2di8kbh84x535cljlpiajdnk5x"))))
     (build-system gnu-build-system)
-    (inputs `(("pkg-config" ,pkg-config)
-              ("xorg-server" ,xorg-server)))
+    (inputs `(("xorg-server" ,xorg-server)))
+    (native-inputs `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -2277,8 +2372,8 @@ tracking.")
           (base32
             "1q64z8qqa0ix3cymqiwk1s3sphd1fvvz30lvyxhgkgciygz6dm69"))))
     (build-system gnu-build-system)
-    (inputs `(("pkg-config" ,pkg-config)
-              ("xorg-server" ,xorg-server)))
+    (inputs `(("xorg-server" ,xorg-server)))
+    (native-inputs `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -2301,9 +2396,9 @@ tracking.")
             "11gg6xn65vym75769hzgzpkjsyhlkrw4zw3ncngriq7vz1g47zjg"))))
     (build-system gnu-build-system)
     (inputs `(("mesa" ,mesa)
-              ("pkg-config" ,pkg-config)
               ("xxf86driproto" ,xf86driproto)
               ("xorg-server" ,xorg-server)))
+    (native-inputs `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -2325,8 +2420,8 @@ tracking.")
           (base32
             "0blnbspj4936wy46lp346s4b08dfcray6yicsxvv5b4699fzl1rb"))))
     (build-system gnu-build-system)
-    (inputs `(("pkg-config" ,pkg-config)
-              ("xorg-server" ,xorg-server)))
+    (inputs `(("xorg-server" ,xorg-server)))
+    (native-inputs `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -2352,8 +2447,8 @@ tracking.")
           (base32
             "1mc23w0bfmak5216411xh58nrs93jlxmi6l412hmqzhxnjs73clk"))))
     (build-system gnu-build-system)
-    (inputs `(("pkg-config" ,pkg-config)
-              ("xorg-server" ,xorg-server)))
+    (inputs `(("xorg-server" ,xorg-server)))
+    (native-inputs `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -2425,9 +2520,9 @@ tracking.")
           (base32
             "0nf36jryabpncqq4m6sfsnmzk00f7gvfmjnl8l8sfy7w6sa6iacs"))))
     (build-system gnu-build-system)
-    (inputs `(("pkg-config" ,pkg-config)
-              ("xf86dgaproto" ,xf86dgaproto)
+    (inputs `(("xf86dgaproto" ,xf86dgaproto)
               ("xorg-server" ,xorg-server)))
+    (native-inputs `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -2449,8 +2544,8 @@ tracking.")
           (base32
             "1sik8ck410hb2885vy7rlc590hw5br8lr2fzxgmv55jyawgfpv9y"))))
     (build-system gnu-build-system)
-    (inputs `(("pkg-config" ,pkg-config)
-              ("xorg-server" ,xorg-server)))
+    (inputs `(("xorg-server" ,xorg-server)))
+    (native-inputs `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -2474,8 +2569,9 @@ tracking.")
     (build-system gnu-build-system)
     (inputs `(("libdrm" ,libdrm)
               ("libx11" ,libx11)
-              ("pkg-config" ,pkg-config)
               ("xorg-server" ,xorg-server)))
+    (native-inputs
+     `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -2498,9 +2594,10 @@ tracking.")
             "0kl3kvpc2ny48z89313i9fi4cxzwb2pllvxcr9j5ly680ygx8slz"))))
     (build-system gnu-build-system)
     (inputs `(("mesa" ,mesa)
-              ("pkg-config" ,pkg-config)
               ("xf86driproto" ,xf86driproto)
               ("xorg-server" ,xorg-server)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -2523,9 +2620,9 @@ tracking.")
             "03l3wz5kz0hmxmzqqbkgn7pf9d956jlag04rb701a0fr1mw3v66a"))))
     (build-system gnu-build-system)
     (inputs `(("mesa" ,mesa)
-              ("pkg-config" ,pkg-config)
               ("xf86driproto" ,xf86driproto)
               ("xorg-server" ,xorg-server)))
+    (native-inputs `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -2547,9 +2644,9 @@ tracking.")
           (base32
             "124qci48xrk0w2jy91n7vqs7s6q397zyiqqszhmkx6ld7six57mi"))))
     (build-system gnu-build-system)
-    (inputs `(("pkg-config" ,pkg-config)
-              ("xf86dgaproto" ,xf86dgaproto)
+    (inputs `(("xf86dgaproto" ,xf86dgaproto)
               ("xorg-server" ,xorg-server)))
+    (native-inputs `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -2571,8 +2668,8 @@ tracking.")
           (base32
             "1yafmp23jrfdmc094i6a4dsizapsc9v0pl65cpc8w1kvn7343k4i"))))
     (build-system gnu-build-system)
-    (inputs `(("pkg-config" ,pkg-config)
-              ("xorg-server" ,xorg-server)))
+    (inputs `(("xorg-server" ,xorg-server)))
+    (native-inputs `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -2594,8 +2691,8 @@ tracking.")
           (base32
             "05glbi9jc7j9nm4sf4qvl3z87s48ibm3i283lqz85kbphg62dxvc"))))
     (build-system gnu-build-system)
-    (inputs `(("pkg-config" ,pkg-config)
-              ("xorg-server" ,xorg-server)))
+    (inputs `(("xorg-server" ,xorg-server)))
+    (native-inputs `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -2621,9 +2718,10 @@ tracking.")
               ("libxext" ,libxext)
               ("libxvmc" ,libxvmc)
               ("mesa" ,mesa)
-              ("pkg-config" ,pkg-config)
               ("xf86driproto" ,xf86driproto)
               ("xorg-server" ,xorg-server)))
+    (native-inputs
+     `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -2646,9 +2744,9 @@ tracking.")
             "1c84x40k9qz9dnf5qs6nnjcgz7px6mpc3rbk8mj62zhp7mf16hbv"))))
     (build-system gnu-build-system)
     (inputs `(("mesa" ,mesa)
-              ("pkg-config" ,pkg-config)
               ("xf86driproto" ,xf86driproto)
               ("xorg-server" ,xorg-server)))
+    (native-inputs `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -2671,9 +2769,9 @@ tracking.")
             "0jdy4wv3k3ylx3lajjcbsg37z2hf6366a1jvv16sv1ln6dk6lris"))))
     (build-system gnu-build-system)
     (inputs `(("mesa" ,mesa)
-              ("pkg-config" ,pkg-config)
               ("xf86driproto" ,xf86driproto)
               ("xorg-server" ,xorg-server)))
+    (native-inputs `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -2695,8 +2793,8 @@ tracking.")
           (base32
             "01sdl6ky1vmvmfgx2d44i35rqafi0z07xdy40cvindcr2k91p7x5"))))
     (build-system gnu-build-system)
-    (inputs `(("pkg-config" ,pkg-config)
-              ("xorg-server" ,xorg-server)))
+    (inputs `(("xorg-server" ,xorg-server)))
+    (native-inputs `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -2719,10 +2817,11 @@ tracking.")
             "03diq0l93lfsipmwkpdb2ysgbxxryl6yakpghzc3fksjxa01112f"))))
     (build-system gnu-build-system)
     (inputs `(("mesa" ,mesa)
-              ("pkg-config" ,pkg-config)
               ("xf86dgaproto" ,xf86dgaproto)
               ("xf86driproto" ,xf86driproto)
               ("xorg-server" ,xorg-server)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -2744,8 +2843,8 @@ tracking.")
           (base32
             "07w0hm63fiy5l3cpcjsl0ig8z84z9r36xm0cmnpiv3g75dy6q8fi"))))
     (build-system gnu-build-system)
-    (inputs `(("pkg-config" ,pkg-config)
-              ("xorg-server" ,xorg-server)))
+    (inputs `(("xorg-server" ,xorg-server)))
+    (native-inputs `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -2767,8 +2866,8 @@ tracking.")
           (base32
             "04byax4sc1fn183vyyq0q11q730k16h2by4ggjky7s36wgv7ldzx"))))
     (build-system gnu-build-system)
-    (inputs `(("pkg-config" ,pkg-config)
-              ("xorg-server" ,xorg-server)))
+    (inputs `(("xorg-server" ,xorg-server)))
+    (native-inputs `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -2791,9 +2890,9 @@ tracking.")
             "124gsi30rj547jjd7gvv7xykfnwlyrxw0gcacamby7pvl3g33fg0"))))
     (build-system gnu-build-system)
     (inputs `(("mesa" ,mesa)
-              ("pkg-config" ,pkg-config)
               ("xf86driproto" ,xf86driproto)
               ("xorg-server" ,xorg-server)))
+    (native-inputs `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -2815,9 +2914,9 @@ tracking.")
           (base32
             "0mdqrn02zzkdnmhg4vh9djaawg6b2p82g5qbj66z8b30yr77b93h"))))
     (build-system gnu-build-system)
-    (inputs `(("pkg-config" ,pkg-config)
-              ("xf86dgaproto" ,xf86dgaproto)
+    (inputs `(("xf86dgaproto" ,xf86dgaproto)
               ("xorg-server" ,xorg-server)))
+    (native-inputs `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -2839,9 +2938,9 @@ tracking.")
           (base32
             "02y5pzdp0a1c12jr8gghbrzgbyfbgq67x7kd7n4f323pmf8x1csb"))))
     (build-system gnu-build-system)
-    (inputs `(("pkg-config" ,pkg-config)
-              ("xf86dgaproto" ,xf86dgaproto)
+    (inputs `(("xf86dgaproto" ,xf86dgaproto)
               ("xorg-server" ,xorg-server)))
+    (native-inputs `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -2867,8 +2966,8 @@ tracking.")
           (base32
             "0wqms28kkz2fvghqhqwp6w8zj7k5cgwnhzvkc7j4v268bf6h78g4"))))
     (build-system gnu-build-system)
-    (inputs `(("pkg-config" ,pkg-config)
-              ("xorg-server" ,xorg-server)))
+    (inputs `(("xorg-server" ,xorg-server)))
+    (native-inputs `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -2892,8 +2991,9 @@ tracking.")
     (build-system gnu-build-system)
     (inputs `(("libx11" ,libx11)
               ("libxext" ,libxext)
-              ("pkg-config" ,pkg-config)
               ("xorg-server" ,xorg-server)))
+    (native-inputs
+       `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -2915,9 +3015,9 @@ tracking.")
           (base32
             "0ha748yz92yzn6hp2rhin3il8f4j2rs4vkgdvqkagnv1ryxkh0ph"))))
     (build-system gnu-build-system)
-    (inputs `(("pkg-config" ,pkg-config)
-              ("xf86dgaproto" ,xf86dgaproto)
+    (inputs `(("xf86dgaproto" ,xf86dgaproto)
               ("xorg-server" ,xorg-server)))
+    (native-inputs `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -3029,8 +3129,9 @@ tracking.")
     (build-system gnu-build-system)
     (inputs
       `(("libxxf86vm" ,libxxf86vm)
-        ("libx11" ,libx11)
-        ("pkg-config" ,pkg-config)))
+        ("libx11" ,libx11)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -3055,8 +3156,9 @@ tracking.")
     (inputs
       `(("libxmu" ,libxmu)
         ("libxau" ,libxau)
-        ("libx11" ,libx11)
-        ("pkg-config" ,pkg-config)))
+        ("libx11" ,libx11)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -3078,7 +3180,7 @@ tracking.")
           (base32
             "0ns8abd27x7gbp4r44z3wc5k9zqxxj8zjnazqpcyr4n17nxp8xcp"))))
     (build-system gnu-build-system)
-    (inputs `(("pkg-config" ,pkg-config)))
+    (native-inputs `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -3106,17 +3208,18 @@ tracking.")
         ("libxinerama" ,libxinerama)
         ("libxi" ,libxi)
         ("libx11" ,libx11)
-        ("inputproto" ,inputproto)
-        ("pkg-config" ,pkg-config)))
+        ("inputproto" ,inputproto)))
+    (native-inputs
+       `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
     (license license:x11)))
 
 
-(define-public xkbcomp
+(define xkbcomp-intermediate ; used as input for xkeyboard-config
   (package
-    (name "xkbcomp")
+    (name "xkbcomp-intermediate")
     (version "1.2.4")
     (source
       (origin
@@ -3132,13 +3235,26 @@ tracking.")
     (inputs
       `(("xproto" ,xproto)
         ("libxkbfile" ,libxkbfile)
-        ("libx11" ,libx11)
-        ("pkg-config" ,pkg-config)))
+        ("libx11" ,libx11)))
+    (native-inputs
+        `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
     (license license:x11)))
 
+(define-public xkbcomp ; using xkeyboard-config as input
+  (package (inherit xkbcomp-intermediate)
+    (name "xkbcomp")
+    (inputs
+      `(,@(package-inputs xkbcomp-intermediate)
+        ("xkeyboard-config" ,xkeyboard-config)))
+    (arguments
+     `(#:configure-flags
+       (list (string-append "--with-xkb-config-root="
+                            (assoc-ref %build-inputs "xkeyboard-config")
+                            "/share/X11/xkb"))))))
+
 
 (define-public xkbevd
   (package
@@ -3157,8 +3273,9 @@ tracking.")
     (build-system gnu-build-system)
     (inputs
       `(("libxkbfile" ,libxkbfile)
-        ("libx11" ,libx11)
-        ("pkg-config" ,pkg-config)))
+        ("libx11" ,libx11)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -3184,8 +3301,9 @@ tracking.")
       `(("libxt" ,libxt)
         ("xproto" ,xproto)
         ("libxaw" ,libxaw)
-        ("inputproto" ,inputproto)
-        ("pkg-config" ,pkg-config)))
+        ("inputproto" ,inputproto)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -3208,11 +3326,12 @@ tracking.")
             "1nmb7ma8rqryicc5xqrn2hm5pwp5lkf7nj28bwbf63mz2r0mk892"))))
     (build-system gnu-build-system)
     (inputs
-      `(("gettext" ,gnu:gettext)
-        ("intltool" ,intltool)
+      `(("gettext" ,gnu-gettext)
         ("libx11" ,libx11)
-        ("pkg-config" ,pkg-config)
-        ("xkbcomp" ,xkbcomp)))
+        ("xkbcomp-intermediate" ,xkbcomp-intermediate)))
+    (native-inputs
+      `(("intltool" ,intltool)
+        ("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -3236,8 +3355,9 @@ tracking.")
     (build-system gnu-build-system)
     (inputs
       `(("libxmu" ,libxmu)
-        ("libx11" ,libx11)
-        ("pkg-config" ,pkg-config)))
+        ("libx11" ,libx11)))
+    (native-inputs
+       `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -3260,8 +3380,9 @@ tracking.")
             "1y9nfl8s7njxbnci8c20j986xixharasgg40vdw92y593j6dk2rv"))))
     (build-system gnu-build-system)
     (inputs
-      `(("libxcb" ,libxcb)
-        ("pkg-config" ,pkg-config)))
+      `(("libxcb" ,libxcb)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -3284,8 +3405,9 @@ tracking.")
             "1l97j15mg4wfzpm81wlpzagfjff7v4fwn7s2z2rpksk3gfcg7r8w"))))
     (build-system gnu-build-system)
     (inputs
-      `(("libxcb" ,libxcb)
-        ("pkg-config" ,pkg-config)))
+      `(("libxcb" ,libxcb)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -3305,12 +3427,14 @@ tracking.")
                ".tar.bz2"))
         (sha256
           (base32
-            "1dg47lay4vhrl9mfq3cfc6741a0m2n8wd4ljagd21ix3qklys8pg"))))
+            "1dg47lay4vhrl9mfq3cfc6741a0m2n8wd4ljagd21ix3qklys8pg"))
+        (patches (list (search-patch "xmodmap-asprintf.patch")))))
     (build-system gnu-build-system)
     (inputs
       `(("xproto" ,xproto)
-        ("libx11" ,libx11)
-        ("pkg-config" ,pkg-config)))
+        ("libx11" ,libx11)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -3336,7 +3460,7 @@ tracking.")
           (base32
             "0k5pffyi5bx8dmfn033cyhgd3gf6viqj3x769fqixifwhbgy2777"))))
     (build-system gnu-build-system)
-    (inputs `(("pkg-config" ,pkg-config)))
+    (native-inputs `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -3361,8 +3485,9 @@ tracking.")
     (inputs
       `(("xproto" ,xproto)
         ("libxmu" ,libxmu)
-        ("libx11" ,libx11)
-        ("pkg-config" ,pkg-config)))
+        ("libx11" ,libx11)))
+    (native-inputs
+        `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -3386,8 +3511,9 @@ tracking.")
     (build-system gnu-build-system)
     (inputs
       `(("xproto" ,xproto)
-        ("libx11" ,libx11)
-        ("pkg-config" ,pkg-config)))
+        ("libx11" ,libx11)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -3413,8 +3539,9 @@ tracking.")
       `(("libxrender" ,libxrender)
         ("libxrandr" ,libxrandr)
         ("xproto" ,xproto)
-        ("libx11" ,libx11)
-        ("pkg-config" ,pkg-config)))
+        ("libx11" ,libx11)))
+    (native-inputs
+     `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -3438,8 +3565,9 @@ tracking.")
     (build-system gnu-build-system)
     (inputs
       `(("libxmu" ,libxmu)
-        ("libx11" ,libx11)
-        ("pkg-config" ,pkg-config)))
+        ("libx11" ,libx11)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -3462,8 +3590,9 @@ tracking.")
             "0ywxzwa4kmnnmf8idr8ssgcil9xvbhnk155zpsh2i8ay93mh5586"))))
     (build-system gnu-build-system)
     (inputs
-      `(("libx11" ,libx11)
-        ("pkg-config" ,pkg-config)))
+      `(("libx11" ,libx11)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -3489,8 +3618,9 @@ tracking.")
       `(("xproto" ,xproto)
         ("libxmu" ,libxmu)
         ("libxext" ,libxext)
-        ("libx11" ,libx11)
-        ("pkg-config" ,pkg-config)))
+        ("libx11" ,libx11)))
+    (native-inputs
+       `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -3515,8 +3645,9 @@ tracking.")
     (inputs
       `(("libxmu" ,libxmu)
         ("libxcursor" ,libxcursor)
-        ("xbitmaps" ,xbitmaps)
-        ("pkg-config" ,pkg-config)))
+        ("xbitmaps" ,xbitmaps)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -3538,7 +3669,7 @@ tracking.")
           (base32
             "19p1bw3qyn0ia1znx6q3gx92rr9rl88ylrfijjclm8vhpa8i30bz"))))
     (build-system gnu-build-system)
-    (inputs `(("pkg-config" ,pkg-config)))
+    (native-inputs `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -3563,8 +3694,9 @@ tracking.")
     (inputs
       `(("libxext" ,libxext)
         ("libxv" ,libxv)
-        ("libx11" ,libx11)
-        ("pkg-config" ,pkg-config)))
+        ("libx11" ,libx11)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -3588,8 +3720,9 @@ tracking.")
     (build-system gnu-build-system)
     (inputs
       `(("libxt" ,libxt)
-        ("xproto" ,xproto)
-        ("pkg-config" ,pkg-config)))
+        ("xproto" ,xproto)))
+    (native-inputs
+       `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -3613,8 +3746,9 @@ tracking.")
     (build-system gnu-build-system)
     (inputs
       `(("libx11" ,libx11)
-        ("pkg-config" ,pkg-config)
         ("xproto" ,xproto)))
+    (native-inputs
+       `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -3638,8 +3772,9 @@ tracking.")
     (build-system gnu-build-system)
     (inputs
       `(("xproto" ,xproto)
-        ("libx11" ,libx11)
-        ("pkg-config" ,pkg-config)))
+        ("libx11" ,libx11)))
+    (native-inputs
+       `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -3666,7 +3801,7 @@ tracking.")
     (build-system gnu-build-system)
     (propagated-inputs
       `(("xextproto" ,xextproto)))
-    (inputs
+    (native-inputs
       `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
@@ -3694,8 +3829,9 @@ tracking.")
     (inputs
       `(("xproto" ,xproto)
         ("libxfixes" ,libxfixes)
-        ("libx11" ,libx11)
-        ("pkg-config" ,pkg-config)))
+        ("libx11" ,libx11)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -3721,8 +3857,9 @@ tracking.")
       `(("xextproto" ,xextproto)))
     (inputs
       `(("libxau" ,libxau)
-        ("libx11" ,libx11)
-        ("pkg-config" ,pkg-config)))
+        ("libx11" ,libx11)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -3748,8 +3885,9 @@ tracking.")
       `(("xineramaproto" ,xineramaproto)))
     (inputs
       `(("libxext" ,libxext)
-        ("libx11" ,libx11)
-        ("pkg-config" ,pkg-config)))
+        ("libx11" ,libx11)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -3776,8 +3914,9 @@ tracking.")
       `(("printproto" ,printproto)))
     (inputs
       `(("libx11" ,libx11)
-        ("libxext" ,libxext)
-        ("pkg-config" ,pkg-config)))
+        ("libxext" ,libxext)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -3803,8 +3942,9 @@ tracking.")
       `(("renderproto" ,renderproto)))
     (inputs
       `(("xproto" ,xproto)
-        ("libx11" ,libx11)
-        ("pkg-config" ,pkg-config)))
+        ("libx11" ,libx11)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -3831,8 +3971,9 @@ tracking.")
     (inputs
       `(("libxi" ,libxi)
         ("libx11" ,libx11)
-        ("inputproto" ,inputproto)
-        ("pkg-config" ,pkg-config)))
+        ("inputproto" ,inputproto)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -3859,8 +4000,9 @@ tracking.")
     (inputs
       `(("xproto" ,xproto)
         ("libxext" ,libxext)
-        ("libx11" ,libx11)
-        ("pkg-config" ,pkg-config)))
+        ("libx11" ,libx11)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -3884,7 +4026,7 @@ tracking.")
     (build-system gnu-build-system)
     (propagated-inputs
       `(("mkfontscale" ,mkfontscale)))
-    (inputs
+    (native-inputs
       `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
@@ -3909,7 +4051,7 @@ tracking.")
     (build-system gnu-build-system)
     (propagated-inputs
       `(("util-macros" ,util-macros))) ; to get util-macros in (almost?) all package inputs
-    (inputs
+    (native-inputs
       `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
@@ -3938,8 +4080,9 @@ tracking.")
     (propagated-inputs
       `(("xproto" ,xproto)))
     (inputs
-      `(("xtrans" ,xtrans)
-        ("pkg-config" ,pkg-config)))
+      `(("xtrans" ,xtrans)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -3963,7 +4106,7 @@ tracking.")
     (build-system gnu-build-system)
     (propagated-inputs
       `(("xproto" ,xproto)))
-    (inputs
+    (native-inputs
       `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
@@ -3989,8 +4132,9 @@ tracking.")
       `(("fixesproto" ,fixesproto)))
     (inputs
       `(("xproto" ,xproto)
-        ("libx11" ,libx11)
-        ("pkg-config" ,pkg-config)))
+        ("libx11" ,libx11)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -4019,8 +4163,9 @@ tracking.")
         ("xproto" ,xproto)))
     (inputs
       `(("zlib" ,zlib)
-        ("xtrans" ,xtrans)
-        ("pkg-config" ,pkg-config)))
+        ("xtrans" ,xtrans)))
+    (native-inputs
+       `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -4043,12 +4188,13 @@ tracking.")
             "029ihw4jq8mng8rx7a3jdvq64jm1zdkqidca93zmxv4jf9yn5qzj"))))
     (build-system gnu-build-system)
     (propagated-inputs
-      `(("libxext" ,libxext)))
-    (inputs
-      `(("xproto" ,xproto)
+      `(("inputproto" ,inputproto)
         ("libx11" ,libx11)
-        ("inputproto" ,inputproto)
-        ("pkg-config" ,pkg-config)))
+        ("libxext" ,libxext)))
+    (inputs
+      `(("xproto" ,xproto)))
+    (native-inputs
+       `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -4076,8 +4222,9 @@ tracking.")
     (inputs
       `(("libxrender" ,libxrender)
         ("xproto" ,xproto)
-        ("libx11" ,libx11)
-        ("pkg-config" ,pkg-config)))
+        ("libx11" ,libx11)))
+    (native-inputs
+       `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -4104,8 +4251,9 @@ tracking.")
     (inputs
       `(("xproto" ,xproto)
         ("libxext" ,libxext)
-        ("libx11" ,libx11)
-        ("pkg-config" ,pkg-config)))
+        ("libx11" ,libx11)))
+    (native-inputs
+       `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -4131,70 +4279,15 @@ tracking.")
       `(("libxext" ,libxext)
         ("xf86vidmodeproto" ,xf86vidmodeproto)))
     (inputs
-      `(("libx11" ,libx11)
-        ("pkg-config" ,pkg-config)))
+      `(("libx11" ,libx11)))
+    (native-inputs
+       `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
     (license license:x11)))
 
 
-;; package outside the x.org system proper of height 3
-
-(define-public mesa
-  (package
-    (name "mesa")
-    ;; In newer versions (9.0.5, 9.1 and 9.2 tested), "make" results in an
-    ;; infinite configure loop, see
-    ;; https://bugs.freedesktop.org/show_bug.cgi?id=58812
-    (version "8.0.5")
-    (source
-      (origin
-        (method url-fetch)
-        (uri (string-append
-               "ftp://ftp.freedesktop.org/pub/mesa/" version
-               "/MesaLib-" version
-               ".tar.bz2"))
-        (sha256
-          (base32
-            "0pjs8x51c0i6mawgd4w03lxpyx5fnx7rc8plr8jfsscf9yiqs6si"))))
-    (build-system gnu-build-system)
-    (propagated-inputs
-      `(("glproto" ,glproto)
-        ("libdrm" ,libdrm-2.4.33)
-        ("libxdamage" ,libxdamage)
-        ("libxxf86vm" ,libxxf86vm)))
-    (inputs
-      `(("bison" ,bison)
-        ("dri2proto" ,dri2proto)
-        ("expat" ,expat)
-        ("flex" ,flex)
-        ("libx11" ,libx11)
-        ("libxfixes" ,libxfixes)
-        ("libxml2" ,libxml2)
-        ("makedepend" ,makedepend)
-        ("pkg-config" ,pkg-config)
-        ("python" ,python-2))) ; incompatible with Python 3 (print syntax)
-    (arguments
-      `(#:configure-flags
-         `("--with-gallium-drivers=r600,svga,swrast") ; drop r300 from the default list as it requires llvm
-        #:phases
-         (alist-cons-after
-          'unpack 'remove-symlink
-          (lambda* (#:key #:allow-other-keys)
-            ;; remove dangling symlink to /usr/include/wine/windows
-            (delete-file "src/gallium/state_trackers/d3d1x/w32api"))
-         %standard-phases)))
-    (home-page "http://mesa3d.org/")
-    (synopsis "Mesa, an OpenGL implementation")
-    (description "Mesa is a free implementation of the OpenGL specification -
-a system for rendering interactive 3D graphics. A variety of device drivers
-allows Mesa to be used in many different environments ranging from software
-emulation to complete hardware acceleration for modern GPUs.")
-    (license license:x11)))
-
-
-
 ;; packages of height 3 in the propagated-inputs tree
 
 (define-public libxcb
@@ -4218,9 +4311,12 @@ emulation to complete hardware acceleration for modern GPUs.")
         ("libxdmcp" ,libxdmcp)))
     (inputs
       `(("xcb-proto" ,xcb-proto)
-        ("libxslt" ,libxslt)
-        ("pkg-config" ,pkg-config)
+        ("libxslt" ,libxslt)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)
         ("python" ,python-wrapper)))
+    (arguments
+     `(#:configure-flags '("--enable-xkb")))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -4262,6 +4358,7 @@ emulation to complete hardware acceleration for modern GPUs.")
         ("dbus" ,dbus)
         ("dmxproto" ,dmxproto)
         ("libdmx" ,libdmx)
+        ("libgcrypt" ,libgcrypt)
         ("libxau" ,libxau)
         ("libxaw" ,libxaw)
         ("libxdmcp" ,libxdmcp)
@@ -4273,9 +4370,6 @@ emulation to complete hardware acceleration for modern GPUs.")
         ("libxt" ,libxt)
         ("libxv" ,libxv)
         ("mesa" ,mesa)
-        ("openssl" ,openssl)
-        ("pkg-config" ,pkg-config)
-        ("python" ,python-wrapper)
         ("recordproto" ,recordproto)
         ("resourceproto" ,resourceproto)
         ("scrnsaverproto" ,scrnsaverproto)
@@ -4284,10 +4378,42 @@ emulation to complete hardware acceleration for modern GPUs.")
         ("xf86dgaproto" ,xf86dgaproto)
         ("xf86driproto" ,xf86driproto)
         ("xf86vidmodeproto" ,xf86vidmodeproto)
-;;        ("xkbutils" ,xkbutils)
-;;        ("xkeyboard-config" ,xkeyboard-config)
+        ("xkbcomp" ,xkbcomp)
+        ("xkeyboard-config" ,xkeyboard-config)
         ("xtrans" ,xtrans)
         ("zlib" ,zlib)))
+    (native-inputs
+       `(("python" ,python-wrapper)
+         ("pkg-config" ,pkg-config)))
+    (arguments
+     `(#:configure-flags
+       (list (string-append "--with-xkb-path="
+                            (assoc-ref %build-inputs "xkeyboard-config")
+                            "/share/X11/xkb")
+             (string-append "--with-xkb-output="
+                            "/tmp") ; FIXME: This is a bit doubtful; where should
+                                    ; the compiled keyboard maps go?
+             (string-append "--with-xkb-bin-directory="
+                            (assoc-ref %build-inputs "xkbcomp")
+                            "/bin")
+
+             ;; For the log file, etc.
+             "--localstatedir=/var")
+       #:phases
+        (alist-replace
+         'configure
+         (lambda* (#:key outputs #:allow-other-keys #:rest args)
+           (let ((configure (assoc-ref %standard-phases 'configure)))
+             (substitute* (find-files "." "\\.c$")
+               (("/bin/sh") (which "sh")))
+
+             ;; Don't try to 'mkdir /var'.
+             (substitute* "hw/xfree86/Makefile.in"
+               (("mkdir(.*)logdir.*")
+                "true\n"))
+
+             (apply configure args)))
+         %standard-phases)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -4317,9 +4443,10 @@ emulation to complete hardware acceleration for modern GPUs.")
         ("libxcb" ,libxcb)))
     (inputs
       `(("inputproto" ,inputproto)
-        ("pkg-config" ,pkg-config)
         ("xextproto" ,xextproto)
         ("xtrans" ,xtrans)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -4348,7 +4475,7 @@ emulation to complete hardware acceleration for modern GPUs.")
         ("libxrender" ,libxrender)
         ("libxfixes" ,libxfixes)
         ("xproto" ,xproto)))
-    (inputs
+    (native-inputs
       `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
@@ -4376,8 +4503,9 @@ emulation to complete hardware acceleration for modern GPUs.")
         ("libice" ,libice)
         ("libsm" ,libsm)))
     (inputs
-      `(("libx11" ,libx11)
-        ("pkg-config" ,pkg-config)))
+      `(("libx11" ,libx11)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
@@ -4405,14 +4533,171 @@ emulation to complete hardware acceleration for modern GPUs.")
         ("libxpm" ,libxpm)
         ("libxt" ,libxt)))
     (inputs
-      `(("xproto" ,xproto)
-        ("pkg-config" ,pkg-config)))
+      `(("xproto" ,xproto)))
+    (native-inputs
+      `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
     (license license:x11)))
 
 
+(define-public xcb-util
+  (package
+    (name "xcb-util")
+    (version "0.3.9")
+    (source (origin
+             (method url-fetch)
+             (uri (string-append "http://xcb.freedesktop.org/dist/" name "-"
+                                 version ".tar.bz2"))
+             (sha256
+              (base32
+               "1i0qbhqkcdlbbsj7ifkyjsffl61whj24d3zlg5pxf3xj1af2a4f6"))))
+    (build-system gnu-build-system)
+    (propagated-inputs
+     `(("libxcb" ,libxcb)))
+    (native-inputs
+     `(("pkg-config" ,pkg-config)))
+    (home-page "http://cgit.freedesktop.org/xcb/util/")
+    (synopsis "Core XCB utility functions")
+    (description "The XCB util module provides a number of libraries which
+    sit on top of libxcb, the core X protocol library, and some of the
+    extension libraries.  These experimental libraries provide convenience
+functions and interfaces which make the raw X protocol more usable.  Some of
+the libraries also provide client-side code which is not strictly part of
+the X protocol but which has traditionally been provided by Xlib.
+
+The XCB util module provides the following libraries:
+aux: Convenient access to connection setup and some core requests.
+atom: Standard core X atom constants and atom caching.
+event: Some utilities that have little to do with events any more.")
+    (license license:x11)))
+
+
+(define-public xcb-util-image
+  (package
+    (name "xcb-util-image")
+    (version "0.3.9")
+    (source (origin
+             (method url-fetch)
+             (uri (string-append "http://xcb.freedesktop.org/dist/" name "-"
+                                 version ".tar.bz2"))
+             (sha256
+              (base32
+               "1pr1l1nkg197gyl9d0fpwmn72jqpxjfgn9y13q4gawg1m873qnnk"))))
+    (build-system gnu-build-system)
+    (propagated-inputs
+     `(("libxcb" ,libxcb)))
+    (inputs
+     `(("xcb-util" ,xcb-util)))
+    (native-inputs
+     `(("pkg-config" ,pkg-config)))
+    (home-page "http://cgit.freedesktop.org/xcb/util-image/")
+    (synopsis "XCB port of Xlib's XImage and XShmImage")
+    (description "The XCB util module provides a number of libraries which
+    sit on top of libxcb, the core X protocol library, and some of the
+    extension libraries.  These experimental libraries provide convenience
+functions and interfaces which make the raw X protocol more usable.  Some of
+the libraries also provide client-side code which is not strictly part of
+the X protocol but which has traditionally been provided by Xlib.
+
+The XCB util-image module provides the following library:
+image: Port of Xlib's XImage and XShmImage functions.")
+    (license license:x11)))
+
+
+(define-public xcb-util-keysyms
+  (package
+    (name "xcb-util-keysyms")
+    (version "0.3.9")
+    (source (origin
+             (method url-fetch)
+             (uri (string-append "http://xcb.freedesktop.org/dist/" name "-"
+                                 version ".tar.bz2"))
+             (sha256
+              (base32
+               "0vjwk7vrcfnlhiadv445c6skfxmdrg5v4qf81y8s2s5xagqarqbv"))))
+    (build-system gnu-build-system)
+    (propagated-inputs
+     `(("libxcb" ,libxcb)))
+    (native-inputs
+     `(("pkg-config" ,pkg-config)))
+    (home-page "http://cgit.freedesktop.org/xcb/util-keysyms/")
+    (synopsis "Standard X constants and conversion to/from keycodes")
+    (description "The XCB util module provides a number of libraries which
+    sit on top of libxcb, the core X protocol library, and some of the
+    extension libraries.  These experimental libraries provide convenience
+functions and interfaces which make the raw X protocol more usable.  Some of
+the libraries also provide client-side code which is not strictly part of
+the X protocol but which has traditionally been provided by Xlib.
+
+The XCB util-keysyms module provides the following library:
+keysyms: Standard X key constants and conversion to/from keycodes.")
+    (license license:x11)))
+
+
+(define-public xcb-util-renderutil
+  (package
+    (name "xcb-util-renderutil")
+    (version "0.3.8")
+    (source (origin
+             (method url-fetch)
+             (uri (string-append "http://xcb.freedesktop.org/dist/" name "-"
+                                 version ".tar.bz2"))
+             (sha256
+              (base32
+               "0lkl9ij9b447c0br2qc5qsynjn09c4fdz7sd6yp7pyi8az2sb2cp"))))
+    (build-system gnu-build-system)
+    (propagated-inputs
+     `(("libxcb" ,libxcb)))
+    (native-inputs
+     `(("pkg-config" ,pkg-config)))
+    (home-page "http://cgit.freedesktop.org/xcb/util-renderutil/")
+    (synopsis "SConvenience functions for the Render extension")
+    (description "The XCB util module provides a number of libraries which
+    sit on top of libxcb, the core X protocol library, and some of the
+    extension libraries.  These experimental libraries provide convenience
+functions and interfaces which make the raw X protocol more usable.  Some of
+the libraries also provide client-side code which is not strictly part of
+the X protocol but which has traditionally been provided by Xlib.
+
+The XCB util-renderutil module provides the following library:
+renderutil: Convenience functions for the Render extension.")
+    (license license:x11)))
+
+
+(define-public xcb-util-wm
+  (package
+    (name "xcb-util-wm")
+    (version "0.3.9")
+    (source (origin
+             (method url-fetch)
+             (uri (string-append "http://xcb.freedesktop.org/dist/xcb-util-wm-"
+                                 version ".tar.bz2"))
+             (sha256
+              (base32
+               "0c30fj33gvwzwhyz1dhsfwni0ai16bxpvxb4l6c6s7vvj7drp3q3"))))
+    (build-system gnu-build-system)
+    (propagated-inputs
+     `(("libxcb" ,libxcb)))
+    (native-inputs
+     `(("m4" ,m4)
+       ("pkg-config" ,pkg-config)))
+    (home-page "http://cgit.freedesktop.org/xcb/util-wm/")
+    (synopsis "Client and window-manager helpers for ICCCM and EWMH")
+    (description "The XCB util modules provides a number of libraries which
+    sit on top of libxcb, the core X protocol library, and some of the
+    extension libraries.  These experimental libraries provide convenience
+functions and interfaces which make the raw X protocol more usable.  Some of
+the libraries also provide client-side code which is not strictly part of
+the X protocol but which has traditionally been provided by Xlib.
+
+The XCB util-wm module provides the following libraries:
+ewmh: Both client and window-manager helpers for EWMH.
+icccm: Both client and window-manager helpers for ICCCM.")
+    (license license:x11)))
+
+
 ;; package outside the x.org system proper of height 5
 
 (define-public libxaw3d
@@ -4435,9 +4720,51 @@ emulation to complete hardware acceleration for modern GPUs.")
         ("libxmu" ,libxmu)
         ("libxt" ,libxt)))
     (inputs
-      `(("libx11" ,libx11)
-        ("pkg-config" ,pkg-config)))
+     `(("libx11" ,libx11)))
+    (native-inputs
+     `(("pkg-config" ,pkg-config)))
     (home-page "http://www.x.org/wiki/")
     (synopsis "xorg implementation of the X Window System")
     (description "X.org provides an implementation of the X Window System")
     (license license:x11)))
+
+(define-public xterm
+  (package
+    (name "xterm")
+    (version "303")
+    (source (origin
+              (method url-fetch)
+              (uri                                ; XXX: constant URL!
+               "http://invisible-island.net/datafiles/release/xterm.tar.gz")
+              (sha256
+               (base32
+                "0n7hay16aam9kfn642ri0wj5yzilbjm3l8znxc2p5dx9pn3rkwla"))))
+    (build-system gnu-build-system)
+    (arguments
+     '(#:configure-flags '("--enable-wide-chars" "--enable-256-color"
+                           "--enable-load-vt-fonts" "--enable-i18n"
+                           "--enable-doublechars" "--enable-luit"
+                           "--enable-mini-luit")
+       #:tests? #f))
+    (native-inputs
+     `(("pkg-config" ,pkg-config)))
+    (inputs
+     `(("luit" ,luit)
+       ("libXft" ,libxft)
+       ("fontconfig" ,fontconfig)
+       ("freetype" ,freetype)
+       ("ncurses" ,ncurses)
+       ("libICE" ,libice)
+       ("libSM" ,libsm)
+       ("libX11" ,libx11)
+       ("libXext" ,libxext)
+       ("libXt" ,libxt)
+       ("xproto" ,xproto)
+       ("libXaw" ,libxaw)))
+    (home-page "http://invisible-island.net/xterm")
+    (synopsis "Terminal emulator for the X Window System")
+    (description
+     "The xterm program is a terminal emulator for the X Window System.  It
+provides DEC VT102/VT220 (VTxxx) and Tektronix 4014 compatible terminals for
+programs that cannot use the window system directly.")
+    (license license:x11)))