Find initial input

org-ql-completing-read.el

@@ -134,7 +134,7 @@ value, or nil."
 
 ;;;###autoload
 (cl-defun org-ql-completing-read
-    (buffers-files &key query-prefix query-filter narrowp
+    (buffers-files &key query-prefix query-filter narrowp initial-input
                    (action #'org-ql-completing-read-action)
                    ;; FIXME: Unused argument.
                    ;; (annotate #'org-ql-completing-read-snippet)
@@ -156,7 +156,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."
   (declare (indent defun))
   ;; Emacs's completion API is not always easy to understand, especially when using "programmed
   ;; completion."  This code was made possible by the example Clemens Radermacher shared at
@@ -351,7 +353,7 @@ single predicate)."
                                 (abort-recursive-edit))))
                            ((symbol-function 'embark-export)
                             (symbol-function 'org-ql-completing-read-export)))
-                  (completing-read prompt #'collection nil t)))))
+                  (completing-read prompt #'collection nil t initial-input)))))
         ;; (debug-message "SELECTED:%S  KEYS:%S" selected (hash-table-keys table))
         (or (gethash selected table)
             ;; If there are completions in the table, but none of them exactly match the user input

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)))

org-ql-search.el

@@ -235,7 +235,7 @@ Like other agenda block commands, it searches files returned by
 function `org-agenda-files'.  Inserts a newline after the block.
 
 If `org-ql-block-header' is non-nil, it is used as the header
-string for the block, otherwise a the header is formed
+string for the block, otherwise the header is formed
 automatically from the query."
   (let (narrow-p old-beg old-end)
     (when-let* ((from (pcase org-agenda-restrict