34/42: gnu: emacs-org-super-agenda: Use G-expressions.

[guix-commits]

ngz pushed a commit to branch master
in repository guix.

commit cc09b0ebfe9df79efd73130f221ec53560638840
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
AuthorDate: Tue Oct 3 21:32:40 2023 +0200

    gnu: emacs-org-super-agenda: Use G-expressions.
    
    * gnu/packages/emacs-xyz.scm (emacs-org-super-agenda)[arguments]: Use 
G-expressions.
---
 gnu/packages/emacs-xyz.scm | 29 +++++++++++++++--------------
 1 file changed, 15 insertions(+), 14 deletions(-)

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index f2d65a79fc..54a57951bf 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -22540,20 +22540,21 @@ for defining recurring tasks and easily scheduling 
them.")
         (base32 "07fv4zgmfc8ppppbr7ylhx89wcw6r6vmz4a6pg0iy4v7sn5pp1wa"))))
     (build-system emacs-build-system)
     (arguments
-     `(#:tests? #true
-       #:test-command '("test/run" "--debug")
-       #:phases
-       (modify-phases %standard-phases
-         (add-after 'unpack 'prepare-for-tests.el
-           (lambda _
-             (make-file-writable "test/test.el")
-             (emacs-substitute-variables "test/test.el"
-               ("org-super-agenda-test-results-file"
-                (string-append (getcwd) "/test/results.el")))
-             ;; The following tests fail.
-             (substitute* "test/test.el"
-               ((".* org-super-agenda-test--with-retained-sorting .*" all)
-                (string-append all "  (skip-unless nil)\n"))))))))
+     (list
+      #:tests? #true
+      #:test-command #~(list "test/run" "--debug")
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'unpack 'prepare-for-tests.el
+            (lambda _
+              (make-file-writable "test/test.el")
+              (emacs-substitute-variables "test/test.el"
+                ("org-super-agenda-test-results-file"
+                 (string-append (getcwd) "/test/results.el")))
+              ;; The following tests fail.
+              (substitute* "test/test.el"
+                ((".* org-super-agenda-test--with-retained-sorting .*" all)
+                 (string-append all "  (skip-unless nil)\n"))))))))
     (native-inputs
      (list emacs-f util-linux))
     (propagated-inputs