;;; my-notmuch.el --- Configures notmuch -*- lexical-binding: t -*-

;;; Commentary:

;;; Code:

(require 'notmuch)

(setq notmuch-show-logo nil)
(setq notmuch-always-prompt-for-sender t)
(setq notmuch-show-relative-dates t)
(setq notmuch-archive-tags '("-inbox" "-unread"))

;; configurations related to search
(setq notmuch-search-oldest-first nil
      ;; a few saved search - I can jump to them by hitting 'j'
      notmuch-saved-searches '((:name "unread":query "tag:unread AND date:this_year.." :key "u")
                               (:name "inbox unread" :query "tag:inbox AND tag:unread" :key "U")
                               (:name "today" :query "date:today" :key "t")
                               (:name "this week" :query "date:this_week.." :key "w")
                               (:name "inbox" :query "tag:inbox" :key "i")
                               (:name "focused inbox" :query "tag:inbox AND tag:unread AND date:this_week.." :key "f")
                               (:name "sent" :query "tag:sent" :key "s")
                               (:name "all emails" :query "*" :key "a"))
      ;; make it short and sweet
      notmuch-search-result-format '(("date" . "%12s ")
                                     ("authors" . "%-20s ")
                                     ("tags" . "(%s) ")
                                     ("subject" . "%s")))

(add-hook 'notmuch-message-mode-hook 'flyspell-mode)

(provide 'my-notmuch)

;;; my-notmuch.el ends here