me
/
guix
Archived
1
0
Fork 0

gnu: emacs-mew: Adjust to changes in emacs-build-system.

* gnu/packages/mail.scm (emacs-mew)[arguments]: Only let-bind icon-dir.
<#:modules>: Add (guix build emacs-build-system).
<#:imported-modules>: Use %emacs-build-system-modules.
<#:configure-flags>: Set elispdir with emacs:elpa-directory.
<#:phases>: Move ‘generate-autoloads’ after ‘unpack’.
Generate the autoloads locally.
Also enable compilation.
master
Liliana Marie Prikler 2023-10-19 06:53:11 +02:00
parent d1b98d7c92
commit a5eb6fa52f
No known key found for this signature in database
GPG Key ID: 442A84B8C70E2F87
1 changed files with 13 additions and 7 deletions

View File

@ -1167,17 +1167,17 @@ repository and Maildir/IMAP as LOCAL repository.")
"0xazygwdc328m5l31rxjazq9giv2xrygp2p2q455lf3jhdxwq1km"))))
(build-system gnu-build-system)
(arguments
(let ((elisp-dir #~(string-append #$output "/share/emacs/site-lisp"))
(icon-dir #~(string-append #$output "/share/mew")))
(let ((icon-dir #~(string-append #$output "/share/mew")))
(list
#:modules '((guix build gnu-build-system)
(guix build utils)
((guix build emacs-build-system) #:prefix emacs:)
(guix build emacs-utils))
#:imported-modules `(,@%gnu-build-system-modules
(guix build emacs-utils))
#:imported-modules %emacs-build-system-modules
#:tests? #f
#:configure-flags
#~(list (string-append "--with-elispdir=" #$elisp-dir)
#~(list (string-append "--with-elispdir="
(emacs:elpa-directory #$output))
(string-append "--with-etcdir=" #$icon-dir))
#:phases
#~(modify-phases %standard-phases
@ -1188,9 +1188,15 @@ repository and Maildir/IMAP as LOCAL repository.")
`(progn
(add-to-list 'image-load-path 'mew-icon-directory)
,#$icon-dir)))))
(add-after 'install 'generate-autoloads
(add-after 'unpack 'generate-autoloads
(lambda _
(emacs-generate-autoloads "mew" #$elisp-dir)))))))
(emacs-generate-autoloads "mew" "elisp")
(substitute* "elisp/mew-autoloads.el"
((";; no-byte-compile.*") ""))
;; Add generated autoloads to Makefile, so they get compiled
(substitute* "elisp/Makefile"
(("OBJS =") "OBJS = mew-autoloads.elc")
(("SRCS =") "SRCS = mew-autoloads.el"))))))))
(native-inputs
(list emacs))
(propagated-inputs