From c62b729b3ec61958b0a883d82ef45a4a45733690 Mon Sep 17 00:00:00 2001 From: jgart Date: Sun, 25 Aug 2024 09:00:27 -0500 Subject: gnu: pantheon-terminal: Use gexp modern style. * gnu/packages/pantheon.scm (pantheon-terminal) [arguments]: Use gexp modern style. Change-Id: I74d12ec09d8385f2093af91909963c934f9ca968 --- gnu/packages/pantheon.scm | 29 +++++++++++++++-------------- 1 file changed, 15 insertions(+), 14 deletions(-) (limited to 'gnu/packages') diff --git a/gnu/packages/pantheon.scm b/gnu/packages/pantheon.scm index 463b6662f0..eaaf70c624 100644 --- a/gnu/packages/pantheon.scm +++ b/gnu/packages/pantheon.scm @@ -213,20 +213,21 @@ also be used on others.") "0x3gzghnfx4a1q2zhra4dysc0pm1zvlfdxj96qhfb627pz16iv4k")))) (build-system meson-build-system) (arguments - `(#:tests? #f ; Tests invole launching the terminal. - #:glib-or-gtk? #t - #:phases (modify-phases %standard-phases - (add-before 'install 'set-environment-variables - (lambda _ - ;; Disable compiling schemas and updating desktop databases - (setenv "DESTDIR" "/"))) - (add-after 'install 'install-symlinks - (lambda* (#:key outputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (bin (string-append out - "/bin/io.elementary.terminal")) - (link (string-append out "/bin/pantheon-terminal"))) - (symlink bin link))))))) + (list + #:tests? #f ; Tests invole launching the terminal. + #:glib-or-gtk? #t + #:phases + #~(modify-phases %standard-phases + (add-before 'install 'set-environment-variables + (lambda _ + ;; Disable compiling schemas and updating desktop databases + (setenv "DESTDIR" "/"))) + (add-after 'install 'install-symlinks + (lambda* (#:key outputs #:allow-other-keys) + (let* ((bin (string-append #$output + "/bin/io.elementary.terminal")) + (link (string-append #$output "/bin/pantheon-terminal"))) + (symlink bin link))))))) (native-inputs (list appstream desktop-file-utils ;required for tests gettext-minimal ;for msgfmt -- cgit v1.2.3