[elpa] externals/srht 7b519d4e4d 2/5: srht-gql: srht-gql-mutation, srht-gql-query: New functions.

[ELPA Syncer]

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

    srht-gql: srht-gql-mutation, srht-gql-query: New functions.
    
    * lisp/srht-gql (srht-gql-mutation, srht-gql-query): New functions.
    srht-gql--string-join: Change behavior.
---
 lisp/srht-gql.el | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/lisp/srht-gql.el b/lisp/srht-gql.el
index 9e510bff6a..366758d766 100644
--- a/lisp/srht-gql.el
+++ b/lisp/srht-gql.el
@@ -39,8 +39,10 @@
 
 (defun srht-gql--string-join (plist)
   (let ((lst (map-apply (lambda (kw val)
-                          (concat (substring (symbol-name kw) 1) ": "
-                                  (srht-gql--string val)))
+                          (if val
+                              (concat (substring (symbol-name kw) 1) ": "
+                                      (srht-gql--string val))
+                            ""))
                         plist)))
     (mapconcat #'identity lst ", ")))
 
@@ -72,5 +74,11 @@
         (fields (srht-gql--serialize-fields (plist-get query :fields))))
     (concat "{" q args fields"}")))
 
+(defun srht-gql-query (base-query)
+  (json-encode `(("query" . ,(srht-gql-serialize base-query)))))
+
+(defun srht-gql-mutation (base-query)
+  (json-encode `(("mutation" . ,(srht-gql-serialize base-query)))))
+
 (provide 'srht-gql)
 ;;; srht-gql.el ends here