Re: [PATCH] gnu: Add emacs-mew.

[Thomas Danckaert]

From: Alex Kost <address@hidden>
Subject: Re: [PATCH] gnu: Add emacs-mew.
Date: Wed, 25 Jan 2017 12:29:14 +0300

> This could happen if it adds itself to a sub-directory of
> "/share/emacs/site-lisp".  In 'magit' package, for example, it is 
> fixed
> by using "lispdir" makeflag.  Since this package uses a full GNU 
> Build
> System, there should probably be "--with-lispdir" configure flag.

Indeed, done!

> BTW, I can't apply this patch on the current master.

I had edited the patch file manually. Seems like this sometimes 
works, sometimes doesn't.

I've attached an updated patch, which also fixes some issues with 
paths to various icons.

Thomas

From 93118dba6e551fb66846a2b69a7bec560795ba71 Mon Sep 17 00:00:00 2001
From: Thomas Danckaert <address@hidden>
Date: Tue, 24 Jan 2017 09:41:42 +0100
Subject: [PATCH] gnu: Add emacs-mew.

* gnu/packages/mail.scm (emacs-mew): New variable.
---
 gnu/packages/mail.scm | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)

diff --git a/gnu/packages/mail.scm b/gnu/packages/mail.scm
index 2318ae9b6..d985419be 100644
--- a/gnu/packages/mail.scm
+++ b/gnu/packages/mail.scm
@@ -20,6 +20,7 @@
 ;;; Copyright © 2016 Arun Isaac <address@hidden>
 ;;; Copyright © 2016 John Darrington <address@hidden>
 ;;; Copyright © 2016 Marius Bakke <address@hidden>
+;;; Copyright © 2017 Thomas Danckaert <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -79,6 +80,7 @@
   #:use-module (gnu packages flex)
   #:use-module (gnu packages gdb)
   #:use-module (gnu packages man)
+  #:use-module (gnu packages ruby)
   #:use-module (gnu packages samba)
   #:use-module (gnu packages screen)
   #:use-module (gnu packages tls)
@@ -377,6 +379,40 @@ can read the same mailbox from multiple computers.  It 
supports IMAP as REMOTE
 repository and Maildir/IMAP as LOCAL repository.")
     (license gpl2+)))
 
+(define-public emacs-mew
+  (package
+  (name "emacs-mew")
+  (version "6.7")
+  (source
+    (origin
+      (method url-fetch)
+      (uri (string-append "http://mew.org/Release/mew-"; version ".tar.gz"))
+      (sha256
+       (base32
+        "03fzky2kz73vgx4cbps2psbbnrgqgkk5q7jwfldisymkzr9iz03y"))))
+  (inputs
+   `(("emacs" ,emacs-minimal)))
+  (propagated-inputs
+   `(("ruby-sqlite3" ,ruby-sqlite3) ; optionally uses an sqlite database of 
messages
+     ("ruby" ,ruby))) ; to set GEM_PATH so ruby-sqlite3 is found at runtime
+  (build-system gnu-build-system)
+  (arguments
+   `(#:configure-flags (list
+                        (string-append "--with-elispdir=" (assoc-ref %outputs 
"out")
+                                       "/share/emacs/site-lisp/guix.d/mew"))
+     #:phases (modify-phases %standard-phases
+                (add-after 'configure 'patch-mew-icon-path ; ensure 
"Mew-icon.png" is found.
+                           (lambda _
+                             (substitute* "mew-key.el"
+                               (("\\(expand-file-name \"etc\" path\\)") 
"path")))))
+     #:tests? #f))
+  (home-page "http://www.mew.org";)
+  (synopsis "Emacs e-mail client")
+  (description "Mew (Messaging in the Emacs World) is a user interface
+for text messages, multimedia messages (MIME), news articles and
+security functionality including PGP, S/MIME, SSH, and SSL.")
+  (license bsd-3)))
+
 (define-public mu
   (package
     (name "mu")
-- 
2.11.0