branch: externals/srht
commit 59a24466da61e1b0bb0efc1e227dc994adc49d30
Author: Aleksandr Vityazev <avitya...@posteo.org>
Commit: Aleksandr Vityazev <avitya...@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.
