TakeV/guix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

gnu: rust-xremap: Install shell completions.

Browse source 
* gnu/packages/rust-apps.scm (rust-xremap)[arguments]: Add a phase to
install the shell completions.
This commit is contained in:
Efraim Flashner 2023-10-22 16:13:23 +03:00
parent 14ce473e8e
commit b6abadfc1b
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351
1 changed files with 24 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
gnu/packages/rust-apps.scm
View file

@ -2545,7 +2545,30 @@ (define-public rust-xremap
("rust-wayland-client" ,rust-wayland-client-0.30)
("rust-wayland-protocols-wlr" ,rust-wayland-protocols-wlr-0.1)
("rust-x11rb" ,rust-x11rb-0.12)
("rust-zbus" ,rust-zbus-1))))
("rust-zbus" ,rust-zbus-1))
#:phases
(modify-phases %standard-phases
(add-after 'install 'install-completions
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(share (string-append out "/share"))
(xremap (string-append out "/bin/xremap")))
(mkdir-p (string-append share "/bash-completion/completions"))
(with-output-to-file
(string-append share "/bash-completion/completions/xremap")
(lambda _ (invoke xremap "--completions" "bash")))
(mkdir-p (string-append share "/fish/vendor_completions.d"))
(with-output-to-file
(string-append share "/fish/vendor_completions.d/xremap.fish")
(lambda _ (invoke xremap "--completions" "fish")))
(mkdir-p (string-append share "/zsh/site-functions"))
(with-output-to-file
(string-append share "/zsh/site-functions/_xremap")
(lambda _ (invoke xremap "--completions" "zsh")))
(mkdir-p (string-append share "/elvish/lib"))
(with-output-to-file
(string-append share "/elvish/lib/xremap")
(lambda _ (invoke xremap "--completions" "elvish")))))))))
(home-page "https://github.com/k0kubun/xremap")
(synopsis "Dynamic key remapp for X and Wayland")
(description "This package provides dynamic key remapp for X and Wayland.")