diff options
author | Clément Lassieur <clement@lassieur.org> | 2016-09-04 22:42:35 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2016-09-05 10:56:57 +0200 |
commit | 24262239da96eeabb0840c178ac6c80792e405c5 (patch) | |
tree | 74f613a5f0e32654d15eb193cb5ce1d39a76ad24 /gnu | |
parent | 818db70872312c128b1a69466919b6dd8ec890b1 (diff) | |
download | guix-patches-24262239da96eeabb0840c178ac6c80792e405c5.tar guix-patches-24262239da96eeabb0840c178ac6c80792e405c5.tar.gz |
gnu: Add mb2md.
* gnu/packages/mail.scm (mb2md): New variable.
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Diffstat (limited to 'gnu')
-rw-r--r-- | gnu/packages/mail.scm | 52 |
1 files changed, 50 insertions, 2 deletions
diff --git a/gnu/packages/mail.scm b/gnu/packages/mail.scm index c07bc529d0..3c29a9558a 100644 --- a/gnu/packages/mail.scm +++ b/gnu/packages/mail.scm @@ -16,6 +16,7 @@ ;;; Copyright © 2016 Alex Kost <alezost@gmail.com> ;;; Copyright © 2016 Troy Sankey <sankeytms@gmail.com> ;;; Copyright © 2016 ng0 <ng0@we.make.ritual.n0.is> +;;; Copyright © 2016 Clément Lassieur <clement@lassieur.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -77,14 +78,16 @@ #:use-module (gnu packages xorg) #:use-module ((guix licenses) #:select (gpl2 gpl2+ gpl3 gpl3+ lgpl2.1 lgpl2.1+ lgpl3+ - non-copyleft (expat . license:expat) bsd-3)) + non-copyleft (expat . license:expat) bsd-3 + public-domain)) #:use-module (guix packages) #:use-module (guix download) #:use-module (guix git-download) #:use-module (guix utils) #:use-module (guix build-system gnu) #:use-module (guix build-system perl) - #:use-module (guix build-system python)) + #:use-module (guix build-system python) + #:use-module (guix build-system trivial)) (define-public mailutils (package @@ -1308,3 +1311,48 @@ Khard can also be used from within the email client @command{mutt}.") (description "Mail::SPF is the Sender Policy Framework implemented in Perl.") (license bsd-3))) + +(define-public mb2md + (package + (name "mb2md") + (version "3.20") + (source (origin + (method url-fetch) + (uri (string-append + "http://batleth.sapienti-sat.org/projects/mb2md/mb2md-" + version ".pl.gz")) + (sha256 + (base32 + "0bvkky3c90738h3skd2f1b2yy5xzhl25cbh9w2dy97rs86ssjidg")))) + (build-system trivial-build-system) + (arguments + '(#:modules ((guix build utils)) + #:builder + (begin + (use-modules (guix build utils)) + (let* ((source (assoc-ref %build-inputs "source")) + (out (assoc-ref %outputs "out")) + (bin (string-append out "/bin")) + (perl (assoc-ref %build-inputs "perl")) + (gzip (assoc-ref %build-inputs "gzip")) + (perl-timedate (assoc-ref %build-inputs "perl-timedate")) + (perl5lib (string-append perl-timedate "/lib/perl5/site_perl"))) + (mkdir-p bin) + (with-directory-excursion bin + (copy-file source "mb2md.gz") + (system* (string-append gzip "/bin/gzip") "-d" "mb2md.gz") + (substitute* "mb2md" + (("#!/usr/bin/perl") + (string-append "#!/usr/bin/perl -I " perl5lib))) + (patch-shebang "mb2md" (list (string-append perl "/bin"))) + (chmod "mb2md" #o555)) + #t)))) + (native-inputs `(("gzip", gzip))) + (inputs `(("perl" ,perl) + ("perl-timedate" ,perl-timedate))) + (home-page "http://batleth.sapienti-sat.org/projects/mb2md/") + (synopsis "Mbox to maildir converter") + (description + "Mb2md is a Perl script that takes one or more mbox format files and +converts them to maildir format directories.") + (license public-domain))) |