From 818a4af5b33f5e5e3778cdaa979a1ef4134ab2a1 Mon Sep 17 00:00:00 2001 From: Amin Bandali Date: Mon, 12 Dec 2016 03:06:35 -0500 Subject: [PATCH] Add mu4e config TODO: switch to using mu4e-contexts --- isync/.mbsyncrc | 32 ++--- spacemacs/.emacs.d/private/aminb/layers.el | 2 +- spacemacs/.emacs.d/private/aminb/packages.el | 121 ++++++++++++++++++- spacemacs/.spacemacs | 2 +- 4 files changed, 138 insertions(+), 19 deletions(-) diff --git a/isync/.mbsyncrc b/isync/.mbsyncrc index 9d0cdec..f1a954c 100644 --- a/isync/.mbsyncrc +++ b/isync/.mbsyncrc @@ -2,43 +2,43 @@ CopyArrivalDate yes ###### -IMAPAccount aminb -Host mail.aminb.org User REDACTED -PassCmd "gpg2 -q --for-your-eyes-only --no-tty -d ~/.passwd/aminb.gpg" +IMAPAccount amin +Host nix.aminb.org +PassCmd "gpg -q --for-your-eyes-only --no-tty -d ~/.passwd/amin.gpg" SSLType IMAPS -IMAPStore aminb-remote -Account aminb +IMAPStore amin-remote +Account amin -MaildirStore aminb-local -Path ~/.mail/aminb/ -Inbox ~/.mail/aminb/Inbox +MaildirStore amin-local +Path ~/mail/amin/ +Inbox ~/mail/amin/Inbox -Channel aminb -Master :aminb-remote: -Slave :aminb-local: +Channel amin +Master :amin-remote: +Slave :amin-local: Patterns * !dovecot* -Create Slave +Create Both SyncState * ###### IMAPAccount gmail Host imap.gmail.com User REDACTED -PassCmd "gpg2 -q --for-your-eyes-only --no-tty -d ~/.passwd/gmail.gpg" +PassCmd "gpg -q --for-your-eyes-only --no-tty -d ~/.passwd/gmail.gpg" SSLType IMAPS IMAPStore gmail-remote Account gmail MaildirStore gmail-local -Path ~/.mail/gmail/ -Inbox ~/.mail/gmail/Inbox +Path ~/mail/gmail/ +Inbox ~/mail/gmail/Inbox Channel gmail Master :gmail-remote: Slave :gmail-local: Patterns * ![Gmail]* "[Gmail]/Sent Mail" -Create Slave +Create Both SyncState * diff --git a/spacemacs/.emacs.d/private/aminb/layers.el b/spacemacs/.emacs.d/private/aminb/layers.el index a7cbc32..04bde71 100644 --- a/spacemacs/.emacs.d/private/aminb/layers.el +++ b/spacemacs/.emacs.d/private/aminb/layers.el @@ -11,4 +11,4 @@ ;; Prerequisites -(configuration-layer/declare-layer 'erc) +(configuration-layer/declare-layers '(erc mu4e)) diff --git a/spacemacs/.emacs.d/private/aminb/packages.el b/spacemacs/.emacs.d/private/aminb/packages.el index 99dd649..7bb09f6 100644 --- a/spacemacs/.emacs.d/private/aminb/packages.el +++ b/spacemacs/.emacs.d/private/aminb/packages.el @@ -17,7 +17,13 @@ ;;; Code: (defconst aminb-packages - '(crux writeroom-mode znc) + '(crux writeroom-mode znc + ;; mu4e has to be installed manually, + ;; and make sure it's in load-path + (mu4e :location site) + (mu4e-contrib :location site) + smtpmail + ) "The list of Lisp packages required by the aminb layer.") (defun aminb/init-crux () @@ -129,4 +135,117 @@ erc-modified-channels-alist. Should be executed on window change." ))) +(defun aminb/post-init-mu4e () + (use-package mu4e + :defer t + :config + (progn + (setq mu4e-maildir "~/mail" + mu4e-get-mail-command "mbsync -aq" ;; or fetchmail, or ... + mu4e-update-interval 300 ;; update every 5 minutes + mu4e-view-show-addresses t + mu4e-headers-include-related t + mu4e-compose-signature-auto-include t + mu4e-compose-signature + (concat + "Amin Bandali\n" + "\n") + ;; don't keep message buffers around + message-kill-buffer-on-exit t + mu4e-attachment-dir "~/dls" + mu4e-sent-folder "/amin/Sent" + mu4e-drafts-folder "/amin/Drafts" + mu4e-trash-folder "/amin/Trash" + user-mail-address "amin@aminb.org") + + (defvar my-mu4e-account-alist + '(("amin" + (mu4e-sent-folder "/amin/Sent") + (mu4e-drafts-folder "/amin/Drafts") + (mu4e-trash-folder "/amin/Trash") + (user-mail-address "amin@aminb.org") + (user-full-name "Amin Bandali") + (smtpmail-default-smtp-server "nix.aminb.org") + (smtpmail-local-domain "aminb.org") + (smtpmail-smtp-user "amin@aminb.org") + (smtpmail-smtp-server "nix.aminb.org") + (smtpmail-stream-type 'starttls) + (smtpmail-smtp-service 587)) + ("gmail" + (mu4e-sent-folder "/gmail/[Gmail].Sent Mail") + (mu4e-drafts-folder "/gmail/[Gmail].Drafts") + (mu4e-trash-folder "/gmail/[Gmail].Trash") + (user-mail-address "amin.bandali@gmail.com") + (user-full-name "Amin Bandali") + (smtpmail-default-smtp-server "smtp.gmail.com") + (smtpmail-local-domain "gmail.com") + (smtpmail-smtp-user "amin.bandali@gmail.com") + (smtpmail-smtp-server "smtp.gmail.com") + (smtpmail-stream-type ssl) + (smtpmail-smtp-service 465)))) + + (defun my-mu4e-set-account () + "Set the account for composing a message." + (let* ((account + (if mu4e-compose-parent-message + (let ((maildir (mu4e-message-field mu4e-compose-parent-message :maildir))) + (string-match "/\\(.*?\\)/" maildir) + (match-string 1 maildir)) + (completing-read (format "Compose with account: (%s) " + (mapconcat #'(lambda (var) (car var)) + my-mu4e-account-alist "/")) + (mapcar #'(lambda (var) (car var)) my-mu4e-account-alist) + nil t nil nil (caar my-mu4e-account-alist)))) + (account-vars (cdr (assoc account my-mu4e-account-alist)))) + (if account-vars + (mapc #'(lambda (var) + (set (car var) (cadr var))) + account-vars) + (error "No email account found")))) + (add-hook 'mu4e-compose-pre-hook 'my-mu4e-set-account))) + + (use-package gnus-dired + ;; A special version of the gnus-dired-mail-buffers function + ;; that understands mu4e buffers as well + :defer t + :config + (progn + ;; 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)) + ) + + (spacemacs/set-leader-keys + "am" 'mu4e) + ) + +(defun aminb/init-mu4e-contrib () + (use-package mu4e-contrib + :defer t + :config + (setq mu4e-html2text-command 'mu4e-shr2text + mu4e-view-html-plaintext-ratio-heuristic 10 + mu4e-view-prefer-html t))) + +(defun aminb/init-smtpmail () + (use-package smtpmail + :defer t + :config + (setq smtpmail-default-smtp-server "nix.aminb.org" + smtpmail-local-domain "aminb.org" + smtpmail-smtp-server "nix.aminb.org" + smtpmail-stream-type 'starttls + smtpmail-smtp-service 587))) + ;;; packages.el ends here diff --git a/spacemacs/.spacemacs b/spacemacs/.spacemacs index fe3574f..a1c1c9b 100644 --- a/spacemacs/.spacemacs +++ b/spacemacs/.spacemacs @@ -367,7 +367,7 @@ This function is called at the very end of Spacemacs initialization." ;; If there is more than one, they won't work right. '(package-selected-packages (quote - (znc erc-yt erc-view-log erc-social-graph erc-image erc-hl-nicks xterm-color ws-butler writeroom-mode window-numbering which-key wgrep web-mode volatile-highlights vi-tilde-fringe uuidgen use-package toc-org tagedit spacemacs-theme spaceline smex smeargle slim-mode shell-pop scss-mode sass-mode restart-emacs request rainbow-delimiters quelpa pug-mode popwin persp-mode pcre2el paradox orgit org-ref org-projectile org-present org-pomodoro org-plus-contrib org-download org-bullets open-junk-file neotree mwim multi-term move-text mmm-mode markdown-toc magit-gitflow macrostep lorem-ipsum linum-relative link-hint less-css-mode ivy-purpose ivy-hydra intero insert-shebang info+ indent-guide ido-vertical-mode hungry-delete htmlize hlint-refactor hl-todo hindent highlight-parentheses highlight-numbers highlight-indentation hide-comnt help-fns+ helm-make haskell-snippets google-translate golden-ratio gnuplot gitignore-mode gitconfig-mode gitattributes-mode git-timemachine git-messenger git-link gh-md flyspell-correct-ivy flycheck-pos-tip flycheck-haskell flx-ido fish-mode fill-column-indicator fancy-battery eyebrowse expand-region exec-path-from-shell evil-visualstar evil-visual-mark-mode evil-unimpaired evil-tutor evil-surround evil-search-highlight-persist evil-numbers evil-nerd-commenter evil-mc evil-matchit evil-magit evil-lisp-state evil-indent-plus evil-iedit-state evil-exchange evil-escape evil-ediff evil-args evil-anzu eval-sexp-fu eshell-z eshell-prompt-extras esh-help emmet-mode elisp-slime-nav dumb-jump disaster define-word crux counsel-projectile company-web company-statistics company-shell company-ghci company-ghc company-cabal company-c-headers company-auctex column-enforce-mode cmm-mode cmake-mode clean-aindent-mode clang-format auto-yasnippet auto-highlight-symbol auto-dictionary auto-compile auctex-latexmk aggressive-indent adaptive-wrap ace-window ace-link ac-ispell)))) + (mu4e-maildirs-extension mu4e-alert ht znc xterm-color ws-butler writeroom-mode window-numbering which-key wgrep web-mode volatile-highlights vi-tilde-fringe uuidgen use-package toc-org tagedit spacemacs-theme spaceline smex smeargle slim-mode shell-pop scss-mode sass-mode restart-emacs request rainbow-delimiters quelpa pug-mode popwin persp-mode pcre2el paradox orgit org-ref org-projectile org-present org-pomodoro org-plus-contrib org-download org-bullets open-junk-file neotree mwim multi-term move-text mmm-mode markdown-toc magit-gitflow macrostep lorem-ipsum linum-relative link-hint less-css-mode ivy-purpose ivy-hydra intero insert-shebang info+ indent-guide ido-vertical-mode hungry-delete htmlize hlint-refactor hl-todo hindent highlight-parentheses highlight-numbers highlight-indentation hide-comnt help-fns+ helm-make haskell-snippets google-translate golden-ratio gnuplot gitignore-mode gitconfig-mode gitattributes-mode git-timemachine git-messenger git-link gh-md flyspell-correct-ivy flycheck-pos-tip flycheck-haskell flx-ido fish-mode fill-column-indicator fancy-battery eyebrowse expand-region exec-path-from-shell evil-visualstar evil-visual-mark-mode evil-unimpaired evil-tutor evil-surround evil-search-highlight-persist evil-numbers evil-nerd-commenter evil-mc evil-matchit evil-magit evil-lisp-state evil-indent-plus evil-iedit-state evil-exchange evil-escape evil-ediff evil-args evil-anzu eval-sexp-fu eshell-z eshell-prompt-extras esh-help erc-yt erc-view-log erc-social-graph erc-image erc-hl-nicks emmet-mode elisp-slime-nav dumb-jump disaster define-word crux counsel-projectile company-web company-statistics company-shell company-ghci company-ghc company-cabal company-c-headers company-auctex column-enforce-mode cmm-mode cmake-mode clean-aindent-mode clang-format auto-yasnippet auto-highlight-symbol auto-dictionary auto-compile auctex-latexmk aggressive-indent adaptive-wrap ace-window ace-link ac-ispell)))) (custom-set-faces ;; custom-set-faces was added by Custom. ;; If you edit it by hand, you could mess it up, so be careful. -- 2.20.1