;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\305\306\307\310!\"\210\305\311\312\310!\"\210\305\313\311\"\210\314\313\315\316#\210\317\310\320\311#\321\310\322\323\324$\207" [require eieio gh-api gh-auth gh-common defalias gh-oauth-api-p eieio-make-class-predicate gh-oauth-api gh-oauth-api--eieio-childp eieio-make-child-predicate gh-oauth-api-child-p make-obsolete "use (cl-typep ... \\='gh-oauth-api) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (gh-api-v3) ((auth-cls :allocation :class :initform gh-oauth-authorization)) (:documentation "OAuth API")] 6) #@51 Create a new object of class type `gh-oauth-api'. (defalias 'gh-oauth-api #[(&rest slots) "\301\302\303#\207" [slots apply make-instance gh-oauth-api] 4 (#$ . 700)]) (byte-code "\300\301\302\303#\300\207" [function-put gh-oauth-api compiler-macro gh-oauth-api--anon-cmacro] 4) (defalias 'gh-oauth-api--anon-cmacro #[(whole &rest slots) "@;\204 \207\302\303\304@ @# @\305@DABB\"\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\317$\207" [defalias gh-oauth-password-authenticator-p eieio-make-class-predicate gh-oauth-password-authenticator gh-oauth-password-authenticator--eieio-childp eieio-make-child-predicate gh-oauth-password-authenticator-child-p make-obsolete "use (cl-typep ... \\='gh-oauth-password-authenticator) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (gh-password-authenticator) ((remember :allocation :class :initform nil)) nil] 6) #@70 Create a new object of class type `gh-oauth-password-authenticator'. (defalias 'gh-oauth-password-authenticator #[(&rest slots) "\301\302\303#\207" [slots apply make-instance gh-oauth-password-authenticator] 4 (#$ . 1785)]) (byte-code "\300\301\302\303#\300\207" [function-put gh-oauth-password-authenticator compiler-macro gh-oauth-password-authenticator--anon-cmacro] 4) (defalias 'gh-oauth-password-authenticator--anon-cmacro #[(whole &rest slots) "@;\204 \207\302\303\304@ @# @\305@DABB\"\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\324\325\326$\207" [eieio--defalias initialize-instance eieio--defgeneric-init-form nil eieio--defmethod gh-oauth-api #[(api &rest args) "\301\302 )\207" [gh-api-v3-authenticator gh-oauth-password-authenticator call-next-method] 1] defalias gh-oauth-authorization-p eieio-make-class-predicate gh-oauth-authorization gh-oauth-authorization--eieio-childp eieio-make-child-predicate gh-oauth-authorization-child-p make-obsolete "use (cl-typep ... \\='gh-oauth-authorization) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (gh-ref-object marshal-base) ((scopes :initarg :scopes) (token :initarg :token) (app :initarg :app :initform nil :marshal-type gh-oauth-app) (updated-at :initarg :updated-at) (created-at :initarg :created-at)) (:marshal-default-spec gh-marshal-default-spec)] 6) #@61 Create a new object of class type `gh-oauth-authorization'. (defalias 'gh-oauth-authorization #[(&rest slots) "\301\302\303#\207" [slots apply make-instance gh-oauth-authorization] 4 (#$ . 3386)]) (byte-code "\300\301\302\303#\300\207" [function-put gh-oauth-authorization compiler-macro gh-oauth-authorization--anon-cmacro] 4) (defalias 'gh-oauth-authorization--anon-cmacro #[(whole &rest slots) "@;\204 \207\302\303\304@ @# @\305@DABB\"\207" [slots whole macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5]) (byte-code "\302\303\304\305#\210\302\303\306\307#\210\310\311\211\203, @\302\303\306\312\303\306N\313!\314##\210 A\211\204*\302\303\315\316#\210\310\311\211\203S @\302\303\315\312\303\315N\317!\314##\210 A\211\204;*\320\321\322\323!\"\210\320\324\325\323!\"\210\320\326\324\"\210\327\326\330\331#\210\332\323\333\324#\334\323\335\336\337$\207" [cls --dolist-tail-- put gh-oauth-authorization :marshal-class-slot :-cls :marshal-info ((alist (created-at . created_at) (updated-at . updated_at) (app . app) (token . token) (scopes . scopes))) (gh-ref-object) nil marshal--alist-merge marshal-get-marshal-info t :type-info ((app . gh-oauth-app)) marshal-get-type-info defalias gh-oauth-app-p eieio-make-class-predicate gh-oauth-app gh-oauth-app--eieio-childp eieio-make-child-predicate gh-oauth-app-child-p make-obsolete "use (cl-typep ... \\='gh-oauth-app) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (gh-object marshal-base) ((url :initarg :url) (name :initarg :name)) (:marshal-default-spec gh-marshal-default-spec)] 8) #@51 Create a new object of class type `gh-oauth-app'. (defalias 'gh-oauth-app #[(&rest slots) "\301\302\303#\207" [slots apply make-instance gh-oauth-app] 4 (#$ . 5014)]) (byte-code "\300\301\302\303#\300\207" [function-put gh-oauth-app compiler-macro gh-oauth-app--anon-cmacro] 4) (defalias 'gh-oauth-app--anon-cmacro #[(whole &rest slots) "@;\204 \207\302\303\304@ @# @\305@DABB\"\207" [slots whole macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity] 5]) (byte-code "\302\303\304\305#\210\302\303\306\307#\210\310\311\211\203, @\302\303\306\312\303\306N\313!\314##\210 A\211\204*\302\303\315\311#\210\310\311\211\203S @\302\303\315\312\303\315N\316!\314##\210 A\211\204;*\317\320\321\320\311\"\"\210\322\320\311\323\324$\210\317\325\321\325\311\"\"\210\322\325\311\323\326$\210\317\327\321\327\311\"\"\210\322\327\311\323\330$\210\317\331\321\331\311\"\"\210\322\331\311\323\332$\210\317\333\321\333\311\"\"\210\322\333\311\323\334$\210\335\336!\207" [cls --dolist-tail-- put gh-oauth-app :marshal-class-slot :-cls :marshal-info ((alist (name . name) (url . url))) (gh-object) nil marshal--alist-merge marshal-get-marshal-info t :type-info marshal-get-type-info eieio--defalias gh-oauth-auth-list eieio--defgeneric-init-form eieio--defmethod gh-oauth-api #[(api) "\301\302\303\304\"!\305\306\307!$\207" [api gh-api-authenticated-request gh-object-list-reader eieio-oref auth-cls "GET" format "/authorizations"] 6] gh-oauth-auth-get #[(api id) "\302\303\304\305\"!\306\307\310 \"$\207" [api id gh-api-authenticated-request gh-object-reader eieio-oref auth-cls "GET" format "/authorizations/%s"] 7] gh-oauth-auth-new #[(api &optional scopes) "\302\303\304\305\"!\306\307\310!\301 B\311\307\312\313 \"BD%\207" [api scopes gh-api-authenticated-request gh-object-reader eieio-oref auth-cls "POST" format "/authorizations" note "gh.el - %s" system-name] 10] gh-oauth-auth-update #[(api id &optional scopes) "\303\304\305\306\"!\307\310\311 \"\302\nBC%\207" [api id scopes gh-api-authenticated-request gh-object-reader eieio-oref auth-cls "PATCH" format "/authorizations/%s"] 7] gh-oauth-auth-delete #[(api id) "\302\303\304\305\306 \"$\207" [api id gh-api-authenticated-request nil "DELETE" format "/authorizations/%s"] 7] provide gh-oauth] 8)