10/40: gnu: video: Add 'bash' input for 'wrap-program'.

[guix-commits]

apteryx pushed a commit to branch core-updates
in repository guix.

commit 388ea99037ed81a2de6d004696421bdb901e2ce4
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Fri Jul 2 12:06:38 2021 +0200

    gnu: video: Add 'bash' input for 'wrap-program'.
    
    It is required for cross-compilation.
    
    * gnu/packages/video.scm
    (pipe-viewer)[inputs]: Add 'bash-minimal'.
    (vlc): Remove trailing #t.
    (youtube-viewer)[inputs]: Likewise.
    (openshot)[inputs]: Likewise.
    (gaupol)[inputs]: Likewise.
    (get-iplayer)[inputs]: Likewise.
    
    Signed-off-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
    Modified-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
    Change-Id: I572eddc1084e1397b06d1fa264ec575c8c9b5340
---
 gnu/packages/video.scm | 38 +++++++++++++++++++-------------------
 1 file changed, 19 insertions(+), 19 deletions(-)

diff --git a/gnu/packages/video.scm b/gnu/packages/video.scm
index 076d67f34f..1a24bdc86c 100644
--- a/gnu/packages/video.scm
+++ b/gnu/packages/video.scm
@@ -1167,7 +1167,8 @@ H.264 (MPEG-4 AVC) video streams.")
     (native-inputs
      (list perl-module-build perl-test-pod perl-test-simple))
     (inputs
-     (list perl-data-dump
+     (list bash-minimal
+           perl-data-dump
            perl-digest-md5
            perl-encode
            ffmpeg
@@ -2051,8 +2052,7 @@ videoformats depend on the configuration flags of 
ffmpeg.")
                ;; Some of the tests require using the display to test out VLC,
                ;; which fails in our sandboxed build system
                (substitute* "test/run_vlc.sh"
-                 (("./vlc --ignore-config") "echo"))
-               #t)))
+                 (("./vlc --ignore-config") "echo")))))
          (add-after 'strip 'regenerate-plugin-cache
            (lambda* (#:key outputs #:allow-other-keys)
              ;; The 'install-exec-hook' rule in the top-level Makefile.am
@@ -2078,8 +2078,7 @@ videoformats depend on the configuration flags of 
ffmpeg.")
              (let ((out (assoc-ref outputs "out"))
                    (plugin-path (getenv "QT_PLUGIN_PATH")))
                (wrap-program (string-append out "/bin/vlc")
-                 `("QT_PLUGIN_PATH" ":" prefix (,plugin-path))))
-             #t)))))
+                 `("QT_PLUGIN_PATH" ":" prefix (,plugin-path)))))))))
     (home-page "https://www.videolan.org/";)
     (synopsis "Audio and video framework")
     (description "VLC is a cross-platform multimedia player and framework
@@ -2731,7 +2730,8 @@ audio, images) from the Web.  It can use either mpv or 
vlc for playback.")
     (native-inputs
      (list perl-module-build))
     (inputs
-     (list perl-data-dump
+     (list bash-minimal
+           perl-data-dump
            perl-file-sharedir
            perl-gtk2
            perl-json
@@ -2765,8 +2765,7 @@ audio, images) from the Web.  It can use either mpv or 
vlc for playback.")
                             "bin/gtk3-youtube-viewer")
                (("'xdg-open'")
                 (format #f "'~a/bin/xdg-open'"
-                        (assoc-ref inputs "xdg-utils"))))
-             #t))
+                        (assoc-ref inputs "xdg-utils"))))))
          (add-after 'install 'install-desktop
            (lambda* (#:key outputs #:allow-other-keys)
              (let* ((out (assoc-ref outputs "out"))
@@ -2774,8 +2773,7 @@ audio, images) from the Web.  It can use either mpv or 
vlc for playback.")
                (install-file "share/gtk-youtube-viewer.desktop"
                              (string-append sharedir "/applications"))
                (install-file "share/icons/gtk-youtube-viewer.png"
-                             (string-append sharedir "/pixmaps"))
-               #t)))
+                             (string-append sharedir "/pixmaps")))))
          (add-after 'install 'wrap-program
            (lambda* (#:key outputs #:allow-other-keys)
              (let* ((out (assoc-ref outputs "out"))
@@ -2784,8 +2782,7 @@ audio, images) from the Web.  It can use either mpv or 
vlc for playback.")
                     (lib-path (getenv "PERL5LIB")))
                (for-each (cut wrap-program <>
                               `("PERL5LIB" ":" prefix (,lib-path ,site-dir)))
-                         (find-files bin-dir))
-               #t))))))
+                         (find-files bin-dir))))))))
     (synopsis
      "Lightweight application for searching and streaming videos from YouTube")
     (description
@@ -4937,7 +4934,8 @@ API.  It includes bindings for Python, Ruby, and other 
languages.")
            (delete-file-recursively "src/images/fonts") #t))))
     (build-system python-build-system)
     (inputs
-     (list ffmpeg
+     (list bash-minimal
+           ffmpeg
            font-dejavu
            libopenshot
            python
@@ -4966,14 +4964,12 @@ API.  It includes bindings for Python, Ruby, and other 
languages.")
                         (substitute* "src/classes/app.py"
                           (("info.IMAGES_PATH") (string-append "\"" font "\""))
                           (("fonts") "share/fonts/truetype")
-                          (("[A-Za-z_-]+.ttf") "DejaVuSans.ttf")))
-                      #t))
+                          (("[A-Za-z_-]+.ttf") "DejaVuSans.ttf")))))
                   (add-before 'install 'set-tmp-home
                     (lambda _
                       ;; src/classes/info.py "needs" to create several
                       ;; directories in $HOME when loaded during build
-                      (setenv "HOME" "/tmp")
-                      #t))
+                      (setenv "HOME" "/tmp")))
                   (add-after 'install 'wrap-program
                     (lambda* (#:key outputs inputs #:allow-other-keys)
                       (let ((out (assoc-ref outputs "out"))
@@ -5125,7 +5121,8 @@ video from a Wayland session.")
     (native-inputs
      (list gettext-minimal pkg-config))
     (inputs
-     (list python-pygobject
+     (list bash-minimal
+           python-pygobject
            gtk+
            python-pycairo ; Required or else clicking on a subtitle line fails.
            python-chardet ; Optional: Character encoding detection.
@@ -5579,7 +5576,10 @@ brightness, contrast, and frame rate.")
                  `("PERL5LIB" ":"
                    prefix (,(string-append perllib ":" (getenv 
"PERL5LIB")))))))))))
     (inputs
-     (list perl-mojolicious perl-lwp-protocol-https perl-xml-libxml))
+     (list bash-minimal
+           perl-mojolicious
+           perl-lwp-protocol-https
+           perl-xml-libxml))
     (home-page "https://github.com/get-iplayer/get_iplayer";)
     (synopsis "Download or stream available BBC iPlayer TV and radio 
programmes")
     (description "@code{get_iplayer} lists, searches and records BBC iPlayer