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: wallust: Rewrite install-extras phase.

Browse Source 
* gnu/packages/rust-apps.scm (wallust)[arguments]: Rewrite
'install-extras to use the copy-build-system 'install phase.

Change-Id: Icf3e2a86a166b5d83914dfbdc956184f421bcd48
This commit is contained in:
Efraim Flashner
2026-02-24 16:05:55 +02:00
parent a22e0f2689
commit e7bdb294cd
1 changed files with 19 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -4079,33 +4079,29 @@ advanced keybindings, word-level diff highlighting, syntax highlighting for
(arguments
(list
#:features '(list "buildgen")
#:imported-modules (append %copy-build-system-modules
%cargo-build-system-modules)
#:modules '((guix build cargo-build-system)
((guix build copy-build-system) #:prefix copy:)
(guix build utils))
#:install-source? #f
#:phases
#~(modify-phases %standard-phases
(add-after 'install 'install-extras
(lambda* (#:key outputs #:allow-other-keys)
(let* ((share (string-append #$output "/share"))
(install-man (lambda (filename)
(install-file filename
(string-append share
"/man/man"
(string-take-right
filename 1))))))
(mkdir-p (string-append #$output "/etc/bash_completion.d"))
(mkdir-p (string-append share "/elvish/lib"))
(copy-file "completions/wallust.bash"
(string-append #$output
"/etc/bash_completion.d/wallust"))
(copy-file "completions/wallust.elv"
(string-append share "/elvish/lib/wallust"))
(install-file "completions/wallust.fish"
(string-append share
"/fish/vendor_completions.d/"))
(install-file "completions/_wallust"
(string-append share "/zsh/site-functions/"))
(with-directory-excursion "man"
(for-each install-man
(find-files ".")))))))))
(lambda args
(apply (assoc-ref copy:%standard-phases 'install)
#:install-plan
'(("completions/wallust.bash"
"share/bash-completion/completions/wallust")
("completions/wallust.elv"
"share/elvish/lib/wallust")
("completions/wallust.fish"
"share/fish/vendor_completions.d/")
("completions/_wallust"
"share/zsh/site-functions/")
("man/" "share/man/man1/" #:include-regexp ("\\.1$"))
("man/" "share/man/man5/" #:include-regexp ("\\.5$")))
args))))))
(native-inputs (list pkg-config))
(inputs (cons* libgit2-1.9 zlib (cargo-inputs 'wallust)))
(home-page "https://explosion-mental.codeberg.page/wallust")