diff mbox series

[bug#77181,v2,3/6] gnu: ouch: Fix shell completion directories.

Message ID 76d0f9fece99b9f7716fd5b6e166e1b872c64520.1743065002.git.efraim@flashner.co.il
State New
Headers
Series Fix shell completion directories |

Commit Message

Efraim Flashner March 27, 2025, 8:46 a.m. UTC 
  From: 45mg <45mg.writes@gmail.com>

* gnu/packages/rust-apps.scm (ouch) [arguments]: Use the shell
completion directory variables.

Change-Id: I63f2be695e9d8dc15de61bbbb470c54e47a6a197
---
 gnu/packages/rust-apps.scm | 20 ++++++--------------
 1 file changed, 6 insertions(+), 14 deletions(-)
diff mbox series

Patch

diff --git a/gnu/packages/rust-apps.scm b/gnu/packages/rust-apps.scm
index 2f933d836c5..0371fd4c264 100644
--- a/gnu/packages/rust-apps.scm
+++ b/gnu/packages/rust-apps.scm
@@ -2348,25 +2348,17 @@  (define-public ouch
           (lambda* (#:key outputs #:allow-other-keys)
             (let* ((out (assoc-ref outputs "out"))
                    (share (string-append out "/share"))
-                   (bash-completions-dir
-                    (string-append out "/etc/bash-completion.d"))
-                   (zsh-completions-dir
-                    (string-append share "/zsh/site-functions"))
-                   (fish-completions-dir
-                    (string-append share "/fish/vendor_completions.d"))
-                   (elvish-completions-dir
-                    (string-append share "/elvish/lib"))
                    (man1 (string-append share "/man/man1")))
-              (mkdir-p bash-completions-dir)
-              (mkdir-p elvish-completions-dir)
+              (mkdir-p (string-append out ,bash-completion-dir))
+              (mkdir-p (string-append out ,elvish-completion-dir))
               (copy-file "target/ouch.bash"
-                         (string-append bash-completions-dir "/ouch"))
+                         (string-append out ,bash-completion-dir "ouch"))
               (install-file "target/_ouch"
-                            (string-append zsh-completions-dir "/_ouch"))
+                            (string-append out ,zsh-completion-dir))
               (install-file "target/ouch.fish"
-                            fish-completions-dir)
+                            (string-append out ,fish-completion-dir))
               (copy-file "target/ouch.elv"
-                         (string-append elvish-completions-dir "/ouch"))
+                         (string-append out ,elvish-completion-dir "ouch"))
               (for-each (lambda (manpage)
                           (install-file manpage man1))
                         (find-files "target" "\\.1$"))))))))