ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: Add alsa-utils.

Browse source 
* gnu/packages/linux.scm (alsa-utils): New variable.
This commit is contained in:
Ludovic Courtès 2013-10-06 22:36:22 +02:00
parent ae0c12023d
commit 17b293a09c
1 changed files with 44 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

44
gnu/packages/linux.scm
View file

@ -32,7 +32,9 @@ (define-module (gnu packages linux)
#:use-module (gnu packages algebra) #:use-module (gnu packages algebra)
#:use-module ((gnu packages gettext) #:use-module ((gnu packages gettext)
#:renamer (symbol-prefix-proc 'g:)) #:renamer (symbol-prefix-proc 'g:))
#:use-module (gnu packages pulseaudio)
#:use-module (gnu packages attr) #:use-module (gnu packages attr)
#:use-module (gnu packages xml)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix build-system gnu)) #:use-module (guix build-system gnu))
@ -477,6 +479,48 @@ (define-public alsa-lib
MIDI functionality to the Linux-based operating system.") MIDI functionality to the Linux-based operating system.")
(license lgpl2.1+))) (license lgpl2.1+)))
(define-public alsa-utils
(package
(name "alsa-utils")
(version "1.0.27.2")
(source (origin
(method url-fetch)
(uri (string-append "ftp://ftp.alsa-project.org/pub/utils/alsa-utils-"
version ".tar.bz2"))
(sha256
(base32
"1sjjngnq50jv5ilwsb4zys6smifni3bd6fn28gbnhfrg14wsrgq2"))))
(build-system gnu-build-system)
(arguments
;; XXX: Disable man page creation until we have DocBook.
'(#:configure-flags (list "--disable-xmlto"
(string-append "--with-udev-rules-dir="
(assoc-ref %outputs "out")
"/lib/udev/rules.d"))
#:phases (alist-cons-before
'install 'pre-install
(lambda _
;; Don't try to mkdir /var/lib/alsa.
(substitute* "Makefile"
(("\\$\\(MKDIR_P\\) .*ASOUND_STATE_DIR.*")
"true\n")))
%standard-phases)))
(inputs
`(("libsamplerate" ,libsamplerate)
("ncurses" ,ncurses)
("alsa-lib" ,alsa-lib)
("xmlto" ,xmlto)
("gettext" ,g:gettext)))
(home-page "http://www.alsa-project.org/")
(synopsis "Utilities for the Advanced Linux Sound Architecture (ALSA)")
(description
"The Advanced Linux Sound Architecture (ALSA) provides audio and
MIDI functionality to the Linux-based operating system.")
;; This is mostly GPLv2+ but a few files such as 'alsactl.c' are
;; GPLv2-only.
(license gpl2)))
(define-public iptables (define-public iptables
(package (package
(name "iptables") (name "iptables")