02/03: gnu: pantheon-terminal: Use gexp modern style.

[guix-commits]

jgart pushed a commit to branch master
in repository guix.

commit c62b729b3ec61958b0a883d82ef45a4a45733690
Author: jgart <jgart@dismail.de>
AuthorDate: Sun Aug 25 09:00:27 2024 -0500

    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(-)

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