01/01: gnu: tailon: Use absolute paths for commands.

[Marius Bakke]

mbakke pushed a commit to branch master
in repository guix.

commit 872a6fd98868d345443f04efdfd974d148c57f9d
Author: Christopher Baines <address@hidden>
Date:   Tue May 16 20:40:01 2017 +0100

    gnu: tailon: Use absolute paths for commands.
    
    * gnu/packages/logging.scm (tailon)[arguments]: Patch commands.py to 
reference
      grep, awk, sed and tail by absolute paths.
    
    Signed-off-by: Marius Bakke <address@hidden>
---
 gnu/packages/logging.scm | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/gnu/packages/logging.scm b/gnu/packages/logging.scm
index 2523d65..7501f1e 100644
--- a/gnu/packages/logging.scm
+++ b/gnu/packages/logging.scm
@@ -109,6 +109,21 @@ command line.")
      `(("python-pyyaml" ,python-pyyaml)
        ("python-sockjs-tornado" ,python-sockjs-tornado)
        ("python-tornado" ,python-tornado)))
+    (arguments
+     `(#:phases
+       (modify-phases %standard-phases
+         (add-after 'unpack 'patch-commands.py
+                     (lambda args
+                       (substitute* "tailon/commands.py"
+                         (("self\\.first_in_path\\('grep'\\)")
+                          (string-append"'" (which "grep") "'"))
+                         (("self\\.first_in_path\\('gawk', 'awk'\\)")
+                          (string-append"'" (which "gawk") "'"))
+                         (("self\\.first_in_path\\('gsed', 'sed'\\)")
+                          (string-append"'" (which "sed") "'"))
+                         (("self\\.first_in_path\\('gtail', 'tail'\\)")
+                          (string-append"'" (which "tail") "'")))
+                       #t)))))
     (home-page "https://tailon.readthedocs.io/";)
     (synopsis
      "Webapp for looking at and searching through log files")