230/401: gnu: libquvi: Update package definition.

[guix-commits]

dannym pushed a commit to branch wip-desktop
in repository guix.

commit 5a0a5d3cf63ff1bced9c6b207b1c770898431d8b
Author: Raghav Gururajan <raghavgururajan@disroot.org>
AuthorDate: Thu Jul 30 15:47:17 2020 -0400

    gnu: libquvi: Update package definition.
    
    * gnu/packages/web.scm (libquvi) [version]: Update to 0.9.4.
    [source]<origin>[sha256]: Modify base32.
    [build-system]: Change from gnu to glib-or-gtk.
    [arguments]<#:configure-flags>: Remove argument.
    <#:phases>['disable-failing-tests]: New phase.
    [native-inputs]: Add doxygen and gettext-minimal.
    [inputs]: Add glib, glib-networking and libproxy. Remove cyrus-sasl,
    openssl and zlib.
    [description]: Modify.
    [license]: Modify.
    
    Signed-off-by: Danny Milosavljevic <dannym@scratchpost.org>
---
 gnu/packages/web.scm | 53 +++++++++++++++++++++++++++++-----------------------
 1 file changed, 30 insertions(+), 23 deletions(-)

diff --git a/gnu/packages/web.scm b/gnu/packages/web.scm
index 0d7d6f0..f015fc1 100644
--- a/gnu/packages/web.scm
+++ b/gnu/packages/web.scm
@@ -1542,36 +1542,43 @@ calls upon to parse the properties for a media URL.")
 (define-public libquvi
   (package
     (name "libquvi")
-    (version "0.4.1")
+    (version "0.9.4")
     (source
      (origin
        (method url-fetch)
-       (uri (string-append
-             "mirror://sourceforge/quvi/" (version-major+minor version) "/" 
name "/"
-             name "-" version ".tar.xz"))
+       (uri
+        (string-append
+         "mirror://sourceforge/quvi/" (version-major+minor version) "/" name 
"/"
+         name "-" version ".tar.xz"))
        (sha256
-        (base32 "00x9gbmzc5cns0gnfag0hsphcr3cb33vbbb9s7ppvvd6bxz2z1mm"))))
-    (build-system gnu-build-system)
-    (native-inputs `(("pkg-config" ,pkg-config)))
+        (base32 "1cl1kbgxl1jnx2nwx4z90l0lap09lnnj1fg7hxsxk3m6aj4y4grd"))))
+    (build-system glib-or-gtk-build-system)
+    (arguments
+     `(#:phases
+       (modify-phases %standard-phases
+         (add-after 'unpack 'disable-failing-tests
+           (lambda _
+             (substitute* "tests/Makefile.in"
+               (("script quvi playlist supports resolve media scan goto")
+                "playlist resolve media scan goto"))
+             #t)))))
+    (native-inputs
+     `(("doxygen" ,doxygen)
+       ("gettext" ,gettext-minimal)
+       ("pkg-config" ,pkg-config)))
     (inputs
-     `(("curl" ,curl)
-       ("cyrus-sasl" ,cyrus-sasl)
+     `(("glib" ,glib)
+       ("glib-networking" ,glib-networking)
+       ("libcurl" ,curl)
+       ("libgcrypt" ,libgcrypt)
+       ("libproxy" ,libproxy)
        ("libquvi-scripts" ,libquvi-scripts)
-       ("lua" ,lua-5.1)
-       ("openssl" ,openssl)
-       ("zlib" ,zlib)))
-    (arguments
-     ;; Lua provides no .pc file, so add CFLAGS/LIBS manually.
-     '(#:configure-flags
-       (let ((lua (assoc-ref %build-inputs "lua")))
-         (list
-          (string-append "liblua_CFLAGS=-I" lua "/include")
-          (string-append "liblua_LIBS=-L" lua "/libs -llua")))))
-    (home-page "http://quvi.sourceforge.net/";)
+       ("lua" ,lua-5.1)))
     (synopsis "Media stream URL parser")
-    (description "libquvi is a library with a C API for parsing media stream
-URLs and extracting their actual media files.")
-    (license license:lgpl2.1+)))
+    (description "Libquvi is the library with an C API to parse the media
+stream properties.")
+    (home-page "http://quvi.sourceforge.net/";)
+    (license license:agpl3+)))
 
 (define-public quvi
   (package