12/12: gnu: just: Install shell completions.

[guix-commits]

efraim pushed a commit to branch master
in repository guix.

commit 36094ba02106aac27c464a9ebb1b9d34f017315d
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Thu Sep 28 21:08:32 2023 +0300

    gnu: just: Install shell completions.
    
    * gnu/packages/rust-apps.scm (just)[arguments]: Add a phase to install
    the shell completions.
---
 gnu/packages/rust-apps.scm | 23 ++++++++++++++++++++++-
 1 file changed, 22 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/rust-apps.scm b/gnu/packages/rust-apps.scm
index 7a5760a396..894173b7dd 100644
--- a/gnu/packages/rust-apps.scm
+++ b/gnu/packages/rust-apps.scm
@@ -806,7 +806,28 @@ bar.  It is also compatible with sway.")
            (lambda* (#:key outputs #:allow-other-keys)
              (install-file "man/just.1"
                            (string-append (assoc-ref outputs "out")
-                                          "/share/man/man1")))))))
+                                          "/share/man/man1"))))
+         (add-after 'install 'install-completions
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let* ((out (assoc-ref outputs "out"))
+                    (share (string-append out "/share"))
+                    (just (string-append out "/bin/just")))
+               (mkdir-p (string-append share "/bash-completion/completions"))
+               (with-output-to-file
+                 (string-append share "/bash-completion/completions/just")
+                 (lambda _ (invoke just "--completions" "bash")))
+               (mkdir-p (string-append share "/fish/vendor_completions.d"))
+               (with-output-to-file
+                 (string-append share "/fish/vendor_completions.d/just.fish")
+                 (lambda _ (invoke just "--completions" "fish")))
+               (mkdir-p (string-append share "/zsh/site-functions"))
+               (with-output-to-file
+                 (string-append share "/zsh/site-functions/_just")
+                 (lambda _ (invoke just "--completions" "zsh")))
+               (mkdir-p (string-append share "/elvish/lib"))
+               (with-output-to-file
+                 (string-append share "/elvish/lib/just")
+                 (lambda _ (invoke just "--completions" "elvish")))))))))
     (home-page "https://github.com/casey/just";)
     (synopsis "Just a command runner")
     (description "This package provides @code{just}, a command runner.