me/guix
Archived
1
0
Fork 0
Code Activity

gnu: altermime: Use G-expressions.

Browse source 
* gnu/packages/mail.scm (altermime)[arguments]:
Rewrite as G-expressions.  Don't explicitly return #t from phases.
This commit is contained in:
Tobias Geerinckx-Rice 2023-07-09 02:00:02 +02:00
parent 1d7e1fbc38
commit bce8c88f42
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 30 additions and 31 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
gnu/packages/mail.scm
View file

@ -837,11 +837,13 @@ Extension (MIME).")
"15zxg6spcmd35r6xbidq2fgcg2nzyv1sbbqds08lzll70mqx4pj7")))) "15zxg6spcmd35r6xbidq2fgcg2nzyv1sbbqds08lzll70mqx4pj7"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:make-flags (list "CC=gcc" (list
(string-append "PREFIX=" (assoc-ref %outputs "out"))) #:make-flags
#~(list "CC=gcc"
(string-append "PREFIX=" #$output))
#:tests? #f ; there are none #:tests? #f ; there are none
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(delete 'configure) (delete 'configure)
(add-after 'unpack 'fix-bugs (add-after 'unpack 'fix-bugs
(lambda _ (lambda _
@ -855,19 +857,16 @@ Extension (MIME).")
"if ((st->start)&&(*st->start != '\\0'))")) "if ((st->start)&&(*st->start != '\\0'))"))
(substitute* "qpe.c" (substitute* "qpe.c"
(("if \\(lineend != '\\\\0'\\)") (("if \\(lineend != '\\\\0'\\)")
"if (*lineend != '\\0')")) "if (*lineend != '\\0')"))))
#t))
(add-after 'unpack 'install-to-prefix (add-after 'unpack 'install-to-prefix
(lambda _ (lambda _
(substitute* "Makefile" (substitute* "Makefile"
(("/usr/local") "${PREFIX}") (("/usr/local") "${PREFIX}")
(("cp altermime.*") "install -D -t ${PREFIX}/bin altermime\n")) (("cp altermime.*") "install -D -t ${PREFIX}/bin altermime\n"))))
#t))
(add-after 'unpack 'disable-Werror (add-after 'unpack 'disable-Werror
(lambda _ (lambda _
(substitute* "Makefile" (substitute* "Makefile"
(("-Werror") "")) (("-Werror") "")))))))
#t)))))
(home-page "https://pldaniels.com/altermime/") (home-page "https://pldaniels.com/altermime/")
(synopsis "Modify MIME-encoded messages") (synopsis "Modify MIME-encoded messages")
(description (description