;; General `notmuch' ui configuration

(use-package notmuch
  :ensure t
  :config
  (define-key global-map (kbd "C-c m") #'notmuch))

(use-package notmuch-indicator
  :ensure t
  :after notmuch
  :config
  (setq notmuch-indicator-args
        '(( :terms "tag:unread and tag:inbox"
            :label "[U] "
            :label-face prot-modeline-indicator-green
            :counter-face prot-modeline-indicator-green)
          ( :terms "tag:unread and tag:linux"
            :label "[L] "
            :label-face prot-modeline-indicator-cyan
            :counter-face prot-modeline-indicator-cyan)
          ( :terms "tag:unread and tag:emacs"
            :label "[E] "
            :label-face prot-modeline-indicator-blue
            :counter-face prot-modeline-indicator-blue))

        notmuch-indicator-refresh-count (* 60 3)
        notmuch-indicator-hide-empty-counters t
        notmuch-indicator-force-refresh-commands '(notmuch-refresh-this-buffer))
  (setq notmuch-indicator-add-to-mode-line-misc-info nil)
  (notmuch-indicator-mode t))

;; use msmtp
(setq message-send-mail-function 'message-send-mail-with-sendmail)
(setq sendmail-program "/usr/bin/msmtp")

(setq notmuch-show-logo t
      notmuch-column-control 1.0
      notmuch-hello-auto-refresh t
      notmuch-hello-recent-searches-max 20
      notmuch-hello-thousands-separator ""
      notmuch-hello-sections '(notmuch-hello-insert-header notmuch-hello-insert-saved-searches notmuch-hello-insert-search notmuch-hello-insert-alltags)
      notmuch-show-all-tags-list t)

(setq notmuch-search-oldest-first nil)
(setq notmuch-show-seen-current-message t)

(defun bard/notmuch-mua-empty-subject-check ()
  "Request confirmation before sending a message with empty subject."
  (when (and (null (message-field-value "Subject"))
             (not (y-or-n-p "Subject is empty, send anyway? ")))
    (error "Sending message cancelled: empty subject")))
(add-hook 'message-send-hook 'bard/notmuch-mua-empty-subject-check)

(setq notmuch-show-empty-saved-searches t)
(setq notmuch-saved-searches
      `(( :name "📥 inbox"
          :query "tag:inbox"
          :sort-order newest-first
          :key ,(kbd "i"))
        ( :name "💬 unread (inbox)"
          :query "tag:unread and tag:inbox"
          :sort-order newest-first
          :key ,(kbd "u"))
        ( :name "🐃 contrib"
          :query "tag:unread and tag:contrib"
          :sort-order newest-first
          :key ,(kbd "c"))
        ( :name "🐧 linux"
          :query "tag:unread and tag:linux"
          :sort-order newest-first
          :key ,(kbd "l"))
        ( :name "🚂 emacs devel"
          :query "tag:unread and tag:contrib"
          :sort-order newest-first
          :key ,(kbd "ed"))
        ( :name "🎨 emacs humanities"
          :query "tag:unread and tag:emacs-humanities"
          :sort-order newest-first
          :key ,(kbd "eh"))
        ( :name "🦄 emacs org"
          :query "tag:unread and tag:emacs-org"
          :sort-order newest-first
          :key ,(kbd "eo"))))

(setq notmuch-tagging-keys
      `((,(kbd "d") prot-notmuch-mark-delete-tags "💥 Mark for deletion")
        (,(kbd "f") prot-notmuch-mark-flag-tags "🚩 Flag as important")
        (,(kbd "s") prot-notmuch-mark-spam-tags "🔥 Mark as spam")
        (,(kbd "r") ("-unread") "👁️‍🗨️ Mark as read")
        (,(kbd "u") ("+unread") "🗨️ Mark as unread")))

(setq notmuch-archive-tags '("+archive")
      notmuch-message-replied-tags '("+replied")
      notmuch-message-forwarded-tags '("+forwarded")
      notmuch-show-mark-read-tags '("-unread")
      notmuch-draft-tags '("+draft")
      notmuch-draft-folder "drafts"
      notmuch-draft-save-plaintext 'ask)

(provide 'bard-emacs-email)