20/23: gnu: exa: Install extras.

[guix-commits]

efraim pushed a commit to branch master
in repository guix.

commit b76473ecfd1274d37514c76764f5f107c7af6268
Author: Efraim Flashner <address@hidden>
AuthorDate: Wed Feb 5 23:27:38 2020 +0200

    gnu: exa: Install extras.
    
    * gnu/packages/rust-apps.scm (exa)[arguments]: Add phase to install man
    page and shell completions.
---
 gnu/packages/rust-apps.scm | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/rust-apps.scm b/gnu/packages/rust-apps.scm
index 108d2fb..118f914 100644
--- a/gnu/packages/rust-apps.scm
+++ b/gnu/packages/rust-apps.scm
@@ -96,7 +96,23 @@
                (("test!\\(leg:.*") "")
                (("test!\\(lid:.*") "")
                (("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
      `(("libgit2" ,libgit2)
        ("zlib" ,zlib)))