;ELC ;;; Compiled ;;; in Emacs version 25.3.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (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#\210\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" put cl-deftype-satisfies eieio-defclass-internal (gh-api-v3) ((users-cls :allocation :class :initform gh-users-user)) (:documentation "Users API")] 5) #@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 (#$ . 1001)]) (function-put 'gh-users-api 'compiler-macro 'gh-users-api--anon-cmacro) (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#\210\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" put 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)] 5) #@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 (#$ . 2806)]) (function-put 'gh-users-user 'compiler-macro 'gh-users-user--anon-cmacro) (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\303\305\"\"\210\306\303\307\310\311$\210\312\310\313\314#\210\302\315\304\315\305\"\"\210\306\315\307\310\316$\210\312\310\317\320#\210\321\305\211\203J @\312\310\317\322\310\317N\315!\323##\210 A\211\2042*\302\324\304\324\305\"\"\210\306\324\307\310\325$\210\312\310\326\305#\210\321\305\211\203\200 @\312\310\326\322\310\326N\324!\323##\210 A\211\204h*\302\327\304\327\305\"\"\210\306\327\305\330\331$\210\302\332\304\332\305\"\"\210\306\332\305\330\333$\210\334\335!\207" [cls --dolist-tail-- eieio--defalias marshal-get-class-slot eieio--defgeneric-init-form nil eieio--defmethod :static gh-users-user #[(obj) "\302!\203\f\303!\202 \211\304N)\207" [obj cls eieio-object-p eieio-object-class :marshal-class-slot] 3] put :marshal-class-slot :-cls marshal-get-marshal-info #[(obj) "\302!\203\f\303!\202 \211\304N)\207" [obj cls eieio-object-p eieio-object-class :marshal-info] 3] :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) marshal--alist-merge t marshal-get-type-info #[(obj) "\302!\203\f\303!\202 \211\304N)\207" [obj cls eieio-object-p eieio-object-class :type-info] 3] :type-info gh-users-get 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)