diff options
| -rw-r--r-- | gnu/packages/mail.scm | 54 |
1 files changed, 26 insertions, 28 deletions
diff --git a/gnu/packages/mail.scm b/gnu/packages/mail.scm index f7f41a58fbe..4c36e05fe01 100644 --- a/gnu/packages/mail.scm +++ b/gnu/packages/mail.scm @@ -1127,39 +1127,37 @@ repository and Maildir/IMAP as LOCAL repository.") (sha256 (base32 "0xazygwdc328m5l31rxjazq9giv2xrygp2p2q455lf3jhdxwq1km")))) - (native-inputs - (list emacs)) - (propagated-inputs - (list ruby-sqlite3 ; optional for the database of messages - ruby)) ; to set GEM_PATH so ruby-sqlite3 is found at runtime (build-system gnu-build-system) (arguments - (let ((elisp-dir "/share/emacs/site-lisp") - (icon-dir "/share/mew")) - `(#:modules ((guix build gnu-build-system) + (let ((elisp-dir #~(string-append #$output "/share/emacs/site-lisp")) + (icon-dir #~(string-append #$output "/share/mew"))) + (list + #:modules '((guix build gnu-build-system) (guix build utils) (guix build emacs-utils)) - #:imported-modules (,@%gnu-build-system-modules + #:imported-modules `(,@%gnu-build-system-modules (guix build emacs-utils)) - #:configure-flags - (list (string-append "--with-elispdir=" %output ,elisp-dir) - (string-append "--with-etcdir=" %output ,icon-dir)) - #:phases - (modify-phases %standard-phases - (add-after 'configure 'patch-mew-icon-directory - (lambda* (#:key outputs #:allow-other-keys) - (emacs-substitute-sexps "elisp/mew-key.el" - ("(def.* mew-icon-directory" - `(progn - (add-to-list 'image-load-path 'mew-icon-directory) - ,(string-append (assoc-ref outputs "out") ,icon-dir)))) - #t)) - (add-after 'install 'generate-autoloads - (lambda* (#:key outputs #:allow-other-keys) - (emacs-generate-autoloads - "mew" (string-append (assoc-ref outputs "out") ,elisp-dir)) - #t))) - #:tests? #f))) + #:tests? #f + #:configure-flags + #~(list (string-append "--with-elispdir=" #$elisp-dir) + (string-append "--with-etcdir=" #$icon-dir)) + #:phases + #~(modify-phases %standard-phases + (add-after 'configure 'patch-mew-icon-directory + (lambda _ + (emacs-substitute-sexps "elisp/mew-key.el" + ("(def.* mew-icon-directory" + `(progn + (add-to-list 'image-load-path 'mew-icon-directory) + ,#$icon-dir))))) + (add-after 'install 'generate-autoloads + (lambda _ + (emacs-generate-autoloads "mew" #$elisp-dir))))))) + (native-inputs + (list emacs)) + (propagated-inputs + (list ruby ; to set GEM_PATH so ruby-sqlite3 is found at runtime + ruby-sqlite3)) ; optional for the database of messages (home-page "https://mew.org") (synopsis "Emacs e-mail client") (description "Mew (Messaging in the Emacs World) is a user interface |