1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
| | (define-module (gnu packages fmit)
#:use-module (guix packages)
#:use-module (guix git-download)
#:use-module (guix build-system gnu)
#:use-module (guix licenses)
#:use-module (gnu packages qt)
#:use-module (gnu packages gnome)
#:use-module (gnu packages algebra)
#:use-module (gnu packages audio)
#:use-module (gnu packages glib)
#:use-module (gnu packages linux)
#:use-module (gnu packages gettext))
(define-public fmit
(package
(name "fmit")
(version "1.2.6")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/gillesdegottex/fmit/")
(commit (string-append "v" version))))
(sha256 (base32 "03nzkig5mw2rqwhwmg0qvc5cnk9bwh2wp13jh0mdrr935w0587mz"))))
(build-system gnu-build-system)
(arguments
'(#:make-flags (let ((out (assoc-ref %outputs "out"))) (list (string-append "PREFIX=" out) (string-append "PREFIXSHORTCUT=" out)))
#:phases
(modify-phases %standard-phases
(delete 'configure)
(add-before 'build 'qmake
(lambda _
(let ((out (assoc-ref %outputs "out"))) (invoke "qmake" "fmit.pro" (string-append "PREFIX=" out) (string-append "PREFIXSHORTCUT=" out) "CONFIG+=acs_qt acs_alsa acs_jack acs_portaudio"))))
(add-after 'install 'wrap-executable
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(wrap-program (string-append out "/bin/fmit")
`("QT_PLUGIN_PATH" ":" prefix
,(map (lambda (label)
(string-append (assoc-ref inputs label)
"/lib/qt5/plugins"))
'("qtbase" "qtmultimedia" "qtsvg")))
`("QML2_IMPORT_PATH" ":" prefix
,(map (lambda (label)
(string-append (assoc-ref inputs label)
"/lib/qt5/qml"))
'("qtmultimedia"))))
#t))))))
(inputs
`(("fftw" ,fftw)
("portaudio" ,portaudio)
("qtmultimedia" ,qtmultimedia)
("qtsvg" ,qtsvg)
("alsa-lib" ,alsa-lib)
("jack" ,jack-1)
("qtbase" ,qtbase)))
(native-inputs
`(("itstool" ,itstool)
("qttools" ,qttools)
("hicolor-icon-theme" ,hicolor-icon-theme)
("gettext" ,gnu-gettext)))
(synopsis "Free Musical Instrument Tuner")
(description "FMIT is a graphical utility for tuning musical instruments, with error and volume history, and advanced features")
(home-page "http://gillesdegottex.github.io/fmit/")
(license gpl3+)))
|