~ruther/guix-local

7e90b2fe728a3099d0a0c20351a5a605263dacfd — Ada Stevenson 2 months ago 7edf40a
gnu: audio: Add normalize.

* gnu/packages/audio.scm (normalize): New variable.

Closes: guix/guix#5060

Change-Id: If602005900a410a782460e5eeb756d86858b5885
Reviewed-by: Cayetano Santos <csantosb@inventati.org>
Signed-off-by: Cayetano Santos <csantosb@inventati.org>
1 files changed, 35 insertions(+), 0 deletions(-)

M gnu/packages/audio.scm
M gnu/packages/audio.scm => gnu/packages/audio.scm +35 -0
@@ 6194,6 6194,41 @@ the following features:
")
    (license license:lgpl3+)))

(define-public normalize
  (package
    (name "normalize")
    (version "0.7.7")
    (source
     (origin
       (method url-fetch)
       (uri (string-append
             "http://download.savannah.gnu.org/releases/normalize/normalize-"
             version ".tar.gz"))
       (sha256
        (base32 "1n5khss10vjjp6w69q9qcl4kqfkd0pr555lgqghrchn6rjms4mb0"))))
    (build-system gnu-build-system)
    (arguments
     (list
      #:make-flags
      #~(list "CFLAGS=-g -O2 -Wno-error=implicit-function-declaration")
      #:phases
      #~(modify-phases %standard-phases
          (add-after 'unpack 'patch-shell-path
            (lambda* (#:key inputs #:allow-other-keys)
              (substitute* "test/Makefile.in"
                (("/bin/sh")
                 (search-input-file inputs "/bin/sh"))))))))
    (inputs (list libmad))
    (home-page "https://normalize.nongnu.org/")
    (synopsis "Audio track volume normalizer")
    (description
     "@code{normalize} is an audio track normalizer.
For a collection of tracks with varying volumes, it is able to
make the loudness consistent between them.  This is helpful
when making mixtapes, for example.
It can work with WAV and MP3 files.")
    (license license:gpl2)))

(define-public lv2-speech-denoiser
  (let ((commit "04cfba929630404f8d4f4ca5bac8d9b09a99152f")
        (revision "1"))