01/02: gnu: itstool: Wrap with PYTHONPATH.

[???]

iyzsong pushed a commit to branch master
in repository guix.

commit 4b58d88bcde652e3307fb66d1da4f93dc10ac7a8
Author: 宋文武 <address@hidden>
Date:   Thu Aug 20 16:36:25 2015 +0800

    gnu: itstool: Wrap with PYTHONPATH.
    
    * gnu/packages/glib.scm (itstool): Change 'propagated-inputs' to 'inputs'.
      [arguments]: New field.
---
 gnu/packages/glib.scm |   12 +++++++++++-
 1 files changed, 11 insertions(+), 1 deletions(-)

diff --git a/gnu/packages/glib.scm b/gnu/packages/glib.scm
index 88c61b6..cdec370 100644
--- a/gnu/packages/glib.scm
+++ b/gnu/packages/glib.scm
@@ -315,10 +315,20 @@ The intltool collection can be used to do these things:
               (base32
                "0fh34wi52i0qikgvlmrcpf1vx6gc1xqdad4539l4d9hikfsrz45z"))))
     (build-system gnu-build-system)
-    (propagated-inputs
+    (inputs
      `(("libxml2" ,libxml2)
        ("python2-libxml2" ,python2-libxml2)
        ("python-2" ,python-2)))
+    (arguments
+     '(#:phases
+       (modify-phases %standard-phases
+         (add-after
+          'install 'wrap-program
+          (lambda* (#:key outputs #:allow-other-keys)
+            (let ((prog (string-append (assoc-ref outputs "out")
+                                       "/bin/itstool")))
+              (wrap-program prog
+                `("PYTHONPATH" = (,(getenv "PYTHONPATH"))))))))))
     (home-page "http://www.itstool.org";)
     (synopsis "Tool to translate XML documents with PO files")
     (description