From: Oleg Pykhalov <go.wigust@gmail.com>
To: "Ludovic Courtès" <ludo@gnu.org>
Cc: 31297@debbugs.gnu.org
Subject: [bug#31297] [PATCH] gnu: Add sound service.
Date: Tue, 01 May 2018 12:39:31 +0300 [thread overview]
Message-ID: <87tvrrsoj0.fsf@gmail.com> (raw)
In-Reply-To: <20180428103341.30675-1-go.wigust@gmail.com>
[-- Attachment #1.1: Type: text/plain, Size: 1089 bytes --]
Hello Ludovic,
Thank you for review!
ludo@gnu.org (Ludovic Courtès) writes:
> Oleg Pykhalov <go.wigust@gmail.com> skribis:
>
>> * gnu/services/sound.scm: New file.
>> * gnu/local.mk (GNU_SYSTEM_MODULES): Add this.
>> * doc/guix.texi (Sound Services): New chapter.
>
> [...]
>
>> +@node Sound Services
>> +@subsubsection Sound Services
>> +
>> +The @code{(gnu services alsa)} module provides an
>> +@code{alsa-service-type} service to generate an ALSA
>> +@file{/etc/asound.conf} configuration file.
>
> Is this file required to get PulseAudio support? I realize I have
> ~/.asoundrc that’s similar to what this new service does, so it may be
> that I simply forgot that things wouldn’t work well without it.
In case of existing ‘~/.asoundrc’ it's not required. But I spent some
time to find a ‘asoundrc’ config and be glad if it was in a Guix manual.
[…]
I also replaced “to” with “by” in
“Whether to use Pulseaudio by configuring ALSA to use PulseAudio.”
^^
sentence in Guix documentation.
[-- Attachment #1.2: gnu: Add sound service. --]
[-- Type: text/x-patch, Size: 6153 bytes --]
From 460fa678823a7cf3d2869a3e4beafb22e5a313fa Mon Sep 17 00:00:00 2001
From: Oleg Pykhalov <go.wigust@gmail.com>
Date: Sat, 28 Apr 2018 13:30:20 +0300
Subject: [PATCH] gnu: Add sound service.
* gnu/services/sound.scm: New file.
* gnu/local.mk (GNU_SYSTEM_MODULES): Add this.
* doc/guix.texi (Sound Services): New chapter.
---
doc/guix.texi | 33 ++++++++++++++++
gnu/local.mk | 1 +
gnu/services/sound.scm | 86 ++++++++++++++++++++++++++++++++++++++++++
3 files changed, 120 insertions(+)
create mode 100644 gnu/services/sound.scm
diff --git a/doc/guix.texi b/doc/guix.texi
index 75886e94b..46855d945 100644
--- a/doc/guix.texi
+++ b/doc/guix.texi
@@ -235,6 +235,7 @@ Services
* X Window:: Graphical display.
* Printing Services:: Local and remote printer support.
* Desktop Services:: D-Bus and desktop services.
+* Sound Services:: ALSA and Pulseaudio services.
* Database Services:: SQL databases, key-value stores, etc.
* Mail Services:: IMAP, POP3, SMTP, and all that.
* Messaging Services:: Messaging services.
@@ -9697,6 +9698,7 @@ declaration.
* X Window:: Graphical display.
* Printing Services:: Local and remote printer support.
* Desktop Services:: D-Bus and desktop services.
+* Sound Services:: ALSA and Pulseaudio services.
* Database Services:: SQL databases, key-value stores, etc.
* Mail Services:: IMAP, POP3, SMTP, and all that.
* Messaging Services:: Messaging services.
@@ -12804,6 +12806,37 @@ bluetooth keyboard or mouse.
Users need to be in the @code{lp} group to access the D-Bus service.
@end deffn
+@node Sound Services
+@subsubsection Sound Services
+
+The @code{(gnu services alsa)} module provides an
+@code{alsa-service-type} service to generate an ALSA
+@file{/etc/asound.conf} configuration file.
+
+@deffn {Scheme Variable} alsa-service-type
+This is the type for the @uref{https://alsa-project.org/, ALSA},
+@command{alsa-configuration} record as in this example:
+
+@example
+(service alsa-service-type)
+@end example
+
+See below for details about @code{alsa-configuration}.
+@end deffn
+
+@deftp {Data Type} alsa-configuration
+Data type representing the configuration for @code{alsa-service}.
+
+@table @asis
+@item @code{pulseaudio?} (default: @var{#t})
+Whether to use Pulseaudio by configuring ALSA to use PulseAudio.
+
+@item @code{extra-options} (default: @var{#f})
+Extra options is a string which will be appended to asound.conf file.
+
+@end table
+@end deftp
+
@node Database Services
@subsubsection Database Services
diff --git a/gnu/local.mk b/gnu/local.mk
index cbf2c6f1b..b649ae008 100644
--- a/gnu/local.mk
+++ b/gnu/local.mk
@@ -480,6 +480,7 @@ GNU_SYSTEM_MODULES = \
%D%/services/networking.scm \
%D%/services/nfs.scm \
%D%/services/shepherd.scm \
+ %D%/services/sound.scm \
%D%/services/herd.scm \
%D%/services/pm.scm \
%D%/services/rsync.scm \
diff --git a/gnu/services/sound.scm b/gnu/services/sound.scm
new file mode 100644
index 000000000..5fe555e8b
--- /dev/null
+++ b/gnu/services/sound.scm
@@ -0,0 +1,86 @@
+;;; GNU Guix --- Functional package management for GNU
+;;; Copyright © 2018 Oleg Pykhalov <go.wigust@gmail.com>
+;;;
+;;; This file is part of GNU Guix.
+;;;
+;;; GNU Guix is free software; you can redistribute it and/or modify it
+;;; under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation; either version 3 of the License, or (at
+;;; your option) any later version.
+;;;
+;;; GNU Guix is distributed in the hope that it will be useful, but
+;;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;;; GNU General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
+
+(define-module (gnu services sound)
+ #:use-module (gnu services base)
+ #:use-module (gnu services configuration)
+ #:use-module (gnu services shepherd)
+ #:use-module (gnu services)
+ #: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 pulseaudio)
+ #:use-module (ice-9 match)
+ #:export (alsa-configuration
+ alsa-service-type))
+
+;;; Commentary:
+;;;
+;;; Sound services.
+;;;
+;;; Code:
+
+\f
+;;;
+;;; ALSA
+;;;
+
+(define-record-type* <alsa-configuration>
+ alsa-configuration make-alsa-configuration alsa-configuration?
+ (pulseaudio? alsa-configuration-pulseaudio? ;boolean
+ (default #t))
+ (extra-options alsa-configuration-extra-options ;string
+ (default "")))
+
+(define (alsa-config-file config)
+ "Return the ALSA configuration file corresponding to CONFIG."
+ (plain-file "asound.conf"
+ (string-append "# Generated by 'alsa-service'.\n\n"
+ (if (alsa-configuration-pulseaudio? config)
+ "# Use PulseAudio by default
+pcm.!default {
+ type pulse
+ fallback \"sysdefault\"
+ hint {
+ show on
+ description \"Default ALSA Output (currently PulseAudio Sound Server)\"
+ }
+}
+
+ctl.!default {
+ type pulse
+ fallback \"sysdefault\"
+}
+"
+ "")
+ (alsa-configuration-extra-options config))))
+
+(define (alsa-etc-service config)
+ (list `("asound.conf" ,(alsa-config-file config))))
+
+(define alsa-service-type
+ (service-type
+ (name 'alsa)
+ (extensions
+ (list (service-extension etc-service-type alsa-etc-service)))
+ (default-value (alsa-configuration))
+ (description "Configure low-level Linux sound support, ALSA.")))
+
+;;; sound.scm ends here
--
2.17.0
[-- Attachment #1.3: Type: text/plain, Size: 7 bytes --]
Oleg.
[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 832 bytes --]
next prev parent reply other threads:[~2018-05-01 9:40 UTC|newest]
Thread overview: 9+ messages / expand[flat|nested] mbox.gz Atom feed top
2018-04-28 10:33 [bug#31297] [PATCH] gnu: Add sound service Oleg Pykhalov
2018-04-30 20:55 ` Ludovic Courtès
2018-05-01 9:39 ` Oleg Pykhalov [this message]
2018-05-01 20:03 ` Ludovic Courtès
2018-05-01 20:04 ` Ludovic Courtès
2018-05-02 11:41 ` Marius Bakke
2018-05-02 12:15 ` Oleg Pykhalov
2018-05-03 20:32 ` Ludovic Courtès
2018-05-11 9:17 ` bug#31297: " Oleg Pykhalov
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://guix.gnu.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87tvrrsoj0.fsf@gmail.com \
--to=go.wigust@gmail.com \
--cc=31297@debbugs.gnu.org \
--cc=ludo@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/guix.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).