;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-users-api-p eieio-make-class-predicate gh-users-api gh-users-api--eieio-childp eieio-make-child-predicate gh-users-api-child-p make-obsolete "use (cl-typep ... \\='gh-users-api) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (gh-api-v3) ((users-cls :allocation :class :initform gh-users-user)) (:documentation "Users API")] 6) #@51 Create a new object of class type `gh-users-api'. (defalias 'gh-users-api #[(&rest slots) "\301\302\303#\207" [slots apply make-instance gh-users-api] 4 (#$ . 692)]) (byte-code "\300\301\302\303#\300\207" [function-put gh-users-api compiler-macro gh-users-api--anon-cmacro] 4) (defalias 'gh-users-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-users-user-p eieio-make-class-predicate gh-users-user gh-users-user--eieio-childp eieio-make-child-predicate gh-users-user-child-p make-obsolete "use (cl-typep ... \\='gh-users-user) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (gh-user marshal-base) ((gravatar-id :initarg :gravatar-id) (html-url :initarg :html-url) (followers-url :initarg :followers-url) (following-url :initarg :following-url) (gists-url :initarg :gists-url) (starred-url :initarg :starred-url) (subscriptions-url :initarg :subscriptions-url) (organizations-url :initarg :organizations-url) (repos-url :initarg :repos-url) (events-url :initarg :events-url) (received-events-url :initarg :received-events-url) (type :initarg :type) (site-admin :initarg :site-admin) (name :initarg :name) (company :initarg :company) (blog :initarg :blog) (location :initarg :location) (email :initarg :email) (hireable :initarg :hireable) (bio :initarg :bio) (public-repos :initarg :public-repos) (public-gists :initarg :public-gists) (followers :initarg :followers) (following :initarg :following) (created-at :initarg :created-at) (update-at :initarg :update-at)) (:marshal-default-spec gh-marshal-default-spec)] 6) #@52 Create a new object of class type `gh-users-user'. (defalias 'gh-users-user #[(&rest slots) "\301\302\303#\207" [slots apply make-instance gh-users-user] 4 (#$ . 2548)]) (byte-code "\300\301\302\303#\300\207" [function-put gh-users-user compiler-macro gh-users-user--anon-cmacro] 4) (defalias 'gh-users-user--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\327\330!\207" [cls --dolist-tail-- put gh-users-user :marshal-class-slot :-cls :marshal-info ((alist (update-at . update_at) (created-at . created_at) (following . following) (followers . followers) (public-gists . public_gists) (public-repos . public_repos) (bio . bio) (hireable . hireable) (email . email) (location . location) (blog . blog) (company . company) (name . name) (site-admin . site_admin) (type . type) (received-events-url . received_events_url) (events-url . events_url) (repos-url . repos_url) (organizations-url . organizations_url) (subscriptions-url . subscriptions_url) (starred-url . starred_url) (gists-url . gists_url) (following-url . following_url) (followers-url . followers_url) (html-url . html_url) (gravatar-id . gravatar_id))) (gh-user) nil marshal--alist-merge marshal-get-marshal-info t :type-info marshal-get-type-info eieio--defalias gh-users-get eieio--defgeneric-init-form eieio--defmethod gh-users-api #[(api &optional username) "\302\303\304\305\"!\306 \203\307\310 \"\202\311$\207" [api username gh-api-authenticated-request gh-object-reader eieio-oref users-cls "GET" format "/users/%s" "/user"] 7] gh-users-list #[(api) "\301\302\303\304\"!\305\306$\207" [api gh-api-authenticated-request gh-object-list-reader eieio-oref users-cls "GET" "/users"] 6] provide gh-users] 8)