;ELC
|
;;; Compiled
|
;;; in Emacs version 26.1
|
;;; with all optimizations.
|
|
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
|
|
;;; This file does not contain utf-8 non-ASCII characters,
|
;;; and so can be loaded in Emacs versions earlier than 23.
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
(require 'pcase)
|
#@43 Encode OBJ as a GraphQL string.
|
|
(fn OBJ)
|
(defalias 'graphql--encode-object #[257 "\211;\203 \207\2119\203 \300!\207\211\247\203 \301!\207\211:\205( \211A:?\205( \300@!\207" [symbol-name number-to-string] 3 (#$ . 425)])
|
#@65 Encode an argument spec SPEC.
|
SPEC is of the form...
|
|
(fn SPEC)
|
(defalias 'graphql--encode-argument-spec #[257 "\300@A\"\207" [graphql--encode-argument] 4 (#$ . 657)])
|
#@58 Encode an argument KEY with value VALUE.
|
|
(fn KEY VALUE)
|
(defalias 'graphql--encode-argument #[514 "\300\301\302!#\207" [format "%s:%s" graphql--encode-argument-value] 7 (#$ . 833)])
|
#@272 Encode an argument value VALUE.
|
VALUE is expected to be one of the following:
|
|
* a symbol
|
* a 'variable', i.e. \='($ variableName)
|
* an object (as a list)
|
* a string
|
* a vector of values (e.g., symbols)
|
* a number
|
* something encode-able by `graphql-encode'.
|
|
(fn VALUE)
|
(defalias 'graphql--encode-argument-value #[257 "\2119\203 \300!\207\211\242\301=\203 \302\303A@\"\207\211<\203% \302\304\305\306\307#\"\207\211;\203/ \302\310\"\207\311!\203> \302\312\305\313\307#\"\207\211\247\203G \314!\207\313!\207" [symbol-name $ format "$%s" "{%s}" mapconcat graphql--encode-argument-spec "," "\"%s\"" vectorp "[%s]" graphql-encode number-to-string] 7 (#$ . 1025)])
|
#@369 Encode a parameter SPEC.
|
SPEC is expected to be of the following form:
|
|
(NAME TYPE [REQUIRED] . [DEFAULT])
|
|
NAME is the name of the parameter.
|
|
TYPE is the parameter's type.
|
|
A non-nil value for REQUIRED will indicate the parameter is
|
required. A value of `!' is recommended.
|
|
A non-nil value for DEFAULT will provide a default value for the
|
parameter.
|
|
(fn SPEC)
|
(defalias 'graphql--encode-parameter-spec #[257 "\300!AA=\203 \301@A@\300!@\300!A$\207\301@A@\302AA$\207" [last graphql--encode-parameter nil] 7 (#$ . 1702)])
|
#@211 Encode a GraphQL parameter with a NAME and TYPE.
|
If REQUIRED is non-nil, mark the parameter as required.
|
If DEFAULT is non-nil, is the default value of the parameter.
|
|
(fn NAME TYPE &optional REQUIRED DEFAULT)
|
(defalias 'graphql--encode-parameter #[1026 "\300\301\302!\302!\203 \303\202 \304\203 \305\306!P\202! \304%\207" [format "$%s:%s%s%s" symbol-name "!" "" "=" graphql--encode-argument-value] 12 (#$ . 2246)])
|
#@153 Get the keyword arguments from a graph G.
|
Returns a list where the first element is a plist of arguments
|
and the second is a 'clean' copy of G.
|
|
(fn G)
|
(defalias 'graphql--get-keys #[257 "\211:\204 \300D\206A \300\211\203; \301@!\203. \211A\262\242\211A\262\242BB\266\203\202 \211A\262\242B\262\202 \211\237D\266\202\207" [nil keywordp] 7 (#$ . 2680)])
|
#@45 Encode graph G as a GraphQL string.
|
|
(fn G)
|
(defalias 'graphql-encode #[257 "\300!\211:\205m \211@A\211:\205k \211@A\211?\205i \242\206\" \301\302\"\301\303\"\301\304\"\243\305!\205< \306\307\"\205I \306\310\311\312\313#\"\205V \306\310\311\314 \313#\"\205c \306\315\311\316\317#\"\260\266\205\266\202\266\202\266\202\207" [graphql--get-keys alist-get :op-name :op-params :arguments graphql--encode-object format " %S" "(%s)" mapconcat graphql--encode-argument-spec "," graphql--encode-parameter-spec "{%s}" graphql-encode " "] 23 (#$ . 3057)])
|
#@62 Simplify DATA to collapse edges into their nodes.
|
|
(fn DATA)
|
(defalias 'graphql-simplify-response-edges #[257 "\300:\203c@A\211:\203\211@\211:\203\323 \211@\211\301=\203\211 AA\211\2048 \211\302\303\302\304\"\"B\266\202\202\204 \211:?\262\203n \211:?\262\203U \211B\266\202\202\204 \2119\262\203f \211\262\202\204 \302\303 \"\202\204 \2119\262\203 \211\262\202\204 !\266\202\202\316 \211:?\262\203\273 \211:?\262\203\245 \211B\266\202\202\316 \2119\262\203\264 \211\262\202\316 !\202\316 \2119\262\203\312 \211\262\202\316 !\262\202\211:?\262\203\211:?\262\203\357 \211B\266\202\202\2119\262\203\376 \211\262\202!\202\2119\262\203\211\262\202!\262\202^\211:?\262\203L\211\211:?\262\2037\211\211B\266\202\202^\2119\262\203F\211\262\202^!\202^\2119\262\203[\211\262\202^!\266\202\202u\2119\262\203r\211\262\202u\211!\207" [#[257 "\300\301\"\207" [mapcar graphql-simplify-response-edges] 4 "\n\n(fn DATA)"] edges mapcar graphql-simplify-response-edges #[257 "\300\301\"\207" [alist-get node] 4 "\n\n(fn EDGE)"]] 16 (#$ . 3632)])
|
#@259 Generate the Lisp form for an operation.
|
ARGS is is a list ([NAME [PARAMETERS]] GRAPH) where NAME is the
|
name of the operation, PARAMETERS are its parameters, and GRAPH
|
is the form of the actual operation.
|
|
KIND can be `query' or `mutation'.
|
|
(fn ARGS KIND)
|
(defalias 'graphql--genform-operation #[514 ":\203w @A\211:\203b \211@A\211:\203B \211@A\211\204: \300\301 \302\303 BBBBBDD\266\203\202= \304\305!\266\202\202] \211\204Z \300\301\302BBBDD\266\202\202] \304\305!\266\202\202v \211\204s \300\301BDD\262\202v \304\305!\207\304\305!\207" [graphql-encode quote :op-name :op-params error "Bad form"] 19 (#$ . 4796)])
|
#@137 Construct a Query object.
|
ARGS is a listof the form described by `graphql--genform-operation'.
|
|
(fn [NAME] [(PARAMETER-SPEC...)] GRAPH)
|
(defalias 'graphql-query '(macro . #[128 "\300\301\"\207" [graphql--genform-operation query] 4 (#$ . 5446)]))
|
#@140 Construct a Mutation object.
|
ARGS is a listof the form described by `graphql--genform-operation'.
|
|
(fn [NAME] [(PARAMETER-SPEC...)] GRAPH)
|
(defalias 'graphql-mutation '(macro . #[128 "\300\301\"\207" [graphql--genform-operation mutation] 4 (#$ . 5700)]))
|
(provide 'graphql)
|
