03/11: gnu: mkfontdir: Do not propagate 'mkfontscale'.

[Alex Kost]

alezost pushed a commit to branch master
in repository guix.

commit 84b5d9075ca4cb22e1c8bd85b5eb24635ecf689e
Author: Alex Kost <address@hidden>
Date:   Wed Jun 29 22:39:02 2016 +0300

    gnu: mkfontdir: Do not propagate 'mkfontscale'.
    
    * gnu/packages/xorg.scm (mkfontdir)[propagated-inputs]: Move
    'mkfontscale' to ...
    [inputs]: ... here.
    [arguments]: Add 'wrap-mkfontdir' phase.
---
 gnu/packages/xorg.scm |   12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/xorg.scm b/gnu/packages/xorg.scm
index 431c591..090f661 100644
--- a/gnu/packages/xorg.scm
+++ b/gnu/packages/xorg.scm
@@ -4631,7 +4631,17 @@ protocol and arbitrary X extension protocol.")
           (base32
             "0c3563kw9fg15dpgx4dwvl12qz6sdqdns1pxa574hc7i5m42mman"))))
     (build-system gnu-build-system)
-    (propagated-inputs
+    (arguments
+     '(#:phases
+       (modify-phases %standard-phases
+         (add-after 'install 'wrap-mkfontdir
+           (lambda* (#:key inputs outputs #:allow-other-keys)
+             (wrap-program (string-append (assoc-ref outputs "out")
+                                          "/bin/mkfontdir")
+               `("PATH" ":" prefix
+                 (,(string-append (assoc-ref inputs "mkfontscale")
+                                  "/bin")))))))))
+    (inputs
       `(("mkfontscale" ,mkfontscale)))
     (native-inputs
       `(("pkg-config" ,pkg-config)))