summaryrefslogtreecommitdiff
path: root/bog.el
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2015-01-30 00:48:45 -0500
committerKyle Meyer <kyle@kyleam.com>2015-01-30 00:48:45 -0500
commitfcd413951fbfae64ee03ee6043d675e01ca986f7 (patch)
tree0d002c0d7d22cb19c77e030cb4a54ba4e61e50d8 /bog.el
parent11c0bcfa0177368975485a83dd33f0bd0ce418f8 (diff)
downloadbog-fcd413951fbfae64ee03ee6043d675e01ca986f7.tar.gz
Add command bog-open-citekey-link
This allows any link under a citekey heading to be opened, not just the first.
Diffstat (limited to 'bog.el')
-rw-r--r--bog.el26
1 files changed, 22 insertions, 4 deletions
diff --git a/bog.el b/bog.el
index 9b57c54..148d78c 100644
--- a/bog.el
+++ b/bog.el
@@ -948,8 +948,13 @@ 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.
+(defun bog-open-citekey-link (&optional no-context first)
+ "Open a link for a citekey heading.
+
+If FIRST is non-nil, open the first link under the heading.
+Otherwise, if there is more than one link under the heading,
+prompt with a list of links using the `org-open-at-point'
+interface.
The citekey is taken from the text under point if it matches
`bog-citekey-format' or from the current tree.
@@ -965,10 +970,22 @@ context fails."
(org-with-wide-buffer
(goto-char marker)
(org-narrow-to-subtree)
- (org-next-link)
+ (when first (org-next-link))
(org-open-at-point)))
(message "Heading for %s not found in notes" citekey))))
+(defun bog-open-first-citekey-link (&optional no-context)
+ "Open first link for a citekey heading.
+
+The citekey is taken from the text under point if it matches
+`bog-citekey-format' or from the current tree.
+
+With prefix argument NO-CONTEXT, prompt with citekeys that have a
+heading in any note file. Do the same if locating a citekey from
+context fails."
+ (interactive "P")
+ (bog-open-citekey-link no-context t))
+
(defun bog-next-non-heading-citekey (&optional arg)
"Move foward to next non-heading citekey.
With argument ARG, do it ARG times."
@@ -1110,7 +1127,8 @@ chosen."
(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 "j" 'bog-jump-to-topic-heading)
- (define-key prefix-map "l" 'bog-open-first-citekey-link)
+ (define-key prefix-map "l" 'bog-open-citekey-link)
+ (define-key prefix-map "L" 'bog-open-first-citekey-link)
(define-key prefix-map "n" 'bog-next-non-heading-citekey)
(define-key prefix-map "p" 'bog-previous-non-heading-citekey)
(define-key prefix-map "r" 'bog-rename-staged-file-to-citekey)