me
/
guix
Archived
1
0
Fork 0
Code

gnu: ibus-anthy: Archaize wrapper. 

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.
master
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
(add-after 'install 'wrap-programs
(lambda* (#:key inputs outputs #:allow-other-keys)
(for-each (lambda (prog)
(wrap-program (search-input-file
outputs (string-append "libexec/" prog))
`("GUIX_PYTHONPATH" ":" prefix
(,(getenv "GUIX_PYTHONPATH")))
`("GI_TYPELIB_PATH" ":" prefix
(,(getenv "GI_TYPELIB_PATH")
,(search-input-directory
inputs "lib/girepository-1.0")))))
'("ibus-engine-anthy" "ibus-setup-anthy")))))))
(let ((out (assoc-ref outputs "out")))
(for-each (lambda (prog)
(wrap-program (string-append out "/libexec/" prog)
`("GUIX_PYTHONPATH" ":" prefix
(,(getenv "GUIX_PYTHONPATH")))
`("GI_TYPELIB_PATH" ":" prefix
(,(getenv "GI_TYPELIB_PATH")
,(string-append out "/lib/girepository-1.0")))))
'("ibus-engine-anthy" "ibus-setup-anthy"))))))))
(native-inputs
(list gettext-minimal
`(,glib "bin")