;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-orgs-api-p eieio-make-class-predicate gh-orgs-api gh-orgs-api--eieio-childp eieio-make-child-predicate gh-orgs-api-child-p make-obsolete "use (cl-typep ... \\='gh-orgs-api) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (gh-api-v3) ((org-cls :allocation :class :initform gh-orgs-org)) (:documentation "Orgs API")] 6) #@50 Create a new object of class type `gh-orgs-api'. (defalias 'gh-orgs-api #[(&rest slots) "\301\302\303#\207" [slots apply make-instance gh-orgs-api] 4 (#$ . 682)]) (byte-code "\300\301\302\303#\300\207" [function-put gh-orgs-api compiler-macro gh-orgs-api--anon-cmacro] 4) (defalias 'gh-orgs-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-orgs-org-stub-p eieio-make-class-predicate gh-orgs-org-stub gh-orgs-org-stub--eieio-childp eieio-make-child-predicate gh-orgs-org-stub-child-p make-obsolete "use (cl-typep ... \\='gh-orgs-org-stub) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (gh-ref-object marshal-base) ((login :initarg :login) (avatar-url :initarg :avatar-url) (description :initarg :description)) (:marshal-default-spec gh-marshal-default-spec)] 6) #@55 Create a new object of class type `gh-orgs-org-stub'. (defalias 'gh-orgs-org-stub #[(&rest slots) "\301\302\303#\207" [slots apply make-instance gh-orgs-org-stub] 4 (#$ . 1781)]) (byte-code "\300\301\302\303#\300\207" [function-put gh-orgs-org-stub compiler-macro gh-orgs-org-stub--anon-cmacro] 4) (defalias 'gh-orgs-org-stub--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\322!\"\210\317\323\324\322!\"\210\317\325\323\"\210\326\325\327\330#\210\331\322\332\323#\333\322\334\335\336$\207" [cls --dolist-tail-- put gh-orgs-org-stub :marshal-class-slot :-cls :marshal-info ((alist (description . description) (avatar-url . avatar_url) (login . login))) (gh-ref-object) nil marshal--alist-merge marshal-get-marshal-info t :type-info marshal-get-type-info defalias gh-orgs-plan-p eieio-make-class-predicate gh-orgs-plan gh-orgs-plan--eieio-childp eieio-make-child-predicate gh-orgs-plan-child-p make-obsolete "use (cl-typep ... \\='gh-orgs-plan) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (gh-object marshal-base) ((name :initarg :name) (space :initarg :space) (private-repos :initarg :private-repos)) (:marshal-default-spec gh-marshal-default-spec)] 8) #@51 Create a new object of class type `gh-orgs-plan'. (defalias 'gh-orgs-plan #[(&rest slots) "\301\302\303#\207" [slots apply make-instance gh-orgs-plan] 4 (#$ . 3360)]) (byte-code "\300\301\302\303#\300\207" [function-put gh-orgs-plan compiler-macro gh-orgs-plan--anon-cmacro] 4) (defalias 'gh-orgs-plan--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\322!\"\210\317\323\324\322!\"\210\317\325\323\"\210\326\325\327\330#\210\331\322\332\323#\333\322\334\335\336$\207" [cls --dolist-tail-- put gh-orgs-plan :marshal-class-slot :-cls :marshal-info ((alist (private-repos . private_repos) (space . space) (name . name))) (gh-object) nil marshal--alist-merge marshal-get-marshal-info t :type-info marshal-get-type-info defalias gh-orgs-org-p eieio-make-class-predicate gh-orgs-org gh-orgs-org--eieio-childp eieio-make-child-predicate gh-orgs-org-child-p make-obsolete "use (cl-typep ... \\='gh-orgs-org) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (gh-orgs-org-stub marshal-base) ((name :initarg :name) (company :initarg :company) (blog :initarg :blog) (location :initarg :location) (email :initarg :email) (public-repos :initarg :public-repos) (public-gists :initarg :public-gists) (followers :initarg :followers) (following :initarg :following) (created-at :initarg :created-at) (type :initarg :type) (total-private-repos :initarg :total-private-repos) (owned-private-repos :initarg :owned-private-repos) (private-gists :initarg :private-gists) (disk-usage :initarg :disk-usage) (collaborators :initarg :collaborators) (billing-email :initarg :billing-email) (plan :initarg :plan :initform nil :marshal-type gh-orgs-plan)) (:documentation "Class for GitHub organizations" :marshal-default-spec gh-marshal-default-spec)] 8) #@50 Create a new object of class type `gh-orgs-org'. (defalias 'gh-orgs-org #[(&rest slots) "\301\302\303#\207" [slots apply make-instance gh-orgs-org] 4 (#$ . 5506)]) (byte-code "\300\301\302\303#\300\207" [function-put gh-orgs-org compiler-macro gh-orgs-org--anon-cmacro] 4) (defalias 'gh-orgs-org--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\321\311\"\"\210\323\321\311\303\324$\210\320\325\322\325\311\"\"\210\323\325\311\326\327$\210\320\330\322\330\311\"\"\210\323\330\311\326\331$\210\320\332\322\332\311\"\"\210\323\332\311\326\333$\210\334\335!\207" [cls --dolist-tail-- put gh-orgs-org :marshal-class-slot :-cls :marshal-info ((alist (plan . plan) (billing-email . billing_email) (collaborators . collaborators) (disk-usage . disk_usage) (private-gists . private_gists) (owned-private-repos . owned_private_repos) (total-private-repos . total_private_repos) (type . type) (created-at . created_at) (following . following) (followers . followers) (public-gists . public_gists) (public-repos . public_repos) (email . email) (location . location) (blog . blog) (company . company) (name . name))) (gh-orgs-org-stub) nil marshal--alist-merge marshal-get-marshal-info t :type-info ((plan . gh-orgs-plan)) marshal-get-type-info eieio--defalias gh-orgs-org-to-obj eieio--defgeneric-init-form eieio--defmethod #[(org) "\301\302\303\"\205\304\305\303\"BC\302\306\"\205\307\305\306\"BC\302\310\"\205+\311\305\310\"BC\302\312\"\2059\313\305\312\"BC\302\314\"\205G\315\305\314\"BC\302\316\"\205U\317\305\316\"BC&\207" [org append slot-boundp :billing-email "billing_email" eieio-oref :blog "blog" :company "company" :email "email" :location "location" :name "name"] 10] gh-orgs-list gh-orgs-api #[(api &optional username) "\302\303\304\305\"!\306\307\310 \206\311!\"$\207" [api username gh-api-authenticated-request gh-object-list-reader eieio-oref org-cls "GET" format "/users/%s/orgs" gh-api-get-username] 8] gh-orgs-get #[(api org) "\302\303\304\305\"!\306\307\310 \"$\207" [api org gh-api-authenticated-request gh-object-reader eieio-oref org-cls "GET" format "/orgs/%s"] 7] gh-orgs-update #[(api org-obj) "\302\303\304\305\"!\306\307\310\304 \311\"\"\312 !%\207" [api org-obj gh-api-authenticated-request gh-object-reader eieio-oref org-cls "PATCH" format "/orgs/%s" :login gh-orgs-org-to-obj] 9] provide gh-orgs] 8)