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

Chizi123
2018-11-21 e75a20334813452c6912c090d70a0de2c805f94d
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!\210\300\305!\210\300\306!\210\300\307!\207" [require auth-source cl-lib json let-alist url url-auth url-http] 2)
16 #@58 The default host that is used if `ghub.host' is not set.
17 (defconst ghub-default-host "api.github.com" (#$ . 582))
18 #@882 The Github API scopes that your private tools need.
19
20 The token that is created based on the value of this variable
21 is used when `ghub-request' (or one of its wrappers) is called
22 without providing a value for AUTH.  Packages should always
23 identify themselves using that argument, but when you use Ghub
24 directly in private tools, then that is not necessary and the
25 request is made on behalf of the `ghub' package itself, aka on
26 behalf of some private tool.
27
28 By default the only requested scope is `repo' because that is
29 sufficient as well as required for most common uses.  This and
30 other scopes are documented at URL `https://magit.vc/goto/2e586d36'.
31
32 If your private tools need other scopes, then you have to add
33 them here *before* creating the token.  Alternatively you can
34 edit the scopes of an existing token using the web interface
35 at URL `https://github.com/settings/tokens'.
36 (defvar ghub-github-token-scopes '(repo) (#$ . 703))
37 #@134 If non-nil, the string used to identify the local machine.
38 If this is nil, then the value returned by `system-name' is
39 used instead.
40 (defvar ghub-override-system-name nil (#$ . 1644))
41 #@68 compiler-macro for inlining `ghub--req-p'.
42
43 (fn CL-WHOLE-ARG CL-X)
44 (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)])
45 (put 'ghub--req-p 'compiler-macro 'ghub--req-p--cmacro)
46 #@13 
47
48 (fn CL-X)
49 (defalias 'ghub--req-p #[257 "\301!>\205    \302\207" [cl-struct-ghub--req-tags type-of t] 3 (#$ . 2162)])
50 (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)
51 #@70 compiler-macro for inlining `ghub--req-url'.
52
53 (fn CL-WHOLE-ARG CL-X)
54 (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)])
55 (put 'ghub--req-url 'compiler-macro 'ghub--req-url--cmacro)
56 #@104 Access slot "url" of `(ghub--req (:constructor ghub--make-req) (:copier nil))' struct CL-X.
57
58 (fn CL-X)
59 (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)])
60 (byte-code "\300\301\302\303#\300\207" [function-put ghub--req-url side-effect-free t] 4)
61 #@72 compiler-macro for inlining `ghub--req-forge'.
62
63 (fn CL-WHOLE-ARG CL-X)
64 (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)])
65 (put 'ghub--req-forge 'compiler-macro 'ghub--req-forge--cmacro)
66 #@106 Access slot "forge" of `(ghub--req (:constructor ghub--make-req) (:copier nil))' struct CL-X.
67
68 (fn CL-X)
69 (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)])
70 (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)
71 #@73 compiler-macro for inlining `ghub--req-silent'.
72
73 (fn CL-WHOLE-ARG CL-X)
74 (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)])
75 (put 'ghub--req-silent 'compiler-macro 'ghub--req-silent--cmacro)
76 #@107 Access slot "silent" of `(ghub--req (:constructor ghub--make-req) (:copier nil))' struct CL-X.
77
78 (fn CL-X)
79 (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)])
80 (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)
81 #@73 compiler-macro for inlining `ghub--req-method'.
82
83 (fn CL-WHOLE-ARG CL-X)
84 (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)])
85 (put 'ghub--req-method 'compiler-macro 'ghub--req-method--cmacro)
86 #@107 Access slot "method" of `(ghub--req (:constructor ghub--make-req) (:copier nil))' struct CL-X.
87
88 (fn CL-X)
89 (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)])
90 (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)
91 #@74 compiler-macro for inlining `ghub--req-headers'.
92
93 (fn CL-WHOLE-ARG CL-X)
94 (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)])
95 (put 'ghub--req-headers 'compiler-macro 'ghub--req-headers--cmacro)
96 #@108 Access slot "headers" of `(ghub--req (:constructor ghub--make-req) (:copier nil))' struct CL-X.
97
98 (fn CL-X)
99 (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)])
100 (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)
101 #@74 compiler-macro for inlining `ghub--req-handler'.
102
103 (fn CL-WHOLE-ARG CL-X)
104 (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)])
105 (put 'ghub--req-handler 'compiler-macro 'ghub--req-handler--cmacro)
106 #@108 Access slot "handler" of `(ghub--req (:constructor ghub--make-req) (:copier nil))' struct CL-X.
107
108 (fn CL-X)
109 (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)])
110 (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)
111 #@77 compiler-macro for inlining `ghub--req-unpaginate'.
112
113 (fn CL-WHOLE-ARG CL-X)
114 (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)])
115 (put 'ghub--req-unpaginate 'compiler-macro 'ghub--req-unpaginate--cmacro)
116 #@111 Access slot "unpaginate" of `(ghub--req (:constructor ghub--make-req) (:copier nil))' struct CL-X.
117
118 (fn CL-X)
119 (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)])
120 (byte-code "\300\301\302\303#\300\207" [function-put ghub--req-unpaginate side-effect-free t] 4)
121 #@74 compiler-macro for inlining `ghub--req-noerror'.
122
123 (fn CL-WHOLE-ARG CL-X)
124 (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)])
125 (put 'ghub--req-noerror 'compiler-macro 'ghub--req-noerror--cmacro)
126 #@108 Access slot "noerror" of `(ghub--req (:constructor ghub--make-req) (:copier nil))' struct CL-X.
127
128 (fn CL-X)
129 (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)])
130 (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)
131 #@73 compiler-macro for inlining `ghub--req-reader'.
132
133 (fn CL-WHOLE-ARG CL-X)
134 (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)])
135 (put 'ghub--req-reader 'compiler-macro 'ghub--req-reader--cmacro)
136 #@107 Access slot "reader" of `(ghub--req (:constructor ghub--make-req) (:copier nil))' struct CL-X.
137
138 (fn CL-X)
139 (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)])
140 (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)
141 #@75 compiler-macro for inlining `ghub--req-callback'.
142
143 (fn CL-WHOLE-ARG CL-X)
144 (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)])
145 (put 'ghub--req-callback 'compiler-macro 'ghub--req-callback--cmacro)
146 #@109 Access slot "callback" of `(ghub--req (:constructor ghub--make-req) (:copier nil))' struct CL-X.
147
148 (fn CL-X)
149 (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)])
150 (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)
151 #@76 compiler-macro for inlining `ghub--req-errorback'.
152
153 (fn CL-WHOLE-ARG CL-X)
154 (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)])
155 (put 'ghub--req-errorback 'compiler-macro 'ghub--req-errorback--cmacro)
156 #@110 Access slot "errorback" of `(ghub--req (:constructor ghub--make-req) (:copier nil))' struct CL-X.
157
158 (fn CL-X)
159 (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)])
160 (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)
161 #@72 compiler-macro for inlining `ghub--req-value'.
162
163 (fn CL-WHOLE-ARG CL-X)
164 (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)])
165 (put 'ghub--req-value 'compiler-macro 'ghub--req-value--cmacro)
166 #@106 Access slot "value" of `(ghub--req (:constructor ghub--make-req) (:copier nil))' struct CL-X.
167
168 (fn CL-X)
169 (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)])
170 (byte-code "\300\301\302\303#\300\207" [function-put ghub--req-value side-effect-free t] 4)
171 #@72 compiler-macro for inlining `ghub--req-extra'.
172
173 (fn CL-WHOLE-ARG CL-X)
174 (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)])
175 (put 'ghub--req-extra 'compiler-macro 'ghub--req-extra--cmacro)
176 #@106 Access slot "extra" of `(ghub--req (:constructor ghub--make-req) (:copier nil))' struct CL-X.
177
178 (fn CL-X)
179 (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)])
180 (byte-code "\300\301\302\303#\300\207" [function-put ghub--req-extra side-effect-free t] 4)
181 #@174 compiler-macro for inlining `ghub--make-req'.
182
183 (fn CL-WHOLE &cl-quote &key URL FORGE SILENT METHOD HEADERS HANDLER UNPAGINATE NOERROR READER CALLBACK ERRORBACK VALUE EXTRA)
184 (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)])
185 (put 'ghub--make-req 'compiler-macro 'ghub--make-req--cmacro)
186 #@154 Constructor for objects of type `ghub--req'.
187
188 (fn &key URL FORGE SILENT METHOD HEADERS HANDLER UNPAGINATE NOERROR READER CALLBACK ERRORBACK VALUE EXTRA)
189 (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)])
190 (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)
191 #@146 The headers returned in response to the last request.
192 `ghub-request' returns the response body and stores the
193 response headers in this variable.
194 (defvar ghub-response-headers nil (#$ . 16748))
195 #@264 Make a `HEAD' request for RESOURCE, with optional query PARAMS.
196 Like calling `ghub-request' (which see) with "HEAD" as METHOD.
197
198 (fn RESOURCE &optional PARAMS &key QUERY PAYLOAD HEADERS SILENT UNPAGINATE NOERROR READER USERNAME AUTH HOST CALLBACK ERRORBACK EXTRA)
199 (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)])
200 #@262 Make a `GET' request for RESOURCE, with optional query PARAMS.
201 Like calling `ghub-request' (which see) with "GET" as METHOD.
202
203 (fn RESOURCE &optional PARAMS &key QUERY PAYLOAD HEADERS SILENT UNPAGINATE NOERROR READER USERNAME AUTH HOST CALLBACK ERRORBACK EXTRA)
204 (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)])
205 #@264 Make a `PUT' request for RESOURCE, with optional payload PARAMS.
206 Like calling `ghub-request' (which see) with "PUT" as METHOD.
207
208 (fn RESOURCE &optional PARAMS &key QUERY PAYLOAD HEADERS SILENT UNPAGINATE NOERROR READER USERNAME AUTH HOST CALLBACK ERRORBACK EXTRA)
209 (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)])
210 #@266 Make a `POST' request for RESOURCE, with optional payload PARAMS.
211 Like calling `ghub-request' (which see) with "POST" as METHOD.
212
213 (fn RESOURCE &optional PARAMS &key QUERY PAYLOAD HEADERS SILENT UNPAGINATE NOERROR READER USERNAME AUTH HOST CALLBACK ERRORBACK EXTRA)
214 (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)])
215 #@268 Make a `PATCH' request for RESOURCE, with optional payload PARAMS.
216 Like calling `ghub-request' (which see) with "PATCH" as METHOD.
217
218 (fn RESOURCE &optional PARAMS &key QUERY PAYLOAD HEADERS SILENT UNPAGINATE NOERROR READER USERNAME AUTH HOST CALLBACK ERRORBACK EXTRA)
219 (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)])
220 #@270 Make a `DELETE' request for RESOURCE, with optional payload PARAMS.
221 Like calling `ghub-request' (which see) with "DELETE" as METHOD.
222
223 (fn RESOURCE &optional PARAMS &key QUERY PAYLOAD HEADERS SILENT UNPAGINATE NOERROR READER USERNAME AUTH HOST CALLBACK ERRORBACK EXTRA)
224 (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)])
225 #@4540 Make a request for RESOURCE and return the response body.
226
227 Also place the response header in `ghub-response-headers'.
228
229 METHOD is the HTTP method, given as a string.
230 RESOURCE is the resource to access, given as a string beginning
231   with a slash.
232
233 PARAMS, QUERY, PAYLOAD and HEADERS are alists used to specify
234   data.  The Github API documentation is vague on how data has
235   to be transmitted and for a particular resource usually just
236   talks about "parameters".  Generally speaking when the METHOD
237   is "HEAD" or "GET", then they have to be transmitted as a
238   query, otherwise as a payload.
239 Use PARAMS to automatically transmit like QUERY or PAYLOAD would
240   depending on METHOD.
241 Use QUERY to explicitly transmit data as a query.
242 Use PAYLOAD to explicitly transmit data as a payload.
243   Instead of an alist, PAYLOAD may also be a string, in which
244   case it gets encoded as UTF-8 but is otherwise transmitted as-is.
245 Use HEADERS for those rare resources that require that the data
246   is transmitted as headers instead of as a query or payload.
247   When that is the case, then the API documentation usually
248   mentions it explicitly.
249
250 If SILENT is non-nil, then don't message progress reports and
251   the like.
252
253 If UNPAGINATE is t, then make as many requests as necessary to
254   get all values.  If UNPAGINATE is a natural number, then get
255   at most that many pages.  For any other non-nil value raise
256   an error.
257 If NOERROR is non-nil, then do not raise an error if the request
258   fails and return nil instead.  If NOERROR is `return', then
259   return the error payload instead of nil.
260 If READER is non-nil, then it is used to read and return from the
261   response buffer.  The default is `ghub--read-json-payload'.
262   For the very few resources that do not return JSON, you might
263   want to use `ghub--decode-payload'.
264
265 If USERNAME is non-nil, then make a request on behalf of that
266   user.  It is better to specify the user using the Git variable
267   `github.user' for "api.github.com", or `github.HOST.user' if
268   connecting to a Github Enterprise instance.
269
270 Each package that uses `ghub' should use its own token. If AUTH
271   is nil, then the generic `ghub' token is used instead.  This
272   is only acceptable for personal utilities.  A packages that
273   is distributed to other users should always use this argument
274   to identify itself, using a symbol matching its name.
275
276   Package authors who find this inconvenient should write a
277   wrapper around this function and possibly for the
278   method-specific functions as well.
279
280   Some symbols have a special meaning.  `none' means to make an
281   unauthorized request.  `basic' means to make a password based
282   request.  If the value is a string, then it is assumed to be
283   a valid token.  `basic' and an explicit token string are only
284   intended for internal and debugging uses.
285
286   If AUTH is a package symbol, then the scopes are specified
287   using the variable `AUTH-github-token-scopes'.  It is an error
288   if that is not specified.  See `ghub-github-token-scopes' for
289   an example.
290
291 If HOST is non-nil, then connect to that Github instance.  This
292   defaults to "api.github.com".  When a repository is connected
293   to a Github Enterprise instance, then it is better to specify
294   that using the Git variable `github.host' instead of using this
295   argument.
296
297 If FORGE is `gitlab', then connect to Gitlab.com or, depending
298   on HOST, to another Gitlab instance.  This is only intended for
299   internal use.  Instead of using this argument you should use
300   function `glab-request' and other `glab-*' functions.
301
302 If CALLBACK and/or ERRORBACK is non-nil, then make one or more
303   asynchronous requests and call CALLBACK or ERRORBACK when
304   finished.  If an error occurred, then call ERRORBACK, or if
305   that is nil, then CALLBACK.  When no error occurred then call
306   CALLBACK.  When making asynchronous requests, then no errors
307   are signaled, regardless of the value of NOERROR.
308
309 Both callbacks are called with four arguments.
310   1. For CALLBACK, the combined value of the retrieved pages.
311      For ERRORBACK, the error that occured when retrieving the
312      last page.
313   2. The headers of the last page as an alist.
314   3. Status information provided by `url-retrieve'. Its `:error'
315      property holds the same information as ERRORBACK's first
316      argument.
317   4. A `ghub--req' struct, which can be passed to `ghub-continue'
318      (which see) to retrieve the next page, if any.
319
320 (fn METHOD RESOURCE &optional PARAMS &key QUERY PAYLOAD HEADERS SILENT UNPAGINATE NOERROR READER USERNAME AUTH HOST FORGE CALLBACK ERRORBACK VALUE EXTRA)
321 (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)])
322 #@680 If there is a next page, then retrieve that.
323
324 This function is only intended to be called from callbacks.  If
325 there is a next page, then retrieve that and return the buffer
326 that the result will be loaded into, or t if the process has
327 already completed.  If there is no next page, then return nil.
328
329 Callbacks are called with four arguments (see `ghub-request').
330 The forth argument is a `ghub--req' struct, intended to be passed
331 to this function.  A callback may use the struct's `extra' slot
332 to pass additional information to the callback that will be
333 called after the next request has finished.  Use the function
334 `ghub-req-extra' to get and set the value of this slot.
335
336 (fn REQ)
337 (defalias 'ghub-continue #[257 "\300\301!\236\205\302\303\"\206\304\207" [next ghub-response-link-relations ghub--retrieve nil t] 4 (#$ . 30157)])
338 #@467 Busy-wait up to DURATION seconds for RESOURCE to become available.
339
340 DURATION specifies how many seconds to wait at most.  It defaults
341 to 64 seconds.  The first attempt is made immediately, the second
342 after two seconds, and each subsequent attempt is made after
343 waiting as long again as we already waited between all preceding
344 attempts combined.
345
346 See `ghub-request' for information about the other arguments.
347
348 (fn RESOURCE &optional DURATION &key USERNAME AUTH HOST)
349 (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)])
350 #@484 Return an alist of link relations in HEADERS.
351 If optional HEADERS is nil, then return those that were
352 previously stored in the variable `ghub-response-headers'.
353
354 When accessing a Bitbucket instance then the link relations
355 are in PAYLOAD instead of HEADERS, making their API merely
356 RESTish and forcing this function to append those relations
357 to the value of `ghub-response-headers', for later use when
358 this function is called with nil for PAYLOAD.
359
360 (fn REQ &optional HEADERS PAYLOAD)
361 (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)])
362 #@91 Return the id of the specified repository.
363
364 (fn OWNER NAME &key USERNAME AUTH HOST FORGE)
365 (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)])
366 #@20 
367
368 (fn PAYLOAD REQ)
369 (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)])
370 #@19 
371
372 (fn STATUS REQ)
373 (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)])
374 #@19 
375
376 (fn STATUS REQ)
377 (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)])
378 #@27 
379
380 (fn STATUS PAYLOAD REQ)
381 (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)])
382 #@30 
383
384 (fn ERR &optional PAYLOAD)
385 (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)])
386 #@20 
387
388 (fn PAYLOAD REQ)
389 (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)])
390 #@12 
391
392 (fn REQ)
393 (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)])
394 #@15 
395
396 (fn STATUS)
397 (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)])
398 #@25 
399
400 (fn &optional STATUS)
401 (defalias 'ghub--decode-payload #[256 "m?\205\f\300\301`d\"\302\"\207" [decode-coding-string buffer-substring-no-properties utf-8] 5 (#$ . 38836)])
402 #@16 
403
404 (fn PAYLOAD)
405 (defalias 'ghub--encode-payload #[257 "\211\205\211;\204\300!\262\301\302\"\207" [json-encode-list encode-coding-string utf-8] 4 (#$ . 39015)])
406 #@15 
407
408 (fn PARAMS)
409 (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)])
410 #@279 Create, store and return a new token.
411
412 HOST is the Github instance, usually "api.github.com".
413 USERNAME is the name of a user on that instance.
414 PACKAGE is the package that will use the token.
415 SCOPES are the scopes the token is given access to.
416
417 (fn HOST USERNAME PACKAGE SCOPES)
418 (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)])
419 #@192 Return and echo the scopes of the specified token.
420 This is intended for debugging purposes only.  The user
421 has to provide several values including their password.
422
423 (fn HOST USERNAME PACKAGE)
424 (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)])
425 #@308 Clear all caches that might negatively affect Ghub.
426
427 If a library that is used by Ghub caches incorrect information
428 such as a mistyped password, then that can prevent Ghub from
429 asking the user for the correct information again.
430
431 Set `url-http-real-basic-auth-storage' to nil
432 and call `auth-source-forget+'.
433 (defalias 'ghub-clear-caches #[0 "\301\302 \207" [url-http-real-basic-auth-storage nil auth-source-forget+] 1 (#$ . 40964) nil])
434 #@41 
435
436 (fn HEADERS HOST AUTH USERNAME FORGE)
437 (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)])
438 #@43 
439
440 (fn HOST AUTH &optional USERNAME FORGE)
441 (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)])
442 #@22 
443
444 (fn HOST USERNAME)
445 (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)])
446 #@50 
447
448 (fn URL &optional PROMPT OVERWRITE REALM ARGS)
449 (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)])
450 #@55 
451
452 (fn HOST USERNAME PACKAGE &optional NOCREATE FORGE)
453 (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)])
454 #@24 
455
456 (fn &optional FORGE)
457 (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)])
458 #@29 
459
460 (fn HOST &optional FORGE)
461 (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)])
462 #@25 
463
464 (fn USERNAME PACKAGE)
465 (defalias 'ghub--ident #[514 "\300\301#\207" [format "%s^%s"] 6 (#$ . 46634)])
466 #@16 
467
468 (fn PACKAGE)
469 (defalias 'ghub--ident-github #[257 "\301\302\206    \303 #\207" [ghub-override-system-name format "Emacs package %s @ %s" system-name] 5 (#$ . 46745)])
470 #@16 
471
472 (fn PACKAGE)
473 (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)])
474 #@30 
475
476 (fn HOST USERNAME PACKAGE)
477 (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)])
478 #@30 
479
480 (fn HOST USERNAME PACKAGE)
481 (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)])
482 #@30 
483
484 (fn HOST USERNAME PACKAGE)
485 (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)])
486 #@30 
487
488 (fn HOST USERNAME PACKAGE)
489 (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)])
490 (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])
491 (defvar ghub--2fa-cache nil)
492 (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])
493 #@24 
494
495 (fn KEYS &rest SPEC)
496 (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)])
497 (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)
498 #@217 Save match-data for the benefit of caller `auth-source-netrc-parse-one'.
499 Without wrapping this function in `save-match-data' the caller
500 won't see the secret from a line that is followed by a commented
501 line.
502
503 (fn FN)
504 (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)])
505 (byte-code "\300\301!\210\302\303!\207" [provide ghub require ghub-graphql] 2)