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

Chizi123
2018-11-18 c655eea759be1db69c5e6b45c228139d8390122a
commit | author | age
5cb5f7 1 ;ELC
C 2 ;;; Compiled
3 ;;; in Emacs version 26.1
4 ;;; with all optimizations.
5
6 ;;; This file uses dynamic docstrings, first added in Emacs 19.29.
7
8 ;;; This file does not contain utf-8 non-ASCII characters,
9 ;;; and so can be loaded in Emacs versions earlier than 23.
10
11 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
12 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
13
14
15 (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\207" [require dash ghub graphql treepy] 2)
16 #@381 Make a GraphQL request using GRAPHQL and VARIABLES.
17 Return the response as a JSON-like alist.  Even if the response
18 contains `errors', do not raise an error.  GRAPHQL is a GraphQL
19 string.  VARIABLES is a JSON-like alist.  The other arguments
20 behave as for `ghub-request' (which see).
21
22 (fn GRAPHQL &optional VARIABLES &key USERNAME AUTH HOST SILENT CALLBACK ERRORBACK VALUE EXTRA)
23 (defalias 'ghub-graphql #[641 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\211\203`\211@\311>\203H\211AA\262\2025\312\n>A@\203W\313\262\2025\314\315@\"\210\2025\210\n;\204k\316\317!\210    ;\203u\316\320!\210\321\322\323\313\324\325\326B\205\211\327BCB!\304 \301\302\303\305\306\310\307&\207" [plist-member :username :auth :host :silent :callback :errorback :value :extra (:username :auth :host :silent :callback :errorback :value :extra :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:username :auth :host :silent :callback :errorback :value :extra)" cl--assertion-failed (stringp graphql) (not (stringp variables)) ghub-request "POST" "/graphql" :payload json-encode "query" "variables"] 33 (#$ . 513)])
24 #@62 Return rate limit information.
25
26 (fn &key USERNAME AUTH HOST)
27 (defalias 'ghub-graphql-rate-limit #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\211\203=\211@\304>\203&\211AA\262\202\305>A@\2034\306\262\202\307\310@\"\210\202\210\311\312\306\301\302\303&\313\314\236A\236A\211\262\262\207" [plist-member :username :auth :host (:username :auth :host :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:username :auth :host)" ghub-graphql "query { rateLimit { limit cost remaining resetAt }}" rateLimit data] 13 (#$ . 1738)])
28 #@109 Return the id of the repository specified by OWNER, NAME and HOST.
29
30 (fn OWNER NAME &key USERNAME AUTH HOST)
31 (defalias 'ghub--repository-id #[642 "\300\301\"A@\300\302\"A@\300\303\"A@\211\203=\211@\304>\203&\211AA\262\202\305>A@\2034\306\262\202\307\310@\"\210\202\210\311\312\313B\314BD\301\302\303&\315\316\317\236A\236A\236A\211\262\262\207" [plist-member :username :auth :host (:username :auth :host :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:username :auth :host)" ghub-graphql "query ($owner:String!, $name:String!) {\n                 repository(owner:$owner, name:$name) { id }\n               }" owner name id repository data] 15 (#$ . 2320)])
32 (defconst ghub-fetch-repository '(query (repository [(owner $owner String!) (name $name String!)] name id createdAt updatedAt nameWithOwner description (defaultBranchRef name) isArchived isFork isLocked isMirror isPrivate hasIssuesEnabled hasWikiEnabled (licenseInfo name) (stargazers totalCount) (watchers totalCount) (assignableUsers [(:edges t)] id login name) (issues [(:edges t) (:singular issue number) (orderBy ((field . UPDATED_AT) (direction . DESC)))] number state (author login) title createdAt updatedAt closedAt locked (milestone id) body (assignees [(:edges t)] id) (comments [(:edges t)] databaseId (author login) createdAt updatedAt body) (labels [(:edges t)] id)) (labels [(:edges t) (:singular label id)] id name color description) (pullRequests [(:edges t) (:singular pullRequest number) (orderBy ((field . UPDATED_AT) (direction . DESC)))] number state (author login) title createdAt updatedAt closedAt mergedAt locked maintainerCanModify isCrossRepository (milestone id) body (baseRef name (repository nameWithOwner)) (headRef name (repository (owner login) nameWithOwner)) (assignees [(:edges t)] id) (comments [(:edges t)] databaseId (author login) createdAt updatedAt body) (labels [(:edges t)] id)))))
33 #@226 Asynchronously fetch forge data about the specified repository.
34 Once all data has been collected, CALLBACK is called with the
35 data as the only argument.
36
37 (fn OWNER NAME CALLBACK &optional UNTIL &key USERNAME AUTH HOST FORGE)
38 (defalias 'ghub-fetch-repository #[1155 "\301\302\"A@\301\303\"A@\301\304\"A@\301\305\"A@\211\203D\211@\306>\203,\211AA\262\202\307>A@\203;\310\262\202\311\312@\"\210\202\210\313\314 B\315 BD        \316\317\302 \303\f\304 \305&\207" [ghub-fetch-repository plist-member :username :auth :host :forge (:username :auth :host :forge :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:username :auth :host :forge)" ghub--graphql-vacuum owner name :narrow (repository)] 24 (#$ . 4275)])
39 #@228 Asynchronously fetch forge data about the specified issue.
40 Once all data has been collected, CALLBACK is called with the
41 data as the only argument.
42
43 (fn OWNER NAME NUMBER CALLBACK &optional UNTIL &key USERNAME AUTH HOST FORGE)
44 (defalias 'ghub-fetch-issue #[1412 "\301\302\"A@\301\303\"A@\301\304\"A@\301\305\"A@\211\203D\211@\306>\203,\211AA\262\202\307>A@\203;\310\262\202\311\312@\"\210\202\210\313\314\315\316\317 BE\"\320\fB\321\fBD        \322\323\302 \303\f\304 \305&\207" [ghub-fetch-repository plist-member :username :auth :host :forge (:username :auth :host :forge :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:username :auth :host :forge)" ghub--graphql-vacuum ghub--graphql-prepare-query repository issues issue owner name :narrow (repository issue)] 25 (#$ . 5042)])
45 #@235 Asynchronously fetch forge data about the specified pull-request.
46 Once all data has been collected, CALLBACK is called with the
47 data as the only argument.
48
49 (fn OWNER NAME NUMBER CALLBACK &optional UNTIL &key USERNAME AUTH HOST FORGE)
50 (defalias 'ghub-fetch-pullreq #[1412 "\301\302\"A@\301\303\"A@\301\304\"A@\301\305\"A@\211\203D\211@\306>\203,\211AA\262\202\307>A@\203;\310\262\202\311\312@\"\210\202\210\313\314\315\316\317 BE\"\320\fB\321\fBD        \322\323\302 \303\f\304 \305&\207" [ghub-fetch-repository plist-member :username :auth :host :forge (:username :auth :host :forge :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:username :auth :host :forge)" ghub--graphql-vacuum ghub--graphql-prepare-query repository pullRequests pullRequest owner name :narrow (repository pullRequest)] 25 (#$ . 5888)])
51 #@76 compiler-macro for inlining `ghub--graphql-req-p'.
52
53 (fn CL-WHOLE-ARG CL-X)
54 (defalias 'ghub--graphql-req-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--graphql-req-p (and (memq (type-of cl-x) cl-struct-ghub--graphql-req-tags) t)) nil] 9 (#$ . 6760)])
55 (put 'ghub--graphql-req-p 'compiler-macro 'ghub--graphql-req-p--cmacro)
56 #@13 
57
58 (fn CL-X)
59 (defalias 'ghub--graphql-req-p #[257 "\301!>\205    \302\207" [cl-struct-ghub--graphql-req-tags type-of t] 3 (#$ . 7136)])
60 (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put ghub--graphql-req-p side-effect-free error-free put ghub--graphql-req cl-deftype-satisfies] 5)
61 #@78 compiler-macro for inlining `ghub--graphql-req-url'.
62
63 (fn CL-WHOLE-ARG CL-X)
64 (defalias 'ghub--graphql-req-url--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--graphql-req-url (or (ghub--graphql-req-p cl-x) (signal 'wrong-type-argument (list 'ghub--graphql-req cl-x))) (aref cl-x 1)) nil] 9 (#$ . 7438)])
65 (put 'ghub--graphql-req-url 'compiler-macro 'ghub--graphql-req-url--cmacro)
66 #@141 Access slot "url" of `(ghub--graphql-req (:include ghub--req) (:constructor ghub--make-graphql-req) (:copier nil))' struct CL-X.
67
68 (fn CL-X)
69 (defalias 'ghub--graphql-req-url #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ghub--graphql-req-tags type-of signal wrong-type-argument ghub--graphql-req 1] 5 (#$ . 7869)])
70 (byte-code "\300\301\302\303#\300\207" [function-put ghub--graphql-req-url side-effect-free t] 4)
71 #@80 compiler-macro for inlining `ghub--graphql-req-forge'.
72
73 (fn CL-WHOLE-ARG CL-X)
74 (defalias 'ghub--graphql-req-forge--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--graphql-req-forge (or (ghub--graphql-req-p cl-x) (signal 'wrong-type-argument (list 'ghub--graphql-req cl-x))) (aref cl-x 2)) nil] 9 (#$ . 8308)])
75 (put 'ghub--graphql-req-forge 'compiler-macro 'ghub--graphql-req-forge--cmacro)
76 #@143 Access slot "forge" of `(ghub--graphql-req (:include ghub--req) (:constructor ghub--make-graphql-req) (:copier nil))' struct CL-X.
77
78 (fn CL-X)
79 (defalias 'ghub--graphql-req-forge #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ghub--graphql-req-tags type-of signal wrong-type-argument ghub--graphql-req 2] 5 (#$ . 8749)])
80 (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put ghub--graphql-req-forge side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" ghub--graphql-req-forge] 5 "\n\n(fn CL-DO CL-X)"]] 5)
81 #@81 compiler-macro for inlining `ghub--graphql-req-silent'.
82
83 (fn CL-WHOLE-ARG CL-X)
84 (defalias 'ghub--graphql-req-silent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--graphql-req-silent (or (ghub--graphql-req-p cl-x) (signal 'wrong-type-argument (list 'ghub--graphql-req cl-x))) (aref cl-x 3)) nil] 9 (#$ . 9332)])
85 (put 'ghub--graphql-req-silent 'compiler-macro 'ghub--graphql-req-silent--cmacro)
86 #@144 Access slot "silent" of `(ghub--graphql-req (:include ghub--req) (:constructor ghub--make-graphql-req) (:copier nil))' struct CL-X.
87
88 (fn CL-X)
89 (defalias 'ghub--graphql-req-silent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ghub--graphql-req-tags type-of signal wrong-type-argument ghub--graphql-req 3] 5 (#$ . 9778)])
90 (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put ghub--graphql-req-silent side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" ghub--graphql-req-silent] 5 "\n\n(fn CL-DO CL-X)"]] 5)
91 #@81 compiler-macro for inlining `ghub--graphql-req-method'.
92
93 (fn CL-WHOLE-ARG CL-X)
94 (defalias 'ghub--graphql-req-method--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--graphql-req-method (or (ghub--graphql-req-p cl-x) (signal 'wrong-type-argument (list 'ghub--graphql-req cl-x))) (aref cl-x 4)) nil] 9 (#$ . 10365)])
95 (put 'ghub--graphql-req-method 'compiler-macro 'ghub--graphql-req-method--cmacro)
96 #@144 Access slot "method" of `(ghub--graphql-req (:include ghub--req) (:constructor ghub--make-graphql-req) (:copier nil))' struct CL-X.
97
98 (fn CL-X)
99 (defalias 'ghub--graphql-req-method #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ghub--graphql-req-tags type-of signal wrong-type-argument ghub--graphql-req 4] 5 (#$ . 10812)])
100 (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put ghub--graphql-req-method side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" ghub--graphql-req-method] 5 "\n\n(fn CL-DO CL-X)"]] 5)
101 #@82 compiler-macro for inlining `ghub--graphql-req-headers'.
102
103 (fn CL-WHOLE-ARG CL-X)
104 (defalias 'ghub--graphql-req-headers--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--graphql-req-headers (or (ghub--graphql-req-p cl-x) (signal 'wrong-type-argument (list 'ghub--graphql-req cl-x))) (aref cl-x 5)) nil] 9 (#$ . 11400)])
105 (put 'ghub--graphql-req-headers 'compiler-macro 'ghub--graphql-req-headers--cmacro)
106 #@145 Access slot "headers" of `(ghub--graphql-req (:include ghub--req) (:constructor ghub--make-graphql-req) (:copier nil))' struct CL-X.
107
108 (fn CL-X)
109 (defalias 'ghub--graphql-req-headers #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ghub--graphql-req-tags type-of signal wrong-type-argument ghub--graphql-req 5] 5 (#$ . 11852)])
110 (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put ghub--graphql-req-headers side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" ghub--graphql-req-headers] 5 "\n\n(fn CL-DO CL-X)"]] 5)
111 #@82 compiler-macro for inlining `ghub--graphql-req-handler'.
112
113 (fn CL-WHOLE-ARG CL-X)
114 (defalias 'ghub--graphql-req-handler--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--graphql-req-handler (or (ghub--graphql-req-p cl-x) (signal 'wrong-type-argument (list 'ghub--graphql-req cl-x))) (aref cl-x 6)) nil] 9 (#$ . 12444)])
115 (put 'ghub--graphql-req-handler 'compiler-macro 'ghub--graphql-req-handler--cmacro)
116 #@145 Access slot "handler" of `(ghub--graphql-req (:include ghub--req) (:constructor ghub--make-graphql-req) (:copier nil))' struct CL-X.
117
118 (fn CL-X)
119 (defalias 'ghub--graphql-req-handler #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ghub--graphql-req-tags type-of signal wrong-type-argument ghub--graphql-req 6] 5 (#$ . 12896)])
120 (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put ghub--graphql-req-handler side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" ghub--graphql-req-handler] 5 "\n\n(fn CL-DO CL-X)"]] 5)
121 #@85 compiler-macro for inlining `ghub--graphql-req-unpaginate'.
122
123 (fn CL-WHOLE-ARG CL-X)
124 (defalias 'ghub--graphql-req-unpaginate--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--graphql-req-unpaginate (or (ghub--graphql-req-p cl-x) (signal 'wrong-type-argument (list 'ghub--graphql-req cl-x))) (aref cl-x 7)) nil] 9 (#$ . 13488)])
125 (put 'ghub--graphql-req-unpaginate 'compiler-macro 'ghub--graphql-req-unpaginate--cmacro)
126 #@148 Access slot "unpaginate" of `(ghub--graphql-req (:include ghub--req) (:constructor ghub--make-graphql-req) (:copier nil))' struct CL-X.
127
128 (fn CL-X)
129 (defalias 'ghub--graphql-req-unpaginate #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ghub--graphql-req-tags type-of signal wrong-type-argument ghub--graphql-req 7] 5 (#$ . 13955)])
130 (byte-code "\300\301\302\303#\300\207" [function-put ghub--graphql-req-unpaginate side-effect-free t] 4)
131 #@82 compiler-macro for inlining `ghub--graphql-req-noerror'.
132
133 (fn CL-WHOLE-ARG CL-X)
134 (defalias 'ghub--graphql-req-noerror--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--graphql-req-noerror (or (ghub--graphql-req-p cl-x) (signal 'wrong-type-argument (list 'ghub--graphql-req cl-x))) (aref cl-x 8)) nil] 9 (#$ . 14416)])
135 (put 'ghub--graphql-req-noerror 'compiler-macro 'ghub--graphql-req-noerror--cmacro)
136 #@145 Access slot "noerror" of `(ghub--graphql-req (:include ghub--req) (:constructor ghub--make-graphql-req) (:copier nil))' struct CL-X.
137
138 (fn CL-X)
139 (defalias 'ghub--graphql-req-noerror #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ghub--graphql-req-tags type-of signal wrong-type-argument ghub--graphql-req 8] 5 (#$ . 14868)])
140 (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put ghub--graphql-req-noerror side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" ghub--graphql-req-noerror] 5 "\n\n(fn CL-DO CL-X)"]] 5)
141 #@81 compiler-macro for inlining `ghub--graphql-req-reader'.
142
143 (fn CL-WHOLE-ARG CL-X)
144 (defalias 'ghub--graphql-req-reader--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--graphql-req-reader (or (ghub--graphql-req-p cl-x) (signal 'wrong-type-argument (list 'ghub--graphql-req cl-x))) (aref cl-x 9)) nil] 9 (#$ . 15460)])
145 (put 'ghub--graphql-req-reader 'compiler-macro 'ghub--graphql-req-reader--cmacro)
146 #@144 Access slot "reader" of `(ghub--graphql-req (:include ghub--req) (:constructor ghub--make-graphql-req) (:copier nil))' struct CL-X.
147
148 (fn CL-X)
149 (defalias 'ghub--graphql-req-reader #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ghub--graphql-req-tags type-of signal wrong-type-argument ghub--graphql-req 9] 5 (#$ . 15907)])
150 (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put ghub--graphql-req-reader side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" ghub--graphql-req-reader] 5 "\n\n(fn CL-DO CL-X)"]] 5)
151 #@83 compiler-macro for inlining `ghub--graphql-req-callback'.
152
153 (fn CL-WHOLE-ARG CL-X)
154 (defalias 'ghub--graphql-req-callback--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--graphql-req-callback (or (ghub--graphql-req-p cl-x) (signal 'wrong-type-argument (list 'ghub--graphql-req cl-x))) (aref cl-x 10)) nil] 9 (#$ . 16495)])
155 (put 'ghub--graphql-req-callback 'compiler-macro 'ghub--graphql-req-callback--cmacro)
156 #@146 Access slot "callback" of `(ghub--graphql-req (:include ghub--req) (:constructor ghub--make-graphql-req) (:copier nil))' struct CL-X.
157
158 (fn CL-X)
159 (defalias 'ghub--graphql-req-callback #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ghub--graphql-req-tags type-of signal wrong-type-argument ghub--graphql-req 10] 5 (#$ . 16953)])
160 (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put ghub--graphql-req-callback side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" ghub--graphql-req-callback] 5 "\n\n(fn CL-DO CL-X)"]] 5)
161 #@84 compiler-macro for inlining `ghub--graphql-req-errorback'.
162
163 (fn CL-WHOLE-ARG CL-X)
164 (defalias 'ghub--graphql-req-errorback--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--graphql-req-errorback (or (ghub--graphql-req-p cl-x) (signal 'wrong-type-argument (list 'ghub--graphql-req cl-x))) (aref cl-x 11)) nil] 9 (#$ . 17550)])
165 (put 'ghub--graphql-req-errorback 'compiler-macro 'ghub--graphql-req-errorback--cmacro)
166 #@147 Access slot "errorback" of `(ghub--graphql-req (:include ghub--req) (:constructor ghub--make-graphql-req) (:copier nil))' struct CL-X.
167
168 (fn CL-X)
169 (defalias 'ghub--graphql-req-errorback #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ghub--graphql-req-tags type-of signal wrong-type-argument ghub--graphql-req 11] 5 (#$ . 18013)])
170 (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put ghub--graphql-req-errorback side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" ghub--graphql-req-errorback] 5 "\n\n(fn CL-DO CL-X)"]] 5)
171 #@80 compiler-macro for inlining `ghub--graphql-req-value'.
172
173 (fn CL-WHOLE-ARG CL-X)
174 (defalias 'ghub--graphql-req-value--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--graphql-req-value (or (ghub--graphql-req-p cl-x) (signal 'wrong-type-argument (list 'ghub--graphql-req cl-x))) (aref cl-x 12)) nil] 9 (#$ . 18614)])
175 (put 'ghub--graphql-req-value 'compiler-macro 'ghub--graphql-req-value--cmacro)
176 #@143 Access slot "value" of `(ghub--graphql-req (:include ghub--req) (:constructor ghub--make-graphql-req) (:copier nil))' struct CL-X.
177
178 (fn CL-X)
179 (defalias 'ghub--graphql-req-value #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ghub--graphql-req-tags type-of signal wrong-type-argument ghub--graphql-req 12] 5 (#$ . 19057)])
180 (byte-code "\300\301\302\303#\300\207" [function-put ghub--graphql-req-value side-effect-free t] 4)
181 #@80 compiler-macro for inlining `ghub--graphql-req-extra'.
182
183 (fn CL-WHOLE-ARG CL-X)
184 (defalias 'ghub--graphql-req-extra--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--graphql-req-extra (or (ghub--graphql-req-p cl-x) (signal 'wrong-type-argument (list 'ghub--graphql-req cl-x))) (aref cl-x 13)) nil] 9 (#$ . 19504)])
185 (put 'ghub--graphql-req-extra 'compiler-macro 'ghub--graphql-req-extra--cmacro)
186 #@143 Access slot "extra" of `(ghub--graphql-req (:include ghub--req) (:constructor ghub--make-graphql-req) (:copier nil))' struct CL-X.
187
188 (fn CL-X)
189 (defalias 'ghub--graphql-req-extra #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ghub--graphql-req-tags type-of signal wrong-type-argument ghub--graphql-req 13] 5 (#$ . 19947)])
190 (byte-code "\300\301\302\303#\300\207" [function-put ghub--graphql-req-extra side-effect-free t] 4)
191 #@80 compiler-macro for inlining `ghub--graphql-req-query'.
192
193 (fn CL-WHOLE-ARG CL-X)
194 (defalias 'ghub--graphql-req-query--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--graphql-req-query (or (ghub--graphql-req-p cl-x) (signal 'wrong-type-argument (list 'ghub--graphql-req cl-x))) (aref cl-x 14)) nil] 9 (#$ . 20394)])
195 (put 'ghub--graphql-req-query 'compiler-macro 'ghub--graphql-req-query--cmacro)
196 #@143 Access slot "query" of `(ghub--graphql-req (:include ghub--req) (:constructor ghub--make-graphql-req) (:copier nil))' struct CL-X.
197
198 (fn CL-X)
199 (defalias 'ghub--graphql-req-query #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ghub--graphql-req-tags type-of signal wrong-type-argument ghub--graphql-req 14] 5 (#$ . 20837)])
200 (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put ghub--graphql-req-query side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" ghub--graphql-req-query] 5 "\n\n(fn CL-DO CL-X)"]] 5)
201 #@84 compiler-macro for inlining `ghub--graphql-req-variables'.
202
203 (fn CL-WHOLE-ARG CL-X)
204 (defalias 'ghub--graphql-req-variables--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--graphql-req-variables (or (ghub--graphql-req-p cl-x) (signal 'wrong-type-argument (list 'ghub--graphql-req cl-x))) (aref cl-x 15)) nil] 9 (#$ . 21422)])
205 (put 'ghub--graphql-req-variables 'compiler-macro 'ghub--graphql-req-variables--cmacro)
206 #@147 Access slot "variables" of `(ghub--graphql-req (:include ghub--req) (:constructor ghub--make-graphql-req) (:copier nil))' struct CL-X.
207
208 (fn CL-X)
209 (defalias 'ghub--graphql-req-variables #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ghub--graphql-req-tags type-of signal wrong-type-argument ghub--graphql-req 15] 5 (#$ . 21885)])
210 (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put ghub--graphql-req-variables side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" ghub--graphql-req-variables] 5 "\n\n(fn CL-DO CL-X)"]] 5)
211 #@80 compiler-macro for inlining `ghub--graphql-req-until'.
212
213 (fn CL-WHOLE-ARG CL-X)
214 (defalias 'ghub--graphql-req-until--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--graphql-req-until (or (ghub--graphql-req-p cl-x) (signal 'wrong-type-argument (list 'ghub--graphql-req cl-x))) (aref cl-x 16)) nil] 9 (#$ . 22486)])
215 (put 'ghub--graphql-req-until 'compiler-macro 'ghub--graphql-req-until--cmacro)
216 #@143 Access slot "until" of `(ghub--graphql-req (:include ghub--req) (:constructor ghub--make-graphql-req) (:copier nil))' struct CL-X.
217
218 (fn CL-X)
219 (defalias 'ghub--graphql-req-until #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ghub--graphql-req-tags type-of signal wrong-type-argument ghub--graphql-req 16] 5 (#$ . 22929)])
220 (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put ghub--graphql-req-until side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" ghub--graphql-req-until] 5 "\n\n(fn CL-DO CL-X)"]] 5)
221 #@80 compiler-macro for inlining `ghub--graphql-req-pages'.
222
223 (fn CL-WHOLE-ARG CL-X)
224 (defalias 'ghub--graphql-req-pages--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--graphql-req-pages (or (ghub--graphql-req-p cl-x) (signal 'wrong-type-argument (list 'ghub--graphql-req cl-x))) (aref cl-x 17)) nil] 9 (#$ . 23514)])
225 (put 'ghub--graphql-req-pages 'compiler-macro 'ghub--graphql-req-pages--cmacro)
226 #@143 Access slot "pages" of `(ghub--graphql-req (:include ghub--req) (:constructor ghub--make-graphql-req) (:copier nil))' struct CL-X.
227
228 (fn CL-X)
229 (defalias 'ghub--graphql-req-pages #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ghub--graphql-req-tags type-of signal wrong-type-argument ghub--graphql-req 17] 5 (#$ . 23957)])
230 (byte-code "\300\301\302\303#\300\207" [function-put ghub--graphql-req-pages side-effect-free t] 4)
231 #@210 compiler-macro for inlining `ghub--make-graphql-req'.
232
233 (fn CL-WHOLE &cl-quote &key URL FORGE SILENT METHOD HEADERS HANDLER UNPAGINATE NOERROR READER CALLBACK ERRORBACK VALUE EXTRA QUERY VARIABLES UNTIL PAGES)
234 (defalias 'ghub--make-graphql-req--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\300    \311\"A@\300\n\312\"A@\300 \313\"A@\300\f\314\"A@\300 \315\"A@\300\316\"A@\300\317\"A@\300\320\"A@\300\321\"\206t\322A@\211\203\243\211@\323>\203\213\211AA\262\202x\324>A@\203\232\325\262\202x\326\327@\"\210\202x\210\330\331\332\325\325&\207" [plist-member :url :forge :silent :method :headers :handler :unpaginate :noerror :reader :callback :errorback :value :extra :query :variables :until :pages (nil 0) (:url :forge :silent :method :headers :handler :unpaginate :noerror :reader :callback :errorback :value :extra :query :variables :until :pages :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:url :forge :silent :method :headers :handler :unpaginate :noerror :reader :callback :errorback :value :extra :query :variables :until :pages)" cl--defsubst-expand (url forge silent method headers handler unpaginate noerror reader callback errorback value extra query variables until pages) (cl-block ghub--make-graphql-req (record 'ghub--graphql-req url forge silent method headers handler unpaginate noerror reader callback errorback value extra query variables until pages))] 42 (#$ . 24405)])
235 (put 'ghub--make-graphql-req 'compiler-macro 'ghub--make-graphql-req--cmacro)
236 #@190 Constructor for objects of type `ghub--graphql-req'.
237
238 (fn &key URL FORGE SILENT METHOD HEADERS HANDLER UNPAGINATE NOERROR READER CALLBACK ERRORBACK VALUE EXTRA QUERY VARIABLES UNTIL PAGES)
239 (defalias 'ghub--make-graphql-req #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\300    \311\"A@\300\n\312\"A@\300 \313\"A@\300\f\314\"A@\300 \315\"A@\300\316\"A@\300\317\"A@\300\320\"A@\300\321\"\206t\322A@\211\203\243\211@\323>\203\213\211AA\262\202x\324>A@\203\232\325\262\202x\326\327@\"\210\202x\210\330\331&\207" [plist-member :url :forge :silent :method :headers :handler :unpaginate :noerror :reader :callback :errorback :value :extra :query :variables :until :pages (nil 0) (:url :forge :silent :method :headers :handler :unpaginate :noerror :reader :callback :errorback :value :extra :query :variables :until :pages :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:url :forge :silent :method :headers :handler :unpaginate :noerror :reader :callback :errorback :value :extra :query :variables :until :pages)" record ghub--graphql-req] 37 (#$ . 26051)])
240 (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303&    \207" [function-put ghub--make-graphql-req side-effect-free t cl-struct-define ghub--graphql-req nil ghub--req record ((cl-tag-slot) (url nil :read-only nil) (forge nil :read-only t) (silent nil :read-only t) (method nil :read-only t) (headers nil :read-only t) (handler nil :read-only t) (unpaginate nil :read-only nil) (noerror nil :read-only t) (reader nil :read-only t) (callback nil :read-only t) (errorback nil :read-only t) (value nil :read-only nil) (extra nil :read-only nil) (query nil :read-only t) (variables nil :read-only t) (until nil :read-only t) (pages 0 :read-only nil)) cl-struct-ghub--graphql-req-tags] 11)
241 #@174 Make a GraphQL request using QUERY and VARIABLES.
242 See Info node `(ghub)GraphQL Support'.
243
244 (fn QUERY VARIABLES CALLBACK &optional UNTIL &key NARROW USERNAME AUTH HOST FORGE)
245 (defalias 'ghub--graphql-vacuum #[1155 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\211\203J\211@\306>\2032\211AA\262\202\307>A@\203A\310\262\202\311\312@\"\210\202\210\204T\313!\262\204i;\204i\314=\204i\315\"\262\316\317\320\321\322\323Q!\324\325\326\327\310\n\f\f%\330\331\332\333\334\335\203\244\336\337\340\341\342\"\343\"\344\345%\202\246&!\207" [plist-member :narrow :username :auth :host :forge (:narrow :username :auth :host :forge :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:narrow :username :auth :host :forge)" ghub--host none ghub--username ghub--graphql-retrieve ghub--make-graphql-req :url url-generic-parse-url "https://" "/graphql" :method "POST" :headers ghub--headers :handler ghub--graphql-handle-response :query :variables :until :callback make-byte-code 257 "\301\302\211A\262\242\211\262\203\211\236A\262\202\266\300!\207" vconcat vector [nil] 5 "\n\n(fn DATA)"] 34 (#$ . 27967)])
246 #@37 
247
248 (fn REQ &optional LINEAGE CURSOR)
249 (defalias 'ghub--graphql-retrieve #[769 "\302!>\204\303\304\305D\"\210\211\306\306HTI\262\211\307V\203$\310\311\"\210\210\312\313\314\315\316\317\302!>\204=\303\304\305\nD\"\210\320H#!B\321\302!>\204Z\303\304\305    D\"\210\322HBD!)\"\207" [cl-struct-ghub--graphql-req-tags json-false type-of signal wrong-type-argument ghub--graphql-req 17 1 message "Fetching page %s..." ghub--retrieve nil ghub--encode-payload query ghub--graphql-encode ghub--graphql-prepare-query 14 variables 15] 12 (#$ . 29171)])
250 #@39 
251
252 (fn QUERY &optional LINEAGE CURSOR)
253 (defalias 'ghub--graphql-prepare-query #[769 "\203 \300#\262\301!\302\3032\321\304!\305!\203\243\306\307\"\302\310\236\203V\311\312DB\262\313!\262\304!\262\314@A@\315\316\317    AABDF\"\262\320!\262\321!\262\211\203\227\211@\322@!\204\220\211G\323U\203\204\211@A@DB\262\211A@\3248DB\262\202\220\211G\324U\203\220\211B\262A\266\202\202W\210\314\306\325\"\"\262\266\210\326!\203\311\327\304!!\203\300\306\325\"\211AB\241\266\330\303\"\266\202\321!\262\202\207" [ghub--graphql-narrow-query ghub--alist-zip nil --cl-block-nil-- treepy-node vectorp cl-coerce list :edges first 100 treepy-up treepy-replace (pageInfo endCursor hasNextPage) edges node treepy-down treepy-next keywordp 3 2 vector treepy-end-p copy-sequence throw] 16 (#$ . 29743)])
254 #@19 
255
256 (fn STATUS REQ)
257 (defalias 'ghub--graphql-handle-response #[514 "p\301\302\303\304\305!\306\"\307$\216\310\311!\210\312\"\313!\314#\315\316\"\317\236A\211\205.\320B\321\236\322    !>\204B\323\324\325 D\"\210\326H\322\n!>\204W\323\324\325\fD\"\210    \211\326I\266\204g\203\236\322\n!>\204x\323\324\325\fD\"\210    \327H\211\203\221\211\206\207\n$\202\231\330\206\230!\262\202\244\331\f#\266\210)\207" [cl-struct-ghub--req-tags make-byte-code 0 "\301\300!\205    \302\300!\207" vconcat vector [buffer-live-p kill-buffer] 2 set-buffer-multibyte t ghub--handle-response-headers ghub--handle-response-payload ghub--handle-response-error plist-get :error errors ghub-graphql-error data type-of signal wrong-type-argument ghub--req 12 11 ghub--signal-error ghub--graphql-walk-response] 17 (#$ . 30594)])
258 #@21 
259
260 (fn LOC DATA REQ)
261 (defalias 'ghub--graphql-walk-response #[771 "\204\"\302!>\204\303\304\305D\"\210\211\211\306\307!\211\262I\266\202^\310\311!\"\262\312\236\313\314\312\315!\"\314\312\"\206@\316\317!\"\203L\241\210\202V\312B\211\262B\262\266\320\"\262\3212b\315!\242\312=\2035\322!\262\315!\211@A\211\323\324\236A\236A\325\324\236A\236A\312\236A\205\221\326\327\330\"!\302\f!    >\204\251\303\304\331D\"\210 \332H\236A\333\334\"\203\367\335\336\337\203\356\203\356@\340\341\236A\"\204\335\335\211\262    \204\335\335\262\202\342\211B\262\210\211T\262A\262\202\273\266\211\237\262\202\370\211\203)\302!>\204 \303\304\305D\"\210 \211\306I\266\342\311!#\210\343\321\335\"\210\2023\320\nB\"\262\266 \344!\204C\345!\262\202b\302!>\204R\303\304\305D\"\210\211\346H\347!!\210\343\321\335\"\210\202b\207" [cl-struct-ghub--req-tags cl-struct-ghub--graphql-req-tags type-of signal wrong-type-argument ghub--req 12 ghub--alist-zip ghub--graphql-narrow-data ghub--graphql-lineage edges append alist-get treepy-node error "BUG: Expected new nodes" treepy-replace --cl-block-nil-- treepy-up hasNextPage pageInfo endCursor intern format "%s-until" ghub--graphql-req 16 mapcar cdar nil t 0 string> updatedAt ghub--graphql-retrieve throw treepy-end-p treepy-next 10 treepy-root] 23 (#$ . 31444)])
262 #@12 
263
264 (fn LOC)
265 (defalias 'ghub--graphql-lineage #[257 "\300\301!\203\302!@B\262\301!\262\202\211\207" [nil treepy-up treepy-node] 4 (#$ . 32842)])
266 #@21 
267
268 (fn DATA LINEAGE)
269 (defalias 'ghub--graphql-narrow-data #[514 "\300\211A\262\242\211\262\203(@:\203A\262A@\262\202\211A\236\262\202\210\207" [nil] 5 (#$ . 33001)])
270 #@29 
271
272 (fn QUERY LINEAGE CURSOR)
273 (defalias 'ghub--graphql-narrow-query #[771 "@:\2034AA\300A@\301\"\302\236A\211@\303A@@AD!A\2030\304A#\2021BB\207@A\236\206M\305\306\307\310\311\303!\312\"\313\314%A\"@\315A@!\205ZA@\316\205bCA\203t\304    A    #\202\220\203\217@\311\317    DCA@\"AABB\202\220C\"B\207" [cl-coerce list :singular vector ghub--graphql-narrow-query cl-find-if make-byte-code 257 "\211<\205\301A@!\205\302\303A@\304\"\236A@\300@=\207" vconcat [vectorp :singular cl-coerce list] 5 "\n\n(fn C)" vectorp append after] 13 (#$ . 33190)])
274 #@10 
275
276 (fn G)
277 (defalias 'ghub--graphql-encode #[257 "\2119\203    \300!\207\211@\301A@!\205\302A@\303\"\211\203#AA\202%A\304!\2055\305\306\307\310\311#\"\205B\305\312\307\313\314#\"Q\207" [symbol-name vectorp cl-coerce list graphql--encode-object format " (\n%s)" mapconcat #[257 "\211@A\211@A\300\"\266\202\207" [graphql--encode-argument] 10 "\n\n(fn ARG0)"] ",\n" " {\n%s\n}" ghub--graphql-encode "\n"] 12 (#$ . 33784)])
278 #@13 
279
280 (fn ROOT)
281 (defalias 'ghub--alist-zip #[257 "\300\301\302\303$\207" [#[257 "\211<\205\211A<\207" #1=[] 2 "\n\n(fn ELT)"] #[514 "\207" #1# 3 "\n\n(fn _ CHILDREN)"] treepy-zipper identity] 8 (#$ . 34230)])
282 (provide 'ghub-graphql)