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
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
;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.
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 
(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\207" [require auth-source cl-lib json let-alist url url-auth url-http] 2)
#@58 The default host that is used if `ghub.host' is not set.
(defconst ghub-default-host "api.github.com" (#$ . 582))
#@882 The Github API scopes that your private tools need.
 
The token that is created based on the value of this variable
is used when `ghub-request' (or one of its wrappers) is called
without providing a value for AUTH.  Packages should always
identify themselves using that argument, but when you use Ghub
directly in private tools, then that is not necessary and the
request is made on behalf of the `ghub' package itself, aka on
behalf of some private tool.
 
By default the only requested scope is `repo' because that is
sufficient as well as required for most common uses.  This and
other scopes are documented at URL `https://magit.vc/goto/2e586d36'.
 
If your private tools need other scopes, then you have to add
them here *before* creating the token.  Alternatively you can
edit the scopes of an existing token using the web interface
at URL `https://github.com/settings/tokens'.
(defvar ghub-github-token-scopes '(repo) (#$ . 703))
#@134 If non-nil, the string used to identify the local machine.
If this is nil, then the value returned by `system-name' is
used instead.
(defvar ghub-override-system-name nil (#$ . 1644))
#@68 compiler-macro for inlining `ghub--req-p'.
 
(fn CL-WHOLE-ARG CL-X)
(defalias 'ghub--req-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--req-p (and (memq (type-of cl-x) cl-struct-ghub--req-tags) t)) nil] 9 (#$ . 1834)])
(put 'ghub--req-p 'compiler-macro 'ghub--req-p--cmacro)
#@13 
 
(fn CL-X)
(defalias 'ghub--req-p #[257 "\301!>\205    \302\207" [cl-struct-ghub--req-tags type-of t] 3 (#$ . 2162)])
(byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put ghub--req-p side-effect-free error-free put ghub--req cl-deftype-satisfies] 5)
#@70 compiler-macro for inlining `ghub--req-url'.
 
(fn CL-WHOLE-ARG CL-X)
(defalias 'ghub--req-url--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--req-url (or (ghub--req-p cl-x) (signal 'wrong-type-argument (list 'ghub--req cl-x))) (aref cl-x 1)) nil] 9 (#$ . 2432)])
(put 'ghub--req-url 'compiler-macro 'ghub--req-url--cmacro)
#@104 Access slot "url" of `(ghub--req (:constructor ghub--make-req) (:copier nil))' struct CL-X.
 
(fn CL-X)
(defalias 'ghub--req-url #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ghub--req-tags type-of signal wrong-type-argument ghub--req 1] 5 (#$ . 2807)])
(byte-code "\300\301\302\303#\300\207" [function-put ghub--req-url side-effect-free t] 4)
#@72 compiler-macro for inlining `ghub--req-forge'.
 
(fn CL-WHOLE-ARG CL-X)
(defalias 'ghub--req-forge--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--req-forge (or (ghub--req-p cl-x) (signal 'wrong-type-argument (list 'ghub--req cl-x))) (aref cl-x 2)) nil] 9 (#$ . 3177)])
(put 'ghub--req-forge 'compiler-macro 'ghub--req-forge--cmacro)
#@106 Access slot "forge" of `(ghub--req (:constructor ghub--make-req) (:copier nil))' struct CL-X.
 
(fn CL-X)
(defalias 'ghub--req-forge #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ghub--req-tags type-of signal wrong-type-argument ghub--req 2] 5 (#$ . 3562)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put ghub--req-forge side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" ghub--req-forge] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@73 compiler-macro for inlining `ghub--req-silent'.
 
(fn CL-WHOLE-ARG CL-X)
(defalias 'ghub--req-silent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--req-silent (or (ghub--req-p cl-x) (signal 'wrong-type-argument (list 'ghub--req cl-x))) (aref cl-x 3)) nil] 9 (#$ . 4068)])
(put 'ghub--req-silent 'compiler-macro 'ghub--req-silent--cmacro)
#@107 Access slot "silent" of `(ghub--req (:constructor ghub--make-req) (:copier nil))' struct CL-X.
 
(fn CL-X)
(defalias 'ghub--req-silent #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ghub--req-tags type-of signal wrong-type-argument ghub--req 3] 5 (#$ . 4458)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put ghub--req-silent side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" ghub--req-silent] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@73 compiler-macro for inlining `ghub--req-method'.
 
(fn CL-WHOLE-ARG CL-X)
(defalias 'ghub--req-method--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--req-method (or (ghub--req-p cl-x) (signal 'wrong-type-argument (list 'ghub--req cl-x))) (aref cl-x 4)) nil] 9 (#$ . 4968)])
(put 'ghub--req-method 'compiler-macro 'ghub--req-method--cmacro)
#@107 Access slot "method" of `(ghub--req (:constructor ghub--make-req) (:copier nil))' struct CL-X.
 
(fn CL-X)
(defalias 'ghub--req-method #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ghub--req-tags type-of signal wrong-type-argument ghub--req 4] 5 (#$ . 5358)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put ghub--req-method side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" ghub--req-method] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@74 compiler-macro for inlining `ghub--req-headers'.
 
(fn CL-WHOLE-ARG CL-X)
(defalias 'ghub--req-headers--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--req-headers (or (ghub--req-p cl-x) (signal 'wrong-type-argument (list 'ghub--req cl-x))) (aref cl-x 5)) nil] 9 (#$ . 5868)])
(put 'ghub--req-headers 'compiler-macro 'ghub--req-headers--cmacro)
#@108 Access slot "headers" of `(ghub--req (:constructor ghub--make-req) (:copier nil))' struct CL-X.
 
(fn CL-X)
(defalias 'ghub--req-headers #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ghub--req-tags type-of signal wrong-type-argument ghub--req 5] 5 (#$ . 6263)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put ghub--req-headers side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" ghub--req-headers] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@74 compiler-macro for inlining `ghub--req-handler'.
 
(fn CL-WHOLE-ARG CL-X)
(defalias 'ghub--req-handler--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--req-handler (or (ghub--req-p cl-x) (signal 'wrong-type-argument (list 'ghub--req cl-x))) (aref cl-x 6)) nil] 9 (#$ . 6777)])
(put 'ghub--req-handler 'compiler-macro 'ghub--req-handler--cmacro)
#@108 Access slot "handler" of `(ghub--req (:constructor ghub--make-req) (:copier nil))' struct CL-X.
 
(fn CL-X)
(defalias 'ghub--req-handler #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ghub--req-tags type-of signal wrong-type-argument ghub--req 6] 5 (#$ . 7172)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put ghub--req-handler side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" ghub--req-handler] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@77 compiler-macro for inlining `ghub--req-unpaginate'.
 
(fn CL-WHOLE-ARG CL-X)
(defalias 'ghub--req-unpaginate--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--req-unpaginate (or (ghub--req-p cl-x) (signal 'wrong-type-argument (list 'ghub--req cl-x))) (aref cl-x 7)) nil] 9 (#$ . 7686)])
(put 'ghub--req-unpaginate 'compiler-macro 'ghub--req-unpaginate--cmacro)
#@111 Access slot "unpaginate" of `(ghub--req (:constructor ghub--make-req) (:copier nil))' struct CL-X.
 
(fn CL-X)
(defalias 'ghub--req-unpaginate #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ghub--req-tags type-of signal wrong-type-argument ghub--req 7] 5 (#$ . 8096)])
(byte-code "\300\301\302\303#\300\207" [function-put ghub--req-unpaginate side-effect-free t] 4)
#@74 compiler-macro for inlining `ghub--req-noerror'.
 
(fn CL-WHOLE-ARG CL-X)
(defalias 'ghub--req-noerror--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--req-noerror (or (ghub--req-p cl-x) (signal 'wrong-type-argument (list 'ghub--req cl-x))) (aref cl-x 8)) nil] 9 (#$ . 8487)])
(put 'ghub--req-noerror 'compiler-macro 'ghub--req-noerror--cmacro)
#@108 Access slot "noerror" of `(ghub--req (:constructor ghub--make-req) (:copier nil))' struct CL-X.
 
(fn CL-X)
(defalias 'ghub--req-noerror #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ghub--req-tags type-of signal wrong-type-argument ghub--req 8] 5 (#$ . 8882)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put ghub--req-noerror side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" ghub--req-noerror] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@73 compiler-macro for inlining `ghub--req-reader'.
 
(fn CL-WHOLE-ARG CL-X)
(defalias 'ghub--req-reader--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--req-reader (or (ghub--req-p cl-x) (signal 'wrong-type-argument (list 'ghub--req cl-x))) (aref cl-x 9)) nil] 9 (#$ . 9396)])
(put 'ghub--req-reader 'compiler-macro 'ghub--req-reader--cmacro)
#@107 Access slot "reader" of `(ghub--req (:constructor ghub--make-req) (:copier nil))' struct CL-X.
 
(fn CL-X)
(defalias 'ghub--req-reader #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ghub--req-tags type-of signal wrong-type-argument ghub--req 9] 5 (#$ . 9786)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put ghub--req-reader side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" ghub--req-reader] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@75 compiler-macro for inlining `ghub--req-callback'.
 
(fn CL-WHOLE-ARG CL-X)
(defalias 'ghub--req-callback--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--req-callback (or (ghub--req-p cl-x) (signal 'wrong-type-argument (list 'ghub--req cl-x))) (aref cl-x 10)) nil] 9 (#$ . 10296)])
(put 'ghub--req-callback 'compiler-macro 'ghub--req-callback--cmacro)
#@109 Access slot "callback" of `(ghub--req (:constructor ghub--make-req) (:copier nil))' struct CL-X.
 
(fn CL-X)
(defalias 'ghub--req-callback #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ghub--req-tags type-of signal wrong-type-argument ghub--req 10] 5 (#$ . 10698)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put ghub--req-callback side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" ghub--req-callback] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@76 compiler-macro for inlining `ghub--req-errorback'.
 
(fn CL-WHOLE-ARG CL-X)
(defalias 'ghub--req-errorback--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--req-errorback (or (ghub--req-p cl-x) (signal 'wrong-type-argument (list 'ghub--req cl-x))) (aref cl-x 11)) nil] 9 (#$ . 11218)])
(put 'ghub--req-errorback 'compiler-macro 'ghub--req-errorback--cmacro)
#@110 Access slot "errorback" of `(ghub--req (:constructor ghub--make-req) (:copier nil))' struct CL-X.
 
(fn CL-X)
(defalias 'ghub--req-errorback #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ghub--req-tags type-of signal wrong-type-argument ghub--req 11] 5 (#$ . 11625)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put ghub--req-errorback side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" ghub--req-errorback] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@72 compiler-macro for inlining `ghub--req-value'.
 
(fn CL-WHOLE-ARG CL-X)
(defalias 'ghub--req-value--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--req-value (or (ghub--req-p cl-x) (signal 'wrong-type-argument (list 'ghub--req cl-x))) (aref cl-x 12)) nil] 9 (#$ . 12149)])
(put 'ghub--req-value 'compiler-macro 'ghub--req-value--cmacro)
#@106 Access slot "value" of `(ghub--req (:constructor ghub--make-req) (:copier nil))' struct CL-X.
 
(fn CL-X)
(defalias 'ghub--req-value #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ghub--req-tags type-of signal wrong-type-argument ghub--req 12] 5 (#$ . 12536)])
(byte-code "\300\301\302\303#\300\207" [function-put ghub--req-value side-effect-free t] 4)
#@72 compiler-macro for inlining `ghub--req-extra'.
 
(fn CL-WHOLE-ARG CL-X)
(defalias 'ghub--req-extra--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--req-extra (or (ghub--req-p cl-x) (signal 'wrong-type-argument (list 'ghub--req cl-x))) (aref cl-x 13)) nil] 9 (#$ . 12914)])
(put 'ghub--req-extra 'compiler-macro 'ghub--req-extra--cmacro)
#@106 Access slot "extra" of `(ghub--req (:constructor ghub--make-req) (:copier nil))' struct CL-X.
 
(fn CL-X)
(defalias 'ghub--req-extra #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-ghub--req-tags type-of signal wrong-type-argument ghub--req 13] 5 (#$ . 13301)])
(byte-code "\300\301\302\303#\300\207" [function-put ghub--req-extra side-effect-free t] 4)
#@174 compiler-macro for inlining `ghub--make-req'.
 
(fn CL-WHOLE &cl-quote &key URL FORGE SILENT METHOD HEADERS HANDLER UNPAGINATE NOERROR READER CALLBACK ERRORBACK VALUE EXTRA)
(defalias 'ghub--make-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@ \211\203\203\211@\316>\203k\211AA\262\202X\317>A@\203z\320\262\202X\321\322@\"\210\202X\210\323\324\325\320\320&\207" [plist-member :url :forge :silent :method :headers :handler :unpaginate :noerror :reader :callback :errorback :value :extra (:url :forge :silent :method :headers :handler :unpaginate :noerror :reader :callback :errorback :value :extra :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)" cl--defsubst-expand (url forge silent method headers handler unpaginate noerror reader callback errorback value extra) (cl-block ghub--make-req (record 'ghub--req url forge silent method headers handler unpaginate noerror reader callback errorback value extra))] 34 (#$ . 13680)])
(put 'ghub--make-req 'compiler-macro 'ghub--make-req--cmacro)
#@154 Constructor for objects of type `ghub--req'.
 
(fn &key URL FORGE SILENT METHOD HEADERS HANDLER UNPAGINATE NOERROR READER CALLBACK ERRORBACK VALUE EXTRA)
(defalias 'ghub--make-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@ \211\203\203\211@\316>\203k\211AA\262\202X\317>A@\203z\320\262\202X\321\322@\"\210\202X\210\323\324&\207" [plist-member :url :forge :silent :method :headers :handler :unpaginate :noerror :reader :callback :errorback :value :extra (:url :forge :silent :method :headers :handler :unpaginate :noerror :reader :callback :errorback :value :extra :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)" record ghub--req] 29 (#$ . 15010)])
(byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303&    \210\313\314\315\"\210\316\317\320\321#\210\316\322\323\317#\207" [function-put ghub--make-req side-effect-free t cl-struct-define ghub--req nil cl-structure-object 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)) cl-struct-ghub--req-tags defalias ghub-req-extra ghub--req-extra define-error ghub-error "Ghub/Url Error" error ghub-http-error "HTTP Error"] 11)
#@146 The headers returned in response to the last request.
`ghub-request' returns the response body and stores the
response headers in this variable.
(defvar ghub-response-headers nil (#$ . 16748))
#@264 Make a `HEAD' request for RESOURCE, with optional query PARAMS.
Like calling `ghub-request' (which see) with "HEAD" as METHOD.
 
(fn RESOURCE &optional PARAMS &key QUERY PAYLOAD HEADERS SILENT UNPAGINATE NOERROR READER USERNAME AUTH HOST CALLBACK ERRORBACK EXTRA)
(defalias 'ghub-head #[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@\300    \311\"A@\300\n\312\"A@\300 \313\"A@\300\f\314\"A@\300 \315\"A@ \211\203\203\211@\316>\203k\211AA\262\202X\317>A@\203z\320\262\202X\321\322@\"\210\202X\210\323\324\301\302\303\304\305\306\307\310\311\312\313\314\315&\207" [plist-member :query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :callback :errorback :extra (:query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :callback :errorback :extra :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :callback :errorback :extra)" ghub-request "HEAD"] 46 (#$ . 16948)])
#@262 Make a `GET' request for RESOURCE, with optional query PARAMS.
Like calling `ghub-request' (which see) with "GET" as METHOD.
 
(fn RESOURCE &optional PARAMS &key QUERY PAYLOAD HEADERS SILENT UNPAGINATE NOERROR READER USERNAME AUTH HOST CALLBACK ERRORBACK EXTRA)
(defalias 'ghub-get #[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@\300    \311\"A@\300\n\312\"A@\300 \313\"A@\300\f\314\"A@\300 \315\"A@ \211\203\203\211@\316>\203k\211AA\262\202X\317>A@\203z\320\262\202X\321\322@\"\210\202X\210\323\324\301\302\303\304\305\306\307\310\311\312\313\314\315&\207" [plist-member :query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :callback :errorback :extra (:query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :callback :errorback :extra :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :callback :errorback :extra)" ghub-request "GET"] 46 (#$ . 18099)])
#@264 Make a `PUT' request for RESOURCE, with optional payload PARAMS.
Like calling `ghub-request' (which see) with "PUT" as METHOD.
 
(fn RESOURCE &optional PARAMS &key QUERY PAYLOAD HEADERS SILENT UNPAGINATE NOERROR READER USERNAME AUTH HOST CALLBACK ERRORBACK EXTRA)
(defalias 'ghub-put #[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@\300    \311\"A@\300\n\312\"A@\300 \313\"A@\300\f\314\"A@\300 \315\"A@ \211\203\203\211@\316>\203k\211AA\262\202X\317>A@\203z\320\262\202X\321\322@\"\210\202X\210\323\324\301\302\303\304\305\306\307\310\311\312\313\314\315&\207" [plist-member :query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :callback :errorback :extra (:query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :callback :errorback :extra :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :callback :errorback :extra)" ghub-request "PUT"] 46 (#$ . 19246)])
#@266 Make a `POST' request for RESOURCE, with optional payload PARAMS.
Like calling `ghub-request' (which see) with "POST" as METHOD.
 
(fn RESOURCE &optional PARAMS &key QUERY PAYLOAD HEADERS SILENT UNPAGINATE NOERROR READER USERNAME AUTH HOST CALLBACK ERRORBACK EXTRA)
(defalias 'ghub-post #[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@\300    \311\"A@\300\n\312\"A@\300 \313\"A@\300\f\314\"A@\300 \315\"A@ \211\203\203\211@\316>\203k\211AA\262\202X\317>A@\203z\320\262\202X\321\322@\"\210\202X\210\323\324\301\302\303\304\305\306\307\310\311\312\313\314\315&\207" [plist-member :query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :callback :errorback :extra (:query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :callback :errorback :extra :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :callback :errorback :extra)" ghub-request "POST"] 46 (#$ . 20395)])
#@268 Make a `PATCH' request for RESOURCE, with optional payload PARAMS.
Like calling `ghub-request' (which see) with "PATCH" as METHOD.
 
(fn RESOURCE &optional PARAMS &key QUERY PAYLOAD HEADERS SILENT UNPAGINATE NOERROR READER USERNAME AUTH HOST CALLBACK ERRORBACK EXTRA)
(defalias 'ghub-patch #[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@\300    \311\"A@\300\n\312\"A@\300 \313\"A@\300\f\314\"A@\300 \315\"A@ \211\203\203\211@\316>\203k\211AA\262\202X\317>A@\203z\320\262\202X\321\322@\"\210\202X\210\323\324\301\302\303\304\305\306\307\310\311\312\313\314\315&\207" [plist-member :query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :callback :errorback :extra (:query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :callback :errorback :extra :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :callback :errorback :extra)" ghub-request "PATCH"] 46 (#$ . 21548)])
#@270 Make a `DELETE' request for RESOURCE, with optional payload PARAMS.
Like calling `ghub-request' (which see) with "DELETE" as METHOD.
 
(fn RESOURCE &optional PARAMS &key QUERY PAYLOAD HEADERS SILENT UNPAGINATE NOERROR READER USERNAME AUTH HOST CALLBACK ERRORBACK EXTRA)
(defalias 'ghub-delete #[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@\300    \311\"A@\300\n\312\"A@\300 \313\"A@\300\f\314\"A@\300 \315\"A@ \211\203\203\211@\316>\203k\211AA\262\202X\317>A@\203z\320\262\202X\321\322@\"\210\202X\210\323\324\301\302\303\304\305\306\307\310\311\312\313\314\315&\207" [plist-member :query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :callback :errorback :extra (:query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :callback :errorback :extra :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :callback :errorback :extra)" ghub-request "DELETE"] 46 (#$ . 22705)])
#@4540 Make a request for RESOURCE and return the response body.
 
Also place the response header in `ghub-response-headers'.
 
METHOD is the HTTP method, given as a string.
RESOURCE is the resource to access, given as a string beginning
  with a slash.
 
PARAMS, QUERY, PAYLOAD and HEADERS are alists used to specify
  data.  The Github API documentation is vague on how data has
  to be transmitted and for a particular resource usually just
  talks about "parameters".  Generally speaking when the METHOD
  is "HEAD" or "GET", then they have to be transmitted as a
  query, otherwise as a payload.
Use PARAMS to automatically transmit like QUERY or PAYLOAD would
  depending on METHOD.
Use QUERY to explicitly transmit data as a query.
Use PAYLOAD to explicitly transmit data as a payload.
  Instead of an alist, PAYLOAD may also be a string, in which
  case it gets encoded as UTF-8 but is otherwise transmitted as-is.
Use HEADERS for those rare resources that require that the data
  is transmitted as headers instead of as a query or payload.
  When that is the case, then the API documentation usually
  mentions it explicitly.
 
If SILENT is non-nil, then don't message progress reports and
  the like.
 
If UNPAGINATE is t, then make as many requests as necessary to
  get all values.  If UNPAGINATE is a natural number, then get
  at most that many pages.  For any other non-nil value raise
  an error.
If NOERROR is non-nil, then do not raise an error if the request
  fails and return nil instead.  If NOERROR is `return', then
  return the error payload instead of nil.
If READER is non-nil, then it is used to read and return from the
  response buffer.  The default is `ghub--read-json-payload'.
  For the very few resources that do not return JSON, you might
  want to use `ghub--decode-payload'.
 
If USERNAME is non-nil, then make a request on behalf of that
  user.  It is better to specify the user using the Git variable
  `github.user' for "api.github.com", or `github.HOST.user' if
  connecting to a Github Enterprise instance.
 
Each package that uses `ghub' should use its own token. If AUTH
  is nil, then the generic `ghub' token is used instead.  This
  is only acceptable for personal utilities.  A packages that
  is distributed to other users should always use this argument
  to identify itself, using a symbol matching its name.
 
  Package authors who find this inconvenient should write a
  wrapper around this function and possibly for the
  method-specific functions as well.
 
  Some symbols have a special meaning.  `none' means to make an
  unauthorized request.  `basic' means to make a password based
  request.  If the value is a string, then it is assumed to be
  a valid token.  `basic' and an explicit token string are only
  intended for internal and debugging uses.
 
  If AUTH is a package symbol, then the scopes are specified
  using the variable `AUTH-github-token-scopes'.  It is an error
  if that is not specified.  See `ghub-github-token-scopes' for
  an example.
 
If HOST is non-nil, then connect to that Github instance.  This
  defaults to "api.github.com".  When a repository is connected
  to a Github Enterprise instance, then it is better to specify
  that using the Git variable `github.host' instead of using this
  argument.
 
If FORGE is `gitlab', then connect to Gitlab.com or, depending
  on HOST, to another Gitlab instance.  This is only intended for
  internal use.  Instead of using this argument you should use
  function `glab-request' and other `glab-*' functions.
 
If CALLBACK and/or ERRORBACK is non-nil, then make one or more
  asynchronous requests and call CALLBACK or ERRORBACK when
  finished.  If an error occurred, then call ERRORBACK, or if
  that is nil, then CALLBACK.  When no error occurred then call
  CALLBACK.  When making asynchronous requests, then no errors
  are signaled, regardless of the value of NOERROR.
 
Both callbacks are called with four arguments.
  1. For CALLBACK, the combined value of the retrieved pages.
     For ERRORBACK, the error that occured when retrieving the
     last page.
  2. The headers of the last page as an alist.
  3. Status information provided by `url-retrieve'. Its `:error'
     property holds the same information as ERRORBACK's first
     argument.
  4. A `ghub--req' struct, which can be passed to `ghub-continue'
     (which see) to retrieve the next page, if any.
 
(fn METHOD RESOURCE &optional PARAMS &key QUERY PAYLOAD HEADERS SILENT UNPAGINATE NOERROR READER USERNAME AUTH HOST FORGE CALLBACK ERRORBACK VALUE EXTRA)
(defalias 'ghub-request #[898 "\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@\211\203\221\211@\320>\203y\211AA\262\202f\321>A@\203\210\322\262\202f\323\324@\"\210\202f\210\325 !\204\244\326 !\204\244\327\330!\210\331\332\"\204\262\332P\262\204\273\333!\262\204\325;\204\325\334=\204\325\335\"\262\203\336\235\203\363\203\354\323\337\"\210\262\202 \203\376\323\340\"\210\262\204\n\203 \341\262\n\342\343!\344\345\346\347 \205%\350\351!PR!\313\n\304\352\353\354\"\303\355%\356\357\305\306\307\314\315\316\317&\"\207" [plist-member :query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :forge :callback :errorback :value :extra (:query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :forge :callback :errorback :value :extra :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :forge :callback :errorback :value :extra)" booleanp natnump cl--assertion-failed (or (booleanp unpaginate) (natnump unpaginate)) string-prefix-p "/" ghub--host none ghub--username ("GET" "HEAD") "PARAMS and QUERY are mutually exclusive for METHOD %S" "PARAMS and PAYLOAD are mutually exclusive for METHOD %S" t ghub--retrieve ghub--encode-payload ghub--make-req :url url-generic-parse-url "https://" "?" ghub--url-encode-params :method encode-coding-string utf-8 ghub--headers :handler ghub--handle-response] 48 (#$ . 23867)])
#@680 If there is a next page, then retrieve that.
 
This function is only intended to be called from callbacks.  If
there is a next page, then retrieve that and return the buffer
that the result will be loaded into, or t if the process has
already completed.  If there is no next page, then return nil.
 
Callbacks are called with four arguments (see `ghub-request').
The forth argument is a `ghub--req' struct, intended to be passed
to this function.  A callback may use the struct's `extra' slot
to pass additional information to the callback that will be
called after the next request has finished.  Use the function
`ghub-req-extra' to get and set the value of this slot.
 
(fn REQ)
(defalias 'ghub-continue #[257 "\300\301!\236\205\302\303\"\206\304\207" [next ghub-response-link-relations ghub--retrieve nil t] 4 (#$ . 30157)])
#@467 Busy-wait up to DURATION seconds for RESOURCE to become available.
 
DURATION specifies how many seconds to wait at most.  It defaults
to 64 seconds.  The first attempt is made immediately, the second
after two seconds, and each subsequent attempt is made after
waiting as long again as we already waited between all preceding
attempts combined.
 
See `ghub-request' for information about the other arguments.
 
(fn RESOURCE &optional DURATION &key USERNAME AUTH HOST)
(defalias 'ghub-wait #[641 "\302\303\"A@\302\304\"A@\302\305\"A@\211\203=\211@\306>\203&\211AA\262\202\307>A@\2034\310\262\202\311\312@\"\210\202\210\204E\313\262\3141\243\310\315\316\310\317\320\303    \304\n\305 &\n?\205\234\321\322\n$\210\211U\203z\311\323\"\210\202L\211\315V\203\222\211Z^\324!\210\\\266\202\202L\324\325\211\262!\210\202L\262)0\202\251\210\320\326\327!\207" [inhibit-quit quit-flag 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)" 64 (quit) 0 ghub-get :noerror t message "Waited (%3ss of %ss) for %s..." "Github is taking too long to create %s" sit-for 2 eval (ignore nil)] 18 (#$ . 30996)])
#@484 Return an alist of link relations in HEADERS.
If optional HEADERS is nil, then return those that were
previously stored in the variable `ghub-response-headers'.
 
When accessing a Bitbucket instance then the link relations
are in PAYLOAD instead of HEADERS, making their API merely
RESTish and forcing this function to append those relations
to the value of `ghub-response-headers', for later use when
this function is called with nil for PAYLOAD.
 
(fn REQ &optional HEADERS PAYLOAD)
(defalias 'ghub-response-link-relations #[769 "\302!>\204\303\304\305D\"\210\306H\307=\203u\211\203p\310\311\312\313\314\315!\316\"\317\320%\321\"\322BB\203i\302!>\204D\303\304\305D\"\210\323H\204`\302!>\204Z\303\304\305D\"\210\324H\203i\325\301!\210\211\202n\326\301\"\210\207\322    \236A\207\327\330\206|    \"A\211\205\211\331\332\333\334\"\"\207" [cl-struct-ghub--req-tags ghub-response-headers type-of signal wrong-type-argument ghub--req 2 bitbucket cl-mapcan make-byte-code 257 "\211\300\236\211\205    \211C\207" vconcat vector [] 3 "\n\n(fn KEY)" (size page pagelen next previous) link-alist 10 11 make-local-variable set-default assoc "Link" mapcar #[257 "\300\301\"\211@A\211@A\302\303\304O!\305\304OB\266\202\207" [split-string "; " intern 5 -1 1] 12 "\n\n(fn ELT)"] split-string ", "] 10 (#$ . 32244)])
#@91 Return the id of the specified repository.
 
(fn OWNER NAME &key USERNAME AUTH HOST FORGE)
(defalias 'ghub-repository-id #[642 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\211\203D\211@\305>\203,\211AA\262\202\306>A@\203;\307\262\202\310\311@\"\210\202\210\312\313\314\206M\315\"!\211\316=\203Y\317\202Z\211\301\302    \303\n&\262\207" [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)" intern format "%s-repository-id" ghub ghub-repository-id ghub--repository-id] 17 (#$ . 33585)])
#@20 
 
(fn PAYLOAD REQ)
(defalias 'ghub--retrieve #[514 "\306!>\204\307\310\311D\"\210\211\312H\313!\203\211 \202\211\262\306!>\204/\307\310\311D\"\210\314H\315\306!>\204D\307\310\311D\"\210\316H\306!>\204X\307\310\311D\"\210\317H\306!>\204l\307\310\311    D\"\210\320H\306!>\204\212\307\310\311\nD\"\210\321H\204\251\306!>\204\242\307\310\311\nD\"\210\322H\203\264\323\nC$\202\311\324 \210r\325\326\")q\210@    \"),\207" [cl-struct-ghub--req-tags url-show-status url-request-data url-request-method url-request-extra-headers url-registered-auth-schemes type-of signal wrong-type-argument ghub--req 5 functionp 4 nil 1 6 3 10 11 url-retrieve url-do-setup (("basic" ghub--basic-auth-errorback . 10)) url-retrieve-synchronously url-callback-arguments] 14 (#$ . 34241)])
#@19 
 
(fn STATUS REQ)
(defalias 'ghub--handle-response #[514 "p\301\302\303\304\305!\306\"\307$\216\310\311!\210\312!>\204 \313\314\315D\"\210\316H\317\"\320!\321#\322\"\323\324#\236A\247\203IS\262\312!>\204Z\313\314\315\nD\"\210\211\325\326!I\266\312!>\204u\313\314\315\nD\"\210\211\316I\266\211\203\231\203\231\311=\204\222\302V\203\231\327!\206\357\312!>\204\252\313\314\315\nD\"\210\330H\312    !>\204\277\313\314\315 D\"\210\331H\332 \333\"\211\203\334\203\334    $\202\355\203\354    $\202\355\266\203\266\206)\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 type-of signal wrong-type-argument ghub--req 7 ghub--handle-response-headers ghub--handle-response-payload ghub--handle-response-error ghub--handle-response-value next ghub-response-link-relations 1 url-generic-parse-url ghub-continue 10 11 plist-get :error] 17 (#$ . 35078)])
#@19 
 
(fn STATUS REQ)
(defalias 'ghub--handle-response-headers #[514 "eb\210\303y\210\304\305\306\307#\203\310\303!\310\311!BB\262\202\211\237\262\204-\312\313\314\315\"\"\210Tb\210\203h\316!    >\204D\317\320\321D\"\210\322H\204_\316!    >\204Y\317\320\321D\"\210\323H\203h\324\302!\210\211\202m\325\302\"\210\211\207" [url-http-end-of-headers cl-struct-ghub--req-tags ghub-response-headers 1 nil re-search-forward "^\\([^:]*\\): \\(.+\\)" t match-string 2 error "BUG: missing headers %s" plist-get :error type-of signal wrong-type-argument ghub--req 10 11 make-local-variable set-default] 8 (#$ . 36103)])
#@27 
 
(fn STATUS PAYLOAD REQ)
(defalias 'ghub--handle-response-error #[771 "\301!>\204\302\303\304D\"\210\211\305H\306\307\"\211\203:\2033\310=\203(\202;\311!C\241\210\312\202;\313\"\202;\207" [cl-struct-ghub--req-tags type-of signal wrong-type-argument ghub--req 8 plist-get :error return last nil ghub--signal-error] 8 (#$ . 36734)])
#@30 
 
(fn ERR &optional PAYLOAD)
(defalias 'ghub--signal-error #[513 "@A\211\211\301=\203.\242\302=\203'\303\304\243@\211\305\2368    E\262\"\2022\303\306\"\2022\303\"\266\202\207" [url-http-codes error http signal ghub-http-error 2 ghub-error] 13 (#$ . 37092)])
#@20 
 
(fn PAYLOAD REQ)
(defalias 'ghub--handle-response-value #[514 "\301!>\204\302\303\304D\"\210\211\211\305\301!>\204\"\302\303\304D\"\210\305H\301!>\2045\302\303\304D\"\210\306H\307=\205A\310\236\211\203J\211A\202L\262\244I\207" [cl-struct-ghub--req-tags type-of signal wrong-type-argument ghub--req 12 2 bitbucket values] 10 (#$ . 37370)])
#@12 
 
(fn REQ)
(defalias 'ghub--handle-response-payload #[257 "\302!>\204\303\304\305D\"\210\211\306H\206\307    !\207" [cl-struct-ghub--req-tags url-http-response-status type-of signal wrong-type-argument ghub--req 9 ghub--read-json-payload] 5 (#$ . 37742)])
#@15 
 
(fn STATUS)
(defalias 'ghub--read-json-payload #[257 "\305 \211\205y\3061\307\310\311\312\211\313!-0\202y\210\314\315\316!\2036\317\320\312\321#\2032\322\323!\202v\324\202v`d{\312\211\325\326\206D\327\330Q\"\203V\331\332\321\211$\266\202\202Y\266\202\325\333\206a\327\334Q\"\203s\331\332\321\211$\266\205\202v\266\205B\335B\207" [json-null json-false json-key-type json-array-type json-object-type ghub--decode-payload (json-readtable-error) alist list symbol nil json-read-from-string message looking-at "<!DOCTYPE html>" re-search-forward "<p>\\(?:<strong>\\)?\\([^<]+\\)" t match-string 1 "error description missing" string-match "\\(?:" "[     \n ]+" "\\)\\'" replace-match "" "\\`\\(?:" "\\)" ((documentation_url . "https://github.com/magit/ghub/wiki/Github-Errors"))] 13 (#$ . 38008)])
#@25 
 
(fn &optional STATUS)
(defalias 'ghub--decode-payload #[256 "m?\205\f\300\301`d\"\302\"\207" [decode-coding-string buffer-substring-no-properties utf-8] 5 (#$ . 38836)])
#@16 
 
(fn PAYLOAD)
(defalias 'ghub--encode-payload #[257 "\211\205\211;\204\300!\262\301\302\"\207" [json-encode-list encode-coding-string utf-8] 4 (#$ . 39015)])
#@15 
 
(fn PARAMS)
(defalias 'ghub--url-encode-params #[257 "\300\301\302#\207" [mapconcat #[257 "\211@A\211\300\301!!\302\250\203\303!\202\300!Q\266\202\207" [url-hexify-string symbol-name "=" number-to-string] 9 "\n\n(fn PARAM)"] "&"] 5 (#$ . 39187)])
#@279 Create, store and return a new token.
 
HOST is the Github instance, usually "api.github.com".
USERNAME is the name of a user on that instance.
PACKAGE is the package that will use the token.
SCOPES are the scopes the token is given access to.
 
(fn HOST USERNAME PACKAGE SCOPES)
(defalias 'ghub-create-token #[1028 "\300\"\301\302\303D\304\305\306    \307\303\310\311\312\313B\314\315!BD\316\317\320\306&\236A&    \211G\321U\203=\211A\262\242\202D\322\323\324GD\"@\325!\203O \210\326\306    \307F!\210\266\202\207" [ghub--ident ghub--auth-source-get :save-function :secret :create t :host :user token ghub-post "/authorizations" scopes note ghub--ident-github :username :auth basic 2 signal wrong-number-of-arguments nil functionp auth-source-forget] 24 (#$ . 39454) (byte-code "\300 \211@A\211@A\211@A\211\301\302\303\304\305\306\307\310 \"!J\311#\"\311\312\313$F\266\203\207" [ghub--read-triplet split-string read-string "Scopes (separated by commas): " mapconcat symbol-name intern format "%s-github-token-scopes" "," t "[     ]+"] 22)])
#@192 Return and echo the scopes of the specified token.
This is intended for debugging purposes only.  The user
has to provide several values including their password.
 
(fn HOST USERNAME PACKAGE)
(defalias 'ghub-token-scopes #[771 "\300\301#\236A\302\303!\203\304\305\306\"$\210\211\207" [scopes ghub--get-token-plist called-interactively-p any message "Scopes for %s@%s: %S" ghub--ident] 9 (#$ . 40525) (ghub--read-triplet)])
#@308 Clear all caches that might negatively affect Ghub.
 
If a library that is used by Ghub caches incorrect information
such as a mistyped password, then that can prevent Ghub from
asking the user for the correct information again.
 
Set `url-http-real-basic-auth-storage' to nil
and call `auth-source-forget+'.
(defalias 'ghub-clear-caches #[0 "\301\302 \207" [url-http-real-basic-auth-storage nil auth-source-forget+] 1 (#$ . 40964) nil])
#@41 
 
(fn HEADERS HOST AUTH USERNAME FORGE)
(defalias 'ghub--headers #[1285 "CC\211\300\301B\242B\240\210\302=\203\211\242\202=\242\204*;\204*\303\"\240\210\304\305\306\307\310       %\311\"\312$\207" ["Content-Type" "application/json" none ghub--username make-byte-code 0 "\302\305=\203\306\307\301\303\242\"B\300\242B\207\310\301\302\303\242\304$\300\242B\207" vconcat vector [basic "Authorization" ghub--basic-auth ghub--auth] 5] 17 (#$ . 41407)])
#@43 
 
(fn HOST AUTH &optional USERNAME FORGE)
(defalias 'ghub--auth #[1026 "\204    \300!\262\301=\2032\302\303\"\203\304\305\"B\207\306\307\"\203(\310\311!\207\310\312\313#\205\222\314\207\302\315\"\203=\304\202Q\306\307\"\203H\316\202Q\310\312\317#\205Q\314\307=?\205Y\320\321;\203c\202\216\204t\322\323\314%\202\2169\203\207\322\314%\202\216\324\325\326D\"\327\"PB\207" [ghub--username basic memql (nil github gitea gogs bitbucket) "Authorization" ghub--basic-auth eql gitlab error "Gitlab does not support basic authentication" "cl-ecase failed: %s, %s" (bitbucket gogs gitea github nil gitlab) nil (nil github gitea gogs bitbucket) "Private-Token" (bitbucket gogs gitea github nil gitlab) "token " encode-coding-string ghub--token ghub signal wrong-type-argument (or stringp symbolp) utf-8] 13 (#$ . 41879)])
#@22 
 
(fn HOST USERNAME)
(defalias 'ghub--basic-auth #[514 "\301\302P!\303!>\204\304\305\306D\"\210\211\211\307I\266\310\311\"\207" [cl-struct-url-tags url-generic-parse-url "https://" type-of signal wrong-type-argument url 2 url-basic-auth t] 7 (#$ . 42743)])
#@50 
 
(fn URL &optional PROMPT OVERWRITE REALM ARGS)
(defalias 'ghub--basic-auth-errorback #[1281 "\205\205\303\304\305\306\211\"\"\203 \307\304\310 BAABB\311\306\211\211$\207\312\313\314\315!    >\2044\316\317\320\nD\"\210\321H\315!    >\204I\316\317\320D\"\210\211\322H\206y\315!    >\204^\316\317\320D\"\210\211\323H\205y\324\315!    >\204t\316\317\320D\"\210\323H\325\"\262#\n\326\327\330\331&\306\207" [url-http-extra-headers cl-struct-url-tags url-http-real-basic-auth-storage assoc "X-GitHub-OTP" ghub--handle-response-headers nil ("Content-Type" . "application/json") ghub--read-2fa-code url-basic-auth cl-delete format "%s:%d" type-of signal wrong-type-argument url 4 5 1 url-scheme-get-property default-port :test equal :key car] 15 (#$ . 43015)])
#@55 
 
(fn HOST USERNAME PACKAGE &optional NOCREATE FORGE)
(defalias 'ghub--token #[1283 "\300\"\301\302C\303\304%@\206R\305\303\304\306\307\257!\210?\205R\310\311\"\2034\312#\202R\310\313\"\203I\314\315\316\317!!    $\202R\314\320\321#\205R\322\323!\203]\211 \202^\211\207" [ghub--ident ghub--auth-source-get :secret :host :user auth-source-forget :max 1 memql (nil github) ghub--confirm-create-token (gitlab gitea gogs bitbucket) error "Required %s token (%S for %S) does not exist.\nSee https://magit.vc/manual/ghub/Support-for-Other-Forges.html for instructions." capitalize symbol-name "cl-ecase failed: %s, %s" (github nil bitbucket gogs gitea gitlab) nil functionp] 13 (#$ . 43792)])
#@24 
 
(fn &optional FORGE)
(defalias 'ghub--host #[256 "\305\306\"\203\3071\310\311\312\313#@0\202\210\202\206\267\207\314\315\"\203B\31613\310\311\312\317#@0\2027\210\202:\206\267\320\301!\205A    \207\314\321\"\203f\3221W\310\311\312\323#@0\202[\210\202^\206\267\320\302!\205e\n\207\314\324\"\203\212\3251{\310\311\312\326#@0\202\210\202\202\206\267\320\303!\205\211 \207\314\327\"\203\256\3301\237\310\311\312\331#@0\202\243\210\202\246\206\267\320\304!\205\255\f\207\332\333\334#\205\267\335\207" [ghub-default-host glab-default-host gtea-default-host gogs-default-host buck-default-host memql (nil github) (error) process-lines "git" "config" "github.host" eql gitlab (error) "gitlab.host" boundp gitea (error) "gitea.host" gogs (error) "gogs.host" bitbucket (error) "bitbucket.host" error "cl-ecase failed: %s, %s" (github nil gitlab gitea gogs bitbucket) nil] 5 (#$ . 44513)])
#@29 
 
(fn HOST &optional FORGE)
(defalias 'ghub--username #[513 "\301\302\"\203\232\203\303\202\221\304\305\"\202\221\306\307\"\2030\310\232\203)\311\202\221\304\312\"\202\221\306\313\"\203H\314\232\203A\315\202\221\304\316\"\202\221\306\317\"\203h\320\321\322\211\211\323\324&\325U\203a\326\327!\210\304\330\"\202\221\306\331\"\203\210\320\321\322\211\211\323\332&\325U\203\201\326\333!\210\304\334\"\202\221\326\335\336#\205\221\322\3371\237\340\321\323#@0\202\301\210\341\304\342\"!\211\203\274\320\321\322\211\211\323\343&\210\211\206\277\344\345!\262\207" [ghub-default-host memql (nil github) "github.user" format "github.%s.user" eql gitlab "gitlab.com/api/v4" "gitlab.user" "gitlab.%s.user" bitbucket "api.bitbucket.org/2.0" "bitbucket.user" "bitbucket.%s.user" gitea call-process "git" nil "config" "gitea.host" 0 error "gitea.host is set but always ignored" "gitea.%s.user" gogs "gogs.host" "gogs.host is set but always ignored" "gogs.%s.user" "cl-ecase failed: %s, %s" (github nil gitlab bitbucket gitea gogs) (error) process-lines read-string "Git variable `%s' is unset.  Set to: " "--global" user-error "Abort"] 13 (#$ . 45438)])
#@25 
 
(fn USERNAME PACKAGE)
(defalias 'ghub--ident #[514 "\300\301#\207" [format "%s^%s"] 6 (#$ . 46634)])
#@16 
 
(fn PACKAGE)
(defalias 'ghub--ident-github #[257 "\301\302\206    \303 #\207" [ghub-override-system-name format "Emacs package %s @ %s" system-name] 5 (#$ . 46745)])
#@16 
 
(fn PACKAGE)
(defalias 'ghub--package-scopes #[257 "\300\301\302\"!\303!\203\211J\202\304\305#\207" [intern format "%s-github-token-scopes" boundp error "%s fails to define %s"] 6 (#$ . 46919)])
#@30 
 
(fn HOST USERNAME PACKAGE)
(defalias 'ghub--confirm-create-token #[771 "\303!\304!\305\306\307\310\311\211\312\313    \314#    \n\211@;\2033\315\316\n@\"\2043\310\317\n@\"\2024\320&    !)\203g\3211I\322$0\202j\3238\324\325\236A\236A\211@\262\262\326\230\205b\327\330\"\262\202j\331\332!)\207" [max-mini-window-height message-log-max auth-sources ghub--ident-github ghub--package-scopes 40 nil yes-or-no-p format "Such a Github API token is not available:\n\n  Host:    %s\n  User:    %s\n  Package: %s\n\n  Scopes requested in `%s-github-token-scopes':\n%s\n  Store on Github as:\n    %S\n  Store locally according to option `auth-sources':\n    %S\n%s\nIf in doubt, then abort and first view the section of\nthe Ghub documentation called \"Interactively Creating\nand Storing a Token\".\n\nOtherwise confirm and then provide your Github username and\npassword at the next two prompts.  Depending on the backend\nyou might have to provide a passphrase and confirm that you\nreally want to save the token.\n\nCreate and store such a token? " mapconcat #[257 "\300\301\"\207" [format "    %s"] 4 "\n\n(fn SCOPE)"] "\n" string-suffix-p ".gpg" "\nWARNING: The token will be stored unencrypted in %S.\n         If you don't want that, you have to abort and customize\n         the `auth-sources' option.\n" "" (ghub-http-error) ghub-create-token 3 code errors "already_exists" error "A token named %S already exists on Github. Please visit https://github.com/settings/tokens and delete it." user-error "Abort"] 18 (#$ . 47130)])
#@30 
 
(fn HOST USERNAME PACKAGE)
(defalias 'ghub--get-token-id #[771 "\300!\301\302\303\304\305\306!\307\"\310\311%\312\313\314\315\316\317\n\320\321\322&\n\"\207" [ghub--ident-github cl-some make-byte-code 257 "\211\301\302\236A\236A\303\236A\300\232\205\211\266\202\207" vconcat vector [name app id] 6 "\n\n(fn X)" ghub-get "/authorizations" ((per_page . 100)) :unpaginate t :username :auth basic :host] 17 (#$ . 48684)])
#@30 
 
(fn HOST USERNAME PACKAGE)
(defalias 'ghub--get-token-plist #[771 "\300\301\302\303#\"\304\305\306\307\310\n&\207" [ghub-get format "/authorizations/%s" ghub--get-token-id nil :username :auth basic :host] 12 (#$ . 49121)])
#@30 
 
(fn HOST USERNAME PACKAGE)
(defalias 'ghub--delete-token #[771 "\300\301\302\303#\"\304\305\306\307\310\n&\207" [ghub-delete format "/authorizations/%s" ghub--get-token-id nil :username :auth basic :host] 12 (#$ . 49361)])
(defalias 'ghub--read-triplet #[0 "\300\301\302 \"\211\300\303\304!\"\305\300\306\307\"!E\207" [read-string "Host: " ghub--host "Username: " ghub--username intern "Package: " "ghub"] 7])
(defvar ghub--2fa-cache nil)
(defalias 'ghub--read-2fa-code #[0 "\301\302\205\303\304\305 A\"!\306W\205@\"\211\305 B\307!\207" [ghub--2fa-cache read-number "Two-factor authentication code: " float-time time-subtract current-time 25 number-to-string] 6])
#@24 
 
(fn KEYS &rest SPEC)
(defalias 'ghub--auth-source-get #[385 "\300\301\302\303\304D\"\"@\305\306\307\310\311\312!\313\"\314\315%\"\207" [apply auth-source-search append :max 1 mapcar make-byte-code 257 "\301\300\"\207" vconcat vector [plist-get] 4 "\n\n(fn K)"] 10 (#$ . 50052)])
(byte-code "\300\301\302\303#\304\305\306\307#\207" [function-put ghub--auth-source-get lisp-indent-function 1 advice-add auth-source-netrc-parse-next-interesting :around auth-source-netrc-parse-next-interesting@save-match-data] 5)
#@217 Save match-data for the benefit of caller `auth-source-netrc-parse-one'.
Without wrapping this function in `save-match-data' the caller
won't see the secret from a line that is followed by a commented
line.
 
(fn FN)
(defalias 'auth-source-netrc-parse-next-interesting@save-match-data #[257 "\300 \301\302\303\304\305!\306\"\307$\216 )\207" [match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3] 8 (#$ . 50577)])
(byte-code "\300\301!\210\302\303!\207" [provide ghub require ghub-graphql] 2)