From 4229bcb6942584549b3a446b7660548781fca832 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Sun, 23 Nov 2014 15:55:51 -0500 Subject: Add command to open first citekey heading link --- bog.el | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) (limited to 'bog.el') diff --git a/bog.el b/bog.el index 62722d8..3840ea4 100644 --- a/bog.el +++ b/bog.el @@ -767,6 +767,28 @@ current buffer." 'bog-all-heading-citekeys))) (insert (bog-select-citekey (funcall citekey-func))))) +(defun bog-open-first-citekey-link (&optional no-context) + "Open first link under citekey heading. + +The citekey will be taken from the text under point if it matches +`bog-citekey-format' or from the current tree. + +With prefix argument NO-CONTEXT, a prompt will open to select +from all citekeys for headings in notes. This same prompt will be +opened if locating a citekey from context fails." + (interactive "P") + (let* ((citekey (bog-citekey-from-point-or-all-headings no-context)) + (marker + (org-find-exact-heading-in-directory citekey bog-notes-directory))) + (if marker + (with-current-buffer (marker-buffer marker) + (org-with-wide-buffer + (goto-char marker) + (org-narrow-to-subtree) + (org-next-link) + (org-open-at-point))) + (message "Heading for %s not found in notes" citekey)))) + ;;; Font-lock @@ -873,6 +895,7 @@ chosen." (define-key prefix-map "h" 'bog-goto-citekey-heading-in-buffer) (define-key prefix-map "H" 'bog-goto-citekey-heading-in-notes) (define-key prefix-map "i" 'bog-citekey-tree-to-indirect-buffer) + (define-key prefix-map "l" 'bog-open-first-citekey-link) (define-key prefix-map "r" 'bog-rename-staged-file-to-citekey) (define-key prefix-map "s" 'bog-search-notes) (define-key prefix-map "w" 'bog-refile) -- cgit v1.2.3