03/06: gnu: synfigstudio: Use gexp.

[guix-commits]

rekado pushed a commit to branch master
in repository guix.

commit df116a89f95954d4ce0508b86f193e0e0494a240
Author: Ricardo Wurmus <rekado@elephly.net>
AuthorDate: Tue Jan 3 23:12:52 2023 +0100

    gnu: synfigstudio: Use gexp.
    
    * gnu/packages/animation.scm (synfigstudio)[arguments]: Use gexp.
---
 gnu/packages/animation.scm | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

diff --git a/gnu/packages/animation.scm b/gnu/packages/animation.scm
index e1a5ba3de1..e2a546b5fc 100644
--- a/gnu/packages/animation.scm
+++ b/gnu/packages/animation.scm
@@ -23,6 +23,7 @@
 (define-module (gnu packages animation)
   #:use-module (guix packages)
   #:use-module (guix download)
+  #:use-module (guix gexp)
   #:use-module (guix git-download)
   #:use-module (guix utils)
   #:use-module ((guix licenses) #:prefix license:)
@@ -185,17 +186,16 @@ for tweening, preventing the need to hand-draw each 
frame.")
                   #t))))
     (build-system gnu-build-system)
     (arguments
-     `(#:phases
-       (modify-phases %standard-phases
-         ;; This fixes the file chooser crash that happens with GTK 3.
-         (add-after 'install 'wrap-program
-           (lambda* (#:key inputs outputs #:allow-other-keys)
-             (let* ((out (assoc-ref outputs "out"))
-                    (gtk (assoc-ref inputs "gtk+"))
-                    (gtk-share (string-append gtk "/share")))
-               (wrap-program (string-append out "/bin/synfigstudio")
-                 `("XDG_DATA_DIRS" ":" prefix (,gtk-share)))
-               #t))))))
+     (list
+      #:phases
+      #~(modify-phases %standard-phases
+          ;; This fixes the file chooser crash that happens with GTK 3.
+          (add-after 'install 'wrap-program
+            (lambda* (#:key inputs #:allow-other-keys)
+              (let* ((gtk (assoc-ref inputs "gtk+"))
+                     (gtk-share (string-append gtk "/share")))
+                (wrap-program (string-append #$output "/bin/synfigstudio")
+                  `("XDG_DATA_DIRS" ":" prefix (,gtk-share)))))))))
     (inputs
      (list gtkmm-3 gtk+ libsigc++ synfig))
     (native-inputs