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

@@ -1127,39 +1127,37 @@ repository and Maildir/IMAP as LOCAL repository.")
          (sha256
           (base32
            "0xazygwdc328m5l31rxjazq9giv2xrygp2p2q455lf3jhdxwq1km"))))
+      (build-system gnu-build-system)
+      (arguments
+       (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
+                               (guix build emacs-utils))
+          #: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-sqlite3              ; optional for the database of messages
+       (list ruby        ; to set GEM_PATH so ruby-sqlite3 is found at runtime
-             ruby))      ; to set GEM_PATH so ruby-sqlite3 is found at runtime
+             ruby-sqlite3))            ; optional for the database of messages
-      (build-system gnu-build-system)
-      (arguments
-       (let ((elisp-dir "/share/emacs/site-lisp")
-             (icon-dir  "/share/mew"))
-         `(#:modules ((guix build gnu-build-system)
-                      (guix build utils)
-                      (guix build emacs-utils))
-           #: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)))
       (home-page "https://mew.org")
       (synopsis "Emacs e-mail client")
       (description "Mew (Messaging in the Emacs World) is a user interface