02/07: gnu: emacs-use-package: Improve package style.

[guix-commits]

ngz pushed a commit to branch master
in repository guix.

commit 22960a79a6abd60371ebee37f4b64cb2a1fb0bad
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
AuthorDate: Thu Nov 17 12:21:03 2022 +0100

    gnu: emacs-use-package: Improve package style.
    
    * gnu/packages/emacs-xyz.scm (emacs-use-package)[arguments]: Use
    G-expressions.
    <#:phases>: Remove trailing #T.  Remove unnecessary call to MKDIR-P.
---
 gnu/packages/emacs-xyz.scm | 33 +++++++++++++++------------------
 1 file changed, 15 insertions(+), 18 deletions(-)

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index 92f13fdf9c..47d376d8d3 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -15487,28 +15487,25 @@ abbreviation of the mode line displays (lighters) of 
minor modes.")
                  (base32
                   "1zpf9xv65jg813k90x8g9k4lja896nqfh48pjinicmz1rn0rf51a"))))
       (build-system emacs-build-system)
+      (arguments
+       (list
+        #:tests? #t
+        #:test-command #~(list "emacs" "--batch"
+                               "-l" "use-package-tests.el"
+                               "-f" "ert-run-tests-batch-and-exit")
+        #:phases
+        #~(modify-phases %standard-phases
+            (add-before 'install 'install-manual
+              (lambda _
+                (let ((info-dir (string-append #$output "/share/info")))
+                  (install-file "use-package.info" info-dir))))
+            (add-before 'install-manual 'build-manual
+              (lambda _
+                (invoke "makeinfo" "use-package.texi"))))))
       (native-inputs
        (list texinfo))
       (propagated-inputs
        (list emacs-diminish))
-      (arguments
-       `(#:tests? #t
-         #:test-command '("emacs" "--batch"
-                          "-l" "use-package-tests.el"
-                          "-f" "ert-run-tests-batch-and-exit")
-         #:phases
-         (modify-phases %standard-phases
-           (add-before 'install 'install-manual
-             (lambda* (#:key outputs #:allow-other-keys)
-               (let* ((out (assoc-ref outputs "out"))
-                      (info-dir (string-append out "/share/info")))
-                 (mkdir-p info-dir)
-                 (install-file "use-package.info" info-dir)
-                 #t)))
-           (add-before 'install-manual 'build-manual
-             (lambda _
-               (invoke "makeinfo" "use-package.texi")
-               #t)))))
       (home-page "https://github.com/jwiegley/use-package";)
       (synopsis "Declaration for simplifying your .emacs")
       (description "The use-package macro allows you to isolate package