bog-selection-method: Add docstring

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)