me
/
guix
Archived
1
0
Fork 0
Code

gnu: mod-host: Update to 0.10.6-4.cdd30dd. 

* gnu/packages/music.scm (mod-host): Update to 0.10.6-4.cdd30dd.
[source]: Use git-version and git-file-name.
[arguments]: Use gexps.
[phases]: Delete trailing #t.
[inputs]: Replace jack-1 with jack-2.
[native-inputs]: replace python-2 with python-wrapper.
Maxim Cournoyer 2022-05-13 14:29:15 -04:00
parent abadac2366
commit d986c34560
No known key found for this signature in database
GPG Key ID: 1260E46482E63562
1 changed files with 21 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
gnu/packages/music.scm
View File

@ -3401,11 +3401,11 @@ analogue-like user interface.")
(define-public mod-host (define-public mod-host
;; The last release was in 2014 but since then hundreds of commits have ;; The last release was in 2014 but since then hundreds of commits have
;; been made. ;; been made.
(let ((commit "1726ad06b11323da7e1aaed690ff8aef91f702b5") (let ((commit "cdd30ddbd2cc916be8a0364275071c3d8335b3a7")
(revision "3")) (revision "4"))
(package (package
(name "mod-host") (name "mod-host")
(version (string-append "0.10.6-" revision "." (string-take commit 9))) (version (git-version "0.10.6" revision commit))
(source (origin (source (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
@ -3413,34 +3413,33 @@ analogue-like user interface.")
(commit commit))) (commit commit)))
(sha256 (sha256
(base32 (base32
"1nrd37c35w6z6ldczgrwmmd9hx1n3zyvcjcgb3mi4cygqdanvspv")) "1xnflvcyj071gn9nhv5dynd0v85nq99sz1wn3adlj43l5m4fbx3a"))
(file-name (string-append name "-" version "-checkout")))) (file-name (git-file-name name version))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:tests? #f ; no tests included (list
#:make-flags #:tests? #f ; no tests included
(list (string-append "PREFIX=" (assoc-ref %outputs "out")) #:make-flags
"CC=gcc") #~(list (string-append "PREFIX=" #$output) "CC=gcc")
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(delete 'configure) (delete 'configure)
(add-after 'unpack 'fix-jack-installation-directory (add-after 'unpack 'fix-jack-installation-directory
(lambda _ (lambda _
;; Do not attempt to install files to output of "jack" package. ;; Do not attempt to install files to output of "jack" package.
(substitute* "Makefile" (substitute* "Makefile"
(("\\$\\(shell pkg-config --variable=libdir jack\\)") (("\\$\\(shell pkg-config --variable=libdir jack\\)")
"lib")) "lib")))))))
#t)))))
(inputs (inputs
(list lilv (list lilv
fftw fftw
fftwf fftwf
lv2 lv2
jack-1 jack-2
readline)) readline))
(native-inputs (native-inputs
`(("pkg-config" ,pkg-config) (list pkg-config
("python" ,python-2))) python-wrapper))
(home-page "https://github.com/moddevices/mod-host") (home-page "https://github.com/moddevices/mod-host")
(synopsis "LV2 host for Jack controllable via socket or command line") (synopsis "LV2 host for Jack controllable via socket or command line")
(description "mod-host is an LV2 plugin host for JACK, controllable via (description "mod-host is an LV2 plugin host for JACK, controllable via