me
/
guix
Archived
1
0
Fork 0
Code

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

60
gnu/packages/language.scm
View File

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