Thomas Danckaert (2017-02-01 11:56 +0100) wrote: >> Also I see that by default it puts image files into >> "share/emacs/site-lisp/mew/etc". I don't think this is a good >> place, I would rather move them to "share/mew" as most packages do >> with various additional files. > > Yes, that would be cleaner. Is there also a clean way to add > share/mew to emacs' image-load-path? The problem is that the package > needs various *.xpm icon's, which are opened with “find-image” (via > “tool-bar-add-item”), which looks on image-load-path, whereas > “Mew-icon.png” is looked up in mew-icon-directory.
OK, I see. We can just patch "mew-key.el" file by putting the following line there: (add-to-list 'image-load-path 'mew-icon-directory) WDYT? > My patch as originally intended (now attached) puts everything in > share/emacs/site-lisp/guix.d/mew, where find-image will find it, and > patches mew-key.el so it also looks in that directory. Not clean, but > it works :-) I think it's rather messy having all elisp and image files in a single directory, I would prefer to modify 'image-load-path', and to put these images either in "share/mew" on in a sub-dir of the mew elisp dir. > From 175d5b859c5615157db51ab79fa059e397a7f2b9 Mon Sep 17 00:00:00 2001 > From: Thomas Danckaert <thomas.dancka...@gmail.com> > 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 | 38 ++++++++++++++++++++++++++++++++++++++ > 1 file changed, 38 insertions(+) > > diff --git a/gnu/packages/mail.scm b/gnu/packages/mail.scm > index 2318ae9b6..80a61a141 100644 > --- a/gnu/packages/mail.scm > +++ b/gnu/packages/mail.scm > @@ -20,6 +20,7 @@ > ;;; Copyright © 2016 Arun Isaac <arunis...@systemreboot.net> > ;;; Copyright © 2016 John Darrington <j...@gnu.org> > ;;; Copyright © 2016 Marius Bakke <mba...@fastmail.com> > +;;; Copyright © 2017 Thomas Danckaert <p...@thomasdanckaert.be> > ;;; > ;;; 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,42 @@ 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 > + (let ((elispdir (string-append (assoc-ref %outputs "out") > + "/share/emacs/site-lisp/guix.d/mew"))) > + (list (string-append "--with-elispdir=" elispdir) > + (string-append "--with-etcdir=" elispdir))) > + #: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"))))) I insist on patching 'mew-icon-directory' instead as I suggested. Or are there any problems with it? Also you seem to overlook my comment about autoloads. My version of your patch (attached in my previous message) contains a phase to generate "mew-autoloads.el". This file is really needed to have "M-x mew" command available by default. Otherwise, a user has to put: (autoload 'mew "mew" nil t) in his/her emacs config. > + #: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") -- Alex