ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-26 12:39:36 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: emacs-mew: Improve package style.

Browse source 
* gnu/packages/mail.scm (emacs-mew)[arguments]: Use G-expressions.  Remove
trailing #T from phases.
[propagated-inputs]: Re-order inputs alphabetically.
This commit is contained in:
Nicolas Goaziou 2023-02-18 11:27:17 +01:00
parent 64f94de145
commit bc3354a882
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D
1 changed files with 28 additions and 30 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

58
gnu/packages/mail.scm
View file

@ -1127,39 +1127,37 @@ (define-public emacs-mew
(sha256
(base32
"0xazygwdc328m5l31rxjazq9giv2xrygp2p2q455lf3jhdxwq1km"))))
(build-system gnu-build-system)
(arguments
(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
(guix build emacs-utils))
#: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-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)
(guix build utils)
(guix build emacs-utils))
#: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)))
(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