;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2015, 2016, 2017 Ricardo Wurmus <rekado@elephly.net>
+;;; Copyright © 2015, 2016, 2017, 2018 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2015 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com>
;;; Copyright © 2015 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2015 Alex Kost <alezost@gmail.com>
;;; Copyright © 2015, 2016 Mark H Weaver <mhw@netris.org>
-;;; Copyright © 2016, 2017 Efraim Flashner <efraim@flashner.co.il>
+;;; Copyright © 2016, 2017, 2018 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016, 2017 Alex Griffin <a@ajgrf.com>
-;;; Copyright © 2016 ng0 <ng0@we.make.ritual.n0.is>
+;;; Copyright © 2016 Nils Gillmann <ng0@n0.is>
;;; Copyright © 2016 Lukas Gradl <lgradl@openmailbox.org>
-;;; Copyright © 2016 Tobias Geerinckx-Rice <me@tobias.gr>
+;;; Copyright © 2016, 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr>
+;;; Copyright © 2018 Oleg Pykhalov <go.wigust@gmail.com>
+;;; Copyright © 2018 okapi <okapi@firemail.cc>
+;;; Copyright © 2018 Maxim Cournoyer <maxim.cournoyer@gmail.com>
+;;; Copyright © 2018 Clément Lassieur <clement@lassieur.org>
;;;
;;; This file is part of GNU Guix.
;;;
#:use-module (gnu packages gnome)
#:use-module (gnu packages gnunet) ; libmicrohttpd
#:use-module (gnu packages gperf)
+ #:use-module (gnu packages icu4c)
#:use-module (gnu packages image)
#:use-module (gnu packages ncurses)
#:use-module (gnu packages qt)
#:use-module (gnu packages python)
#:use-module (gnu packages rdf)
#:use-module (gnu packages readline)
+ #:use-module (gnu packages serialization)
#:use-module (gnu packages telephony)
#:use-module (gnu packages tls)
#:use-module (gnu packages video)
"libs/ardour/revision.cc"
(lambda (port)
(format port ,(string-append "#include \"ardour/revision.h\"
-namespace ARDOUR { const char* revision = \"" version "\" ; }")))))
+namespace ARDOUR { const char* revision = \"" version "\" ; }"))
+ #t)))
(sha256
(base32
"0mla5lm51ryikc2rrk53max2m7a5ds6i1ai921l2h95wrha45nkr"))
(define-public audacity
(package
(name "audacity")
- (version "2.2.0")
+ (version "2.2.2")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/audacity/audacity/archive"
"/Audacity-" version ".tar.gz"))
(sha256
- (base32 "09xpr4bjnainz1xmc35v3qg3dadjr9wv8bmn1p4y91aqyihnhjry"))
+ (base32
+ "18q7i77ynihx7xp45lz2lv0k0wrh6736pcrivlpwrxjgbvyqx7km"))
(patches (search-patches "audacity-build-with-system-portaudio.patch"))
(modules '((guix build utils)))
(snippet
(modules '((guix build utils)))
(snippet
;; remove prebuilt binaries
- '(delete-file-recursively "linux_32bit"))))
+ '(begin
+ (delete-file-recursively "linux_32bit")
+ #t))))
(build-system gnu-build-system)
(arguments
`(#:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
(define-public infamous-plugins
(package
(name "infamous-plugins")
- (version "0.2.02")
+ (version "0.2.04")
(source (origin
(method url-fetch)
(uri (string-append "https://github.com/ssj71/infamousPlugins/"
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32
- "0qm3ak07vc1l3f5c3c2lq9gkfknlxwn8ks03cysw1pk8hj7dwnv6"))))
+ "1n6rhqsmvad7692w2h01niw5gqg5yk7a09wxl5ivs77zyp93vf7z"))))
(build-system cmake-build-system)
(arguments
- `(#:tests? #f ; There are no tests
+ `(#:tests? #f ; there are no tests
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'remove-compiler-flags
(lambda _
- (substitute* '("src/casynth/CMakeLists.txt"
- "src/cheapdist/CMakeLists.txt"
- "src/duffer/CMakeLists.txt"
- "src/envfollower/CMakeLists.txt"
- "src/ewham/CMakeLists.txt"
- "src/hip2b/CMakeLists.txt"
- "src/lushlife/CMakeLists.txt"
- "src/powercut/CMakeLists.txt"
- "src/powerup/CMakeLists.txt"
- "src/stuck/CMakeLists.txt")
- (("-msse2 -mfpmath=sse") ""))
+ (substitute* (find-files "." "CMakeLists.txt")
+ (("-msse2 -mfpmath=sse") ""))
#t)))))
(inputs
`(("cairo" ,cairo)
("zita-resampler" ,zita-resampler)))
(native-inputs
`(("pkg-config" ,pkg-config)))
- (home-page "http://ssj71.github.io/infamousPlugins")
+ (home-page "https://ssj71.github.io/infamousPlugins")
(synopsis "LV2 plugins for live use")
(description
"The infamous plugins are a collection of LV2 audio plugins for live
(inputs
`(("alsa-lib" ,alsa-lib)
("fftw" ,fftw)))
- (home-page "http://kokkinizita.linuxaudio.org")
+ (home-page "https://kokkinizita.linuxaudio.org")
(synopsis "C++ wrapper around the ALSA API")
(description
"clalsadrv is a C++ wrapper around the ALSA API simplifying access to
(("/usr/bin/install") (which "install"))
(("/bin/rm") "#"))
#t)))))
- (home-page "http://kokkinizita.linuxaudio.org")
+ (home-page "https://kokkinizita.linuxaudio.org")
(synopsis "LADSPA ambisonics plugins")
(description
"The AMB plugins are a set of LADSPA ambisonics plugins, mainly to be
(substitute* "Makefile"
(("/usr") (assoc-ref outputs "out")))
#t)))))
- (home-page "http://kokkinizita.linuxaudio.org")
+ (home-page "https://kokkinizita.linuxaudio.org")
(synopsis "Chorus, phaser, and vintage high-pass and low-pass filters")
(description
"This package provides various LADSPA plugins. @code{cs_chorus} and
(substitute* "Makefile"
(("/usr") (assoc-ref outputs "out")))
#t)))))
- (home-page "http://kokkinizita.linuxaudio.org")
+ (home-page "https://kokkinizita.linuxaudio.org")
(synopsis "LADSPA reverb plugin")
(description
"This package provides a stereo reverb LADSPA plugin based on the
(substitute* "Makefile"
(("/usr") (assoc-ref outputs "out")))
#t)))))
- (home-page "http://kokkinizita.linuxaudio.org")
+ (home-page "https://kokkinizita.linuxaudio.org")
(synopsis "LADSPA four-band parametric equalizer plugin")
(description
"This package provides a LADSPA plugin for a four-band parametric
(substitute* "Makefile"
(("/usr") (assoc-ref outputs "out")))
#t)))))
- (home-page "http://kokkinizita.linuxaudio.org")
+ (home-page "https://kokkinizita.linuxaudio.org")
(synopsis "LADSPA stereo width plugin")
(description
"This package provides a LADSPA plugin to manipulate the stereo width of
(("/usr") (assoc-ref outputs "out"))
(("/bin/cp") (which "cp")))
#t)))))
- (home-page "http://kokkinizita.linuxaudio.org")
+ (home-page "https://kokkinizita.linuxaudio.org")
(synopsis "LADSPA plugin for synthesizer oscillators")
(description
"The @code{blvco} LADSPA plugin provides three anti-aliased oscillators:
(substitute* "Makefile"
(("/usr") (assoc-ref outputs "out")))
#t)))))
- (home-page "http://kokkinizita.linuxaudio.org")
+ (home-page "https://kokkinizita.linuxaudio.org")
(synopsis "LADSPA Autowah effect plugin")
(description
"This package provides a LADSPA plugin for a Wah effect with envelope
(substitute* "Makefile"
(("/usr") (assoc-ref outputs "out")))
#t)))))
- (home-page "http://kokkinizita.linuxaudio.org")
+ (home-page "https://kokkinizita.linuxaudio.org")
(synopsis "LADSPA stereo reverb plugin")
(description
"This package provides a LADSPA plugin for a stereo reverb effect.")
(define-public fluidsynth
(package
(name "fluidsynth")
- (version "1.1.8")
+ (version "1.1.11")
(source (origin
(method git-fetch)
(uri (git-reference
(file-name (string-append name "-" version "-checkout"))
(sha256
(base32
- "12q7hv0zvgylsdj1ipssv5zr7ap2y410dxsd63dz22y05fa2hwwd"))))
+ "0n75jq3xgq46hfmjkaaxz3gic77shs4fzajq40c8gk043i84xbdh"))))
(build-system cmake-build-system)
(arguments
- '(#:tests? #f ; no check phase
+ '(#:tests? #f ; no check target
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'fix-libdir
(lambda _
+ ;; Install libraries to /lib, not /lib64.
(substitute* "CMakeLists.txt"
(("LIB_SUFFIX \\$\\{_init_lib_suffix\\}")
"LIB_SUFFIX \"\""))
(arguments
'(#:phases
(modify-phases %standard-phases
- (add-after 'unpack 'bootstrap
+ (replace 'bootstrap
(lambda _
(substitute* "bootstrap" (("\r\n") "\n"))
- (zero? (system* "sh" "bootstrap")))))))
+ (invoke "sh" "bootstrap"))))))
(home-page "http://www.audiocoding.com/faad2.html")
(synopsis "MPEG-4 and MPEG-2 AAC decoder")
(description
(string-map (lambda (c)
(if (char=? c #\.) #\- c))
version)))))
+ (file-name (string-append "faust-" version "-checkout"))
(sha256
(base32
"06km0ygwxxwgw1lqldccqidxhmjfz8ck0wnbd95qk5sg8sbpc068"))))
(setenv "PATH" (string-append
(assoc-ref %build-inputs "bzip2") "/bin:"
(assoc-ref %build-inputs "tar") "/bin"))
- (system* "tar" "xvf" (assoc-ref %build-inputs "source"))
+ (invoke "tar" "xvf" (assoc-ref %build-inputs "source"))
(chdir "freepats")
;; Use absolute pattern references
(substitute* "freepats.cfg"
(("Tone_000") (string-append out "/Tone_000"))
(("Drum_000") (string-append out "/Drum_000")))
(mkdir-p out)
- (copy-recursively "." out)))))
+ (copy-recursively "." out)
+ #t))))
(native-inputs
`(("tar" ,tar)
("bzip2" ,bzip2)))
(define-public jack-2
(package (inherit jack-1)
(name "jack2")
- (version "1.9.11-RC1")
+ (version "1.9.12")
(source (origin
(method url-fetch)
(uri (string-append "https://github.com/jackaudio/jack2/releases/"
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32
- "0ks72xxv8qrpwjc2ksr74rnp178h62g5vdplb2rn4vhkw86yw3kk"))))
+ "0crf4y9a5j9miw8r5ji4l3w5w0y2frrf7xyfsfdgacnw6vwy5vyy"))))
(build-system waf-build-system)
(arguments
`(#:python ,python-2
"--alsa")
#:phases
(modify-phases %standard-phases
- (add-after 'unpack 'patch-fast_rand
- (lambda _
- (substitute* "common/memops.c"
- ;; Fixed in upstream commit d3c8e2d8d78899fba40a3e677ed4dbe388d82269
- (("^inline unsigned int fast_rand" line)
- (string-append "static " line))
- ;; Fixed in upstream commit 0279a2d65a36d1378f5bab56d95bf9e99cc8cefb
- ((" 96314165") " 196314165"))
- #t))
(add-before
'configure 'set-linkflags
(lambda _
("libxml2" ,libxml2)))
(native-inputs
`(("pkg-config" ,pkg-config)))
- (home-page "http://www.nongnu.org/lash/")
+ (home-page "https://www.nongnu.org/lash/")
(synopsis "Audio application session manager")
(description
"LASH is a session management system for audio applications. It allows
(define-public liblo
(package
(name "liblo")
- (version "0.28")
+ (version "0.29")
(source (origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/liblo/liblo/" version
"/liblo-" version ".tar.gz"))
(sha256
(base32
- "02drgnpirvl2ihvzgsmn02agr5sj3vipzzw9vma56qlkgfvak56s"))))
+ "0sn0ckc1d0845mhsaa62wf7f9v0c0ykiq796a30ja5096kib9qdc"))))
(build-system gnu-build-system)
(arguments
`(;; liblo test FAILED
(synopsis "Implementation of the Open Sound Control protocol")
(description
"liblo is a lightweight library that provides an easy to use
-implementation of the Open Sound Control (OSC) protocol.")
+implementation of the Open Sound Control (@dfn{OSC}) protocol.")
(license license:lgpl2.1+)))
+(define-public python-pyaudio
+ (package
+ (name "python-pyaudio")
+ (version "0.2.11")
+ (source
+ (origin
+ (method url-fetch)
+ (uri
+ (string-append
+ "https://pypi.python.org/packages/ab/42/"
+ "b4f04721c5c5bfc196ce156b3c768998ef8c0ae3654ed29ea5020c749a6b"
+ "/PyAudio-" version ".tar.gz"))
+ (sha256
+ (base32
+ "0x7vdsigm7xgvyg3shd3lj113m8zqj2pxmrgdyj66kmnw0qdxgwk"))))
+ (build-system python-build-system)
+ (inputs
+ `(("portaudio" ,portaudio)))
+ (home-page "https://people.csail.mit.edu/hubert/pyaudio/")
+ (synopsis "Bindings for PortAudio v19")
+ (description "This package provides bindings for PortAudio v19, the
+cross-platform audio input/output stream library.")
+ (license license:expat)))
+
+(define-public python2-pyaudio
+ (package-with-python2 python-pyaudio))
+
(define-public python-pyliblo
(package
(name "python-pyliblo")
(lambda* (#:key outputs #:allow-other-keys)
(setenv "LDFLAGS"
(string-append "-Wl,-rpath="
- (assoc-ref outputs "out") "/lib")))))))
+ (assoc-ref outputs "out") "/lib"))
+ #t)))))
;; required by lilv-0.pc
(propagated-inputs
`(("serd" ,serd)
(uri (git-reference
(url "http://lv2plug.in/git/lv2.git")
(commit commit)))
+ (file-name (git-file-name name version))
(sha256
(base32
"1gp2rd99dfmpibvpixrqn115mrhybzf3if3h8bssf6siyi13f29r")))))))
(uri (git-reference
(url "http://git.elephly.net/software/lv2-mdametapiano.git")
(commit version)))
+ (file-name (git-file-name name version))
(sha256
(base32
"07lywf6lpfpndg3i9w752mmlg2hgn1bwp23h8b0mdj6awh67abqd"))))
(define-public qjackctl
(package
(name "qjackctl")
- (version "0.4.5")
+ (version "0.5.1")
(source (origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/qjackctl/qjackctl/"
version "/qjackctl-" version ".tar.gz"))
(sha256
(base32
- "1dsavjfzz5bpzc80mvfs940w9f9f47cf4r9cqxnaqrl4xilsa3f5"))))
+ "0jw1s4qh4qjxnysddjv3j2lchwlslj9p4iisv9i89d3m7pf1svs4"))))
(build-system gnu-build-system)
(arguments
'(#:tests? #f)) ; no check target
(inputs
`(("jack" ,jack-1)
+ ("alsa-lib" ,alsa-lib)
("qtbase" ,qtbase)
("qtx11extras" ,qtx11extras)))
(native-inputs
(define-public qjackrcd
(package
(name "qjackrcd")
- (version "1.2.0")
+ (version "1.2.2")
(source (origin
- (method url-fetch)
- (uri (string-append "mirror://sourceforge/qjackrcd/stable/"
- "qjackrcd-" version ".tar.gz"))
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/orouits/qjackrcd.git")
+ (commit (string-append "v" version))))
+ (file-name (git-file-name name version))
(sha256
(base32
- "0xpnhzbwg5c60n5dhwln5p7qm191nvmf23la88zxfqx1jv0mmxxb"))))
+ "1l5iq2mkqd4gn9yr8xbh9qlpp1clcflazychl4vhdbz0bzq4c6al"))))
(build-system gnu-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(replace 'configure
(lambda* (#:key outputs #:allow-other-keys)
- (zero? (system* "qmake"
- (string-append "PREFIX="
- (assoc-ref outputs "out")))))))))
+ (invoke "qmake"
+ (string-append "PREFIX="
+ (assoc-ref outputs "out"))))))))
(native-inputs
`(("qtbase" ,qtbase))) ; for qmake
(inputs
background file post-processing.")
(license license:gpl2+)))
+(define-public supercollider
+ (package
+ (name "supercollider")
+ (version "3.9.2")
+ (source (origin
+ (method url-fetch)
+ (uri (string-append
+ "https://github.com/supercollider/supercollider"
+ "/releases/download/Version-" version
+ "/SuperCollider-" version "-Source-linux.tar.bz2"))
+ (sha256
+ (base32
+ "0d3cb6dw8jz7ijriqn3rlwin24gffczp69hl17pzxj1d5w57yj44"))))
+ (build-system cmake-build-system)
+ (arguments
+ `(#:configure-flags '("-DSYSTEM_BOOST=on" "-DSYSTEM_YAMLCPP=on"
+ "-DSC_QT=off"
+ "-DSC_EL=off") ;scel is packaged individually as
+ ;emacs-scel.
+ #:modules ((guix build utils)
+ (guix build cmake-build-system)
+ (ice-9 ftw))
+ #:phases
+ (modify-phases %standard-phases
+ (add-after 'unpack 'rm-bundled-libs
+ (lambda _
+ ;; The build system doesn't allow us to unbundle the following
+ ;; libraries. hidapi is also heavily patched and upstream not
+ ;; actively maintained.
+ (let ((keep-dirs '("nova-simd" "nova-tt" "hidapi" "TLSF-2.4.6"
+ "oscpack_1_1_0" "." "..")))
+ (with-directory-excursion "./external_libraries"
+ (for-each
+ delete-file-recursively
+ (scandir "."
+ (lambda (x)
+ (and (eq? (stat:type (stat x)) 'directory)
+ (not (member (basename x) keep-dirs))))))))
+ #t))
+ ;; Some tests are broken (see:
+ ;; https://github.com/supercollider/supercollider/issues/3555 and
+ ;; https://github.com/supercollider/supercollider/issues/1736
+ (add-after 'rm-bundled-libs 'disable-broken-tests
+ (lambda _
+ (substitute* "testsuite/supernova/CMakeLists.txt"
+ (("server_test.cpp")
+ "")
+ (("perf_counter_test.cpp")
+ ""))
+ (delete-file "testsuite/supernova/server_test.cpp")
+ (delete-file "testsuite/supernova/perf_counter_test.cpp")
+ (substitute* "testsuite/CMakeLists.txt"
+ (("add_subdirectory\\(sclang\\)")
+ ""))
+ (delete-file "testsuite/sclang/CMakeLists.txt")
+ #t))
+ ;; TODO: Remove after version 3.9.2 is released
+ ;; (see: https://github.com/supercollider/supercollider/pull/3558).
+ (add-after 'disable-broken-tests 'apply-system-yaml-cpp-fix
+ (lambda _
+ ;; cmake: correctly include yaml-cpp (commit f82cec5ae).
+ (substitute* "editors/sc-ide/CMakeLists.txt"
+ (("external_libraries/boost\\)$")
+ "external_libraries/boost)
+include_directories(${YAMLCPP_INCLUDE_DIR})")
+ ((" yaml")
+ " ${YAMLCPP_LIBRARY}"))
+ ;; set YAMLCPP_LIBRARY and YAMLCPP_INCLUDE_DIR if not using
+ ;; system (commit 031922987).
+ (substitute* "external_libraries/CMakeLists.txt"
+ (("set_property\\( TARGET yaml PROPERTY FOLDER 3rdparty \\)")
+ "set_property( TARGET yaml PROPERTY FOLDER 3rdparty )
+set(YAMLCPP_LIBRARY yaml)
+set(YAMLCPP_INCLUDE_DIR ${CMAKE_SOURCE_DIR}/\
+external_libraries/yaml-cpp/include)"))
+ #t)))))
+ (native-inputs
+ `(("pkg-config" ,pkg-config)))
+ (inputs
+ `(("jack" ,jack-1)
+ ("libsndfile" ,libsndfile)
+ ("fftw" ,fftw)
+ ("libxt" ,libxt)
+ ("readline" ,readline) ;readline support for sclang's CLI
+ ("alsa" ,alsa-lib) ;for sclang's MIDI interface
+ ("eudev" ,eudev) ;for user interactions with devices
+ ("avahi" ,avahi) ;zeroconf service discovery support
+ ("icu4c" ,icu4c)
+ ("boost" ,boost)
+ ("boost-sync" ,boost-sync)
+ ("yaml-cpp" ,yaml-cpp)))
+ (home-page "https://github.com/supercollider/supercollider")
+ (synopsis "Synthesis engine and programming language")
+ (description "SuperCollider is a synthesis engine (@code{scsynth} or
+@code{supernova}) and programming language (@code{sclang}). It can be used
+for experimenting with sound synthesis and algorithmic composition.
+
+SuperCollider requires jackd to be installed in your user profile and your
+user must be allowed to access the realtime features of the kernel. Search
+for \"realtime\" in the index of the Guix manual to learn how to achieve this
+using GuixSD.")
+ (license license:gpl2+)))
+
(define-public raul
(package
(name "raul")
(string-append "https://bitbucket.org/breakfastquay/rubberband/get/v"
version
".tar.bz2"))
+ (file-name (string-append name "-" version ".tar.bz2"))
(sha256
(base32
"05amrbrxx0da3w7m237q51799r8xgs4ffqabi2qv06hq8dpcj386"))))
(method url-fetch)
(uri (string-append "http://www.wavpack.com/"
name "-" version ".tar.bz2"))
+ (patches (search-patches "wavpack-CVE-2018-6767.patch"
+ "wavpack-CVE-2018-7253.patch"
+ "wavpack-CVE-2018-7254.patch"))
(sha256
(base32
"0i19c6krc0p9krwrqy9s5xahaafigqzxcn31piidmlaqadyn4f8r"))))
("automake" ,automake)
("libtool" ,libtool)
("file" ,file)))
- (arguments
- '(#:phases
- (modify-phases %standard-phases
- (add-after 'unpack 'bootstrap
- (lambda _
- (zero? (system* "sh" "bootstrap")))))))
(home-page "http://www.surina.net/soundtouch/")
(synopsis
"Audio processing library for changing tempo, pitch and playback rate")
(define-public soxr
(package
(name "soxr")
- (version "0.1.2")
+ (version "0.1.3")
(source
(origin
(method url-fetch)
(string-append "mirror://sourceforge/soxr/soxr-" version
"-Source.tar.xz"))
(sha256
- (base32 "0xf2w3piwz9gfr1xqyrj4k685q5dy53kq3igv663i4f4y4sg9rjl"))))
+ (base32 "12aql6svkplxq5fjycar18863hcq84c5kx8g6f4rj0lcvigw24di"))))
(build-system cmake-build-system)
(arguments '(#:tests? #f)) ;no 'check' target
(home-page "https://sourceforge.net/p/soxr/wiki/Home/")
(define-public qsynth
(package
(name "qsynth")
- (version "0.4.4")
+ (version "0.5.1")
(source
(origin
(method url-fetch)
"/qsynth-" version ".tar.gz"))
(sha256
(base32
- "0qhfnikx3xcllkvs60kj6vcf2rwwzh31y41qkk6kwfhzgd219y8f"))))
+ "0kpk1rnhbifbvm4xvw8i0d4ksk78pf505qvg08k89kqkg32494ap"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; no "check" phase
version ".tar.bz2"))
(snippet
;; Don't optimize for a specific processor architecture.
- '(substitute* "libs/Makefile"
- (("^CXXFLAGS \\+= -march=native") "")))
+ '(begin
+ (substitute* "libs/Makefile"
+ (("^CXXFLAGS \\+= -march=native") ""))
+ #t))
(modules '((guix build utils)))
(sha256
(base32
;; no configure script
(delete 'configure))))
(inputs `(("fftwf" ,fftwf)))
- (home-page "http://kokkinizita.linuxaudio.org")
+ (home-page "https://kokkinizita.linuxaudio.org")
(synopsis "Fast, partitioned convolution engine library")
(description
"Zita convolver is a C++ library providing a real-time convolution
version ".tar.bz2"))
(snippet
;; Don't optimize for a specific processor architecture.
- '(substitute* '("apps/Makefile" "libs/Makefile")
- (("^CXXFLAGS \\+= -march=native") "")))
+ '(begin
+ (substitute* '("apps/Makefile" "libs/Makefile")
+ (("^CXXFLAGS \\+= -march=native") ""))
+ #t))
(modules '((guix build utils)))
(sha256
(base32
"/lib/libzita-resampler.so.1"))))
;; no configure script
(delete 'configure))))
- (home-page "http://kokkinizita.linuxaudio.org/linuxaudio/zita-resampler/resampler.html")
+ (home-page "https://kokkinizita.linuxaudio.org/linuxaudio/zita-resampler/resampler.html")
(synopsis "C++ library for resampling audio signals")
(description
"Libzita-resampler is a C++ library for resampling audio signals. It is
(inputs
`(("alsa-lib" ,alsa-lib)
("fftw" ,fftw)))
- (home-page "http://kokkinizita.linuxaudio.org")
+ (home-page "https://kokkinizita.linuxaudio.org")
(synopsis "C++ wrapper around the ALSA API")
(description
"Zita-alsa-pcmi is a C++ wrapper around the ALSA API. It provides easy
"01xi3rvdmil9nawsha04iagjylqr1l9v9vlzk99scs8c207l58i4"))))
(build-system gnu-build-system)
;; The source tarball is not bootstrapped.
- (arguments
- `(#:phases
- (modify-phases %standard-phases
- (add-after 'unpack 'bootstrap
- (lambda _ (zero? (system* "autoreconf" "-vfi")))))))
- ;; Bootstrapping tools
(native-inputs
`(("autoconf" ,autoconf)
("automake" ,automake)
(define-public gsm
(package
(name "gsm")
- (version "1.0.14")
+ (version "1.0.18")
(source
(origin
(method url-fetch)
"-" version ".tar.gz"))
(sha256
(base32
- "0b1mx69jq88wva3wk0hi6fcl5a52qhnq2f9p3f3jdh5k61ma252q"))))
+ "041amvpz8cvxykl3pwqldrzxligmmzcg8ncdnxbg32rlqf3q1xh4"))))
(build-system gnu-build-system)
(arguments
`(#:test-target "tst"
(mkdir-p (string-append out "/include/gsm"))
(copy-recursively "inc"
(string-append out "/include/gsm")))))
- (delete 'configure))))
+ (delete 'configure)))) ; no configure script
(synopsis "GSM 06.10 lossy speech compression library")
(description "This C library provides an encoder and a decoder for the GSM
06.10 RPE-LTP lossy speech compression algorithm.")
(base32
"1qinf41wl2ihx54zmmhanycihwjkn7dn1cicq6pp4rqbiv79b95x"))))
(build-system gnu-build-system)
- (arguments
- `(#:phases
- (modify-phases %standard-phases
- (add-after 'unpack 'bootstrap
- (lambda _
- (zero? (system* "autoreconf" "-vif")))))))
(native-inputs
`(("autoconf" ,autoconf)
("automake" ,automake)
transforms (FFTs) of the sound being played, as well as other graphical
representations.")
(license license:expat)))
+
+(define-public cava
+ (package
+ (name "cava")
+ (version "0.6.1")
+ (source (origin
+ (method url-fetch)
+ (uri (string-append
+ "https://github.com/karlstav/cava/archive/"
+ version ".tar.gz"))
+ (file-name (string-append name "-" version ".tar.gz"))
+ (sha256
+ (base32
+ "13d72swnjs894llf0paandmhf1lf90dz6ygkcdw4bv84wzkq1f4q"))))
+ (build-system gnu-build-system)
+ (native-inputs
+ `(("autoconf" ,autoconf)
+ ("automake" ,automake)
+ ("libtool" ,libtool)))
+ (inputs
+ `(("fftw" ,fftw)
+ ("ncurses" ,ncurses)
+ ("pulseaudio" ,pulseaudio)))
+ (arguments
+ `(#:configure-flags
+ (list (string-append "PREFIX=" %output)
+ (string-append "FONT_DIR=" %output "/usr/share/consolefonts"))
+ #:make-flags
+ (let ((lib (string-append %output "/lib")))
+ (list (string-append "cava_LDFLAGS = -L" lib " -Wl,-rpath " lib)))
+ #:phases
+ (modify-phases %standard-phases
+ (replace 'bootstrap
+ (lambda* (#:key outputs #:allow-other-keys)
+ (setenv "HOME" (getcwd))
+ (invoke "sh" "autogen.sh")))
+ (add-before 'build 'make-cava-ldflags
+ (lambda* (#:key outputs #:allow-other-keys)
+ (mkdir-p (string-append (assoc-ref outputs "out") "/lib"))))
+ (add-after 'install 'data
+ (lambda* (#:key outputs #:allow-other-keys)
+ (for-each (lambda (file)
+ (install-file file
+ (string-append (assoc-ref outputs "out")
+ "/share/doc/examples")))
+ (find-files "example_files")))))))
+ (home-page "https://karlstav.github.io/cava/")
+ (synopsis "Console audio visualizer for ALSA, MPD, and PulseAudio")
+ (description "C.A.V.A. is a bar audio spectrum visualizer for the terminal
+using ALSA, MPD, PulseAudio, or a FIFO buffer as its input.")
+ (license license:expat)))
+
+(define-public fluid-3
+ (let ((commit "871c8ce2002e8b3c198f532fdb4fbcce7914f951"))
+ (package
+ (name "fluid-3")
+ (version "2.1")
+ (source
+ (origin
+ (method url-fetch)
+ ;; Only one file is required, but the release bundles the whole
+ ;; software which is 50MiB as tar and 200MiB unpacked. The website
+ ;; directly links the soundfont release to the github file download.
+ (uri (string-append "https://github.com/musescore/MuseScore/raw/"
+ commit "/share/sound/FluidR3Mono_GM.sf3"))
+ (file-name (string-append name "-" version ".sf3"))
+ (sha256
+ (base32
+ "1hjfg5i15bw9279007xs92zsggjgn4s4k9pc00s851l3kvc6dkfg"))))
+ (build-system trivial-build-system)
+ (arguments
+ `(#:modules ((guix build utils))
+ #:builder
+ (begin
+ (use-modules (guix build utils))
+ (let ((file (assoc-ref %build-inputs "source"))
+ (out (string-append %output "/share/soundfonts")))
+ (mkdir-p out)
+ (copy-file file (string-append out "/FluidR3Mono_GM.sf3"))
+ #t))))
+ (home-page "https://github.com/musescore/MuseScore/tree/master/share/sound")
+ (synopsis "Pro-quality GM soundfont")
+ (description "Fluid-3 is Frank Wen's pro-quality GM soundfont.")
+ (license license:expat))))