;;; notmuch.el --- AMACS -*- lexical-binding: t -*-
;;
;; Copyright 2021 Practically.io All rights reserved
;;
;; Use of this source is governed by a BSD-style
;; licence that can be found in the LICENCE file or at
;; https://www.practically.io/copyright/

(require 'cl)

(defvar notmuch-message-deleted-tags '("+deleted" "-inbox" "-unread"))

(defun spacemacs/notmuch-search-archive-thread-down ()
  "Search thread up."
  (interactive)
  (notmuch-search-archive-thread))

(defun spacemacs/notmuch-search-archive-thread-up ()
  "Search thread down."
  (interactive)
  (notmuch-search-archive-thread)
  (notmuch-search-previous-thread)
  (notmuch-search-previous-thread))

(defun spacemacs//notmuch-message-delete (go-next)
  "Delete message and select GO-NEXT message."
  (notmuch-search-tag notmuch-message-deleted-tags)
  (if (eq 'up go-next)
      (notmuch-search-previous-thread)
    (notmuch-search-next-thread)))

(defun spacemacs/notmuch-message-delete-down ()
  "Delete a message and select the next message."
  (interactive)
  (spacemacs//notmuch-message-delete 'down))

(defun spacemacs/notmuch-message-delete-up ()
  "Delete a message and select the previous message."
  (interactive)
  (spacemacs//notmuch-message-delete 'up))

(defun aa/notmuch-search-inbox ()
  "Search the notmuch inbox."
  (interactive)
  (notmuch-search "tag:inbox"))

(defun aa/notmuch-search-inbox-unread ()
  "Search the notmuch unread messages in the inbox."
  (interactive)
  (notmuch-search "tag:inbox and tag:unread"))


(quelpa
 '(notmuch :fetcher git
		   :url "https://git.notmuchmail.org/git/notmuch"
		   :commit "a59ef7d02cb229c2ec3569024918024003568aea"
		   :files ("emacs/*.el" "emacs/*.png"))

  (setq notmuch-saved-searches '((:name "inbox"
					:key "i"
					:query "tag:inbox"
					:sort-order newest-first)
				 (:name "inbox-unread"
					:key "iu"
					:query "tag:inbox and tag:unread"
					:sort-order newest-first)
				 (:name "unread"
					:key "u"
					:query "tag:unread"
					:sort-order newest-first)
				 (:name "all"
					:key "a"
					:query "*"
					:sort-order newest-first)))
  ;; key bindings
  (evil-define-key 'normal notmuch-search-mode-map
    "=" 'notmuch-refresh-this-buffer
    "?" 'notmuch-help
    "*" 'notmuch-search-tag-all
    "-" 'notmuch-search-remove-tag
    "+" 'notmuch-search-add-tag
    "J" 'notmuch-jump-search
    "m" 'notmuch-mua-new-mail
    "s" 'notmuch-search
    "a" 'spacemacs/notmuch-search-archive-thread-down
    "A" 'spacemacs/notmuch-search-archive-thread-up
    "d" 'spacemacs/notmuch-message-delete-down
    "D" 'spacemacs/notmuch-message-delete-up)
  (evil-define-key 'normal notmuch-show-mode-map
    "B" 'notmuch-show-browse-urls)
  (evil-define-key 'visual notmuch-search-mode-map
    "-" 'notmuch-search-remove-tag
    "+" 'notmuch-search-add-tag
    "d" 'spacemacs/notmuch-message-delete-down))

(use-package counsel-notmuch :defer t)

(defun org-notmuch-open (id)
  "Visit the notmuch message or thread with id ID."
  (notmuch-show id))

(defun org-notmuch-store-link ()
  "Store a link to a notmuch mail message."
  (cl-case major-mode
    ('notmuch-show-mode
     ;; Store link to the current message
     (let* ((id (notmuch-show-get-message-id))
	    (link (concat "notmuch:" id))
	    (description (format "Mail: %s" (notmuch-show-get-subject))))
       (org-store-link-props
	:type "notmuch"
	:link link
	:description description)))
    ('notmuch-search-mode
     ;; Store link to the thread on the current line
     (let* ((id (notmuch-search-find-thread-id))
	    (link (concat "notmuch:" id))
	    (description (format "Mail: %s" (notmuch-search-find-subject))))
       (org-store-link-props
	:type "notmuch"
	:link link
	:description description)))))