175/276: gnu: du-dust: Install manpage, shell completions.

[guix-commits]

efraim pushed a commit to branch rust-team
in repository guix.

commit bed8878cdcc8040dcc19f98fc5ed199ebe3bef6e
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Tue Oct 3 15:26:28 2023 +0300

    gnu: du-dust: Install manpage, shell completions.
    
    * gnu/packages/admin.scm (du-dust)[arguments]: Add a phase to install
    the manpage and shell completions.
---
 gnu/packages/admin.scm | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm
index a3d26f0fe3..a8d4269fbb 100644
--- a/gnu/packages/admin.scm
+++ b/gnu/packages/admin.scm
@@ -5938,7 +5938,22 @@ file or files to several hosts.")
                        ("rust-unicode-width" ,rust-unicode-width-0.1)
                        ("rust-winapi-util" ,rust-winapi-util-0.1))
        #:cargo-development-inputs (("rust-assert-cmd" ,rust-assert-cmd-2)
-                                   ("rust-tempfile" ,rust-tempfile-3))))
+                                   ("rust-tempfile" ,rust-tempfile-3))
+       #:phases
+       (modify-phases %standard-phases
+         (add-after 'install 'install-extras
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let* ((out (assoc-ref outputs "out"))
+                    (share (string-append out "/share")))
+               (install-file "man-page/dust.1"
+                             (string-append share "/man/man1"))
+               (mkdir-p (string-append out "/etc/bash_completion.d"))
+               (copy-file "completions/dust.bash"
+                          (string-append out "/etc/bash_completion.d/dust"))
+               (install-file "completions/dust.fish"
+                             (string-append share 
"/fish/vendor_completions.d"))
+               (install-file "completions/_dust"
+                             (string-append share "/zsh/site-fuctions"))))))))
     (home-page "https://github.com/bootandy/dust";)
     (synopsis "Graphical disk usage analyzer")
     (description "This package provides a graphical disk usage analyzer in