me
/
guix
Archived
1
0
Fork 0
Code

gnu: emacs-mew: Update to 6.9-1.35772ee. 

* gnu/packages/mail.scm (emacs-mew): Update to 6.9-1.35772ee.
[source]: Set upstream to GitHub as the release tarball is missing from home
page.
Nicolas Goaziou 2023-02-18 10:55:04 +01:00
parent 224bcf4f1d
commit 64f94de145
No known key found for this signature in database
GPG Key ID: DA00B4F048E92F2D
1 changed files with 52 additions and 47 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

99
gnu/packages/mail.scm
View File

@ -1112,55 +1112,60 @@ repository and Maildir/IMAP as LOCAL repository.")
(deprecated-package "offlineimap" offlineimap3)) (deprecated-package "offlineimap" offlineimap3))
(define-public emacs-mew (define-public emacs-mew
(package (let ((commit "35772ee0b44dd7e56b0f3899b27fa545b2bc6f03")
(name "emacs-mew") (revision "1"))
(version "6.8") (package
(source (origin (name "emacs-mew")
(method url-fetch) (version (git-version "6.9" revision commit))
(uri (string-append "https://mew.org/Release/mew-" (source
version ".tar.gz")) (origin
(sha256 (method git-fetch)
(base32 (uri (git-reference
"0ixzyq33l6j34410kqav3lwn2wx171zvqd3irvns2jvhrbww8i6g")))) (url "https://github.com/kazu-yamamoto/Mew")
(native-inputs (commit commit)))
(list emacs)) (file-name (git-file-name name version))
(propagated-inputs (sha256
(list ruby-sqlite3 ; optional for the database of messages (base32
ruby)) ; to set GEM_PATH so ruby-sqlite3 is found at runtime "0xazygwdc328m5l31rxjazq9giv2xrygp2p2q455lf3jhdxwq1km"))))
(build-system gnu-build-system) (native-inputs
(arguments (list emacs))
(let ((elisp-dir "/share/emacs/site-lisp") (propagated-inputs
(icon-dir "/share/mew")) (list ruby-sqlite3 ; optional for the database of messages
`(#:modules ((guix build gnu-build-system) ruby)) ; to set GEM_PATH so ruby-sqlite3 is found at runtime
(guix build utils) (build-system gnu-build-system)
(guix build emacs-utils)) (arguments
#:imported-modules (,@%gnu-build-system-modules (let ((elisp-dir "/share/emacs/site-lisp")
(guix build emacs-utils)) (icon-dir "/share/mew"))
#:configure-flags `(#:modules ((guix build gnu-build-system)
(list (string-append "--with-elispdir=" %output ,elisp-dir) (guix build utils)
(string-append "--with-etcdir=" %output ,icon-dir)) (guix build emacs-utils))
#:phases #:imported-modules (,@%gnu-build-system-modules
(modify-phases %standard-phases (guix build emacs-utils))
(add-after 'configure 'patch-mew-icon-directory #:configure-flags
(lambda* (#:key outputs #:allow-other-keys) (list (string-append "--with-elispdir=" %output ,elisp-dir)
(emacs-substitute-sexps "mew-key.el" (string-append "--with-etcdir=" %output ,icon-dir))
("(def.* mew-icon-directory" #:phases
`(progn (modify-phases %standard-phases
(add-to-list 'image-load-path 'mew-icon-directory) (add-after 'configure 'patch-mew-icon-directory
,(string-append (assoc-ref outputs "out") ,icon-dir)))) (lambda* (#:key outputs #:allow-other-keys)
#t)) (emacs-substitute-sexps "elisp/mew-key.el"
(add-after 'install 'generate-autoloads ("(def.* mew-icon-directory"
(lambda* (#:key outputs #:allow-other-keys) `(progn
(emacs-generate-autoloads (add-to-list 'image-load-path 'mew-icon-directory)
"mew" (string-append (assoc-ref outputs "out") ,elisp-dir)) ,(string-append (assoc-ref outputs "out") ,icon-dir))))
#t))) #t))
#:tests? #f))) (add-after 'install 'generate-autoloads
(home-page "https://mew.org") (lambda* (#:key outputs #:allow-other-keys)
(synopsis "Emacs e-mail client") (emacs-generate-autoloads
(description "Mew (Messaging in the Emacs World) is a user interface "mew" (string-append (assoc-ref outputs "out") ,elisp-dir))
#t)))
#:tests? #f)))
(home-page "https://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 for text messages, multimedia messages (MIME), news articles and
security functionality including PGP, S/MIME, SSH, and SSL.") security functionality including PGP, S/MIME, SSH, and SSL.")
(license license:bsd-3))) (license license:bsd-3))))
(define-public mu (define-public mu
(package (package