From 66fb2d23a36f8e18464455ac1242ebbb0f0a7227 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Thu, 10 Oct 2013 21:20:21 +0200
Subject: [PATCH] gnu: Add pavucontrol.

* gnu/packages/pulseaudio.scm (pavucontrol): New variable.
---
 gnu/packages/pulseaudio.scm | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)

diff --git a/gnu/packages/pulseaudio.scm b/gnu/packages/pulseaudio.scm
index d2628bf22b3..6318ca58829 100644
--- a/gnu/packages/pulseaudio.scm
+++ b/gnu/packages/pulseaudio.scm
@@ -27,6 +27,8 @@ (define-module (gnu packages pulseaudio)
   #:use-module (gnu packages pkg-config)
   #:use-module (gnu packages avahi)
   #:use-module (gnu packages glib)
+  #:use-module (gnu packages gtk)
+  #:use-module (gnu packages libcanberra)
   #:use-module (gnu packages algebra)
   #:use-module ((gnu packages autotools) #:select (libtool))
   #:use-module (gnu packages gdbm)
@@ -185,3 +187,31 @@ (define pulseaudio
     ;; FFTW, etc.) are GPL'd, so the result is effectively GPLv2+.  See
     ;; 'LICENSE' for details.
     (license l:gpl2+)))
+
+(define-public pavucontrol
+  (package
+    (name "pavucontrol")
+    (version "2.0")
+    (source (origin
+             (method url-fetch)
+             (uri (string-append
+                   "http://freedesktop.org/software/pulseaudio/pavucontrol/pavucontrol-"
+                   version
+                   ".tar.xz"))
+             (sha256
+              (base32
+               "02s775m1531sshwlbvfddk3pz8zjmwkv1sgzggn386ja3gc9vwi2"))))
+    (build-system gnu-build-system)
+    (inputs
+     `(("intltool" ,intltool)
+       ("libcanberra" ,libcanberra)
+       ("gtkmm" ,gtkmm)
+       ("pulseaudio" ,pulseaudio)
+       ("pkg-config" ,pkg-config)))
+    (home-page "http://freedesktop.org/software/pulseaudio/pavucontrol/")
+    (synopsis "PulseAudio volume control")
+    (description
+     "PulseAudio Volume Control (pavucontrol) provides a GTK+
+graphical user interface to connect to a PulseAudio server and
+easily control the volume of all clients, sinks, etc.")
+    (license l:gpl2+)))
-- 
GitLab