12/18: gnu: emacs-flycheck-ledger: Improve package style.

[guix-commits]

ngz pushed a commit to branch master
in repository guix.

commit f32bc54c986cc424bcd20cce7abb0a7b6f24cf28
Author: Nicolas Goaziou <m...@nicolasgoaziou.fr>
AuthorDate: Fri Feb 18 21:26:55 2022 +0100

    gnu: emacs-flycheck-ledger: Improve package style.
    
    * gnu/packages/emacs-xyz.scm (emacs-flycheck-ledger)[arguments]: Use
    G-expressions.  Remove trailing #T.
---
 gnu/packages/emacs-xyz.scm | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index 9aac27fa6a..d0e46f34b5 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -6035,17 +6035,17 @@ compile}.")
        (file-name (git-file-name name version))
        (sha256
         (base32 "1djrj3is0dzrl2703bw7bclf33dp4xqmy144q7xj5pvpb9v3kf50"))))
-    (inputs (list ledger))
     (arguments
-     `(#:phases
-       (modify-phases %standard-phases
-         (add-after 'unpack 'configure
-           (lambda* (#:key inputs outputs #:allow-other-keys)
-             (let ((ledger (assoc-ref inputs "ledger")))
-               ;; Specify the absolute executable location of ledger.
-               (substitute* "flycheck-ledger.el"
-                 (("\"ledger\"") (string-append "\"" ledger "\""))))
-             #t)))))
+     (list
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'unpack 'configure
+            (lambda _
+              (let ((ledger #$(this-package-input "ledger")))
+                ;; Specify the absolute executable location of ledger.
+                (substitute* "flycheck-ledger.el"
+                  (("\"ledger\"") (string-append "\"" ledger "\"")))))))))
+    (inputs (list ledger))
     (propagated-inputs
      (list emacs-flycheck))
     (build-system emacs-build-system)