gnu: exa: Install extras.

* gnu/packages/rust-apps.scm (exa)[arguments]: Add phase to install man
page and shell completions.
This commit is contained in:
Efraim Flashner 2020-02-05 23:27:38 +02:00
parent d42cbbba37
commit b76473ecfd
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351

View file

@ -96,7 +96,23 @@ (define-public exa
(("test!\\(leg:.*") "") (("test!\\(leg:.*") "")
(("test!\\(lid:.*") "") (("test!\\(lid:.*") "")
(("test!\\(original_g:.*") "")) (("test!\\(original_g:.*") ""))
#t))))) #t))
(add-after 'install 'install-extras
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(share (string-append out "/share"))
(man1 (string-append share "/man/man1")))
(install-file "contrib/man/exa.1" man1)
(mkdir-p (string-append out "/etc/bash_completion.d"))
(mkdir-p (string-append share "/fish/vendor_completions.d"))
(mkdir-p (string-append share "/zsh/site-functions"))
(copy-file "contrib/completions.bash"
(string-append out "/etc/bash_completion.d/exa"))
(copy-file "contrib/completions.fish"
(string-append share "/fish/vendor_completions.d/exa.fish"))
(copy-file "contrib/completions.zsh"
(string-append share "/zsh/site-functions/_exa"))
#t))))))
(inputs (inputs
`(("libgit2" ,libgit2) `(("libgit2" ,libgit2)
("zlib" ,zlib))) ("zlib" ,zlib)))