From c6250d1ee25f0bac970eddc4ace5ed520a0e8778 Mon Sep 17 00:00:00 2001 From: Adam Porter Date: Tue, 16 Jul 2019 18:50:06 -0500 Subject: [PATCH] Tidy: Docstring --- org-ql.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/org-ql.el b/org-ql.el index 14445e9..d8e3ed6 100644 --- a/org-ql.el +++ b/org-ql.el @@ -67,7 +67,13 @@ This list should not contain any duplicates.") ;;;; Macros (cl-defmacro org-ql--defpredicate (name args docstring &rest body) - "FIXME: docstring" + "Define an `org-ql' selector predicate named `org-ql--predicate-NAME'. +ARGS is a `cl-defun'-style argument list. DOCSTRING is the +function's docstring. BODY is the body of the predicate. + +Predicates will be called with point on the beginning of an Org +heading and should return non-nil if the heading's entry is a +match." (declare (debug (symbolp listp stringp def-body)) (indent defun)) (let ((fn-name (intern (concat "org-ql--predicate-" (symbol-name name))))