From f32bc54c986cc424bcd20cce7abb0a7b6f24cf28 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Fri, 18 Feb 2022 21:26:55 +0100 Subject: 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(-) (limited to 'gnu/packages/emacs-xyz.scm') 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) -- cgit v1.2.3