guix-patches
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Oleg Pykhalov
Subject: [bug#29535] [PATCH] gnu: Add cli-visualizer.
Date: Sat, 02 Dec 2017 22:05:36 +0300

>From 54a00afb4e628019dbfe3f9b7f09a553dab3cfb9 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 | 40 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)

diff --git a/gnu/packages/audio.scm b/gnu/packages/audio.scm
index da9314392..6ca250f0c 100644
--- a/gnu/packages/audio.scm
+++ b/gnu/packages/audio.scm
@@ -3087,3 +3087,43 @@ 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 "/share/doc"))
+                          (list "asound_alsa.conf" "asound_alsa_with_dmix.conf"
+                                "basic_colors" "blue" "config" "rainbow")))))))
+    (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






reply via email to

[Prev in Thread] Current Thread [Next in Thread]