From 3eabcc787897ab951386ea35f36d124d6468b8ea Mon Sep 17 00:00:00 2001
From: Tomáš Čech <sleep_walker@gnu.org>
Date: Wed, 4 Oct 2017 00:47:21 +0200
Subject: gnu: Add missing input to python-py3status and fix call path.

file is used to determine configuration file encoding and py3status fails to
start when this tool is missing.

* gnu/packages/python.scm (python-py3status)[inputs]: Add file.
  [arguments]: Modify phases to patch py3status to call file with an absolute
  path.
---
 gnu/packages/python.scm | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/python.scm b/gnu/packages/python.scm
index 594dd38e42..cc7aa8fa4e 100644
--- a/gnu/packages/python.scm
+++ b/gnu/packages/python.scm
@@ -11494,8 +11494,21 @@ to occurrences in strings and comments.")
         (base32
          "0i283z1pivmir61z8kbiycigc94l61v33ygzkhczf1ifq7cppyds"))))
     (build-system python-build-system)
+    (inputs
+     `(("file" ,file)))
     (arguments
-     '(#:tests? #f)) ; TODO: Requires many libraries not in Guix.
+     '(#:phases
+       (modify-phases %standard-phases
+         ;; 'file' is used for detection of configuration file encoding
+         ;; let's make link the dependency to particular input
+         (add-before 'build 'patch-file-path
+           (lambda* (#:key inputs #:allow-other-keys)
+             (let ((file-path (assoc-ref inputs "file")))
+               (substitute* "py3status/parse_config.py"
+                 (("check_output\\(\\['file'")
+                  (string-append "check_output(['" file-path "/bin/file'")))
+               #t))))
+       #:tests? #f)) ; TODO: Requires many libraries not in Guix.
     (home-page "https://github.com/ultrabug/py3status")
     (synopsis "Extensible i3status wrapper written in Python")
     (description "py3status is an i3status wrapper which extends i3status
-- 
cgit v1.2.3