From 1163349b7009ba60f7e441952a798d5df255db0d Mon Sep 17 00:00:00 2001
From: Nicolas Goaziou <mail@nicolasgoaziou.fr>
Date: Fri, 27 Jan 2023 23:20:16 +0100
Subject: 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(-)

(limited to 'gnu/packages')

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 @@ (define-public emacs-skeletor
                  (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
-- 
cgit v1.2.3