;; Notmuch

(when (require 'patch-helm nil 'noerror)
  (helm-defswitcher
   "notmuch"
   (lambda (b)
     (with-current-buffer b
       (or
        (derived-mode-p 'notmuch-hello-mode)
        (derived-mode-p 'notmuch-search-mode)
        (derived-mode-p 'notmuch-show-mode)
        (derived-mode-p 'notmuch-message-mode))))
   notmuch-hello))

(when (require 'helm-notmuch nil t)
  ;; TODO: Send PR.
  (defun helm-notmuch-maybe-match-incomplete (pattern)
    (if helm-notmuch-match-incomplete-words
        (concat (mapconcat #'identity (split-string pattern) "* ") "*")
      ;; (if (string-match-p "[[:alnum:]]$" pattern)
      ;;     (concat pattern "*")
      ;;   pattern)
      pattern))

  (dolist (map (list notmuch-search-mode-map notmuch-hello-mode-map notmuch-show-mode-map))
    (define-key map "s" 'helm-notmuch)))

(provide 'init-notmuch)