From 421b47624c44cddeb362a5736eef407112c2babe Mon Sep 17 00:00:00 2001 From: Liliana Marie Prikler Date: Fri, 1 Jul 2022 21:18:32 +0200 Subject: [PATCH] gnu: ibus-anthy: Archaize wrapper. This is a follow-up to 39b118776bbbaed049f8bcafa27bde30d9d0b2f6, which applied the wrong modernization metaphors. For more information, see . * gnu/packages/ibus.scm (ibus-anthy)[#:phases]: Refer to outputs by assoc-ref. --- gnu/packages/ibus.scm | 19 +++++++++---------- 1 file 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")