[bug#38532] [PATCH 06/11] gnu: Add kaffeine.

[Hartmut Goebel <h.goebel@crazy-compilers.com>]

* gnu/packages/kde-multimedia.scm (kaffeine): New variable.
---
 gnu/packages/kde-multimedia.scm | 61 ++++++++++++++++++++++++++++++++-
 1 file changed, 60 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/kde-multimedia.scm b/gnu/packages/kde-multimedia.scm
index 6a989fd32d..e2f0a10948 100644
--- a/gnu/packages/kde-multimedia.scm
+++ b/gnu/packages/kde-multimedia.scm
@@ -26,13 +26,15 @@
   #:use-module (gnu packages base)
   #:use-module (gnu packages gnome)
   #:use-module (gnu packages kde-frameworks)
+  #:use-module (gnu packages linux)
   #:use-module (gnu packages mp3)
   #:use-module (gnu packages music)
   #:use-module (gnu packages pkg-config)
   #:use-module (gnu packages pulseaudio)
   #:use-module (gnu packages qt)
   #:use-module (gnu packages video)
-  #:use-module (gnu packages xiph))
+  #:use-module (gnu packages xiph)
+  #:use-module (gnu packages xorg))
 
 (define-public dragon
   (package
@@ -227,3 +229,60 @@ devices.")
     (synopsis "CDDB library for KDE Platform (runtime)")
     (description "A library for retrieving and sending cddb information.")
     (license (list license:gpl2+ license:lgpl2.0+ license:fdl1.2+))))
+
+(define-public kaffeine
+  (package
+    (name "kaffeine")
+    (version "2.0.18")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "mirror://kde/stable/kaffeine"
+                           "/kaffeine-" version ".tar.xz"))
+       (sha256
+        (base32 "10dnhr9v2jlki44i3gmjagky66ybixmv6f29z5imk9clgddrlyfr"))))
+    (properties `((tags . ("Desktop" "KDE" "Multimedia"))))
+    (build-system qt-build-system)
+    (native-inputs
+     `(("extra-cmake-modules" ,extra-cmake-modules)
+       ("pkg-config" ,pkg-config)
+       ("kdoctools" ,kdoctools)))
+    (inputs
+     `(("eudev" ,eudev)
+       ("kcoreaddons" ,kcoreaddons)
+       ("kdbusaddons" ,kdbusaddons)
+       ("ki18n" ,ki18n)
+       ("kio" ,kio)
+       ("kwidgetsaddons" ,kwidgetsaddons)
+       ("kwindowsystem" ,kwindowsystem)
+       ("kxmlgui" ,kxmlgui)
+       ("libxscrnsaver" ,libxscrnsaver)
+       ;;("oxygen-icons" ,oxygen-icons) ; default icon set
+       ("qtbase" ,qtbase)
+       ("qtx11extras" ,qtx11extras)
+       ("solid" ,solid)
+       ("v4l-utils" ,v4l-utils) ; libdvbv5
+       ("vlc" ,vlc)))
+    ;;/tmp/guix-build-kaffeine-2.0.18.drv-0/kaffeine-2.0.18/src/dvb/dvbrecording.cpp:476:73: error: conversion to non-const reference type ‘class QString&&’ from rvalue of type ‘QString’ [-fpermissive]
+    ;;qCDebug(logDvb, "name and priority %s %s", qPrintable(listRec->name), qPrintable(listRec->priority));
+    (arguments
+     `(;;#:configure-flags '("-DBUILD_TESTING=ON")
+       ;;#:tests? #f ; tests fail hard in our build environment
+       #:phases
+       (modify-phases (@ (guix build qt-build-system) %standard-phases)
+         (add-after 'unpack 'fix-code
+           (lambda _
+             (substitute* "src/dvb/dvbdevice_linux.cpp"
+               (("\\s*qPrintable\\(transponder\\.getTransmissionType\\(\\)\\)\\);")
+                 "transponder.getTransmissionType());"))
+             #t)))))
+    (home-page "https://kde.org/applications/multimedia/org.kde.kaffeine")
+    (synopsis "Versatile media player for KDE")
+    (description "Kaffeine is a media player for KDE.  While it supports
+multiple Phonon backends, its default backend is Xine, giving Kaffeine a wide
+variety of supported media types and letting Kaffeine access CDs, DVDs, and
+network streams easily.
+
+Kaffeine can keep track of multiple playlists simultaneously, and supports
+autoloading of subtitle files for use while playing video.")
+    (license (list license:gpl2+ license:fdl1.2+))))
-- 
2.21.0