futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gnu: swaks: Use git source.

Browse Source 
* gnu/packages/mail.scm (swaks)[source]: Use GIT-FETCH and
GIT-FILE-NAME.
[argument]: Add a ‘set-build_version’ phase.
Adjust the POD file name.
This commit is contained in:
Tobias Geerinckx-Rice 2020-10-15 20:46:57 +02:00
parent 7f4a81540a
commit ad8cdc7b89
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
gnu/packages/mail.scm
View File

@ -3233,13 +3233,13 @@ on the fly. Both programs are written in C and are very fast.")
(version "20190914.0") (version "20190914.0")
(source (source
(origin (origin
(method url-fetch) (method git-fetch)
(uri (string-append (uri (git-reference
"https://jetmore.org/john/code/swaks/files/swaks-" (url "https://github.com/jetmore/swaks")
version ".tar.gz")) (commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32 "0xd3952mm8r0nj32rhvciiaq8cx4hxvr7nqpv4njq18q6gv13qby"))))
"12awq5z4sdd54cxprj834zajxhkpy4jwhzf1fhigcx1zbhdaacsp"))))
(build-system perl-build-system) (build-system perl-build-system)
(inputs (inputs
`(("perl-io-socket-inet6" ,perl-io-socket-inet6) `(("perl-io-socket-inet6" ,perl-io-socket-inet6)
@ -3250,10 +3250,15 @@ on the fly. Both programs are written in C and are very fast.")
`(#:tests? #f ; no tests `(#:tests? #f ; no tests
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'set-build_version
(lambda _
(substitute* "swaks"
(("\"DEVRELEASE\"") (format #f "\"~a\"" ,version)))
#true))
(delete 'configure) (delete 'configure)
(replace 'build (replace 'build
(lambda _ (lambda _
(invoke "pod2man" "doc/ref.pod" "swaks.1"))) (invoke "pod2man" "doc/base.pod" "swaks.1")))
(replace 'install (replace 'install
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))) (let ((out (assoc-ref outputs "out")))