From 81c73bb328778693459819a643851292c5c7abcc Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Wed, 10 Jun 2015 21:21:53 -0400 Subject: Make avy-goto-subword-1 variant for agenda Call org-agenda-do-context-action after jumping, just like org-agenda-next-line. --- lisp/init-org.el | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'lisp') 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 -- cgit v1.2.3