gnu: pay-respects: Install shell completions.

* gnu/packages/shellutils.scm (pay-respects)[arguments]: Add a phase to
generate the shell completions.
[native-inputs]: When cross-compiling add pay-respects.

Change-Id: I150fd240283ae3b3994b5e8e6028ed7d6b359d9d

1 files changed, 36 insertions, 1 deletions

diff --git a/gnu/packages/shellutils.scm b/gnu/packages/shellutils.scm
index 6fbd60ae2a9..17a4e4fa7de 100644
--- a/gnu/packages/shellutils.scm
+++ b/gnu/packages/shellutils.scm
@@ -1183,7 +1183,42 @@ shell with fzf, enabling fuzzy finding and multi-selection.")
        (sha256
         (base32 "0nmh5kkjhsrmhwlb09wvg6chzpl7w7xq1qr1yy9gc202yrv6cnmk"))))
     (build-system cargo-build-system)
-    (arguments (list #:install-source? #f))
+    (arguments
+     (list
+       #:install-source? #f
+       #:modules
+       '((guix build cargo-build-system)
+         (guix build utils)
+         (ice-9 match))
+       #:phases
+       #~(modify-phases %standard-phases
+           (add-after 'install 'install-completions
+            (lambda* (#:key native-inputs #:allow-other-keys)
+              (for-each
+               (match-lambda
+                 ((shell . path)
+                  (mkdir-p (in-vicinity #$output (dirname path)))
+                  (let ((binary
+                         (if #$(%current-target-system)
+                             (search-input-file native-inputs "bin/pay-respects")
+                             (in-vicinity #$output "bin/pay-respects"))))
+                    (with-output-to-file (in-vicinity #$output path)
+                      (lambda _
+                        (invoke binary shell)))
+                    ;; The shell completions call the binary so we make sure
+                    ;; that we call the correct binary.
+                    (when #$(%current-target-system)
+                      (substitute* (in-vicinity #$output path)
+                        (((search-input-file native-inputs "bin/pay-respects"))
+                         (in-vicinity #$output "bin/pay-respects")))))))
+               '(("bash"    . "share/bash-completion/completions/pay-respects")
+                 ("fish"    . "share/fish/vendor_completions.d/pay-respects.fish")
+                 ("nushell" . "share/nushell/vendor/autoload/pay-respects")
+                 ("zsh"     . "share/zsh/site-functions/_pay-respects"))))))))
+    (native-inputs
+     (if (%current-target-system)
+         (list this-package)
+         '()))
     (inputs (cargo-inputs 'pay-respects))
     (home-page "https://codeberg.org/iff/pay-respects")
     (synopsis "Suggest correction for mistyped console commands")