From df116a89f95954d4ce0508b86f193e0e0494a240 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Tue, 3 Jan 2023 23:12:52 +0100 Subject: gnu: synfigstudio: Use gexp. * gnu/packages/animation.scm (synfigstudio)[arguments]: Use gexp. --- gnu/packages/animation.scm | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) (limited to 'gnu/packages/animation.scm') 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 @@ (define-public synfigstudio #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 -- cgit v1.2.3