This repository has been archived on 2024-10-22. You can view files and clone it, but cannot push or open issues or pull requests.
spacemacs/layers/+email/mu4e/packages.el

167 lines
5.6 KiB
EmacsLisp
Raw Normal View History

;;; packages.el --- mu4e Layer packages File for Spacemacs
2015-08-02 05:30:30 +00:00
;;
;; Copyright (c) 2012-2020 Sylvain Benner & Contributors
2015-08-02 05:30:30 +00:00
;;
;; Author: Sylvain Benner <sylvain.benner@gmail.com>
;; URL: https://github.com/syl20bnr/spacemacs
;;
;; This file is not part of GNU Emacs.
;;
;;; License: GPLv3
(defconst mu4e-packages
'(
(mu4e :location site)
mu4e-alert
mu4e-maildirs-extension
(helm-mu :requires helm)
org
persp-mode
window-purpose))
2015-08-02 05:30:30 +00:00
(defun mu4e/post-init-persp-mode ()
(spacemacs|define-custom-layout mu4e-spacemacs-layout-name
:binding mu4e-spacemacs-layout-binding
:body
(progn
(defun spacemacs-layouts/add-mu4e-buffer-to-persp ()
(persp-add-buffer (current-buffer)
(persp-get-by-name
mu4e-spacemacs-layout-name)))
(spacemacs/add-to-hooks 'spacemacs-layouts/add-mu4e-buffer-to-persp
'(mu4e-main-mode-hook
mu4e-headers-mode-hook
mu4e-view-mode-hook
mu4e-compose-mode-hook))
(call-interactively 'mu4e)
2018-08-25 22:20:15 +00:00
(call-interactively 'mu4e-update-index)
(define-advice mu4e~stop (:after nil kill-mu4e-layout-after-mu4e~stop)
(when mu4e-spacemacs-kill-layout-on-exit
(persp-kill mu4e-spacemacs-layout-name))))))
2015-08-02 05:30:30 +00:00
(defun mu4e/init-mu4e ()
(use-package mu4e
:commands (mu4e mu4e-compose-new)
2015-08-02 05:30:30 +00:00
:init
(progn
(spacemacs/set-leader-keys "aem" 'mu4e)
(global-set-key (kbd "C-x m") 'mu4e-compose-new)
(setq mu4e-completing-read-function 'completing-read
mu4e-use-fancy-chars 't
mu4e-view-show-images 't
message-kill-buffer-on-exit 't)
(let ((dir "~/Downloads"))
(when (file-directory-p dir)
(setq mu4e-attachment-dir dir))))
2015-08-02 05:30:30 +00:00
:config
(progn
(evilified-state-evilify-map mu4e-main-mode-map
:mode mu4e-main-mode
:bindings
2018-02-09 08:37:42 +00:00
(kbd "j") 'mu4e~headers-jump-to-maildir
(kbd "C-j") 'next-line
(kbd "C-k") 'previous-line)
(evilified-state-evilify-map
mu4e-headers-mode-map
:mode mu4e-headers-mode
:bindings
(kbd "C-j") 'mu4e-headers-next
(kbd "C-k") 'mu4e-headers-prev
(kbd "J") (lambda ()
(interactive)
(mu4e-headers-mark-thread nil '(read))))
(evilified-state-evilify-map
mu4e-view-mode-map
:mode mu4e-view-mode
:bindings
(kbd "C-j") 'mu4e-view-headers-next
(kbd "C-k") 'mu4e-view-headers-prev
(kbd "J") (lambda ()
(interactive)
(mu4e-view-mark-thread '(read)))
(kbd "gu") 'mu4e-view-go-to-url)
(spacemacs/set-leader-keys-for-major-mode 'mu4e-compose-mode
dotspacemacs-major-mode-leader-key 'message-send-and-exit
"c" 'message-send-and-exit
"k" 'message-kill-buffer
"a" 'message-kill-buffer
"s" 'message-dont-send ; saves as draft
"f" 'mml-attach-file)
(when mu4e-enable-async-operations
(require 'smtpmail-async)
(setq send-mail-function 'async-smtpmail-send-it
message-send-mail-function 'async-smtpmail-send-it))
(when (fboundp 'imagemagick-register-types)
(imagemagick-register-types))
2015-08-02 05:30:30 +00:00
(add-to-list 'mu4e-view-actions
'("View in browser" . mu4e-action-view-in-browser) t)
(add-hook 'mu4e-compose-mode-hook
(lambda () (use-hard-newlines t 'guess)))
;; from http://www.djcbsoftware.nl/code/mu/mu4e/Attaching-files-with-dired.html
(require 'gnus-dired)
;; make the `gnus-dired-mail-buffers' function also work on
;; message-mode derived modes, such as mu4e-compose-mode
(defun gnus-dired-mail-buffers ()
"Return a list of active message buffers."
(let (buffers)
(save-current-buffer
(dolist (buffer (buffer-list t))
(set-buffer buffer)
(when (and (derived-mode-p 'message-mode)
(null message-sent-message-via))
(push (buffer-name buffer) buffers))))
(nreverse buffers)))
(setq gnus-dired-mail-mode 'mu4e-user-agent)
(add-hook 'dired-mode-hook 'turn-on-gnus-dired-mode))))
(defun mu4e/init-mu4e-alert ()
(use-package mu4e-alert
:defer t
:init (with-eval-after-load 'mu4e
(when mu4e-enable-notifications
(mu4e-alert-enable-notifications))
(when mu4e-enable-mode-line
(mu4e-alert-enable-mode-line-display)))))
2016-01-21 15:17:17 +00:00
(defun mu4e/init-helm-mu ()
(use-package helm-mu
:defer t
:init (dolist (m mu4e-modes)
(spacemacs/set-leader-keys-for-major-mode m
"S" 'helm-mu
"/" 'helm-mu
"C" 'helm-mu-contacts))))
2016-01-21 15:17:17 +00:00
(defun mu4e/init-mu4e-maildirs-extension ()
"If mu4e-use-maildirs-extension is non-nil, set
mu4e-use-maildirs-extension-load to be evaluated after mu4e has been loaded."
(use-package mu4e-maildirs-extension
:if mu4e-use-maildirs-extension
:init (with-eval-after-load 'mu4e (mu4e-maildirs-extension-load))))
(defun mu4e/pre-init-org ()
;; load mu4e-org when org is actually loaded
(with-eval-after-load 'org
(require 'mu4e nil 'noerror)
(require 'mu4e-org nil 'noerror)))
(defun mu4e/post-init-window-purpose ()
(let ((modes))
(dolist (mode mu4e-list-modes)
(add-to-list 'modes (cons mode 'mail)))
(dolist (mode mu4e-view-modes)
(add-to-list 'modes (cons mode 'mail-view)))
(purpose-set-extension-configuration
:mu4e-layer
(purpose-conf :mode-purposes modes))))