From c131c794aeafe4f4797735ba01c2850ea0537dac Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Wed, 12 Nov 2014 23:06:53 -0500 Subject: bog-search-notes-for-citekey: Use fallback prompt --- bog.el | 10 ++++++++-- 1 file 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) -- cgit v1.2.3