From mboxrd@z Thu Jan 1 00:00:00 1970 From: Ricardo Wurmus Subject: [PATCH 1/3] gnu: Add mod-host. Date: Fri, 14 Oct 2016 23:52:14 +0200 Message-ID: <20161014215216.14787-1-rekado@elephly.net> Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:56812) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bvAQJ-00050Q-TM for guix-devel@gnu.org; Fri, 14 Oct 2016 17:53:53 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1bvAQF-0002OV-OT for guix-devel@gnu.org; Fri, 14 Oct 2016 17:53:50 -0400 Received: from sender163-mail.zoho.com ([74.201.84.163]:21406) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1bvAQF-0002Nv-EV for guix-devel@gnu.org; Fri, 14 Oct 2016 17:53:47 -0400 List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: "Guix-devel" To: guix-devel@gnu.org * gnu/packages/music.scm (mod-host): New variable. --- gnu/packages/music.scm | 49 +++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 49 insertions(+) diff --git a/gnu/packages/music.scm b/gnu/packages/music.scm index d5805b0..ff2ee64 100644 --- a/gnu/packages/music.scm +++ b/gnu/packages/music.scm @@ -1646,6 +1646,55 @@ follows a traditional multi-track tape recorder control paradigm.") analogue-like user interface.") (license license:gpl2+))) +(define-public mod-host + ;; The last release was in 2014 but since then more than 140 commits have + ;; been made. + (let ((commit "72aca771e3a4e3889641b9bab84985586c9bb926") + (revision "1")) + (package + (name "mod-host") + (version (string-append "0.10.6-" revision "." (string-take commit 9))) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/moddevices/mod-host") + (commit commit))) + (sha256 + (base32 + "19szi8cy65jlchbrmbjbma03g6gxj9zyyp4dgw1k06r0cxbx82gq")) + (file-name (string-append name "-" version "-checkout")))) + (build-system gnu-build-system) + (arguments + `(#:tests? #f ; no tests included + #:make-flags + (list (string-append "PREFIX=" (assoc-ref %outputs "out")) + "CC=gcc") + #:phases + (modify-phases %standard-phases + (delete 'configure) + (add-after 'unpack 'fix-jack-installation-directory + (lambda _ + ;; Do not attempt to install files to output of "jack" package. + (substitute* "Makefile" + (("\\$\\(shell pkg-config --variable=libdir jack\\)") + "lib")) + #t))))) + (inputs + `(("lilv" ,lilv) + ("fftw" ,fftw) + ("fftwf" ,fftwf) + ("lv2" ,lv2) + ("jack" ,jack-1) + ("readline" ,readline))) + (native-inputs + `(("pkg-config" ,pkg-config) + ("python" ,python-2))) + (home-page "https://github.com/moddevices/mod-host") + (synopsis "LV2 host for Jack controllable via socket or command line") + (description "mod-host is an LV2 plugin host for JACK, controllable via +socket or command line.") + (license license:gpl3+)))) + (define-public pianobar (package (name "pianobar") -- 2.10.0