[bug#29535] Status: [PATCH] gnu: Add cli-visualizer.

[Oleg Pykhalov]

>From 83d6e5b19813bc53a638f6fbbc007621a9a58648 Mon Sep 17 00:00:00 2001
From: Oleg Pykhalov <address@hidden>
Date: Sat, 2 Dec 2017 22:03:13 +0300
Subject: [PATCH] gnu: Add cli-visualizer.

* gnu/packages/audio.scm (cli-visualizer): New variable.
---
 gnu/packages/audio.scm | 42 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)

diff --git a/gnu/packages/audio.scm b/gnu/packages/audio.scm
index da9314392..3816cf98f 100644
--- a/gnu/packages/audio.scm
+++ b/gnu/packages/audio.scm
@@ -3087,3 +3087,45 @@ mixers.")
 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 cli-visualizer
+  (package
+    (name "cli-visualizer")
+    (version "1.6")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "https://github.com/dpayne/cli-visualizer/archive/";
+                           version ".tar.gz"))
+       (file-name (string-append name "-" version ".tar.gz"))
+       (sha256
+        (base32
+         "07zkm87f2fr8kc6531zrkya7q81sdanm6813y2f54mg13g41y6hi"))))
+    (build-system gnu-build-system)
+    (inputs
+     `(("fftw"       ,fftw)
+       ("ncurses"    ,ncurses)
+       ("pulseaudio" ,pulseaudio)
+       ("which"      ,which)))
+    (arguments
+     '(#:tests? #f ; no tests
+       #:make-flags
+       (list (string-append "PREFIX=" %output "/bin/") "ENABLE_PULSE=1")
+       #:phases
+       (modify-phases %standard-phases
+         (add-after 'unpack 'remove-sudo
+           (lambda _ (substitute* "install.sh" (("sudo") ""))))
+         (add-before 'install 'make-prefix
+           (lambda _ (mkdir-p (string-append (assoc-ref %outputs "out") 
"/bin"))))
+         (add-after 'install 'data
+           (lambda _
+             (for-each (lambda (file)
+                         (install-file file
+                                       (string-append (assoc-ref %outputs 
"out")
+                                                      "/share/doc")))
+                       (find-files "examples")))))))
+    (home-page "https://github.com/dpayne/cli-visualizer/";)
+    (synopsis "CLI audio visualizer")
+    (description "@code{cli-visualizer} provides a command line audio
+visualizer for MPD, Alsa and Pulseaudio.")
+    (license license:expat)))
-- 
2.15.0