;ELC   
;;; Compiled
;;; in Emacs version 28.0.50
;;; with all optimizations.


(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\210\300\310!\207" [require auth-source cl-lib gnutls 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" (#$ . 281))
#@186 The Github API scopes that your private tools need.

You have to manually create or update the token at
https://github.com/settings/tokens.  This variable
only serves as documentation.
(defvar ghub-github-token-scopes '(repo) (#$ . 402))
#@47 List of hosts that use http instead of https.
(defvar ghub-insecure-hosts nil (#$ . 646))
#@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 (#$ . 742)])
(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 (#$ . 1069)])
(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 (progn (or (ghub--req-p cl-x) (signal 'wrong-type-argument (list 'ghub--req cl-x))) (aref cl-x 1))) nil] 9 (#$ . 1339)])
(put 'ghub--req-url 'compiler-macro 'ghub--req-url--cmacro)
#@58 Access slot "url" of `ghub--req' 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 (#$ . 1721)])
(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 (progn (or (ghub--req-p cl-x) (signal 'wrong-type-argument (list 'ghub--req cl-x))) (aref cl-x 2))) nil] 9 (#$ . 2045)])
(put 'ghub--req-forge 'compiler-macro 'ghub--req-forge--cmacro)
#@60 Access slot "forge" of `ghub--req' 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 (#$ . 2437)])
(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 (progn (or (ghub--req-p cl-x) (signal 'wrong-type-argument (list 'ghub--req cl-x))) (aref cl-x 3))) nil] 9 (#$ . 2897)])
(put 'ghub--req-silent 'compiler-macro 'ghub--req-silent--cmacro)
#@61 Access slot "silent" of `ghub--req' 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 (#$ . 3294)])
(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 (progn (or (ghub--req-p cl-x) (signal 'wrong-type-argument (list 'ghub--req cl-x))) (aref cl-x 4))) nil] 9 (#$ . 3758)])
(put 'ghub--req-method 'compiler-macro 'ghub--req-method--cmacro)
#@61 Access slot "method" of `ghub--req' 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 (#$ . 4155)])
(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 (progn (or (ghub--req-p cl-x) (signal 'wrong-type-argument (list 'ghub--req cl-x))) (aref cl-x 5))) nil] 9 (#$ . 4619)])
(put 'ghub--req-headers 'compiler-macro 'ghub--req-headers--cmacro)
#@62 Access slot "headers" of `ghub--req' 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 (#$ . 5021)])
(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 (progn (or (ghub--req-p cl-x) (signal 'wrong-type-argument (list 'ghub--req cl-x))) (aref cl-x 6))) nil] 9 (#$ . 5489)])
(put 'ghub--req-handler 'compiler-macro 'ghub--req-handler--cmacro)
#@62 Access slot "handler" of `ghub--req' 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 (#$ . 5891)])
(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 (progn (or (ghub--req-p cl-x) (signal 'wrong-type-argument (list 'ghub--req cl-x))) (aref cl-x 7))) nil] 9 (#$ . 6359)])
(put 'ghub--req-unpaginate 'compiler-macro 'ghub--req-unpaginate--cmacro)
#@65 Access slot "unpaginate" of `ghub--req' 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 (#$ . 6776)])
(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 (progn (or (ghub--req-p cl-x) (signal 'wrong-type-argument (list 'ghub--req cl-x))) (aref cl-x 8))) nil] 9 (#$ . 7121)])
(put 'ghub--req-noerror 'compiler-macro 'ghub--req-noerror--cmacro)
#@62 Access slot "noerror" of `ghub--req' 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 (#$ . 7523)])
(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 (progn (or (ghub--req-p cl-x) (signal 'wrong-type-argument (list 'ghub--req cl-x))) (aref cl-x 9))) nil] 9 (#$ . 7991)])
(put 'ghub--req-reader 'compiler-macro 'ghub--req-reader--cmacro)
#@61 Access slot "reader" of `ghub--req' 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 (#$ . 8388)])
(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 (progn (or (ghub--req-p cl-x) (signal 'wrong-type-argument (list 'ghub--req cl-x))) (aref cl-x 10))) nil] 9 (#$ . 8852)])
(put 'ghub--req-callback 'compiler-macro 'ghub--req-callback--cmacro)
#@63 Access slot "callback" of `ghub--req' 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 (#$ . 9260)])
(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 (progn (or (ghub--req-p cl-x) (signal 'wrong-type-argument (list 'ghub--req cl-x))) (aref cl-x 11))) nil] 9 (#$ . 9733)])
(put 'ghub--req-errorback 'compiler-macro 'ghub--req-errorback--cmacro)
#@64 Access slot "errorback" of `ghub--req' 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 (#$ . 10146)])
(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 (progn (or (ghub--req-p cl-x) (signal 'wrong-type-argument (list 'ghub--req cl-x))) (aref cl-x 12))) nil] 9 (#$ . 10624)])
(put 'ghub--req-value 'compiler-macro 'ghub--req-value--cmacro)
#@60 Access slot "value" of `ghub--req' 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 (#$ . 11018)])
(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 (progn (or (ghub--req-p cl-x) (signal 'wrong-type-argument (list 'ghub--req cl-x))) (aref cl-x 13))) nil] 9 (#$ . 11350)])
(put 'ghub--req-extra 'compiler-macro 'ghub--req-extra--cmacro)
#@60 Access slot "extra" of `ghub--req' 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 (#$ . 11744)])
(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 (#$ . 12077)])
(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 (#$ . 13407)])
(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 (#$ . 15145))
#@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 (#$ . 15345)])
#@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 (#$ . 16496)])
#@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 (#$ . 17643)])
#@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 (#$ . 18792)])
#@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 (#$ . 19945)])
#@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 (#$ . 21102)])
#@4381 Make a request for RESOURCE and return the response body.

Also place the response headers 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 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 no error occurred, then call CALLBACK, unless
  that is nil.

  If an error occurred, then call ERRORBACK, or if that is nil,
  then CALLBACK.  ERRORBACK can also be t, in which case an error
  is signaled instead.  NOERROR is ignored for all asynchronous
  requests.

Both callbacks are called with four arguments.
  1. For CALLBACK, the combined value of the retrieved pages.
     For ERRORBACK, the error that occurred 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 "\301\302\"A@\301\303\"A@\301\304\"A@\301\305\"A@\301\306\"A@\301\307\"A@\301\310\"A@\301\311\"A@\301	\312\"A@\301\n\313\"A@\301\314\"A@\301\f\315\"A@\301\316\"A@\301\317\"A@\301\320\"A@\211\203\221 \211@\321>\203y \211AA\262\202f \322>A@\203\210 \323\262\202f \324\325@\"\210\202f \210\326!\204\244 \327!\204\244 \330\331!\210\332\333\"\204\262 \333P\262\204\273 \334!\262\204\325 ;\204\325 \335=\204\325 \336\"\262\203\337\235\203\363 \203\354 \324\340\"\210\262\202\203\376 \324\341\"\210\262\204\n\203\342\262\n\343\344!\345\346\347\n\235\203 \350\202!\351\352\232\2038\353\354\"\2038\355\356O\202:\205G\357\360!PR!\314\n\305\361\362\363\"\304\364%\365\366\306\307\310\315\316\317\320&\"\207" [ghub-insecure-hosts 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 "http://" "https://" "/graphql" string-suffix-p "/v3" 0 -3 "?" ghub--url-encode-params :method encode-coding-string utf-8 ghub--headers :handler ghub--handle-response] 48 (#$ . 22264)])
#@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 (#$ . 28538)])
#@473 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 FORGE)
(defalias 'ghub-wait #[641 "\302\303\"A@\302\304\"A@\302\305\"A@\302\306\"A@\211\203D \211@\307>\203, \211AA\262\202 \310>A@\203; \311\262\202 \312\313@\"\210\202 \210\204L \314\262\3151\271 \311\316\317\320	\311\321\322\303\304\f\305\306&?\205\264 \323\324	$\210\211U\203\222 \312\325\203\212 \326\327!!\202\213 \330\n#\210\202S \211\316V\203\252 \211Z^\331!\210\\\266\202\202S \331\332\211\262!\210\202S \262)0\207\210\322\333\334!\207" [inhibit-quit quit-flag 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)" 64 (quit) 0 ghub-request "GET" :noerror t message "Waited (%3ss of %ss) for %s..." "%s is taking too long to create %s" capitalize symbol-name "Github" sit-for 2 eval (ignore nil)] 22 (#$ . 29377)])
#@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\305D\"\210\306H\307=\203l \211\203g \310\311\312\"\313\"\314BB\203` \302!>\204; \303\304\305D\"\210\315H\204W \302!>\204Q \303\304\305D\"\210\316H\203` \317\301!\210\211\202e \320\301\"\210\207\314	\236A\207\321\322\206s 	\"A\211\205\200 \323\324\325\326\"\"\207" [cl-struct-ghub--req-tags ghub-response-headers type-of signal wrong-type-argument ghub--req 2 bitbucket cl-mapcan make-closure #[257 "\211\300\236\211\205	 \211C\207" [V0] 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\242\243\211\242\243\302\303\304O!\305\304OB\207" [split-string "; " intern 5 -1 1] 12 "\n\n(fn ELT)"] split-string ", "] 9 (#$ . 30744)])
#@147 Return the id of the specified repository.
Signal an error if the id cannot be determined.

(fn OWNER NAME &key USERNAME AUTH HOST FORGE NOERROR)
(defalias 'ghub-repository-id #[642 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\211\203J \211@\306>\2032 \211AA\262\202 \307>A@\203A \310\262\202 \311\312@\"\210\202 \210\313\267\202e \314\202k \315\202k \316\202k \317\202k \320\202k \321\322\323\"!\324!\204v \311\325\"\210\211		\301	\302\n\303&\206\242 ?\205\242 \311\326\n\327Q\206\237 \330!\331\332%\207" [plist-member :username :auth :host :forge :noerror (:username :auth :host :forge :noerror :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:username :auth :host :forge :noerror)" #s(hash-table size 7 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nil 81 ghub 81 github 81 gitlab 85 gitea 89 gogs 93 bitbucket 97)) ghub--repository-id glab-repository-id gtea-repository-id gogs-repository-id buck-repository-id intern format "%s-repository-id" fboundp "ghub-repository-id: Forge type/abbreviation `%s' is unknown" "Repository %S does not exist on %S.\n%s%S?" "/" ghub--host "Maybe it was renamed and you have to update " "remote.<remote>.url"] 18 (#$ . 32050)])
#@1535 Whether to use a kludge that hopefully works around an Emacs bug.

In Emacs versions before 26.3 there is a bug that often but not
always causes network connections to fail when using TLS1.3.  It
appears that even when using Emacs 26.3 the bug still exists but
only on macOS.

The workaround works by binding `gnutls-algorithm-priority' to
"NORMAL:-VERS-TLS1.3" in `ghub--retrieve' around the call to
`url-retrieve' or `url-retrieve-synchronously'.  If you would
like to use the same kludge for other uses of these functions,
then you have to set this variable globally to the mentioned
value.

This variable controls whether the `ghub' package should use the
kludge.

- If nil, then never use the kludge.
- If `force' then always use the kludge no matter what.
- For any other non-nil value use the kludge, if and only if we
  believe that doing so is the correct thing to do.

The default value of this variable is either nil or `forge'.  It
is `forge' if using libgnutls >=3.6.3 (the version introducing
TLS1.3); AND also using Emacs < 26.3 and/or macOS (any version).

If the value is any other non-nil value, then `ghub--retrieve'
used the same logic as describe in the previous paragraph, but
every time it is called.  (This complication is mostly a historic
accident, which we don't want to change because doing so would
break this kludge for some users who have been relying on it for
a while already.)

For more information see https://github.com/magit/ghub/issues/81
and https://debbugs.gnu.org/cgi/bugreport.cgi?bug=34341.
(defvar ghub-use-workaround-for-emacs-bug (byte-code "\303Y\205 \304	\305\"\204 \n\306=\205 \307\207" [libgnutls-version emacs-version system-type 30603 version<= "26.2" darwin force] 3) (#$ . 33325))
#@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\311D\"\210\316H\306!>\204X \307\310\311D\"\210\317H\306!>\204l \307\310\311	D\"\210\320H	\203\257 	\321=\204\253 \n\204\257 \322Y\203\257 \323\f\324\"\204\221 \325=\203\257 \306!>\204\242 \307\310\311\nD\"\210\326H\327>\203\257 \330\202\260 \n \306!>\204\317 \307\310\311\nD\"\210\331H\204\356 \306!>\204\347 \307\310\311\nD\"\210\332H\203\371 \333\nC$\202r\334\"q\210!@	\")-\207" [cl-struct-ghub--req-tags ghub-use-workaround-for-emacs-bug gnutls-algorithm-priority libgnutls-version emacs-version system-type type-of signal wrong-type-argument ghub--req 5 functionp 4 nil 1 6 3 force 30603 version<= "26.2" darwin 2 (github nil) "NORMAL:-VERS-TLS1.3" 10 11 url-retrieve url-retrieve-synchronously url-show-status url-request-data url-request-method url-request-extra-headers url-callback-arguments] 14 (#$ . 35070)])
#@19 

(fn STATUS REQ)
(defalias 'ghub--handle-response #[514 "p\301\302\"\216\303\304!\210\305!>\204 \306\307\310D\"\210\311H\312\"\313!\314#\315\"\305!>\204@ \306\307\310	D\"\210\316H\317\320	#\236A\247\203Z S\262\305	!>\204k \306\307\310D\"\210\211\316\321!I\266\305	!>\204\206 \306\307\310D\"\210\211\311	I\266\211\203\255 \203\255 \304=\204\246 \322V\203\255 \323	!\206,\305	!>\204\276 \306\307\310D\"\210\324H\305\n!>\204\323 \306\307\310\fD\"\210	\325H\326\f\327\"\211\203\203\305\f!>\204\365 \306\307\310D\"\210\211\316I\266\304=\203\330\202	\n$\266\212\202.\203)\n$\266\212\202.\266\203\266\207)\207" [cl-struct-ghub--req-tags make-closure #[0 "\301\300!\205	 \302\300!\207" [V0 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 1 next ghub-response-link-relations url-generic-parse-url 0 ghub-continue 10 11 plist-get :error ghub--errorback] 18 (#$ . 36149)])
#@19 

(fn STATUS REQ)
(defalias 'ghub--handle-response-headers #[514 "eb\210\305y\210\306\307>\203/ \310\306\311\312\313\314!>\204$ \315\316\317D\"\210\305H!p%\210)\320\321\310#\203E \322\305!\322\323!BB\262\202/ \211\237\262Tb\210\203\202 \314!>\204` \315\316\317D\"\210\324H\204{ \314!>\204u \315\316\317D\"\210\325H\203\202 \326\304!\210\211\207\327\304\"\210\207" [url-http-end-of-headers url-debug print-escape-newlines cl-struct-ghub--req-tags ghub-response-headers 1 nil (nil 0) t error "BUG: missing headers\n  See https://github.com/magit/ghub/issues/81.\n  url: %s\n  headers: %S\n  status: %S\n  buffer: %S" url-recreate-url type-of signal wrong-type-argument ghub--req re-search-forward "^\\([^:]*\\): \\(.+\\)" match-string 2 10 11 make-local-variable set-default] 10 (#$ . 37292)])
#@27 

(fn STATUS PAYLOAD REQ)
(defalias 'ghub--handle-response-error #[771 "\301!>\204 \302\303\304D\"\210\211\305H\306\307\"\211\2035 \203/ \310=\203& \207\311!C\241\210\312\207\313#\207\207" [cl-struct-ghub--req-tags type-of signal wrong-type-argument ghub--req 8 plist-get :error return last nil ghub--signal-error] 9 (#$ . 38117)])
#@34 

(fn ERR &optional PAYLOAD REQ)
(defalias 'ghub--signal-error #[769 "\242\243\303=\203} \211\242\304=\203x \305\306\243@\211\307\2368	\205q \310\211!	>\2045 \305\311\312D\"\210\n\313H!\n>\204Z \305\311\314\310!	>\204S \305\311\312D\"\210\f\313HD\"\210\310\n!	>\204k \305\311\312\fD\"\210	\313H\315HF\262\"\207\305\316\"\207\305\"\207" [url-http-codes cl-struct-ghub--req-tags cl-struct-url-tags error http signal ghub-http-error 2 type-of wrong-type-argument ghub--req 1 url 6 ghub-error] 19 (#$ . 38469)])
#@31 

(fn ERR HEADERS STATUS REQ)
(defalias 'ghub--errorback #[1028 "\300\3018#\207" [ghub--signal-error 3] 8 (#$ . 39011)])
#@20 

(fn PAYLOAD REQ)
(defalias 'ghub--handle-response-value #[514 "\301!>\204 \302\303\304D\"\210\211\211\305\301!>\204\" \302\303\304D\"\210\305H\301!>\2045 \302\303\304D\"\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 (#$ . 39142)])
#@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 (#$ . 39514)])
#@15 

(fn STATUS)
(defalias 'ghub--read-json-payload #[257 "\305 \211\205< \3061 \307\310\311\312\211\313!-0\207\210\314\315\316!\2034 \317\320\312\321#\2030 \322\323!\2029 \324\2029 \325`d{!B\326B\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-trim ((documentation_url . "https://github.com/magit/ghub/wiki/Github-Errors"))] 7 (#$ . 39780)])
#@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 (#$ . 40388)])
#@16 

(fn PAYLOAD)
(defalias 'ghub--encode-payload #[257 "\211\205 \211;\204 \300\301!!\262\302\303\"\207" [json-encode copy-tree encode-coding-string utf-8] 4 (#$ . 40567)])
#@15 

(fn PARAMS)
(defalias 'ghub--url-encode-params #[257 "\300\301\302#\207" [mapconcat #[257 "\211\242\243\300\301!!\302\250\203 \303!\202 \300!Q\207" [url-hexify-string symbol-name "=" number-to-string] 9 "\n\n(fn PARAM)"] "&"] 5 (#$ . 40749)])
#@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 (#$ . 41011) nil])
#@41 

(fn HEADERS HOST AUTH USERNAME FORGE)
(defalias 'ghub--headers #[1285 "CC\300\301B\242B\240\210\302=\203 \242\207\211\242\204( ;\204( \211\303\"\240\210\304\305&\207" ["Content-Type" "application/json" none ghub--username make-closure #[0 "\302\305=\203 \306\307\301\303\242\"B\300\242B\207\310\301\302\303\242\304$\300\242B\207" [V0 V1 V2 V3 V4 basic "Authorization" ghub--basic-auth ghub--auth] 5]] 14 (#$ . 41454)])
#@43 

(fn HOST AUTH &optional USERNAME FORGE)
(defalias 'ghub--auth #[1026 "\204\n \300\"\262\301=\2030 \211\302\267\202& \303\304\"B\207\305\306\307\310!!\"\207\305\311\312#\205\244 \313\207\211\314\267\202> \303\202G \315\202G \305\311\316#\205G \313\317=\203c \320\321\322\323	\n\313\n%Q\324\"P\202\243 \325=?\205k \326\327;\203u \202\240 \204\206 \323\330\313%\202\240 9\203\231 \323\313%\202\240 \331\332\333D\"\334\"PB\207" [ghub--username basic #s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nil 22 gitea 22 gogs 22 bitbucket 22 github 29 gitlab 29)) "Authorization" ghub--basic-auth error "%s does not support basic authentication" capitalize symbol-name "cl-ecase failed: %s, %s" (bitbucket gogs gitea nil gitlab github) nil #s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nil 54 github 54 gitea 54 gogs 54 bitbucket 54 gitlab 58)) "Private-Token" (bitbucket gogs gitea github nil gitlab) bitbucket "Basic " base64-encode-string ":" ghub--token t gitlab "token " encode-coding-string ghub signal wrong-type-argument (or stringp symbolp) utf-8] 15 (#$ . 41902)])
#@22 

(fn HOST USERNAME)
(defalias 'ghub--basic-auth #[514 "\302\235\203 \303\202\f \304!\305!	>\204 \306\307\310D\"\210\211\211\311I\266\312\313\"\207" [ghub-insecure-hosts cl-struct-url-tags url-generic-parse-url "http://" "https://" type-of signal wrong-type-argument url 2 url-basic-auth t] 7 (#$ . 43090)])
#@55 

(fn HOST USERNAME PACKAGE &optional NOCREATE FORGE)
(defalias 'ghub--token #[1283 "\300\"\301\302C\303\304%@\2061 \305\303\304\306\307\257!\210?\2051 \310\311\312\313\206+ \314!!	$\315!\203: \211 \207\207" [ghub--ident ghub--auth-source-get :secret :host :user auth-source-forget :max 1 error "Required %s token (%S for %S) does not exist.\nSee https://magit.vc/manual/ghub/Getting-Started.html\nor (info \"(ghub)Getting Started\") for instructions.\n(The setup wizard no longer exists.)" capitalize symbol-name github functionp] 13 (#$ . 43413)])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\207" [cl-generic-define-method ghub--host nil (&optional forge) #[256 "\211\305\267\202\221 \3061 \307\310\311\312#@0\202 \210\202 \206\232 \207\3131+ \307\310\311\314#@0\202/ \210\2022 \206\232 \315\301!\2059 	\207\3161H \307\310\311\317#@0\202L \210\202O \206\232 \315\302!\205V \n\207\3201e \307\310\311\321#@0\202i \210\202l \206\232 \315\303!\205s \207\3221\202 \307\310\311\323#@0\202\206 \210\202\211 \206\232 \315\304!\205\220 \f\207\324\325\326#\205\232 \327\207" [ghub-default-host glab-default-host gtea-default-host gogs-default-host buck-default-host #s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nil 6 github 6 gitlab 29 gitea 58 gogs 87 bitbucket 116)) (error) process-lines "git" "config" "github.host" (error) "gitlab.host" boundp (error) "gitea.host" (error) "gogs.host" (error) "bitbucket.host" error #1="cl-ecase failed: %s, %s" (github nil gitlab gitea gogs bitbucket) nil] 5 "\n\n(fn &optional FORGE)"] ghub--username (host &optional forge) #[513 "\211\301\267\202k \232\203 \302\202t \303\304\"\202t \305\232\203! \306\202t \303\307\"\202t \310\232\2032 \311\202t \303\312\"\202t \313\314\315\211\211\316\317&\320U\203K \321\322!\210\303\323\"\202t \313\314\315\211\211\316\324&\320U\203d \321\325!\210\303\326\"\202t \321\327\330#\205t \315\3311\200 \332\314\316#@0\207\210\333\303\334\"!\211\335\232\203\221 \336\337!\207\313\314\315\211\211\316\340\303\341\n\n#\342\343D\"\342=\203\254 \344\202\255 \345&\210\207" [ghub-default-host #s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nil 6 github 6 gitlab 23 bitbucket 40 gitea 57 gogs 82)) "github.user" format "github.%s.user" "gitlab.com/api/v4" "gitlab.user" "gitlab.%s.user" "api.bitbucket.org/2.0" "bitbucket.user" "bitbucket.%s.user" call-process "git" nil "config" "gitea.host" 0 error "gitea.host is set but always ignored" "gitea.%s.user" "gogs.host" "gogs.host is set but always ignored" "gogs.%s.user" #1# (github nil gitlab bitbucket gitea gogs) (error) process-lines read-string "Git variable `%s' is unset.  Set to: " "" user-error "The empty string is not a valid username" read-char-choice "Set %s=%s [g]lobally (recommended) or [l]ocally? " 103 108 "--global" "--local"] 15 "\n\n(fn HOST &optional FORGE)"]] 6)
#@25 

(fn USERNAME PACKAGE)
(defalias 'ghub--ident #[514 "\300\301#\207" [format "%s^%s"] 6 (#$ . 46358)])
#@24 

(fn KEYS &rest SPEC)
(defalias 'ghub--auth-source-get #[385 "\300\301\302\303\304D\"\"@\305\306\307\"\"\207" [apply auth-source-search append :max 1 mapcar make-closure #[257 "\301\300\"\207" [V0 plist-get] 4 "\n\n(fn K)"]] 8 (#$ . 46469)])
(byte-code "\301\302\303\304#\305\306\"\203 \307\310\311\312#\210\313\312\314\"\210\307\315\311\316#\207" [emacs-version function-put ghub--auth-source-get lisp-indent-function 1 version< "26.2" advice-add auth-source-netrc-parse-next-interesting :around auth-source-netrc-parse-next-interesting@save-match-data defalias #[257 "\300 \301\302\"\216 )\207" [match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3]] 5 "Save match-data for the benefit of caller `auth-source-netrc-parse-one'.\nWithout wrapping this function in `save-match-data' the caller\nwon't see the secret from a line that is followed by a commented\nline.\n\n(fn FN)"] url-http-handle-authentication url-http-handle-authentication@unauthorized-bugfix] 5)
#@373 If authorization failed then don't try again but fail properly.
For Emacs 27.1 prevent a useful `http' error from being replaced
by a generic one that omits all useful information.  For earlier
releases prevent a new request from being made, which would
either result in an infinite loop or (e.g. in the case of `ghub')
the user being asked for their name.

(fn FN PROXY)
(defalias 'url-http-handle-authentication@unauthorized-bugfix #[514 "\301\302\"\203	 \303\207!\207" [url-http-extra-headers assoc "Authorization" t] 5 (#$ . 47478)])
(byte-code "\300\301!\210\302\303!\207" [provide ghub require ghub-graphql] 2)