From a98c0d94e80c046e10fdc7b10c7f619e2239d082 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Carlos=20Dur=C3=A1n=20Dom=C3=ADnguez?= Date: Fri, 16 Jan 2026 03:14:43 +0100 Subject: [PATCH] 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 Signed-off-by: Rutherther --- 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 bc0a8ce3d751ffbba5d653c30ce21d7b1ad8d416..592065eb97174933ec71f736fac17b48842ae733 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.")