X-Git-Url: https://git.shemshak.org/~bandali/configs/blobdiff_plain/818a4af5b33f5e5e3778cdaa979a1ef4134ab2a1..871d5d225f24306ef0543f7e003205b6213a184f:/spacemacs/.emacs.d/private/aminb/packages.el diff --git a/spacemacs/.emacs.d/private/aminb/packages.el b/spacemacs/.emacs.d/private/aminb/packages.el index 7bb09f6..997de0b 100644 --- a/spacemacs/.emacs.d/private/aminb/packages.el +++ b/spacemacs/.emacs.d/private/aminb/packages.el @@ -17,15 +17,19 @@ ;;; 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 @@ -136,73 +140,81 @@ erc-modified-channels-alist. Should be executed on window change." ))) (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 "true" + mu4e-update-interval 300 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" "\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-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 @@ -226,6 +238,12 @@ erc-modified-channels-alist. Should be executed on window change." (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) ) @@ -246,6 +264,7 @@ erc-modified-channels-alist. Should be executed on window change." 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