From 20621fbe69d6ed794fe536d4aad940097f772f85 Mon Sep 17 00:00:00 2001
From: Kei Yamashita <kei@openmailbox.org>
Date: Sun, 17 Apr 2016 11:10:19 -0400
Subject: [PATCH] gnu: Add parole.

* gnu/packages/xfce.scm (parole): New variable.
---
 gnu/packages/xfce.scm | 48 ++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 48 insertions(+)

diff --git a/gnu/packages/xfce.scm b/gnu/packages/xfce.scm
index 89071e9..932dec1 100644
--- a/gnu/packages/xfce.scm
+++ b/gnu/packages/xfce.scm
@@ -3,6 +3,7 @@
 ;;; Copyright © 2014, 2015 Mark H Weaver <mhw@netris.org>
 ;;; Copyright © 2016 Andreas Enge <andreas@enge.fr>
 ;;; Copyright © 2016 Florian Paul Schmidt <mista.tapas@gmx.net>
+;;; Copyright © 2016 Kei Yamashita <kei@openmailbox.org>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -39,6 +40,7 @@
   #:use-module (gnu packages pdf)
   #:use-module (gnu packages polkit)
   #:use-module (gnu packages gstreamer)
+  #:use-module (gnu packages mp3)
   #:use-module (gnu packages linux)
   #:use-module (gnu packages photo)
   #:use-module (gnu packages pcre)
@@ -756,3 +758,49 @@ freedesktop-compliant DBus interfaces to inform other applications about current
 power level so that they can adjust their power consumption, and it provides the
 inhibit interface which allows applications to prevent automatic sleep.")
     (license gpl2+)))
+
+(define-public parole
+  (package
+    (name "parole")
+    (version "0.8.1")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "http://archive.xfce.org/src/apps/parole/0.8/"
+                                  name "-" version ".tar.bz2"))
+              (sha256
+               (base32
+                "1x40ppyf30hc2ywi7gs9ab4k825jm3czrczikcm8s3s90196y8ab"))))
+    (build-system gnu-build-system)
+    (arguments
+     `(#:configure-flags '("--disable-mpris2-plugin") ; cannot find gst/tag/tag.h
+       #:phases
+       (modify-phases %standard-phases
+         (add-after
+             'install 'wrap-parole
+           (lambda* (#:key inputs outputs #:allow-other-keys)
+             (let ((out             (assoc-ref outputs "out"))
+                   (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH")))
+               (wrap-program (string-append out "/bin/parole")
+                 `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path)))))))))
+    (native-inputs
+     `(("pkg-config" ,pkg-config)
+       ("intltool" ,intltool)))
+    (inputs
+     `(("desktop-file-utils" ,desktop-file-utils)
+       ("glib:bin" ,glib "bin")
+       ("gstreamer" ,gstreamer)
+       ("gst-libav" ,gst-libav)
+       ("gst-plugins-bad" ,gst-plugins-bad)
+       ("gst-plugins-base" ,gst-plugins-base)
+       ("gst-plugins-good" ,gst-plugins-good)
+       ("gst-plugins-ugly" ,gst-plugins-ugly)
+       ("libnotify" ,libnotify)
+       ("libxfce4ui" ,libxfce4ui)
+       ("taglib" ,taglib)))
+    (home-page "http://www.xfce.org/")
+    (synopsis "Modern media player based on the GStreamer framework")
+    (description
+     "Parole is a modern simple media player based on the GStreamer framework
+and written to fit well in the Xfce desktop.  It is designed with simplicity,
+speed and resource usage in mind.")
+    (license gpl2+)))
-- 
2.7.3