mirror of https://github.com/Chizi123/.emacs.d.git

Chizi123
2018-11-21 e75a20334813452c6912c090d70a0de2c805f94d
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
;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\211AA\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)