diff options
| author | Liliana Marie Prikler <liliana.prikler@gmail.com> | 2022-07-01 21:18:32 +0200 |
|---|---|---|
| committer | Liliana Marie Prikler <liliana.prikler@gmail.com> | 2022-07-02 01:05:16 +0200 |
| commit | 421b47624c44cddeb362a5736eef407112c2babe (patch) | |
| tree | 1c430452a585018eb417b99a4e6c0d588f088c81 /gnu/packages/ibus.scm | |
| parent | bee2c369fa2a3d51e6a1218d1b1a0ee86528674a (diff) | |
gnu: ibus-anthy: Archaize wrapper.
This is a follow-up to 39b118776bbbaed049f8bcafa27bde30d9d0b2f6, 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.
Diffstat (limited to 'gnu/packages/ibus.scm')
| -rw-r--r-- | gnu/packages/ibus.scm | 19 |
1 files changed, 9 insertions, 10 deletions
diff --git a/gnu/packages/ibus.scm b/gnu/packages/ibus.scm index 234d4bd75f..3a058c0eac 100644 --- a/gnu/packages/ibus.scm +++ b/gnu/packages/ibus.scm @@ -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") |