* org-ql-find added initial-input parameter

org-ql-find.el

@@ -55,7 +55,7 @@ See function `display-buffer'."
 
 ;;;###autoload
 (cl-defun org-ql-find (buffers-files &key query-prefix query-filter widen
-                                     (prompt "Find entry: "))
+                                     initial-input (prompt "Find entry: "))
   "Go to an Org entry in BUFFERS-FILES selected by searching entries with `org-ql'.
 Interactively, search the buffers and files relevant to the
 current buffer (i.e. in `org-agenda-mode', the value of
@@ -75,7 +75,9 @@ QUERY-FILTER may be a function through which the query the user
 types is filtered before execution (e.g. it could replace spaces
 with commas to turn multiple tokens, which would normally be
 treated as multiple predicates, into multiple arguments to a
-single predicate)."
+single predicate).
+
+INITIAL-INPUT may be a string to initially be filled in the query."
   (interactive (list (org-ql-find--buffers
                       :read-buffer-p (equal '(16) current-prefix-arg))
                      :widen current-prefix-arg))
@@ -86,6 +88,7 @@ single predicate)."
                     :narrowp (not widen)
                     :query-prefix query-prefix
                     :query-filter query-filter
+                    :initial-input initial-input
                     :prompt prompt))))
     (set-buffer (or (buffer-base-buffer (marker-buffer marker))
                     (marker-buffer marker)))