diff options
Diffstat (limited to 'bog.el')
| -rw-r--r-- | bog.el | 23 |
1 files changed, 23 insertions, 0 deletions
@@ -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) |