Hi Alexander,
Alexander Wingård writes:
> I want to create special key-bindings that use the org-refile goto
> interface to jump to specific headings.
It doesn't use org-refile but this is what I use:
(defun my-goto-heading(file heading-text)
"Visit file `file' and goto headline `heading-text'"
(find-file file)
(org-element-map (org-element-parse-buffer 'headline) 'headline
(lambda (x)
(if (string= (org-element-property :raw-value x) heading-text)
(goto-char (org-element-property :begin x))
nil))
nil t)) ;; stop at first find
(defun gtd()
(interactive)
(my-goto-heading (concat org-directory "/gtd.org") "Daily work")
(org-show-entry)
;;(org-show-subtree)
(reposition-window)
(org-agenda-list))
In the gtd function I also set org-agenda-files but left it out for
clarity.
Myles
