~ruther/guix-local: gnu: python-xcffib: Fix libxcb.so.1 path.

e46bf22391b97a515f7a1cf975e019e3f3f5df3b — José Miguel Sánchez García 8 years ago 7a0efa7

gnu: python-xcffib: Fix libxcb.so.1 path.

* gnu/packages/python.scm (python-xcffib)[arguments]<#:phases>: Add phase to
embed full path to libxcb.so.1.

Signed-off-by: Marius Bakke <mbakke@fastmail.com>

patch browse .tar.gz

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

M gnu/packages/python.scm

M gnu/packages/python.scm => gnu/packages/python.scm +7 -1

@@ 4765,10 4765,16 @@ a front-end for C compilers or analysis tools.")
      `(("python-cffi" ,python-cffi) ; used at run time
        ("python-six" ,python-six)))
     (arguments
-     `(;; FIXME: Tests cannot load libxcb.so.1
+     `(;; FIXME: Tests need more work. See ".travis.yml" in the repository.
        #:tests? #f
        #:phases
        (modify-phases %standard-phases
+         (add-after 'unpack 'fix-libxcb-path
+           (lambda* (#:key inputs #:allow-other-keys)
+             (let ((libxcb (assoc-ref inputs "libxcb")))
+               (substitute* '("xcffib/__init__.py")
+                 (("^soname = \"") (string-append "soname = \"" libxcb "/lib/")))
+               #t)))
          (add-after 'install 'install-doc
            (lambda* (#:key outputs #:allow-other-keys)
              (let ((doc (string-append (assoc-ref outputs "out") "/share"