aboutsummaryrefslogtreecommitdiff
path: root/gnu/packages/pantheon.scm
diff options
context:
space:
mode:
authorjgart <jgart@dismail.de>2024-08-25 09:00:27 -0500
committerjgart <jgart@dismail.de>2024-08-25 09:06:31 -0500
commitc62b729b3ec61958b0a883d82ef45a4a45733690 (patch)
treef2b0c92355467fc063d8ef9f34435ca52b9733df /gnu/packages/pantheon.scm
parent4a1114de7868b39e17d21c20ecdfa7c4e7b82213 (diff)
downloadguix-c62b729b3ec61958b0a883d82ef45a4a45733690.tar.gz
guix-c62b729b3ec61958b0a883d82ef45a4a45733690.zip
gnu: pantheon-terminal: Use gexp modern style.
* gnu/packages/pantheon.scm (pantheon-terminal) [arguments]: Use gexp modern style. Change-Id: I74d12ec09d8385f2093af91909963c934f9ca968
Diffstat (limited to 'gnu/packages/pantheon.scm')
-rw-r--r--gnu/packages/pantheon.scm29
1 files changed, 15 insertions, 14 deletions
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