branch: externals/graphql
commit 03d5cc4c3c834f69288f49b1b97130e73ea94d00
Author: Sean Allred <c...@seanallred.com>
Commit: Sean Allred <c...@seanallred.com>
New function graphql-simplify-response-edges
GraphQL APIs will return networked objects in terms of 'edges' and
'nodes'. This function detects those relationships in a response data
structure and collapses them into just the value of each 'node'.
For instance, if I had a data structure like this:
(some_object (edges ((node (prop . "value")))
((node (prop . "other")))))
the simplification would look like this:
(some_object ((prop . "value"))
((prop . "other"))
Of course, this will work recursively and descend into fields and
subfields to simplify all edges it finds.
This does have the side-effect of removing pagination utilities like
the 'cursor' field of an edge, but that is a complex problem all its
own and it's probably best if this information is retrieved by other
means.
---
graphql.el | 18 ++++++++++++++++++
1 file changed, 18 insertions(+)
diff --git a/graphql.el b/graphql.el
index 5c2ef15881..3fb34191bf 100644
--- a/graphql.el
+++ b/graphql.el
@@ -134,6 +134,24 @@ parameter."
(format "{%s}"
(mapconcat #'graphql-encode fields " "))))))))
+(defun graphql-simplify-response-edges (data)
+ "Simplify DATA to collapse edges into their nodes."
+ (pcase data
+ ;; When we encounter a collection of edges, simplify those edges
+ ;; into their nodes
+ (`(,object (edges . ,edges))
+ (cons object (mapcar #'graphql-simplify-response-edges
+ (mapcar (lambda (edge) (alist-get 'node edge))
+ edges))))
+ ;; When we encounter a plain cons cell (not a list), let it pass
+ (`(,key . ,(and value (guard (not (consp value)))))
+ data)
+ ;; symbols should pass unaltered
+ (`,(and symbol (guard (symbolp symbol)))
+ data)
+ ;; everything else should be mapped
+ (_ (mapcar #'graphql-simplify-response-edges data))))
+
(defun graphql--genform-operation (args kind)
(pcase args
(`(,graph)
