Add: Save position when refreshing search buffers

README.org

@@ -460,6 +460,7 @@ Expands into a call to ~org-ql-select~ with the same arguments.  For convenience
 +  Command ~org-ql-view~, which displays views saved to variable ~org-ql-views~, which can be saved from ~org-ql-search~ buffers with command ~org-ql-search-save~, which is bound to =C-x C-s= in view buffers.
 +  Variable ~org-ql-view-map~, active in view buffers displayed by ~org-ql-search~, ~org-ql-agenda~, and ~org-ql-view~.
 +  =random= sort method.
++  Save position when refreshing search buffers.
 
 *Changed*
 +  Function ~org-ql-query~ renamed to ~org-ql-select~.  ~org-ql-query~ now refers to a new function.

org-ql-agenda.el

@@ -252,13 +252,19 @@ TITLE: An optional string displayed in the header."
 (defun org-ql-search-refresh ()
   "Refresh current `org-ql-search' buffer."
   (interactive)
-  (org-ql-agenda--agenda org-ql-buffers-files
+  (let ((current-line (buffer-substring-no-properties (line-beginning-position) (line-end-position)))
-    org-ql-query
+        (old-pos (point)))
-    :sort org-ql-sort
+    (org-ql-agenda--agenda org-ql-buffers-files
-    :narrow org-ql-narrow
+      org-ql-query
-    :super-groups org-ql-super-groups
+      :sort org-ql-sort
-    :title org-ql-title
+      :narrow org-ql-narrow
-    :buffer (current-buffer)))
+      :super-groups org-ql-super-groups
+      :title org-ql-title
+      :buffer (current-buffer))
+    (goto-char (point-min))
+    (or (search-forward current-line nil t)
+        (goto-char old-pos))
+    (beginning-of-line)))
 
 (defun org-ql-search-save ()
   "Save current `org-ql-search' buffer to `org-ql-views'."