aboutsummaryrefslogtreecommitdiff
path: root/gnu
diff options
context:
space:
mode:
authorLiliana Marie Prikler <liliana.prikler@gmail.com>2022-07-01 21:18:32 +0200
committerLiliana Marie Prikler <liliana.prikler@gmail.com>2022-07-02 01:05:16 +0200
commit421b47624c44cddeb362a5736eef407112c2babe (patch)
tree1c430452a585018eb417b99a4e6c0d588f088c81 /gnu
parentbee2c369fa2a3d51e6a1218d1b1a0ee86528674a (diff)
downloadguix-421b47624c44cddeb362a5736eef407112c2babe.tar.gz
guix-421b47624c44cddeb362a5736eef407112c2babe.zip
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')
-rw-r--r--gnu/packages/ibus.scm19
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")