;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-repos-api-p eieio-make-class-predicate gh-repos-api gh-repos-api--eieio-childp eieio-make-child-predicate gh-repos-api-child-p make-obsolete "use (cl-typep ... \\='gh-repos-api) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (gh-api-v3) ((repo-cls :allocation :class :initform gh-repos-repo) (user-cls :allocation :class :initform gh-user)) (:documentation "Repos API")] 6) #@51 Create a new object of class type `gh-repos-api'. (defalias 'gh-repos-api #[(&rest slots) "\301\302\303#\207" [slots apply make-instance gh-repos-api] 4 (#$ . 739)]) (byte-code "\300\301\302\303#\300\207" [function-put gh-repos-api compiler-macro gh-repos-api--anon-cmacro] 4) (defalias 'gh-repos-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-repos-repo-stub-p eieio-make-class-predicate gh-repos-repo-stub gh-repos-repo-stub--eieio-childp eieio-make-child-predicate gh-repos-repo-stub-child-p make-obsolete "use (cl-typep ... \\='gh-repos-repo-stub) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (gh-object marshal-base) ((name :initarg :name) (description :initarg :description) (homepage :initarg :homepage) (private :initarg :private)) (:documentation "Class for user-created repository objects" :marshal-default-spec gh-marshal-default-spec)] 6) #@57 Create a new object of class type `gh-repos-repo-stub'. (defalias 'gh-repos-repo-stub #[(&rest slots) "\301\302\303#\207" [slots apply make-instance gh-repos-repo-stub] 4 (#$ . 1931)]) (byte-code "\300\301\302\303#\300\207" [function-put gh-repos-repo-stub compiler-macro gh-repos-repo-stub--anon-cmacro] 4) (defalias 'gh-repos-repo-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-repos-repo-stub :marshal-class-slot :-cls :marshal-info ((alist (private . private) (homepage . homepage) (description . description) (name . name))) (gh-object) nil marshal--alist-merge marshal-get-marshal-info t :type-info marshal-get-type-info defalias gh-repos-repo-p eieio-make-class-predicate gh-repos-repo gh-repos-repo--eieio-childp eieio-make-child-predicate gh-repos-repo-child-p make-obsolete "use (cl-typep ... \\='gh-repos-repo) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (gh-ref-object gh-repos-repo-stub marshal-base) ((clone-url :initarg :clone-url) (git-url :initarg :git-url) (ssh-url :initarg :ssh-url) (svn-url :initarg :svn-url) (mirror-url :initarg :mirror-url) (owner :initarg :owner :initform nil :marshal-type gh-user) (full-name :initarg :full-name) (language :initarg :language) (fork :initarg :fork) (forks :initarg :forks) (forks-count :initarg :forks-count) (watchers :initarg :watchers) (watchers-count :initarg :watchers-count) (stargazers-count :initarg :stargazers-count) (size :initarg :size) (master-branch :initarg :master-branch) (open-issues :initarg :open-issues) (pushed-at :initarg :pushed-at) (created-at :initarg :created-at) (updated-at :initarg :updated-at) (organisation :initarg :organisation :initform nil :marshal-type gh-user) (parent :initarg :parent :marshal-type gh-repos-repo) (source :initarg :source :marshal-type gh-repos-repo) (has-issues :initarg :has-issues) (has-wiki :initarg :has-wiki) (has-downloads :initarg :has-downloads)) (:documentation "Class for GitHub repositories" :marshal-default-spec gh-marshal-default-spec)] 8) #@52 Create a new object of class type `gh-repos-repo'. (defalias 'gh-repos-repo #[(&rest slots) "\301\302\303#\207" [slots apply make-instance gh-repos-repo] 4 (#$ . 4479)]) (byte-code "\300\301\302\303#\300\207" [function-put gh-repos-repo compiler-macro gh-repos-repo--anon-cmacro] 4) (defalias 'gh-repos-repo--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-repos-repo :marshal-class-slot :-cls :marshal-info ((alist (has-downloads . has_downloads) (has-wiki . has_wiki) (has-issues . has_issues) (source . source) (parent . parent) (organisation . organisation) (updated-at . updated_at) (created-at . created_at) (pushed-at . pushed_at) (open-issues . open_issues) (master-branch . master_branch) (size . size) (stargazers-count . stargazers_count) (watchers-count . watchers_count) (watchers . watchers) (forks-count . forks_count) (forks . forks) (fork . fork) (language . language) (full-name . full_name) (owner . owner) (mirror-url . mirror_url) (svn-url . svn_url) (ssh-url . ssh_url) (git-url . git_url) (clone-url . clone_url))) (gh-ref-object gh-repos-repo-stub) nil marshal--alist-merge marshal-get-marshal-info t :type-info ((owner . gh-user) (organisation . gh-user) (parent . gh-repos-repo) (source . gh-repos-repo)) marshal-get-type-info defalias gh-repos-ref-p eieio-make-class-predicate gh-repos-ref gh-repos-ref--eieio-childp eieio-make-child-predicate gh-repos-ref-child-p make-obsolete "use (cl-typep ... \\='gh-repos-ref) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (gh-object marshal-base) ((label :initarg :label) (ref :initarg :ref :initform nil) (sha :initarg :sha :initform nil) (user :initarg :user :initform nil :marshal-type gh-user) (repo :initarg :repo :initform nil :marshal-type gh-repos-repo)) (:marshal-default-spec gh-marshal-default-spec)] 8) #@51 Create a new object of class type `gh-repos-ref'. (defalias 'gh-repos-ref #[(&rest slots) "\301\302\303#\207" [slots apply make-instance gh-repos-ref] 4 (#$ . 6829)]) (byte-code "\300\301\302\303#\300\207" [function-put gh-repos-ref compiler-macro gh-repos-ref--anon-cmacro] 4) (defalias 'gh-repos-ref--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\324\325$\210\320\326\322\326\311\"\"\210\323\326\311\324\327$\210\320\330\322\330\311\"\"\210\323\330\311\331\332$\210\320\333\322\333\311\"\"\210\323\333\311\324\334$\210\320\335\322\335\311\"\"\210\323\335\311\324\336$\210\320\337\322\337\311\"\"\210\323\337\311\324\340$\210\320\341\322\341\311\"\"\210\323\341\311\324\342$\210\320\343\322\343\311\"\"\210\323\343\311\324\344$\210\320\345\322\345\311\"\"\210\323\345\311\324\346$\210\320\347\322\347\311\"\"\210\323\347\311\324\350$\210\320\351\322\351\311\"\"\210\323\351\311\324\352$\210\320\353\322\353\311\"\"\210\323\353\311\324\354$\210\320\355\322\355\311\"\"\210\323\355\311\324\356$\210\320\357\322\357\311\"\"\210\323\357\311\324\360$\210\320\361\322\361\311\"\"\210\323\361\311\324\362$\210\320\363\322\363\311\"\"\210\323\363\311\324\364$\210\320\365\322\365\311\"\"\210\323\365\311\324\366$\210\320\367\322\367\311\"\"\210\323\367\311\324\370$\210\320\371\322\371\311\"\"\210\323\371\311\324\372$\210\320\373\322\373\311\"\"\210\323\373\311\324\374$\210\320\375\322\375\311\"\"\210\323\375\311\324\376$\210\320\377\322\377\311\"\"\210\323\377\311\324\201@$\210\320\201A\322\201A\311\"\"\210\323\201A\311\324\201B$\210\320\201C\322\201C\311\"\"\210\323\201C\311\324\201D$\210\320\201E\322\201E\311\"\"\210\323\201E\311\324\201F$\210\320\201G\322\201G\311\"\"\210\323\201G\311\324\201H$\210\320\201I\322\201I\311\"\"\210\323\201I\311\324\201J$\210\320\201K\322\201K\311\"\"\210\323\201K\311\324\201L$\210\320\201M\322\201M\311\"\"\210\323\201M\311\324\201N$\210\201O\201P!\207" [cls --dolist-tail-- put gh-repos-ref :marshal-class-slot :-cls :marshal-info ((alist (repo . repo) (user . user) (sha . sha) (ref . ref) (label . label))) (gh-object) nil marshal--alist-merge marshal-get-marshal-info t :type-info ((user . gh-user) (repo . gh-repos-repo)) marshal-get-type-info eieio--defalias gh-repos-user-list eieio--defgeneric-init-form eieio--defmethod gh-repos-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 repo-cls "GET" format "/users/%s/repos" gh-api-get-username] 8] gh-repos-org-list #[(api org) "\302\303\304\305\"!\306\307\310 \"$\207" [api org gh-api-authenticated-request gh-object-list-reader eieio-oref repo-cls "GET" format "/orgs/%s/repos"] 7] gh-repos-repo-to-obj gh-repos-repo-stub #[(repo &rest caps) "\305\306\"\305\307\"\305\310\"\311\312\f\313\"B\314\315\f\316\"\205$\317\312\f\316\"BC\315\f\320\"\2052\321\312\f\320\"BC\315\f\322\"\205A\323\312\f\322\"?BC \205L\324\325\306\"BC\n\205W\326\325\307\"BC \205b\327\325\310\"BC&+B\207" [caps has_downloads has_wiki has_issues repo plist-member :issues :wiki :downloads "name" eieio-oref :name append slot-boundp :homepage "homepage" :description "description" :private "public" "has_issues" plist-get "has_wiki" "has_downloads"] 11] gh-repos-repo-new #[(api repo-stub &optional org &rest caps) "\304\305\306\307\"!\310 \203\311\312 \"\202\313\314\315\n #%\207" [api org repo-stub caps gh-api-authenticated-request gh-object-reader eieio-oref repo-cls "POST" format "/orgs/%s/repos" "/user/repos" apply gh-repos-repo-to-obj] 9] gh-repos-repo-get #[(api repo-id &optional user) "\303\304\305\306\"!\307\310\311 \206\312!\n#$\207" [api user repo-id gh-api-authenticated-request gh-object-reader eieio-oref repo-cls "GET" format "/repos/%s/%s" gh-api-get-username] 8] gh-repos-repo-update #[(api repo-stub &optional user &rest caps) "\304\305\306\307\"!\310\311\312 \206\313!\306\n\314\"#\315\316\n #%\207" [api user repo-stub caps gh-api-authenticated-request gh-object-reader eieio-oref repo-cls "PATCH" format "/repos/%s/%s" gh-api-get-username :name apply gh-repos-repo-to-obj] 10] gh-repos-repo-rename #[(api repo-stub new-name &optional user) "\305\306\307#\310\n\311\312\n\313\"!\314\315\316 \206\317\n!\312\f\307\"#\320 !%)\207" [new-name new-stub api user repo-stub make-instance gh-repos-repo-stub :name gh-api-authenticated-request gh-object-reader eieio-oref repo-cls "PATCH" format "/repos/%s/%s" gh-api-get-username gh-repos-repo-to-obj] 10] gh-repos-repo-delete #[(api repo-id &optional user) "\303\304\305\306\"!\307\310\311 \206\312!\n#$\207" [api user repo-id gh-api-authenticated-request gh-object-reader eieio-oref repo-cls "DELETE" format "/repos/%s/%s" gh-api-get-username] 8] gh-repos-repo-contributors #[(api repo) "\302\303\304\305\"!\306\307\310\304\211 \311\"\312\"\304 \313\"#$\207" [api repo gh-api-authenticated-request gh-object-reader eieio-oref repo-cls "GET" format "/repos/%s/%s/contributors" :owner :login :name] 10] gh-repos-repo-languages #[(api repo) "\302\303\304\305\306\307\211 \310\"\311\"\307 \312\"#$\207" [api repo gh-api-authenticated-request nil "GET" format "/repos/%s/%s/languages" eieio-oref :owner :login :name] 10] gh-repos-repo-teams #[(api repo) "\302\303\304\305\306\307\211 \310\"\311\"\307 \312\"#$\207" [api repo gh-api-authenticated-request nil "GET" format "/repos/%s/%s/teams" eieio-oref :owner :login :name] 10] gh-repos-repo-tags #[(api repo) "\302\303\304\305\306\307\211 \310\"\311\"\307 \312\"#$\207" [api repo gh-api-authenticated-request nil "GET" format "/repos/%s/%s/tags" eieio-oref :owner :login :name] 10] gh-repos-repo-branches #[(api repo) "\302\303\304\305\306\307\211 \310\"\311\"\307 \312\"#$\207" [api repo gh-api-authenticated-request nil "GET" format "/repos/%s/%s/branches" eieio-oref :owner :login :name] 10] gh-repos-collaborators-list #[(api repo) "\302\303\304\305\"!\306\307\310\304\211 \311\"\312\"\304 \313\"#$\207" [api repo gh-api-authenticated-request gh-object-list-reader eieio-oref user-cls "GET" format "/repos/%s/%s/collaborators" :owner :login :name] 10] gh-repos-collaborators-p #[(api repo user) "\303\304\305\306\307\310\303\211 \311\"\312\"\303 \313\"\n$$\314\"\315=\207" [api repo user eieio-oref gh-api-authenticated-request nil "GET" format "/repos/%s/%s/collaborators/%s" :owner :login :name :http-status 204] 11] gh-repos-collaborators-add #[(api repo user) "\303\304\305\306\307\310\211 \311\"\312\"\310 \313\"\n$$\207" [api repo user gh-api-authenticated-request nil "PUT" format "/repos/%s/%s/collaborators/%s" eieio-oref :owner :login :name] 10] gh-repos-collaborators-delete #[(api repo user) "\303\304\305\306\307\310\211 \311\"\312\"\310 \313\"\n$$\207" [api repo user gh-api-authenticated-request nil "DELETE" format "/repos/%s/%s/collaborators/%s" eieio-oref :owner :login :name] 10] gh-repos-forks-list #[(api repo &optional recursive) "\305\306\307\310\"!\311\312\313\307\211 \314\"\315\"\307 \316\"#$ \2030\307\n\317\"\320\n\317\321\322\f\323\324\f\"##\210)\n)\207" [api repo resp recursive forks gh-api-authenticated-request gh-object-list-reader eieio-oref repo-cls "GET" format "/repos/%s/%s/forks" :owner :login :name :data eieio-oset apply nconc mapcar #[(f) "\302\303 \304#\305\"\207" [api f eieio-oref gh-repos-forks-list t data] 5]] 10] gh-repos-fork #[(api repo &optional org) "\303\304\305\306\"!\307\310\311\305\211 \312\"\313\"\305 \314\"#\315\n\205 \316\nBC&\207" [api repo org gh-api-authenticated-request gh-object-reader eieio-oref repo-cls "POST" format "/repos/%s/%s/forks" :owner :login :name nil "org"] 10] gh-repos-stargazers #[(api repo) "\302\303\304\305\"!\306\307\310\304\211 \311\"\312\"\304 \313\"#$\207" [api repo gh-api-authenticated-request gh-object-list-reader eieio-oref user-cls "GET" format "/repos/%s/%s/stargazers" :owner :login :name] 10] gh-repos-starred-list #[(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 repo-cls "GET" format "/users/%s/starred" gh-api-get-username] 8] gh-repos-starred-p #[(api repo) "\302\303\304\305\306\307\302\211 \310\"\311\"\302 \312\"#$\313\"\314=\207" [api repo eieio-oref gh-api-authenticated-request nil "GET" format "/user/starred/%s/%s" :owner :login :name :http-status 204] 11] gh-repos-star #[(api repo) "\302\303\304\305\306\307\211 \310\"\311\"\307 \312\"#$\207" [api repo gh-api-authenticated-request nil "PUT" format "/user/starred/%s/%s" eieio-oref :owner :login :name] 10] gh-repos-unstar #[(api repo) "\302\303\304\305\306\307\211 \310\"\311\"\307 \312\"#$\207" [api repo gh-api-authenticated-request nil "DELETE" format "/user/starred/%s/%s" eieio-oref :owner :login :name] 10] gh-repos-watchers #[(api repo) "\302\303\304\305\"!\306\307\310\304\211 \311\"\312\"\304 \313\"#$\207" [api repo gh-api-authenticated-request gh-object-list-reader eieio-oref user-cls "GET" format "/repos/%s/%s/subscribers" :owner :login :name] 10] gh-repos-watched-list #[(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 repo-cls "GET" format "/users/%s/subscriptions" gh-api-get-username] 8] gh-repos-watched-p #[(api repo) "\302\303\304\305\306\307\302\211 \310\"\311\"\302 \312\"#$\313\"\314=\207" [api repo eieio-oref gh-api-authenticated-request nil "GET" format "/user/subscriptions/%s/%s" :owner :login :name :http-status 204] 11] gh-repos-watch #[(api repo) "\302\303\304\305\306\307\211 \310\"\311\"\307 \312\"#$\207" [api repo gh-api-authenticated-request nil "PUT" format "/user/subscriptions/%s/%s" eieio-oref :owner :login :name] 10] gh-repos-unwatch #[(api repo) "\302\303\304\305\306\307\211 \310\"\311\"\307 \312\"#$\207" [api repo gh-api-authenticated-request nil "DELETE" format "/user/subscriptions/%s/%s" eieio-oref :owner :login :name] 10] provide gh-repos] 8)