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


(byte-code "\300\301!\210\300\302!\210\303\304\305\306!\"\210\303\307\310\306!\"\210\303\311\307\"\210\312\311\313\314#\210\315\306\316\307#\317\306\320\321\320$\207" [require eieio url-http defalias gh-url-request-p eieio-make-class-predicate gh-url-request gh-url-request--eieio-childp eieio-make-child-predicate gh-url-request-child-p make-obsolete "use (cl-typep ... \\='gh-url-request) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal nil ((method :initarg :method :type string) (url :initarg :url :type string) (query :initarg :query :initform nil) (headers :initarg :headers :initform nil) (data :initarg :data :initform "" :type string) (async :initarg :async :initform nil) (num-retries :initarg :num-retries :initform 0) (install-callbacks :initarg :install-callbacks :initform nil) (default-response-cls :allocation :class :initform gh-url-response))] 6)
#@53 Create a new object of class type `gh-url-request'.
(defalias 'gh-url-request #[(&rest slots) "\301\302\303#\207" [slots apply make-instance gh-url-request] 4 (#$ . 984)])
(byte-code "\300\301\302\303#\300\207" [function-put gh-url-request compiler-macro gh-url-request--anon-cmacro] 4)
(defalias 'gh-url-request--anon-cmacro #[(whole &rest slots) "@;\204 	\207\302\303\304@	@#	@\305@DABB\"\207" [slots whole macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\315$\207" [defalias gh-url-response-p eieio-make-class-predicate gh-url-response gh-url-response--eieio-childp eieio-make-child-predicate gh-url-response-child-p make-obsolete "use (cl-typep ... \\='gh-url-response) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal nil ((data-received :initarg :data-received :initform nil) (data :initarg :data :initform nil) (headers :initarg :headers :initform nil) (http-status :initarg :http-status :initform nil) (callbacks :initarg :callbacks :initform nil) (transform :initarg :transform :initform nil) (-req :initarg :-req :initform nil))] 6)
#@54 Create a new object of class type `gh-url-response'.
(defalias 'gh-url-response #[(&rest slots) "\301\302\303#\207" [slots apply make-instance gh-url-response] 4 (#$ . 2239)])
(byte-code "\300\301\302\303#\300\207" [function-put gh-url-response compiler-macro gh-url-response--anon-cmacro] 4)
(defalias 'gh-url-response--anon-cmacro #[(whole &rest slots) "@;\204 	\207\302\303\304@	@#	@\305@DABB\"\207" [slots whole macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(byte-code "\300\301\302\301\303\"\"\210\304\301\303\305\306$\210\307\310\311\312!\"\210\307\313\314\312!\"\210\307\315\313\"\210\316\315\317\320#\210\321\312\322\313#\323\312\303\211\211$\207" [eieio--defalias gh-url-response-set-data eieio--defgeneric-init-form nil eieio--defmethod gh-url-response #[(resp data) "\303\304\"\305\306	\203 	\n!\202 \n#\210\305\307\310#)\207" [resp transform data eieio-oref :transform eieio-oset :data :data-received t] 5] defalias gh-url-callback-p eieio-make-class-predicate gh-url-callback gh-url-callback--eieio-childp eieio-make-child-predicate gh-url-callback-child-p make-obsolete "use (cl-typep ... \\='gh-url-callback) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal] 6)
#@54 Create a new object of class type `gh-url-callback'.
(defalias 'gh-url-callback #[(&rest slots) "\301\302\303#\207" [slots apply make-instance gh-url-callback] 4 (#$ . 3506)])
(byte-code "\300\301\302\303#\300\207" [function-put gh-url-callback compiler-macro gh-url-callback--anon-cmacro] 4)
(defalias 'gh-url-callback--anon-cmacro #[(whole &rest slots) "@;\204 	\207\302\303\304@	@#	@\305@DABB\"\207" [slots whole macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5])
(byte-code "\300\301\302\301\303\"\"\210\304\301\303\305\306$\210\300\307\302\307\303\"\"\210\304\307\303\310\311$\210\300\312\302\312\303\"\"\210\304\312\303\310\313$\207" [eieio--defalias gh-url-callback-run eieio--defgeneric-init-form nil eieio--defmethod gh-url-callback #[(cb resp) "\300\207" [nil] 1] gh-url-response-run-callbacks gh-url-response #[(resp) "\305\306	\307\"\306	\310\"!\311\211\203S \f@\312!\203, \313\314\"\203, \315	\"\210\202F \316!\2047 9\203> \n!\210\202F \317@\nA#\210\320	\310#\210\fA\211\204 ,	\207" [copy-list resp data cb --dolist-tail-- #[(list) ":\203 \302:\203 \211A\242	B\202 	\237	\241\210)\207@\207" [list res nil] 3] eieio-oref :data :callbacks nil object-p object-of-class-p gh-url-callback gh-url-callback-run functionp apply object-remove-from-list] 5] gh-url-add-response-callback #[(resp callback) "\302\303	\304$\210\305\306\"\203 \307!\207\207" [resp callback object-add-to-list :callbacks t eieio-oref :data-received gh-url-response-run-callbacks] 5]] 5)
(defalias 'gh-url-parse-headers #[(data) "\306\307	\310\"\211@\311\312\"\2030 \313\314\315\"BB\316\314\317\"BB\320\314\321\"\206, \322BB\nA\306\f:\203_ \f@\311\323\"\203X \314\315\"\314\317\"\211BB*\fA\211\2026 *+\207" [headers data header-lines status-line #1=#:--cl-var-- line nil split-string "\n" string-match "HTTP/\\([0-9.]+\\) \\([0-9]\\{3\\}\\)\\( \\(.*\\)\\)*" status-version match-string 1 status-code 2 status-string 4 "" "^\\([A-Za-z0-9.-]+\\):[ ]*\\(.*\\)" value name] 5])
(byte-code "\300\301\302\301\303\"\"\210\304\301\303\305\306$\210\300\307\302\307\303\"\"\210\304\307\303\305\310$\207" [eieio--defalias gh-url-response-finalize eieio--defgeneric-init-form nil eieio--defmethod gh-url-response #[(resp) "\301\302\"\205\n \303!\207" [resp eieio-oref :data-received gh-url-response-run-callbacks] 3] gh-url-response-init #[(resp buffer) "\305\216rq\210\306e	T{!\307\310\n#\210\307\311\312\313\n\236A!#\210)	Tb\210`d{\314\f\"\210+\315!\210\207" [buffer url-http-end-of-headers headers resp raw #[nil "\301!\207" [buffer kill-buffer] 2] gh-url-parse-headers eieio-oset :headers :http-status read status-code gh-url-response-set-data gh-url-response-finalize] 6]] 5)
(defalias 'gh-url-set-response #[(status req-resp) "\306\307!\210\211G\310U\203 	\211A\242\202 \311\312\313	GD\"	\242\314\n!\315\n\316\"\317\320#\210\f\2039 \f\321U\203@ \322p\"\202Z \3231L \322p\"0\202Z \317\n\316\fS#\210\324\n\")-\207" [req-resp #1=#:--cl-rest-- req resp num responses-req set-buffer-multibyte t 2 signal wrong-number-of-arguments (req resp) clone eieio-oref :num-retries eieio-oset :-req 0 gh-url-response-init (error) gh-url-run-request err] 5])
(defalias 'gh-url-form-encode #[(form) "\301\302\303#\207" [form mapconcat #[(x) "\301\302@A#\207" [x format "%s=%s"] 4] "&"] 4])
(defalias 'gh-url-params-encode #[(form) "\301\302!P\207" [form "?" gh-url-form-encode] 3])
(byte-code "\300\301\302\301\303\"\"\210\304\301\303\305\306$\210\307\310!\207" [eieio--defalias gh-url-run-request eieio--defgeneric-init-form nil eieio--defmethod gh-url-request #[(req &optional resp) "\306\307\310\311\"\312	\313\"\312	\314\"\312	\315\"\312	\316\"\312	\317\"\211\203% \320\n!\202& \321)P \312	\322\"\203c !\206E \323\312	\324\"!!	!D\"r\325\326\"C#q\210\327\330!\210+\202\203 !\206n \323\312	\324\"!!	!D\"r\331!q\210\326\332\"\"\210+.\333\334\312	\335\"\"\210!\207" [url-version req params url url-request-extra-headers url-request-data (("basic" ignore . 4)) high format "User-Agent: URL/%s\n" eieio-oref :method :data :headers :url :query gh-url-params-encode "" :async make-instance default-response-cls url-retrieve gh-url-set-response make-local-variable url-registered-auth-schemes url-retrieve-synchronously nil mapc #[(cb) "\302	\"\207" [resp cb gh-url-add-response-callback] 3] :install-callbacks url-request-method url-user-agent url-privacy-level resp req-resp] 11] provide gh-url] 5)