ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-11 13:49:23 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: translate-shell: Wrap binary.

Browse source 
* gnu/packages/dictionaries.scm (translate-shell)[arguments]: Add custom
phase to wrap the 'trans' binary with the inputs.
[native-inputs]: Move curl, fribidi, rlwrap ...
[inputs]: ... to here.
This commit is contained in:
Efraim Flashner 2018-12-25 21:57:09 +02:00
parent f76335740c
commit cf51b828af
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351
1 changed files with 15 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
gnu/packages/dictionaries.scm
View file

@ -268,6 +268,20 @@ (define-public translate-shell
(lambda _ (lambda _
(delete-file "translate") (delete-file "translate")
#t)) #t))
(add-after 'install 'wrap-binary
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin/trans"))
(curl (assoc-ref inputs "curl"))
(fribidi (assoc-ref inputs "fribidi"))
(rlwrap (assoc-ref inputs "rlwrap")))
(wrap-program bin
`("PATH" ":" prefix
(,(string-append out "/bin:"
curl "/bin:"
fribidi "/bin:"
rlwrap "/bin")))))
#t))
(add-after 'install 'emacs-install (add-after 'install 'emacs-install
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
@ -283,7 +297,7 @@ (define-public translate-shell
(guix build emacs-utils) (guix build emacs-utils)
(guix build utils)) (guix build utils))
#:test-target "test")) #:test-target "test"))
(propagated-inputs (inputs
`(("curl" ,curl) `(("curl" ,curl)
("fribidi" ,fribidi) ("fribidi" ,fribidi)
("rlwrap" ,rlwrap))) ("rlwrap" ,rlwrap)))