83 lines
2.4 KiB
EmacsLisp
83 lines
2.4 KiB
EmacsLisp
|
;;; 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/
|
||
|
|
|
||
|
|
(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"))
|
||
|
|
|
||
|
|
(use-package notmuch
|
||
|
|
:defer t
|
||
|
|
:commands notmuch
|
||
|
|
:config
|
||
|
|
(setq notmuch-saved-searches '((:name "inbox"
|
||
|
|
:key "i"
|
||
|
|
:query "tag:inbox"
|
||
|
|
: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)
|