1 files changed, 21 insertions, 19 deletions
diff --git a/gnu/packages/ibus.scm b/gnu/packages/ibus.scm
index 3a058c0eac..0343f58f2c 100644
--- a/gnu/packages/ibus.scm
+++ b/gnu/packages/ibus.scm
@@ -30,6 +30,7 @@
 (define-module (gnu packages ibus)
   #:use-module (guix licenses)
   #:use-module (guix packages)
+  #:use-module (guix gexp)
   #:use-module (guix download)
   #:use-module (guix git-download)
   #:use-module (guix build-system cmake)
@@ -320,25 +321,26 @@ Chinese pinyin input methods.")
                 "16vd0k8wm13s38869jqs3dnwmjvywgn0snnpyi41m28binhlssf8"))))
     (build-system gnu-build-system)
     (arguments
-     '(#:configure-flags
-       ;; Use absolute exec path in the anthy.xml.
-       (list (string-append "--libexecdir=" %output "/libexec"))
-       ;; The test suite fails (see:
-       ;; https://github.com/ibus/ibus-anthy/issues/28).
-       #:tests? #f
-       #:phases
-       (modify-phases %standard-phases
-         (add-after 'install 'wrap-programs
-           (lambda* (#:key inputs outputs #:allow-other-keys)
-             (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"))))))))
+     (list
+      #:configure-flags
+      ;; Use absolute exec path in the anthy.xml.
+      #~(list (string-append "--libexecdir=" #$output "/libexec"))
+      ;; The test suite fails (see:
+      ;; https://github.com/ibus/ibus-anthy/issues/28).
+      #:tests? #f
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'install 'wrap-programs
+            (lambda* (#:key inputs #:allow-other-keys)
+              (for-each
+               (lambda (prog)
+                 (wrap-program (string-append #$output "/libexec/" prog)
+                   `("GUIX_PYTHONPATH" ":" prefix
+                     (,(getenv "GUIX_PYTHONPATH")))
+                   `("GI_TYPELIB_PATH" ":" prefix
+                     (,(getenv "GI_TYPELIB_PATH")
+                      ,(string-append #$output "/lib/girepository-1.0")))))
+               '("ibus-engine-anthy" "ibus-setup-anthy")))))))
     (native-inputs
      (list gettext-minimal
            `(,glib "bin")