[elpa] externals/srht 59a24466da 3/7: srht-git: srht-git-gql-base-query: Add filter.

[ELPA Syncer]

branch: externals/srht
commit 59a24466da61e1b0bb0efc1e227dc994adc49d30
Author: Aleksandr Vityazev <avityazev@posteo.org>
Commit: Aleksandr Vityazev <avityazev@posteo.org>

    srht-git: srht-git-gql-base-query: Add filter.
---
 lisp/srht-git.el | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/lisp/srht-git.el b/lisp/srht-git.el
index 47af4eb627..4f591292fd 100644
--- a/lisp/srht-git.el
+++ b/lisp/srht-git.el
@@ -42,6 +42,7 @@ subsequent request, you'll get the next page.")
     :fields
     (canonicalName
      (:type repositories
+      :arguments (:filter (:count 30))
       :fields
       (cursor
        (:type results
@@ -50,10 +51,12 @@ subsequent request, you'll get the next page.")
 (defun srht-git--gql-next-query (cursor)
   "Created next query from CURSOR."
   (pcase-let* ((plist (seq-copy srht-git-gql-base-query))
-               ((map (:fields (seq n lst))) plist))
+               ((map (:fields (seq n lst))) plist)
+               (args (plist-get lst :arguments)))
     (plist-put
      plist
-     :fields `(,n ,(plist-put lst :arguments `(:cursor ,cursor))))))
+     :fields `(,n ,(plist-put
+                    lst :arguments (plist-put args :cursor cursor))))))
 
 (cl-defun srht-git-request (instance query &optional (then 'sync))
   "Request git.INSTANCE.