Handle defpred-alias with arguments

Author: yantar92

org-ql.el

@@ -1166,19 +1166,22 @@ More optimal definition would be:
 NAME may be a symbol or a list of symbols: if a list, the first
 is used as NAME and the rest are aliases.
 
-ARGS is a `cl-defun'-style argument list.  DOCSTRING is the
-function's docstring.
+ARGS is an argument list. DOCSTRING is the function's docstring.
 
 QUERY is a valid `org-ql' query."
   (declare (debug ([&or symbolp listp] listp stringp
                    &rest (sexp query)))
            (indent defun))
   `(org-ql-defpred ,name ,args
      ,docstring
-     :normalizers ((`(,predicate-names)
-                    `,query))
-     :body
-     ,query))
+     :normalizers ((`(,predicate-names . ,arg-values)
+                    (cl-progv ',args arg-values
+                      (-tree-map
+                       (lambda (el)
+                         (if (cl-member el ',args)
+                             (symbol-value el)
+                           el))
+                       ',query))))))
 
 (defmacro org-ql--normalize-from-to-on (&rest body)
   "For internal use.