GNU bug report logs - #38949
[PATCH] services: Add pulseaudio service.

Previous Next

Package: guix-patches;

Reported by: Oleg Pykhalov <go.wigust <at> gmail.com>

Date: Sun, 5 Jan 2020 17:41:01 UTC

Severity: normal

Tags: patch

Done: Oleg Pykhalov <go.wigust <at> gmail.com>

Bug is archived. No further changes may be made.

To add a comment to this bug, you must first unarchive it, by sending
a message to control AT debbugs.gnu.org, with unarchive 38949 in the body.
You can then email your comments to 38949 AT debbugs.gnu.org in the normal way.

Toggle the display of automated, internal messages from the tracker.

View this report as an mbox folder, status mbox, maintainer mbox


Report forwarded to guix-patches <at> gnu.org:
bug#38949; Package guix-patches. (Sun, 05 Jan 2020 17:41:01 GMT) Full text and rfc822 format available.

Acknowledgement sent to Oleg Pykhalov <go.wigust <at> gmail.com>:
New bug report received and forwarded. Copy sent to guix-patches <at> gnu.org. (Sun, 05 Jan 2020 17:41:01 GMT) Full text and rfc822 format available.

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: Oleg Pykhalov <go.wigust <at> gmail.com>
To: guix-patches <at> gnu.org
Cc: Oleg Pykhalov <go.wigust <at> gmail.com>
Subject: [PATCH] services: Add pulseaudio service.
Date: Sun,  5 Jan 2020 20:39:46 +0300
* gnu/services/sound.scm (pulseaudio-environment): New procedure.
(pulseaudio-service-type): New variable.
* doc/guix.texi (Sound Services): Document it.
---
 doc/guix.texi          | 14 ++++++++++++++
 gnu/services/sound.scm | 28 ++++++++++++++++++++++++++--
 2 files changed, 40 insertions(+), 2 deletions(-)

diff --git a/doc/guix.texi b/doc/guix.texi
index df1ba428a5..bb0ef17ddd 100644
--- a/doc/guix.texi
+++ b/doc/guix.texi
@@ -15951,6 +15951,20 @@ pcm.!default @{
 See @uref{https://www.alsa-project.org/main/index.php/Asoundrc} for the
 details.
 
+@deffn {Scheme Variable} pulseaudio-service-type
+This is the type for the @uref{http://www.pulseaudio.org/, PulseAudio
+sound server}, which sets the @var{LADSPA_PATH} environment variable to
+allow PulseAudio load modules from @code{swh-plugins} package.
+
+See @uref{http://plugin.org.uk/ladspa-swh/docs/ladspa-swh.html} for the
+details.
+
+The following example will setup the service:
+
+@lisp
+(service pulseaudio-service-type)
+@end lisp
+@end deffn
 
 @node Database Services
 @subsection Database Services
diff --git a/gnu/services/sound.scm b/gnu/services/sound.scm
index f2dd24402f..aaca733729 100644
--- a/gnu/services/sound.scm
+++ b/gnu/services/sound.scm
@@ -1,5 +1,5 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2018 Oleg Pykhalov <go.wigust <at> gmail.com>
+;;; Copyright © 2018, 2020 Oleg Pykhalov <go.wigust <at> gmail.com>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -21,16 +21,20 @@
   #:use-module (gnu services configuration)
   #:use-module (gnu services shepherd)
   #:use-module (gnu services)
+  #:use-module (gnu system pam)
   #:use-module (gnu system shadow)
   #:use-module (guix gexp)
   #:use-module (guix packages)
   #:use-module (guix records)
   #:use-module (guix store)
+  #:use-module (gnu packages audio)
   #:use-module (gnu packages linux)
   #:use-module (gnu packages pulseaudio)
   #:use-module (ice-9 match)
   #:export (alsa-configuration
-            alsa-service-type))
+            alsa-service-type
+
+            pulseaudio-service-type))
 
 ;;; Commentary:
 ;;;
@@ -97,4 +101,24 @@ ctl.!default {
    (default-value (alsa-configuration))
    (description "Configure low-level Linux sound support, ALSA.")))
 
+
+;;;
+;;; PulseAudio
+;;;
+
+(define (pulseaudio-environment config)
+  ;; Define this variable in the global environment such that
+  ;; pulseaudio swh-plugins works.
+  `(("LADSPA_PATH"
+     . ,(file-append swh-plugins "/lib/ladspa"))))
+
+(define pulseaudio-service-type
+  (service-type
+   (name 'pulseaudio)
+   (extensions
+    (list (service-extension session-environment-service-type
+                             pulseaudio-environment)))
+   (default-value #f)
+   (description "Configure PulseAudio sound support.")))
+
 ;;; sound.scm ends here
-- 
2.24.1





Reply sent to Oleg Pykhalov <go.wigust <at> gmail.com>:
You have taken responsibility. (Wed, 08 Jan 2020 07:27:01 GMT) Full text and rfc822 format available.

Notification sent to Oleg Pykhalov <go.wigust <at> gmail.com>:
bug acknowledged by developer. (Wed, 08 Jan 2020 07:27:01 GMT) Full text and rfc822 format available.

Message #10 received at 38949-done <at> debbugs.gnu.org (full text, mbox):

From: Oleg Pykhalov <go.wigust <at> gmail.com>
To: 38949-done <at> debbugs.gnu.org
Subject: Re: [bug#38949] [PATCH] services: Add pulseaudio service.
Date: Wed, 08 Jan 2020 10:26:26 +0300
[Message part 1 (text/plain, inline)]
Oleg Pykhalov <go.wigust <at> gmail.com> writes:

> * gnu/services/sound.scm (pulseaudio-environment): New procedure.
> (pulseaudio-service-type): New variable.
> * doc/guix.texi (Sound Services): Document it.
> ---
>  doc/guix.texi          | 14 ++++++++++++++
>  gnu/services/sound.scm | 28 ++++++++++++++++++++++++++--
>  2 files changed, 40 insertions(+), 2 deletions(-)
>
[…]

Pushed to master as a66ee82a05d8ff1ef7c5ff9ac7723cb32fc4e22a
[signature.asc (application/pgp-signature, inline)]

bug archived. Request was from Debbugs Internal Request <help-debbugs <at> gnu.org> to internal_control <at> debbugs.gnu.org. (Wed, 05 Feb 2020 12:24:05 GMT) Full text and rfc822 format available.

This bug report was last modified 4 years and 53 days ago.

Previous Next


GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.