Add command org-goto-agenda-heading

1 files changed, 9 insertions, 0 deletions

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<=\"<now>\"")))
 
+(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 ()