tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 21:20:33 +02:00
Code Activity

gnu: codeberg-cli: Update shell completion phase.

Browse Source 
* gnu/packages/rust-apps.scm (codeberg-cli)[arguments]: Replace the
'install-extras phase with a more succinct 'install-completions phase.

Change-Id: I6a2c32db7530a581b0c370f537f10e9c16c983c2
This commit is contained in:
Efraim Flashner
2026-02-10 16:05:35 +02:00
parent ccb3f5fd2a
commit bc40d85820
1 changed files with 21 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -675,40 +675,29 @@ through tools like `gdb`.")
(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-extras
(lambda* (#:key native-inputs 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"))
(berg (if #$(%current-target-system)
(search-input-file native-inputs "/bin/berg")
(string-append out "/bin/berg"))))
(for-each mkdir-p
(list bash-completions-dir
zsh-completions-dir
fish-completions-dir
elvish-completions-dir))
(with-output-to-file
(string-append bash-completions-dir "/berg")
(lambda _ (invoke berg "completion" "bash")))
(with-output-to-file
(string-append zsh-completions-dir "/_berg")
(lambda _ (invoke berg "completion" "zsh")))
(with-output-to-file
(string-append fish-completions-dir "/berg.fish")
(lambda _ (invoke berg "completion" "fish")))
(with-output-to-file
(string-append elvish-completions-dir "/berg")
(lambda _ (invoke berg "completion" "elvish")))))))))
(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/berg")
(in-vicinity #$output "bin/berg"))))
(with-output-to-file (in-vicinity #$output path)
(lambda _
(invoke binary "completion" shell))))))
'(("bash" . "share/bash-completion/completions/berg")
("elvish" . "share/elvish/lib/berg")
("fish" . "share/fish/vendor_completions.d/berg.fish")
("zsh" . "share/zsh/site-functions/_berg"))))))))
(native-inputs
(append
(if (%current-target-system)