;;; Code:
(defconst aminb-packages
- '(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
- )
+ '(creamsody-theme
+ crux
+ ;; mu4e has to be installed manually,
+ ;; and make sure it's in load-path
+ (mu4e :location site)
+ (mu4e-contrib :location site)
+ smtpmail
+ writeroom-mode
+ znc)
"The list of Lisp packages required by the aminb layer.")
+(defun aminb/init-creamsody-theme ())
+
(defun aminb/init-crux ()
(use-package crux
:defer t
)))
(defun aminb/post-init-mu4e ()
+ (setq maildir "~/mail")
(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
+ (setq mu4e-maildir maildir
+ mu4e-get-mail-command "mbsync -a"
+ mu4e-update-interval nil
mu4e-view-show-addresses t
mu4e-headers-include-related t
+ mu4e-enable-notifications t
+ mu4e-enable-mode-line t
mu4e-compose-signature-auto-include t
mu4e-compose-signature
(concat
"Amin Bandali\n"
"<aminb.org>\n")
- ;; don't keep message buffers around
- message-kill-buffer-on-exit t
+ message-kill-buffer-on-exit t ; don't keep message buffers around
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)))
+ user-full-name "Amin Bandali"
+ user-mail-address "amin@aminb.org"
+ mu4e-context-policy 'pick-first
+ mu4e-contexts
+ (list (make-mu4e-context
+ :name "Personal"
+ :enter-func (lambda () (mu4e-message "Switch to the Personal context"))
+ :match-func (lambda (msg)
+ (when msg
+ (s-prefix? "/amin/" (mu4e-message-field msg :maildir))))
+ :vars '((user-mail-address . "amin@aminb.org")
+ (mu4e-sent-folder . "/amin/Sent")
+ (mu4e-drafts-folder . "/amin/Drafts")
+ (mu4e-trash-folder . "/amin/Trash")
+ (mu4e-sent-messages-behavior . sent)
+ (smtpmail-default-smtp-server . "nix.aminb.org")
+ (smtpmail-smtp-server . "nix.aminb.org")
+ (smtpmail-stream-type . starttls)
+ (smtpmail-smtp-service . 587)))
+ (make-mu4e-context
+ :name "BB"
+ :enter-func (lambda () (mu4e-message "Switch to the BB context"))
+ :match-func (lambda (msg)
+ (when msg
+ (s-prefix? "/gmail/" (mu4e-message-field msg :maildir))))
+ :vars '((user-mail-address . "amin.bandali@gmail.com")
+ (mu4e-sent-folder . "/gmail/Sent")
+ (mu4e-drafts-folder . "/gmail/Drafts")
+ (mu4e-trash-folder . "/gmail/Trash")
+ (mu4e-sent-messages-behavior . delete)
+ (mu4e-compose-signature . nil)
+ (smtpmail-default-smtp-server . "smtp.gmail.com")
+ (smtpmail-smtp-server . "smtp.gmail.com")
+ (smtpmail-stream-type . starttls)
+ (smtpmail-smtp-service . 587)))
+ (make-mu4e-context
+ :name "GNU"
+ :enter-func (lambda () (mu4e-message "Switch to the GNU context"))
+ :match-func (lambda (msg)
+ (when msg
+ (s-prefix? "/gnu/" (mu4e-message-field msg :maildir))))
+ :vars '((user-mail-address . "aminb@gnu.org")
+ (mu4e-sent-folder . "/gnu/Sent")
+ (mu4e-drafts-folder . "/gnu/Drafts")
+ (mu4e-trash-folder . "/gnu/Trash")
+ (mu4e-get-mail-command . "getmail")
+ (mu4e-sent-messages-behavior . sent)
+ (smtpmail-default-smtp-server . "fencepost.gnu.org")
+ (smtpmail-smtp-server . "fencepost.gnu.org")
+ (smtpmail-stream-type . starttls)
+ (smtpmail-smtp-service . 587)))))
+ (with-eval-after-load 'mu4e-alert
+ ;; Enable Desktop notifications
+ (mu4e-alert-set-default-style 'notifications))))
(use-package gnus-dired
;; A special version of the gnus-dired-mail-buffers function
(add-hook 'dired-mode-hook 'turn-on-gnus-dired-mode))
)
+ ;; Exclude the files in maildir from recents
+ (use-package recentf
+ :defer t
+ :config
+ (add-to-list 'recentf-exclude (expand-file-name maildir)))
+
(spacemacs/set-leader-keys
"am" 'mu4e)
)
smtpmail-local-domain "aminb.org"
smtpmail-smtp-server "nix.aminb.org"
smtpmail-stream-type 'starttls
- smtpmail-smtp-service 587)))
+ smtpmail-smtp-service 587
+ send-mail-function 'smtpmail-send-it)))
;;; packages.el ends here
projects / ~bandali / configs / blobdiff