me
/
guix
Archived
1
0
Fork 0

gnu: praat: Update style.

* gnu/packages/language.scm (praat):
  [arguments]: Use g-exps.
  [#:phases]: Drop trailing #t.
  [inputs]: Use new format.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Preston M. Firestone 2023-06-26 12:42:17 -05:00 committed by Ludovic Courtès
parent a9070e8ece
commit 67d480d4a0
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 27 additions and 33 deletions

View File

@ -858,47 +858,41 @@ noun phrases, verb phrases, etc.).")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/praat/praat")
(commit (string-append "v" version))))
(url "https://github.com/praat/praat")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0kwv0p2bn2x5h0c61rymm87icqqwnbj699awgc5afl4qp53azci8"))))
(build-system gnu-build-system)
(arguments
`(#:make-flags (list (string-append "CC=" ,(cc-for-target)))
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'delete-failing-tests
(lambda _
(delete-file "test/sys/graphicsText.praat")
#t))
(replace 'configure
(lambda _
(copy-file "makefiles/makefile.defs.linux.pulse" "makefile.defs")
#t))
(replace 'check
(lambda _
(invoke "./praat" "--run"
"test/runAllTests_batch.praat")
#t))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin")))
(mkdir-p bin)
(copy-file "praat" (string-append bin "/praat")))
#t)))))
(inputs
`(("alsa-lib" ,alsa-lib)
("gtk" ,gtk+)
("jack" ,jack-1)
("publesaudio" ,pulseaudio)))
(native-inputs
(list pkg-config))
(list #:make-flags #~(list (string-append "CC="
#$(cc-for-target)))
#:phases #~(modify-phases %standard-phases
(add-after 'unpack 'delete-failing-tests
(lambda _
(delete-file "test/sys/graphicsText.praat")))
(replace 'configure
(lambda _
(copy-file "makefiles/makefile.defs.linux.pulse"
"makefile.defs")))
(replace 'check
(lambda _
(invoke "./praat" "--run"
"test/runAllTests_batch.praat")))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin")))
(mkdir-p bin)
(copy-file "praat"
(string-append bin "/praat"))))))))
(inputs (list alsa-lib gtk+ jack-1 pulseaudio))
(native-inputs (list pkg-config))
(home-page "https://www.fon.hum.uva.nl/praat/")
(synopsis "Doing phonetics by computer")
(description "Praat is a tool to perform phonetics tasks. It can do speech
(description
"Praat is a tool to perform phonetics tasks. It can do speech
analysis (pitch, formant, intensity, ...), speech synthesis, labelling, segmenting
and manipulation.")
(license license:gpl2+)))