me/guix
Archived
1
0
Fork 0
Code Activity

gnu: ibus-anthy: Archaize wrapper.

Browse source 
This is a follow-up to 39b118776b, which
applied the wrong modernization metaphors.  For more information, see
<https://issues.guix.gnu.org/52576#16>.

* gnu/packages/ibus.scm (ibus-anthy)[#:phases]<wrap-programs>: Refer to
outputs by assoc-ref.
This commit is contained in:
Liliana Marie Prikler 2022-07-01 21:18:32 +02:00
parent bee2c369fa
commit 421b47624c
No known key found for this signature in database
GPG key ID: 442A84B8C70E2F87
1 changed files with 9 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
gnu/packages/ibus.scm
View file

@ -330,16 +330,15 @@ Chinese pinyin input methods.")
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'install 'wrap-programs (add-after 'install 'wrap-programs
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(for-each (lambda (prog) (let ((out (assoc-ref outputs "out")))
(wrap-program (search-input-file (for-each (lambda (prog)
outputs (string-append "libexec/" prog)) (wrap-program (string-append out "/libexec/" prog)
`("GUIX_PYTHONPATH" ":" prefix `("GUIX_PYTHONPATH" ":" prefix
(,(getenv "GUIX_PYTHONPATH"))) (,(getenv "GUIX_PYTHONPATH")))
`("GI_TYPELIB_PATH" ":" prefix `("GI_TYPELIB_PATH" ":" prefix
(,(getenv "GI_TYPELIB_PATH") (,(getenv "GI_TYPELIB_PATH")
,(search-input-directory ,(string-append out "/lib/girepository-1.0")))))
inputs "lib/girepository-1.0"))))) '("ibus-engine-anthy" "ibus-setup-anthy"))))))))
'("ibus-engine-anthy" "ibus-setup-anthy")))))))
(native-inputs (native-inputs
(list gettext-minimal (list gettext-minimal
`(,glib "bin") `(,glib "bin")