Re: [PATCH] gnu: Add neomutt.

[ng0]

It's not functional yet, but this reflects my work in progress.

From 4bf9dd1e37bfba583fcf2d9a1c749c535eedf612 Mon Sep 17 00:00:00 2001
From: ng0 <address@hidden>
Date: Tue, 26 Jul 2016 14:15:55 +0000
Subject: [PATCH] gnu: Add neomutt.

* gnu/packages/mail.scm (neomutt): New variable.

Signed-off-by: ng0 <address@hidden>
---
 gnu/packages/mail.scm | 72 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 72 insertions(+)

diff --git a/gnu/packages/mail.scm b/gnu/packages/mail.scm
index 9214b73..b54127d 100644
--- a/gnu/packages/mail.scm
+++ b/gnu/packages/mail.scm
@@ -15,6 +15,7 @@
 ;;; Copyright © 2016 Lukas Gradl <address@hidden>
 ;;; Copyright © 2016 Alex Kost <address@hidden>
 ;;; Copyright © 2016 Troy Sankey <address@hidden>
+;;; Copyright © 2016 ng0 <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -72,6 +73,7 @@
   #:use-module (gnu packages tls)
   #:use-module (gnu packages xml)
   #:use-module (gnu packages xorg)
+  #:use-module (gnu packages docbook)
   #:use-module ((guix licenses)
                 #:select (gpl2 gpl2+ gpl3 gpl3+ lgpl2.1 lgpl2.1+ lgpl3+
                            non-copyleft (expat . license:expat)))
@@ -214,6 +216,76 @@ aliasing facilities to work just as they would on normal 
mail.")
 operating systems.")
     (license gpl2+)))

+(define-public neomutt
+  (package
+    (inherit mutt)
+    (name "neomutt")
+    (version "20160723")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "https://github.com/"; name "/" name
+                           "/archive/" name "-" version ".tar.gz"))
+       (sha256
+        (base32
+         "038f7g3hwbb9cxmxq69gx01cw6ayxscbgsqblksrfsqf7fggxvnh"))))
+    (inputs
+     `(("cyrus-sasl" ,cyrus-sasl)
+       ("gdbm" ,gdbm)
+       ("gpgme" ,gpgme)
+       ("ncurses" ,ncurses) ; ncurses or slang
+       ("gnutls" ,gnutls)
+       ("openssl" ,openssl) ; smime
+       ("perl" ,perl)
+       ("libxslt" ,libxslt)
+       ("libidn" ,libidn)
+       ("libxml2" ,libxml2)
+       ("docbook-xsl" ,docbook-xsl)))
+       ;;("notmuch" ,notmuch))) ; enable once gmime is fixed
+    (native-inputs
+     `(("autoconf" ,autoconf)
+       ("automake" ,automake)
+       ("pkg-config" ,pkg-config)))
+    (arguments
+     `(#:configure-flags
+       (list "--enable-smtp"
+             "--enable-imap"
+             "--enable-pop"
+             "--enable-gpgme"
+
+             ;; header caching and a database
+             "--without-tokyocabinet"
+             "--without-qdbm"
+             "--without-bdb"
+             "--without-lmdb"
+             "--with-gdbm"
+             "--enable-hcache" ; for header caching
+
+             "--with-gnutls"
+             "--without-ssl"
+             "--with-sasl"
+
+             "--with-regex"
+             "--enable-smime"
+             ;;"--enable-notmuch" ; enable once gmime is fixed
+             "--with-idn"
+
+             ;; so that mutt does not check whether the path
+             ;; exists, which it does not in the chroot
+             "--with-mailpath=/var/mail"
+
+             "--with-external-dotlock"
+             "--enable-nntp"
+             "--enable-compressed"
+
+             (string-append "--with-curses="
+                            (assoc-ref %build-inputs "ncurses")))
+       #:phases
+       (modify-phases %standard-phases
+         (add-after 'unpack 'autoconf
+           (lambda _
+             (zero? (system* "sh" "autoreconf" "-vfi")))))))))
+
 (define-public gmime
   (package
     (name "gmime")
--
2.9.1


--
♥Ⓐ  ng0
Current Keys: https://we.make.ritual.n0.is/ng0.txt
For non-prism friendly talk find me on http://www.psyced.org

signature.asc
Description: PGP signature