summaryrefslogtreecommitdiff
path: root/bog.el
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2014-11-12 23:06:53 -0500
committerKyle Meyer <kyle@kyleam.com>2014-11-12 23:06:53 -0500
commitc131c794aeafe4f4797735ba01c2850ea0537dac (patch)
tree538c464fb308152ccf0c575f448d482f25309b7d /bog.el
parent41744c17e4ec8c413907912747f73cd5d74d631f (diff)
downloadbog-c131c794aeafe4f4797735ba01c2850ea0537dac.tar.gz
bog-search-notes-for-citekey: Use fallback prompt
Diffstat (limited to 'bog.el')
-rw-r--r--bog.el10
1 files changed, 8 insertions, 2 deletions
diff --git a/bog.el b/bog.el
index f8a60b6..7f9c33d 100644
--- a/bog.el
+++ b/bog.el
@@ -693,9 +693,15 @@ With prefix argument TODO-ONLY, only TODO entries are searched."
(defun bog-search-notes-for-citekey (&optional todo-only)
"Search notes for citekey using `org-search-view'.
-With prefix argument TODO-ONLY, only TODO entries are searched."
+
+With prefix argument TODO-ONLY, only TODO entries are searched.
+
+The citekey will be taken from the text under point if it matches
+`bog-citekey-format' or from the current tree. If a citekey is
+not found, a prompt will open to select from all citekeys present
+in notes."
(interactive "P")
- (let ((citekey (bog-citekey-from-notes))
+ (let ((citekey (bog-citekey-from-notes-or-all nil))
(lprops '((org-agenda-files (bog-notes-files))
(org-agenda-text-search-extra-files nil))))
(put 'org-agenda-redo-command 'org-lprops lprops)