02/02: gnu: twitchy: Update to 3.4.

[guix-commits]

lfam pushed a commit to branch master
in repository guix.

commit 04b6e9c5dffb0830338dda39d90cf7b2d165b3fc
Author: Timo Eisenmann <address@hidden>
Date:   Mon Feb 25 19:38:54 2019 +0100

    gnu: twitchy: Update to 3.4.
    
    * gnu/packages/video.scm: (twitchy): Update to 3.4.
    [arguments]: Add phase 'patch-paths' to substitute in the absolute path to
    'streamlink'.
    
    Signed-off-by: Leo Famulari <address@hidden>
---
 gnu/packages/video.scm | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/video.scm b/gnu/packages/video.scm
index b0c875b..52f151b 100644
--- a/gnu/packages/video.scm
+++ b/gnu/packages/video.scm
@@ -32,6 +32,7 @@
 ;;; Copyright © 2018 Mark Meyer <address@hidden>
 ;;; Copyright © 2018 Gábor Boskovit <address@hidden>
 ;;; Copyright © 2019 Mathieu Othacehe <address@hidden>
+;;; Copyright © 2019 Timo Eisenmann <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -1999,10 +2000,10 @@ from sites like Twitch.tv and pipes them into a video 
player of choice.")
   (deprecated-package "livestreamer" streamlink))
 
 (define-public twitchy
-  (let ((commit "0c0f925b9c7ff2aed4a3b0046561cb794143c398")) ;Fixes tests.
+  (let ((commit "9beb36d80b16662414129693e74fa3a2fd97554e")) ; 3.4 has no tag
     (package
       (name "twitchy")
-      (version (git-version "3.2" "1" commit))
+      (version (git-version "3.4" "1" commit))
       (source
        (origin
          (method git-fetch)
@@ -2012,11 +2013,18 @@ from sites like Twitch.tv and pipes them into a video 
player of choice.")
          (file-name (git-file-name name version))
          (sha256
           (base32
-           "02aizvsr744sh8bdqvwwsmp2qpczlzn8fy76h5dyd3517n9nlcz9"))))
+           "0di03h1j9ipp2bbnxxlxz07v87icyg2hmnsr4s7184z5ql8kpzr7"))))
       (build-system python-build-system)
       (arguments
        '(#:phases
          (modify-phases %standard-phases
+           (add-after 'unpack 'patch-paths
+             (lambda* (#:key inputs #:allow-other-keys)
+               (substitute* "twitchy/twitchy_play.py"
+                 (("\"streamlink ")
+                  (string-append "\"" (assoc-ref inputs "streamlink")
+                                 "/bin/streamlink ")))
+               #t))
            (add-before 'check 'check-setup
              (lambda _
                (setenv "HOME" (getcwd)) ;Needs to write to ‘$HOME’.