02/03: gnu: python-xdo: Hardcode the path of 'libxdo.so'.

[???]

iyzsong pushed a commit to branch master
in repository guix.

commit 736cfc10f0891f1626a3d78c7c304ba6a42ba93b
Author: 宋文武 <address@hidden>
Date:   Sat Jan 28 12:27:58 2017 +0800

    gnu: python-xdo: Hardcode the path of 'libxdo.so'.
    
    * gnu/packages/python.scm (python-xdo)[arguments]: Add 'patch-libxdo-path'
    phase.
---
 gnu/packages/python.scm |   14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/python.scm b/gnu/packages/python.scm
index df211fb..9e33412 100644
--- a/gnu/packages/python.scm
+++ b/gnu/packages/python.scm
@@ -8855,7 +8855,19 @@ normally the case.")
                 "1vqh1n5yy5dhnq312kwrl90fnck4v26is3lq3lxdvcn60vv19da0"))))
     (build-system python-build-system)
     (arguments
-     `(#:tests? #f))  ; no tests provided
+     '(#:phases
+       (modify-phases %standard-phases
+         (add-before 'install 'patch-libxdo-path
+           ;; Hardcode the path of dynamically loaded libxdo library.
+           (lambda* (#:key inputs #:allow-other-keys)
+             (let ((libxdo (string-append
+                            (assoc-ref inputs "xdotool")
+                            "/lib/libxdo.so")))
+               (substitute* "xdo/_xdo.py"
+                 (("find_library\\(\"xdo\"\\)")
+                  (simple-format #f "\"~a\"" libxdo)))
+               #t))))
+       #:tests? #f))  ; no tests provided
     (propagated-inputs
      `(("python-six" ,python-six)))
     (inputs