gnu: amssynth: Update to 1.12.2.

* gnu/packages/music.scm (amsynth): Update to 1.12.2.
[arguments]: Adjust 'patch-file-names' phase.
[inputs]: Remove GTKMM-2 and LASH.
[propagated-inputs]: New field.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Thomas Albers 2021-10-01 01:11:44 +02:00 committed by Ludovic Courtès
parent 085a8a0cdf
commit 5a1cf7d315
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -43,6 +43,7 @@
;;; Copyright © 2021 Felix Gruber <felgru@posteo.net> ;;; Copyright © 2021 Felix Gruber <felgru@posteo.net>
;;; Copyright © 2021 Simon Streit <simon@netpanic.org> ;;; Copyright © 2021 Simon Streit <simon@netpanic.org>
;;; Copyright © 2021 Xinglu Chen <public@yoctocell.xyz> ;;; Copyright © 2021 Xinglu Chen <public@yoctocell.xyz>
;;; Copyright © 2021 Thomas Albers Raviola <thomas@thomaslabs.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -2310,38 +2311,43 @@ (define-public padthv1
(define-public amsynth (define-public amsynth
(package (package
(name "amsynth") (name "amsynth")
(version "1.7.1") (version "1.12.2")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://github.com/amsynth/amsynth/releases/" (uri (string-append "https://github.com/amsynth/amsynth/releases/"
"download/release-" version "download/release-" version
"/amsynth-" version ".tar.bz2")) "/amsynth-" version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"1882pfcmf3rqg3vd4qflzkppcv158d748i603spqjbxqi8z7x7w0")))) "0lhp7fymm2fids02y43cy422jzmdiraszll1mk3gzlbfwg33ds1i"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:phases `(#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'patch-file-names (add-after 'unpack 'patch-file-names
(lambda _ (lambda* (#:key inputs #:allow-other-keys)
(substitute* "src/GUI/editor_pane.c" (substitute* "src/GUI/editor_pane.c"
(("/usr/bin/unzip") (which "unzip"))) (("/usr/bin/unzip")
(substitute* "src/GUI/GUI.cc" (string-append (assoc-ref inputs "unzip") "/bin/unzip")))
(("/usr/bin/which") (which "which"))) (substitute* "src/GUI/MainMenu.cpp"
(("/usr/bin/which")
(string-append (assoc-ref inputs "which") "/bin/which")))
#t))))) #t)))))
(inputs (inputs
`(("alsa-lib" ,alsa-lib) `(("alsa-lib" ,alsa-lib)
("gtk+" ,gtk+-2) ("gtk+" ,gtk+-2)
("gtkmm" ,gtkmm-2)
("jack" ,jack-1) ("jack" ,jack-1)
("lash" ,lash)
("libsndfile" ,libsndfile) ("libsndfile" ,libsndfile)
("lv2" ,lv2) ("lv2" ,lv2)
;; External commands invoked at run time. ;; External commands invoked at run time.
("unzip" ,unzip) ("unzip" ,unzip)
("which" ,which))) ("which" ,which)))
(propagated-inputs
;; avoid runtime error:
;; GLib-GIO-ERROR **: 22:14:48.344: Settings schema
;; 'org.gnome.desktop.interface' is not installed
`(("gsettings-desktop-schemas" ,gsettings-desktop-schemas)))
(native-inputs (native-inputs
`(("intltool" ,intltool) `(("intltool" ,intltool)
("pkg-config" ,pkg-config))) ("pkg-config" ,pkg-config)))