gnu: gcide: Use the copy-build-system.

* gnu/packages/dictionaries.scm (gcide2)[build-system]: Use the
  copy-build-system.
This commit is contained in:
Pierre Neidhardt 2020-02-14 11:04:24 +01:00
parent e90e64049c
commit 11386e1801
No known key found for this signature in database
GPG key ID: 9BDCF497A4BBCC7F

View file

@ -31,6 +31,7 @@ (define-module (gnu packages dictionaries)
#:use-module (guix build-system gnu)
#:use-module (guix build-system python)
#:use-module (guix build-system trivial)
#:use-module (guix build-system copy)
#:use-module (gnu packages)
#:use-module (gnu packages autotools)
#:use-module (gnu packages base)
@ -109,25 +110,10 @@ (define-public gcide
(sha256
(base32
"1n3bp91sik66z3ca7mjqbr9nck3hg5ck0c8g84xc0qnfpx5vznh2"))))
(build-system trivial-build-system)
(build-system copy-build-system)
(arguments
'(#:builder (begin
(use-modules (guix build utils))
(let* ((src (assoc-ref %build-inputs "source"))
(tar (assoc-ref %build-inputs "tar"))
(xz (assoc-ref %build-inputs "xz"))
(out (assoc-ref %outputs "out"))
(datadir (string-append out "/share/gcide")))
(set-path-environment-variable "PATH" '("bin")
(list tar xz))
(mkdir-p datadir)
(invoke "tar" "-C" datadir
"--strip-components=1"
"-xvf" src)))
#:modules ((guix build utils))))
(native-inputs
`(("tar" ,tar)
("xz" ,xz)))
'(#:install-plan
'(("." "share/gcide/" #:exclude ("COPYING")))))
(synopsis "GNU Collaborative International Dictionary of English")
(description
"GCIDE is a free dictionary based on a combination of sources. It can