From bc3354a8821f365e692abf04006e3e5a61c44e28 Mon Sep 17 00:00:00 2001
From: Nicolas Goaziou <mail@nicolasgoaziou.fr>
Date: Sat, 18 Feb 2023 11:27:17 +0100
Subject: gnu: emacs-mew: Improve package style.

* gnu/packages/mail.scm (emacs-mew)[arguments]: Use G-expressions.  Remove
trailing #T from phases.
[propagated-inputs]: Re-order inputs alphabetically.
---
 gnu/packages/mail.scm | 54 +++++++++++++++++++++++++--------------------------
 1 file changed, 26 insertions(+), 28 deletions(-)

(limited to 'gnu/packages/mail.scm')

diff --git a/gnu/packages/mail.scm b/gnu/packages/mail.scm
index f7f41a58fb..4c36e05fe0 100644
--- a/gnu/packages/mail.scm
+++ b/gnu/packages/mail.scm
@@ -1127,39 +1127,37 @@ (define-public emacs-mew
          (sha256
           (base32
            "0xazygwdc328m5l31rxjazq9giv2xrygp2p2q455lf3jhdxwq1km"))))
-      (native-inputs
-       (list emacs))
-      (propagated-inputs
-       (list ruby-sqlite3              ; optional for the database of messages
-             ruby))      ; to set GEM_PATH so ruby-sqlite3 is found at runtime
       (build-system gnu-build-system)
       (arguments
-       (let ((elisp-dir "/share/emacs/site-lisp")
-             (icon-dir  "/share/mew"))
-         `(#:modules ((guix build gnu-build-system)
+       (let ((elisp-dir #~(string-append #$output "/share/emacs/site-lisp"))
+             (icon-dir  #~(string-append #$output "/share/mew")))
+         (list
+          #:modules '((guix build gnu-build-system)
                       (guix build utils)
                       (guix build emacs-utils))
-           #:imported-modules (,@%gnu-build-system-modules
+          #:imported-modules `(,@%gnu-build-system-modules
                                (guix build emacs-utils))
-           #:configure-flags
-           (list (string-append "--with-elispdir=" %output ,elisp-dir)
-                 (string-append "--with-etcdir=" %output ,icon-dir))
-           #:phases
-           (modify-phases %standard-phases
-             (add-after 'configure 'patch-mew-icon-directory
-               (lambda* (#:key outputs #:allow-other-keys)
-                 (emacs-substitute-sexps "elisp/mew-key.el"
-                   ("(def.* mew-icon-directory"
-                    `(progn
-                      (add-to-list 'image-load-path 'mew-icon-directory)
-                      ,(string-append (assoc-ref outputs "out") ,icon-dir))))
-                 #t))
-             (add-after 'install 'generate-autoloads
-               (lambda* (#:key outputs #:allow-other-keys)
-                  (emacs-generate-autoloads
-                  "mew" (string-append (assoc-ref outputs "out") ,elisp-dir))
-                 #t)))
-           #:tests? #f)))
+          #:tests? #f
+          #:configure-flags
+          #~(list (string-append "--with-elispdir=" #$elisp-dir)
+                  (string-append "--with-etcdir=" #$icon-dir))
+          #:phases
+          #~(modify-phases %standard-phases
+              (add-after 'configure 'patch-mew-icon-directory
+                (lambda _
+                  (emacs-substitute-sexps "elisp/mew-key.el"
+                    ("(def.* mew-icon-directory"
+                     `(progn
+                       (add-to-list 'image-load-path 'mew-icon-directory)
+                       ,#$icon-dir)))))
+              (add-after 'install 'generate-autoloads
+                (lambda _
+                  (emacs-generate-autoloads "mew" #$elisp-dir)))))))
+      (native-inputs
+       (list emacs))
+      (propagated-inputs
+       (list ruby        ; to set GEM_PATH so ruby-sqlite3 is found at runtime
+             ruby-sqlite3))            ; optional for the database of messages
       (home-page "https://mew.org")
       (synopsis "Emacs e-mail client")
       (description "Mew (Messaging in the Emacs World) is a user interface
-- 
cgit v1.2.3