06/16: gnu: Add noise-repellent.

[Ricardo Wurmus]

rekado pushed a commit to branch master
in repository guix.

commit cf31d5e1148c57169f4cbbb3650ced7bc407f14c
Author: Ricardo Wurmus <address@hidden>
Date:   Sun Dec 17 12:24:43 2017 +0100

    gnu: Add noise-repellent.
    
    * gnu/packages/audio.scm (noise-repellent): New variable.
---
 gnu/packages/audio.scm | 48 ++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 48 insertions(+)

diff --git a/gnu/packages/audio.scm b/gnu/packages/audio.scm
index b13c2f4..867b7ce 100644
--- a/gnu/packages/audio.scm
+++ b/gnu/packages/audio.scm
@@ -3169,6 +3169,54 @@ customized and extended using either the s7 Scheme 
implementation (included in
 the Snd sources), Ruby, or Forth.")
     (license (license:non-copyleft "file://COPYING"))))
 
+(define-public noise-repellent
+  (package
+    (name "noise-repellent")
+    (version "0.1.4")
+    (source (origin
+              (method git-fetch)
+              (uri (git-reference
+                    (url "https://github.com/lucianodato/noise-repellent.git";)
+                    (commit version)))
+              (file-name (string-append name "-" version "-checkout"))
+              (sha256
+               (base32
+                "0rd3dlmk3vivjmcr6x2x860y0j1d49c2j95j6ny50v184mwvn11j"))))
+    (build-system gnu-build-system)
+    (arguments
+     `(#:make-flags
+       (list "CC=gcc"
+             (string-append "PREFIX=" (assoc-ref %outputs "out")))
+       #:tests? #f ; there are none
+       #:phases
+       (modify-phases %standard-phases
+         (delete 'configure))))
+    (inputs
+     `(("lv2" ,lv2)
+       ("fftwf" ,fftwf)))
+    (native-inputs
+     `(("pkg-config" ,pkg-config)))
+    (home-page "https://github.com/lucianodato/noise-repellent";)
+    (synopsis "LV2 plugin for broadband noise reduction")
+    (description "Noise Repellent is an LV2 plugin to reduce noise.  It has
+the following features:
+
address@hidden
address@hidden Spectral gating and spectral subtraction suppression rule
address@hidden Adaptive and manual noise thresholds estimation
address@hidden Adjustable noise floor
address@hidden Adjustable offset of thresholds to perform over-subtraction
address@hidden Time smoothing and a masking estimation to reduce artifacts
address@hidden Basic onset detector to avoid transients suppression
address@hidden Whitening of the noise floor to mask artifacts and to recover 
higher
+  frequencies
address@hidden Option to listen to the residual signal
address@hidden Soft bypass
address@hidden Noise profile saved with the session
address@hidden enumerate
+")
+    (license license:lgpl3+)))
+
 (define-public cli-visualizer
   (package
     (name "cli-visualizer")