me
/
guix
Archived
1
0
Fork 0
Code

gnu: just: Install shell completions. 

* gnu/packages/rust-apps.scm (just)[arguments]: Add a phase to install
the shell completions.
Efraim Flashner 2023-09-28 21:08:32 +03:00
parent 5b18971348
commit 36094ba021
No known key found for this signature in database
GPG Key ID: 41AAE7DCCA3D8351
1 changed files with 22 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
gnu/packages/rust-apps.scm
View File

@ -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.