diff options
| author | Jameson Rollins <jrollins@finestructure.net> | 2010-09-18 15:48:22 -0400 |
|---|---|---|
| committer | Carl Worth <cworth@cworth.org> | 2010-11-11 17:28:48 -0800 |
| commit | 2b433736a56ec1ccac67ada9cc81337a157a45a2 (patch) | |
| tree | b22a384195d087c4a94e1c66338f9f7f4496f153 | |
| parent | 128b6259ee327adf9189b81034b3b6962e8b9dbc (diff) | |
emacs: add stash thread-id function to notmuch-search mode
This add a "stash-map" for search-mode, just like in show-mode, and
adds one function, bound to "i" to stash the thread-id of the current
selected thread.
Couldn't think of the correct way to stash other thread info, so I
didn't add any other stash functions for now.
| -rw-r--r-- | emacs/notmuch.el | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/emacs/notmuch.el b/emacs/notmuch.el index 4a9223e..5933747 100644 --- a/emacs/notmuch.el +++ b/emacs/notmuch.el @@ -207,6 +207,7 @@ For a mouse binding, return nil." (define-key map "m" 'notmuch-mua-mail) (define-key map "s" 'notmuch-search) (define-key map "o" 'notmuch-search-toggle-order) + (define-key map "c" 'notmuch-search-stash-map) (define-key map "=" 'notmuch-search-refresh-view) (define-key map "G" 'notmuch-search-poll-and-refresh-view) (define-key map "t" 'notmuch-search-filter-by-tag) @@ -221,6 +222,18 @@ For a mouse binding, return nil." "Keymap for \"notmuch search\" buffers.") (fset 'notmuch-search-mode-map notmuch-search-mode-map) +(defvar notmuch-search-stash-map + (let ((map (make-sparse-keymap))) + (define-key map "i" 'notmuch-search-stash-thread-id) + map) + "Submap for stash commands") +(fset 'notmuch-search-stash-map notmuch-search-stash-map) + +(defun notmuch-search-stash-thread-id () + "Copy thread ID of current thread to kill-ring." + (interactive) + (notmuch-common-do-stash (notmuch-search-find-thread-id))) + (defvar notmuch-search-query-string) (defvar notmuch-search-target-thread) (defvar notmuch-search-target-line) |