summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2017-03-06 00:00:59 -0500
committerKyle Meyer <kyle@kyleam.com>2017-03-06 00:00:59 -0500
commit0931ec3d1edaeb2ca92b2d845ed3ecd715a18e73 (patch)
tree0d6ab0517971023eabf61f155767174dbfc985bf /lisp
parent0e0cbb2e8c8dc55651681d9ca87c72e98eef9cc4 (diff)
downloademacs.d-0931ec3d1edaeb2ca92b2d845ed3ecd715a18e73.tar.gz
notmuch: Add custom avy-goto-subword-1 command
Diffstat (limited to 'lisp')
-rw-r--r--lisp/km-avy.el12
1 files changed, 12 insertions, 0 deletions
diff --git a/lisp/km-avy.el b/lisp/km-avy.el
index cc733e3..e0be1d7 100644
--- a/lisp/km-avy.el
+++ b/lisp/km-avy.el
@@ -74,5 +74,17 @@
(km/avy-after-goto
(call-interactively #'elfeed-search-show-entry)))
+(declare-function notmuch-search-show-thread "notmuch" (&optional elide-toggle))
+(declare-function notmuch-tree-show-message "notmuch-tree" (ARG))
+;;;###autoload
+(defun km/notmuch-avy-goto-subword-1 ()
+ (interactive)
+ (km/avy-after-goto
+ (cl-case major-mode
+ (notmuch-search-mode
+ (notmuch-search-show-thread))
+ (notmuch-tree-mode
+ (call-interactively #'notmuch-tree-show-message)))))
+
(provide 'km-avy)
;;; km-avy.el ends here