From 70f09a22308aa073970f0fdbfc9d0f21c137d98b Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Wed, 14 Jan 2015 23:02:34 -0500 Subject: Add command org-goto-agenda-heading --- lisp/init-org.el | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'lisp/init-org.el') diff --git a/lisp/init-org.el b/lisp/init-org.el index beda4a1..96cae0c 100644 --- a/lisp/init-org.el +++ b/lisp/init-org.el @@ -99,6 +99,7 @@ The hook functions and `org-store-link' are called within a (define-key km/global-org-map "l" 'km/org-store-link) (define-key km/global-org-map "o" 'org-open-at-point-global) (define-key km/global-org-map "a" 'org-agenda) +(define-key km/global-org-map "j" 'km/org-goto-agenda-heading) (define-key km/global-org-map "b" 'org-iswitchb) (define-key km/global-org-map "s" 'org-save-all-org-buffers) (define-key km/global-org-map "w" 'org-refile-goto-last-stored) @@ -395,6 +396,14 @@ displayed in the agenda." (org-agenda-overriding-header "Unscheduled TODO entries: "))) ("p" "Past timestamps" tags "TIMESTAMP<=\"\""))) +(defun km/org-goto-agenda-heading () + "Jump to heading in agenda files." + (interactive) + (let ((org-refile-targets + '((org-agenda-files :maxlevel . 3) + (org-agenda-text-search-extra-files :maxlevel . 3)))) + (org-refile '(4)))) + ;;; Refiling (defun km/verify-refile-target () -- cgit v1.2.3