branch master updated: gnu: emacs-skeletor: Improve package style.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

ngz pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new 1163349b70 gnu: emacs-skeletor: Improve package style.
1163349b70 is described below

commit 1163349b7009ba60f7e441952a798d5df255db0d
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
AuthorDate: Fri Jan 27 23:20:16 2023 +0100

    gnu: emacs-skeletor: Improve package style.
    
    * gnu/packages/emacs-xyz.scm (emacs-skeletor)[arguments]: Use G-expressions.
    <#:phases>: Remove unnecessary phase. Remove trailing #T.
    [propagated-inputs]: Reorder inputs alphabetically.
---
 gnu/packages/emacs-xyz.scm | 42 ++++++++++++++++++------------------------
 1 file changed, 18 insertions(+), 24 deletions(-)

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index d2f219f8ec..b7db2dbdf1 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -12458,33 +12458,27 @@ empty @file{.projectile} file in it.")
                  (base32
                   "12bdgykfh4mwsqdazxjdvha62h3q3v33159ypy91f6x59y01fi0n"))))
       (build-system emacs-build-system)
-      (propagated-inputs
-       (list emacs-s emacs-f emacs-dash emacs-let-alist))
-      (native-inputs
-       (list emacs-ert-runner))
       (arguments
-       `(#:include (cons "^project-skeletons\\/" %default-include)
-         ;; XXX: one failing test involving initializing a git repo
-         #:phases
-         (modify-phases %standard-phases
-           (add-before 'check 'make-test-writable
-             (lambda _
-               (make-file-writable "test/skeletor-test.el")
-               #t))
-           (add-before 'check 'remove-git-test
-             (lambda _
-               (emacs-batch-edit-file "test/skeletor-test.el"
-                 `(progn
-                   (progn
+       (list
+        #:include #~(cons "^project-skeletons\\/" %default-include)
+        #:tests? #true
+        #:test-command #~(list "ert-runner")
+        #:phases
+        #~(modify-phases %standard-phases
+            ;; XXX: one failing test involving initializing a git repo.
+            (add-before 'check 'remove-git-test
+              (lambda _
+                (emacs-batch-edit-file "test/skeletor-test.el"
+                  `(progn
                     (goto-char (point-min))
-                    (re-search-forward
-                     "ert-deftest initialises-git-repo")
+                    (re-search-forward "ert-deftest initialises-git-repo")
                     (beginning-of-line)
-                    (kill-sexp))
-                   (basic-save-buffer)))
-               #t)))
-         #:tests? #t
-         #:test-command '("ert-runner")))
+                    (kill-sexp)
+                    (basic-save-buffer))))))))
+      (native-inputs
+       (list emacs-ert-runner))
+      (propagated-inputs
+       (list emacs-dash emacs-f emacs-let-alist emacs-s))
       (home-page "https://github.com/chrisbarrett/skeletor.el";)
       (synopsis "Project skeletons for Emacs")
       (description "This package provides project templates and automates the