summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--bog.el5
1 files changed, 5 insertions, 0 deletions
diff --git a/bog.el b/bog.el
index 89c777f..25f89ba 100644
--- a/bog.el
+++ b/bog.el
@@ -182,6 +182,11 @@ level to operate on."
;;; Citekey methods
(defmacro bog-selection-method (name context-method collection-method)
+ "Create citekey selection function.
+Function will be named bog-citekey-from-NAME and will take one
+argument (NO-CONTEXT). If NO-CONTEXT is nil, CONTEXT-METHOD will
+be called with no arguments. If
+"
`(defun ,(intern (concat "bog-citekey-from-" name)) (no-context)
(or (and no-context (bog-select-citekey (,collection-method)))
(,context-method)