02/02: gnu: mailcap: Modernize package style.

[guix-commits]

guix_mirror_bot pushed a commit to branch next-master
in repository guix.

commit 1087e41a9bbd5fb780a5c6ce865857b873580735
Author: Carlos Durán Domínguez <w...@wurt.eu>
AuthorDate: Fri Jan 16 03:14:43 2026 +0100

    gnu: mailcap: Modernize package style.
    
    * gnu/packages/mail.scm (mailcap): Fix indentation.
    [arguments] {phases} Modernize to use G-Exp instead of quasiquotes.
    
    Change-Id: Id4f38cec593912d81481b24d863eb1b72abae9e9
    Signed-off-by: Gabriel Wicki <gabr...@erlikon.ch>
---
 gnu/packages/mail.scm | 36 +++++++++++++++++-------------------
 1 file changed, 17 insertions(+), 19 deletions(-)

diff --git a/gnu/packages/mail.scm b/gnu/packages/mail.scm
index bc0a8ce3d7..592065eb97 100644
--- a/gnu/packages/mail.scm
+++ b/gnu/packages/mail.scm
@@ -1150,30 +1150,28 @@ MIME-encoded email package.")
        (origin
          (method git-fetch)
          (uri (git-reference
-               (url "https://pagure.io/mailcap.git";)
-               (commit tag)))
+                (url "https://pagure.io/mailcap.git";)
+                (commit tag)))
          (file-name (git-file-name name version))
          (sha256
           (base32 "163kf88spdvywhym08487ia7y88dq7mn93hz8q4qa1wjha4rhb5n"))))
       (build-system gnu-build-system)
       (arguments
-       '(#:phases
-         (modify-phases %standard-phases
-           (delete 'configure)
-           (add-before 'install 'patch-xdg-open-references
-             (lambda _
-               (substitute* "mailcap"
-                 ;; If /usr/bin/xdg-open does not exists.
-                 (("/usr/bin/xdg-open") "/usr/bin/env xdg-open"))))
-           (add-before 'install 'set-dest-dir
-             (lambda* (#:key outputs #:allow-other-keys)
-               (let ((out (assoc-ref outputs "out")))
-                 (setenv "DESTDIR" out)
-                 (substitute* "Makefile"
-                   (("/usr") ""))       ; This allows the man page to install.
-                 #t))))))
-      (native-inputs
-       (list python))           ; for tests
+       (list
+        #:phases
+        #~(modify-phases %standard-phases
+            (delete 'configure)
+            (add-before 'install 'patch-xdg-open-references
+              (lambda _
+                (substitute* "mailcap"
+                  ;; If /usr/bin/xdg-open does not exists.
+                  (("/usr/bin/xdg-open") "/usr/bin/env xdg-open"))))
+            (add-before 'install 'set-dest-dir
+              (lambda _
+                (setenv "DESTDIR" #$output)
+                (substitute* "Makefile"
+                  (("/usr") "")))))))   ; This allows the man page to install.
+      (native-inputs (list python))     ; for tests
       (synopsis "MIME type associations for file types")
       (description
        "This package provides MIME type associations for file types.")