~ruther/guix-local: gnu: xorg: Make xkeyboard-config compile.

42ed9985b10c08dee53ca58b7d95b4608eb53161 — Andreas Enge 13 years ago 2b8c5f5

gnu: xorg: Make xkeyboard-config compile.

* gnu/packages/xorg.scm (xkeyboard-config): Add inputs gettext, intltool,
     perl-xml-parser.

patch browse .tar.gz

1 files changed, 16 insertions(+), 1 deletions(-)

M gnu/packages/xorg.scm

M gnu/packages/xorg.scm => gnu/packages/xorg.scm +16 -1

@@ 3663,9 3663,24 @@ emulation to complete hardware acceleration for modern GPUs.")
             "1nmb7ma8rqryicc5xqrn2hm5pwp5lkf7nj28bwbf63mz2r0mk892"))))
     (build-system gnu-build-system)
     (inputs
-      `(("libx11" ,libx11)
+      `(("gettext" ,gnu:gettext)
+        ("intltool" ,intltool)
+        ("libx11" ,libx11)
+        ;; required to set PERL5LIB, although it is propagated by intltool
+        ("perl-xml-parser" ,perl-xml-parser)
         ("pkg-config" ,pkg-config)
         ("xkbcomp" ,xkbcomp)))
+    (arguments
+      `(#:phases
+         (alist-replace
+          'configure
+          (lambda* (#:key inputs #:allow-other-keys #:rest args)
+            (let ((configure (assoc-ref %standard-phases 'configure))
+                  (perl-xml-parser (assoc-ref inputs "perl-xml-parser")))
+              ;; FIXME: This should be done more centrally.
+              (setenv "PERL5LIB" (string-append perl-xml-parser "/lib/perl5/site_perl"))
+              (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")