bug#26935: [PATCH 3/3] gnu: video: add mediainfo

[Ethan R. Jones]

---
 gnu/packages/video.scm | 56 +++++++++++++++++++++++++++++++++++++++++++++-----
 1 file changed, 51 insertions(+), 5 deletions(-)

diff --git a/gnu/packages/video.scm b/gnu/packages/video.scm
index d04bfab96..b91874dad 100644
--- a/gnu/packages/video.scm
+++ b/gnu/packages/video.scm
@@ -1506,11 +1506,11 @@ format changes.")
      '(#:phases
        (modify-phases %standard-phases
          (add-before
-          'configure 'pre-configure
-          (lambda _
-            (chdir "build/generic")
-            (substitute* "configure"
-              (("#! /bin/sh") (string-append "#!" (which "sh")))))))
+             'configure 'pre-configure
+           (lambda _
+             (chdir "build/generic")
+             (substitute* "configure"
+               (("#! /bin/sh") (string-append "#!" (which "sh")))))))
        ;; No 'check' target.
        #:tests? #f))
     (home-page "https://www.xvid.com/";)
@@ -2147,3 +2147,49 @@ practically any type of media.")
     (description "Shared library for mediainfo.")
     (license license:bsd-2)))
 
+;; TODO also have a GUI version available
+(define-public mediainfo
+  (package
+    (name "mediainfo")
+    (version "0.7.95")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "https://mediaarea.net/download/source/";
+                                  name
+                                  "/"
+                                  version
+                                  "/"
+                                  name
+                                  "_"
+                                  version
+                                  ".tar.bz2"))
+              (file-name (string-append name "-" version ".tar.bz2"))
+              (sha256
+               (base32
+                "0dy51a3i79jppmg1gi4f6h7jx4hcgnkmfim4d7d3gmnlbkjh8anv"))))
+    (native-inputs
+     `(("autoconf" ,autoconf)
+       ("automake" ,automake)
+       ("libtool" ,libtool)
+       ("pkg-config" ,pkg-config)
+       ("zlib" ,zlib)
+       ("libmediainfo", libmediainfo)
+       ("libzen" ,libzen)))
+    (build-system gnu-build-system)
+    (arguments
+     '(#:tests? #f ; lacks tests
+       #:phases
+       ;; build scripts not in root of archive
+       (modify-phases %standard-phases
+         (add-before
+             'configure 'pre-configure
+           (lambda _
+             (chdir "Project/GNU/CLI")))
+         (add-before 'configure 'autogen
+           (lambda _
+             (zero? (system* "./autogen.sh")))))))
+    (home-page "https://mediaarea.net/en/MediaInfo";)
+    (synopsis "Display media tags")
+    (description "MediaInfo is a convenient unified display of the most
+relevant technical and tag data for video and audio files.")
+    (license license:bsd-2)))
-- 
2.13.0