(let
    ((mu4e-path
      (concat (getenv "HOME") "/.nix-profile/share/emacs/site-lisp/mu4e/")))
  (unless (file-exists-p mu4e-path)
    (throw 'mu4e-load-path "cannot locate mu4e load path"))
  (add-to-list 'load-path mu4e-path))

(require 'mu4e)

(defun mu4e-notify-new-messages ()
  (let ((message-count (plist-get mu4e-index-update-status :updated)))
    (unless (eq message-count 0)
      (shell-command (format (concat "notify-send -t 10000 -a mu4e "
                                     "\"New mail\" \"%d new messages\"")
                             message-count)))))

(setq mu4e-maildir "~/mail"
      mu4e-get-mail-command "mbsync -a"
      mu4e-update-interval (* 5 60)
      mu4e-change-filenames-when-moving t  ; prevent mail syncing issues with mbsync
      mu4e-refile-folder "/Archive"
      mu4e-drafts-folder "/Drafts"
      mu4e-sent-folder "/Sent"
      mu4e-trash-folder "/Trash"
      mu4e-maildir-shortcuts '(("/Inbox"   . ?i)
                               ("/Archive" . ?a)
                               ("/Drafts"  . ?d)
                               ("/Sent"    . ?s)
                               ("/Trash"   . ?t)))
(add-hook 'mu4e-index-updated-hook 'mu4e-notify-new-messages)
(global-set-key (kbd "C-c m") 'mu4e)

;; smtp
(setq message-send-mail-function 'smtpmail-send-it
      user-mail-address "jeremy@baxters.nz"
      user-full-name "Jeremy Baxter"
      smtpmail-smtp-server "smtp.migadu.com"
      smtpmail-smtp-service 465
      smtpmail-stream-type 'ssl)

;;; mu4e.el ends here