[elpa] externals/srht a03296ff6a 3/5: srht: srht--gql-api-request: New function.

[ELPA Syncer]

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

    srht: srht--gql-api-request: New function.
    
    * lisp/srht (srht--gql-api-request): New function.
    Remove srht-gql from require list.
---
 lisp/srht.el | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

diff --git a/lisp/srht.el b/lisp/srht.el
index 59ecba333b..5991f739cb 100644
--- a/lisp/srht.el
+++ b/lisp/srht.el
@@ -33,7 +33,6 @@
 (require 'cl-lib)
 (require 'plz)
 (require 'rx)
-(require 'srht-gql)
 (require 'auth-source)
 
 (defgroup srht nil
@@ -162,6 +161,22 @@ fails with one argument, a `plz-error' struct."
       :else else
       :as as)))
 
+
+(cl-defun srht--gql-api-request (&key instance service query form token-host
+                                      (else #'srht--else)
+                                      (then 'sync)
+                                      (as #'srht--as)
+                                      &allow-other-keys)
+  (let ((uri (srht--make-uri instance service "/query" nil))
+        (content-type (or form "application/json")))
+    (plz 'post uri
+      :headers `(,(cons "Content-Type" content-type)
+                 ,(cons "Authorization" (format "Bearer %s" (srht-token 
token-host))))
+      :body query
+      :then then
+      :else else
+      :as as)))
+
 (defun srht-generic-crud (instance service path &optional query body form)
   "Return a list of arguments to pass to `srht--make-crud-request'.
 INSTANCE is the instance name of the Sourcehut instance.