diff options
author | Kyle Meyer <kyle@kyleam.com> | 2017-03-06 00:00:59 -0500 |
---|---|---|
committer | Kyle Meyer <kyle@kyleam.com> | 2017-03-06 00:00:59 -0500 |
commit | 0931ec3d1edaeb2ca92b2d845ed3ecd715a18e73 (patch) | |
tree | 0d6ab0517971023eabf61f155767174dbfc985bf /lisp | |
parent | 0e0cbb2e8c8dc55651681d9ca87c72e98eef9cc4 (diff) | |
download | emacs.d-0931ec3d1edaeb2ca92b2d845ed3ecd715a18e73.tar.gz |
notmuch: Add custom avy-goto-subword-1 command
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/km-avy.el | 12 |
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 |