diff options
author | Kyle Meyer <kyle@kyleam.com> | 2015-06-10 21:21:53 -0400 |
---|---|---|
committer | Kyle Meyer <kyle@kyleam.com> | 2015-06-10 21:21:53 -0400 |
commit | 81c73bb328778693459819a643851292c5c7abcc (patch) | |
tree | 6e29211acce2706c6980f45ece68d4d52411db91 /lisp | |
parent | 1f03c8601ffcb969596cbc9faab4abaeb763fc18 (diff) | |
download | emacs.d-81c73bb328778693459819a643851292c5c7abcc.tar.gz |
Make avy-goto-subword-1 variant for agenda
Call org-agenda-do-context-action after jumping, just like
org-agenda-next-line.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/init-org.el | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lisp/init-org.el b/lisp/init-org.el index a4ff008..f7c0c38 100644 --- a/lisp/init-org.el +++ b/lisp/init-org.el @@ -496,6 +496,11 @@ displayed in the agenda." (org-agenda-text-search-extra-files :maxlevel . 3)))) (org-refile '(4)))) +(defun km/org-agenda-avy-goto-subword-1 () + (interactive) + (call-interactively #'km/avy-goto-subword-1) + (org-agenda-do-context-action)) + (define-key km/global-org-map "a" 'org-agenda) (define-key km/global-org-map "c" 'org-capture) (define-key km/global-org-map "j" 'km/org-goto-agenda-heading) @@ -506,9 +511,9 @@ displayed in the agenda." ;; Bind `org-agenda-follow-mode' to same key as ;; `next-error-follow-minor-mode'. (define-key org-agenda-mode-map (kbd "C-c C-f") 'org-agenda-follow-mode) - ;; Free up 'j' for `avy-goto-subword-1'. + ;; Free up 'j' for `km/org-agenda-avy-goto-subword-1'. (define-key org-agenda-mode-map (kbd "C-j") 'org-agenda-goto-date) - (define-key org-agenda-mode-map "j" 'avy-goto-subword-1)) + (define-key org-agenda-mode-map "j" 'km/org-agenda-avy-goto-subword-1)) ;;; Refiling |