;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\300\305!\210\300\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" [require eieio gh-api gh-auth gh-comments gh-common gh-repos defalias gh-issues-api-p eieio-make-class-predicate gh-issues-api gh-issues-api--eieio-childp eieio-make-child-predicate gh-issues-api-child-p make-obsolete "use (cl-typep ... \\='gh-issues-api) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (gh-api-v3 gh-comments-api-mixin) ((issue-cls :allocation :class :initform gh-issues-issue) (milestone-cls :allocation :class :initform gh-issues-milestone) (label-cls :allocation :class :initform gh-issues-label) (comment-cls :allocation :class :initform gh-issues-comment)) (:documentation "Github Issues api")] 6) #@52 Create a new object of class type `gh-issues-api'. (defalias 'gh-issues-api #[(&rest slots) "\301\302\303#\207" [slots apply make-instance gh-issues-api] 4 (#$ . 959)]) (byte-code "\300\301\302\303#\300\207" [function-put gh-issues-api compiler-macro gh-issues-api--anon-cmacro] 4) (defalias 'gh-issues-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-issues-issue-p eieio-make-class-predicate gh-issues-issue gh-issues-issue--eieio-childp eieio-make-child-predicate gh-issues-issue-child-p make-obsolete "use (cl-typep ... \\='gh-issues-issue) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (gh-ref-object marshal-base) ((number :initarg :number) (state :initarg :state) (title :initarg :title) (body :initarg :body) (user :initarg :user :initform nil :marshal-type gh-user) (labels :initarg :labels :initform nil :marshal-type (list gh-issues-label)) (assignees :initarg :assignees :initform nil :marshal-type (list gh-user)) (assignee :initarg :assignee :initform nil :marshal-type gh-user) (milestone :initarg :milestone :initform nil :marshal-type gh-issues-milestone) (comments :initarg :comments :initform 0) (pull-request :initarg :pull-request :marshal-type gh-issues-pull-request) (closed-at :initarg :closed-at) (created-at :initarg :created-at) (updated-at :initarg :updated-at)) (:documentation "issues request" :marshal-default-spec gh-marshal-default-spec)] 6) #@54 Create a new object of class type `gh-issues-issue'. (defalias 'gh-issues-issue #[(&rest slots) "\301\302\303#\207" [slots apply make-instance gh-issues-issue] 4 (#$ . 2672)]) (byte-code "\300\301\302\303#\300\207" [function-put gh-issues-issue compiler-macro gh-issues-issue--anon-cmacro] 4) (defalias 'gh-issues-issue--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-issues-issue :marshal-class-slot :-cls :marshal-info ((alist (updated-at . updated_at) (created-at . created_at) (closed-at . closed_at) (pull-request . pull_request) (comments . comments) (milestone . milestone) (assignee . assignee) (assignees . assignees) (labels . labels) (user . user) (body . body) (title . title) (state . state) (number . number))) (gh-ref-object) nil marshal--alist-merge marshal-get-marshal-info t :type-info ((user . gh-user) (labels list gh-issues-label) (assignees list gh-user) (assignee . gh-user) (milestone . gh-issues-milestone) (pull-request . gh-issues-pull-request)) marshal-get-type-info defalias gh-issues-pull-request-p eieio-make-class-predicate gh-issues-pull-request gh-issues-pull-request--eieio-childp eieio-make-child-predicate gh-issues-pull-request-child-p make-obsolete "use (cl-typep ... \\='gh-issues-pull-request) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (gh-object marshal-base) ((html-url :initarg :html-url) (diff-url :initarg :diff-url) (patch-url :initarg :patch-url)) (:marshal-default-spec gh-marshal-default-spec)] 8) #@61 Create a new object of class type `gh-issues-pull-request'. (defalias 'gh-issues-pull-request #[(&rest slots) "\301\302\303#\207" [slots apply make-instance gh-issues-pull-request] 4 (#$ . 4693)]) (byte-code "\300\301\302\303#\300\207" [function-put gh-issues-pull-request compiler-macro gh-issues-pull-request--anon-cmacro] 4) (defalias 'gh-issues-pull-request--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-issues-pull-request :marshal-class-slot :-cls :marshal-info ((alist (patch-url . patch_url) (diff-url . diff_url) (html-url . html_url))) (gh-object) nil marshal--alist-merge marshal-get-marshal-info t :type-info marshal-get-type-info defalias gh-issues-label-p eieio-make-class-predicate gh-issues-label gh-issues-label--eieio-childp eieio-make-child-predicate gh-issues-label-child-p make-obsolete "use (cl-typep ... \\='gh-issues-label) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (gh-ref-object marshal-base) ((name :initarg :name) (color :initarg :color)) (:marshal-default-spec gh-marshal-default-spec)] 8) #@54 Create a new object of class type `gh-issues-label'. (defalias 'gh-issues-label #[(&rest slots) "\301\302\303#\207" [slots apply make-instance gh-issues-label] 4 (#$ . 6287)]) (byte-code "\300\301\302\303#\300\207" [function-put gh-issues-label compiler-macro gh-issues-label--anon-cmacro] 4) (defalias 'gh-issues-label--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\303\323$\210\324\325\326\327!\"\210\324\330\331\327!\"\210\324\332\330\"\210\333\332\334\335#\210\336\327\337\330#\340\327\341\342\343$\207" [cls --dolist-tail-- put gh-issues-label :marshal-class-slot :-cls :marshal-info ((alist (color . color) (name . name))) (gh-ref-object) nil marshal--alist-merge marshal-get-marshal-info t :type-info marshal-get-type-info eieio--defalias gh-issues-label-req-to-update eieio--defgeneric-init-form eieio--defmethod #[(label) "\301\302\303\"B\304\302\305\"BD\207" [label "name" eieio-oref :name "color" :color] 5] defalias gh-issues-milestone-p eieio-make-class-predicate gh-issues-milestone gh-issues-milestone--eieio-childp eieio-make-child-predicate gh-issues-milestone-child-p make-obsolete "use (cl-typep ... \\='gh-issues-milestone) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (gh-ref-object marshal-base) ((number :initarg :number) (state :initarg :state) (title :initarg :title) (description :initarg :description) (creator :initarg :creator :initform nil :marshal-type gh-user) (open-issues :initarg :open-issues) (closed-issues :initarg :closed-issues) (created-at :initarg :created-at) (due-on :initarg :due-on)) (:documentation "github milestone" :marshal-default-spec gh-marshal-default-spec)] 8) #@58 Create a new object of class type `gh-issues-milestone'. (defalias 'gh-issues-milestone #[(&rest slots) "\301\302\303#\207" [slots apply make-instance gh-issues-milestone] 4 (#$ . 8360)]) (byte-code "\300\301\302\303#\300\207" [function-put gh-issues-milestone compiler-macro gh-issues-milestone--anon-cmacro] 4) (defalias 'gh-issues-milestone--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\311\336$\207" [cls --dolist-tail-- put gh-issues-milestone :marshal-class-slot :-cls :marshal-info ((alist (due-on . due_on) (created-at . created_at) (closed-issues . closed_issues) (open-issues . open_issues) (creator . creator) (description . description) (title . title) (state . state) (number . number))) (gh-ref-object) nil marshal--alist-merge marshal-get-marshal-info t :type-info ((creator . gh-user)) marshal-get-type-info defalias gh-issues-comment-p eieio-make-class-predicate gh-issues-comment gh-issues-comment--eieio-childp eieio-make-child-predicate gh-issues-comment-child-p make-obsolete "use (cl-typep ... \\='gh-issues-comment) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (gh-comment marshal-base) (:marshal-default-spec gh-marshal-default-spec)] 8) #@56 Create a new object of class type `gh-issues-comment'. (defalias 'gh-issues-comment #[(&rest slots) "\301\302\303#\207" [slots apply make-instance gh-issues-comment] 4 (#$ . 10052)]) (byte-code "\300\301\302\303#\300\207" [function-put gh-issues-comment compiler-macro gh-issues-comment--anon-cmacro] 4) (defalias 'gh-issues-comment--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\307\211\203, @\302\303\306\311\303\306N\312!\313##\210 A\211\204*\302\303\314\307#\210\310\307\211\203S @\302\303\314\311\303\314N\315!\313##\210 A\211\204;*\316\317\320\317\307\"\"\210\321\317\307\322\323$\210\316\324\320\324\307\"\"\210\321\324\307\322\325$\210\316\326\320\326\307\"\"\210\321\326\307\322\327$\210\316\330\320\330\307\"\"\210\321\330\307\322\331$\210\316\332\320\332\307\"\"\210\321\332\307\322\333$\210\316\334\320\334\307\"\"\210\321\334\307\335\336$\210\316\337\320\337\307\"\"\210\321\337\307\322\340$\210\316\341\320\341\307\"\"\210\321\341\307\342\343$\210\316\344\320\344\307\"\"\210\321\344\307\322\345$\210\316\346\320\346\307\"\"\210\321\346\307\322\347$\210\316\350\320\350\307\"\"\210\321\350\307\322\351$\210\316\352\320\352\307\"\"\210\321\352\307\322\353$\210\316\354\320\354\307\"\"\210\321\354\307\322\355$\210\316\356\320\356\307\"\"\210\321\356\307\322\357$\210\316\360\320\360\307\"\"\210\321\360\307\322\361$\210\316\362\320\362\307\"\"\210\321\362\307\322\363$\210\316\364\320\364\307\"\"\210\321\364\307\322\365$\210\316\366\320\366\307\"\"\210\321\366\307\322\367$\210\316\370\320\370\307\"\"\210\321\370\307\322\371$\210\316\372\320\372\307\"\"\210\321\372\307\322\373$\210\316\374\320\374\307\"\"\210\321\374\307\322\375$\210\316\376\320\376\307\"\"\210\321\376\307\322\377$\210\316\201@\320\201@\307\"\"\210\321\201@\307\322\201A$\210\316\201B\320\201B\307\"\"\210\321\201B\307\322\201C$\207" [cls --dolist-tail-- put gh-issues-comment :marshal-class-slot :-cls :marshal-info nil (gh-comment) marshal--alist-merge marshal-get-marshal-info t :type-info marshal-get-type-info eieio--defalias gh-issues-issue-list eieio--defgeneric-init-form eieio--defmethod gh-issues-api #[(api user repo) "\303\304\305\306\"!\307\310\311 \n#$\207" [api user repo gh-api-authenticated-request gh-object-list-reader eieio-oref issue-cls "GET" format "/repos/%s/%s/issues"] 8] gh-issues-milestone-list #[(api user repo) "\303\304\305\306\"!\307\310\311 \n#$\207" [api user repo gh-api-authenticated-request gh-object-list-reader eieio-oref milestone-cls "GET" format "/repos/%s/%s/milestones"] 8] gh-issues-milestone-get #[(api user repo id) "\304\305\306\307\"!\310\311\312 \n $$\207" [api user repo id gh-api-authenticated-request gh-object-reader eieio-oref milestone-cls "GET" format "/repos/%s/%s/milestones/%s"] 9] gh-issues-milestone-new #[(api user repo milestone) "\304\305\306\307\"!\310\311\312 \n#\313 !%\207" [api user repo milestone gh-api-authenticated-request gh-object-reader eieio-oref milestone-cls "POST" format "/repos/%s/%s/milestones" gh-issues-milestone-req-to-update] 8] gh-issues-milestone-update #[(api user repo id milestone) "\305\306\307\310\"!\311\312\313 \n $\314\f!%\207" [api user repo id milestone gh-api-authenticated-request gh-object-reader eieio-oref milestone-cls "PATCH" format "/repos/%s/%s/milestones/%s" gh-issues-milestone-req-to-update] 9] gh-issues-milestone-req-to-update gh-issues-milestone #[(milestone) "\305\306\"\305\307\"\305\310\"\311\305\312\"BC\211\203\" \313\fBC\244\210 \203- \314 BC\244\210\n\2038 \315\nBC\244\210 ,\207" [milestone to-update due-on description state eieio-oref :state :description :due-on "title" :title "state" "description" "due_on"] 8] gh-issues-issue-get #[(api user repo id) "\304\305\306\307\"!\310\311\312 \n $$\207" [api user repo id gh-api-authenticated-request gh-object-reader eieio-oref issue-cls "GET" format "/repos/%s/%s/issues/%s"] 9] gh-issues-issue-req-to-update gh-issues-issue #[(req) "\304\305\"\304\306\"\307\304\310\"B\311\304\312\"B\313\304\314\"BE\n\203, \315\304\n\316\"BC\244\210 \203: \317\304 \320\"BC\244\210 +\207" [req to-update milestone assignee eieio-oref :assignee :milestone "title" :title "state" :state "body" :body "milestone" :number "assignee" :login] 8] gh-issues-issue-update #[(api user repo id req) "\305\306\307\310\"!\311\312\313 \n $\314\f!%\207" [api user repo id req gh-api-authenticated-request gh-object-reader eieio-oref issue-cls "PATCH" format "/repos/%s/%s/issues/%s" gh-issues-issue-req-to-update] 9] gh-issues-issue-new #[(api user repo issue) "\304\305\306\307\"!\310\311\312 \n#\313 !%\207" [api user repo issue gh-api-authenticated-request gh-object-reader eieio-oref issue-cls "POST" format "/repos/%s/%s/issues" gh-issues-issue-req-to-update] 8] gh-issues-label-get #[(api user repo name) "\304\305\306\307\"!\310\311\312 \n $$\207" [api user repo name gh-api-authenticated-request gh-object-reader eieio-oref label-cls "GET" format "/repos/%s/%s/labels/%s"] 9] gh-issues-label-list #[(api user repo) "\303\304\305\306\"!\307\310\311 \n#$\207" [api user repo gh-api-authenticated-request gh-object-list-reader eieio-oref label-cls "GET" format "/repos/%s/%s/labels"] 8] gh-issues-label-new #[(api user repo req) "\304\305\306\307\"!\310\311\312 \n#\313 !%\207" [api user repo req gh-api-authenticated-request gh-object-reader eieio-oref label-cls "POST" format "/repos/%s/%s/labels" gh-issues-label-req-to-update] 8] gh-issues-label-update #[(api user repo req) "\304\305\306\307\"!\310\311\312 \n\306 \313\"$\314 !%\207" [api user repo req gh-api-authenticated-request gh-object-reader eieio-oref label-cls "POST" format "/repos/%s/%s/labels/%s" :name gh-issues-label-req-to-update] 11] gh-issues-label-delete #[(api user repo name) "\304\305\306\307\"!\310\311\312 \n $$\207" [api user repo name gh-api-authenticated-request gh-object-reader eieio-oref label-cls "DELETE" format "/repos/%s/%s/labels/%s"] 9] gh-issues-labels-in-issue #[(api user repo issue-or-issue-id) "\305!\306\n\307\310\n\311\"!\312\313\314 \f $$)\207" [issue-or-issue-id issue-id api user repo gh-issues--issue-id gh-api-authenticated-request gh-object-list-reader eieio-oref label-cls "GET" format "/repos/%s/%s/issues/%s/labels"] 9] gh-issues-labels-add-to-issue #[(api user repo issue-or-issue-id labels) "\306!\307\n\310\311\n\312\"!\313\314\315 \f $\316\317 \"%)\207" [issue-or-issue-id issue-id api user repo labels gh-issues--issue-id gh-api-authenticated-request gh-object-list-reader eieio-oref label-cls "PUT" format "/repos/%s/%s/issues/%s/labels" mapcar gh-issues--label-name] 9] gh-issues-labels-remove-all-from-issue #[(api user repo issue-or-issue-id) "\305!\306\n\307\310\311\312 \f $$)\207" [issue-or-issue-id issue-id api user repo gh-issues--issue-id gh-api-authenticated-request #[(x) "\207" [x] 1] "DELETE" format "/repos/%s/%s/issues/%s/labels"] 9] gh-issues-labels-in-milestone #[(api user repo milestone-or-milestone-id) "\305!\306\n\307\310\n\311\"!\312\313\314 \f $$)\207" [milestone-or-milestone-id milestone-id api user repo gh-issues--milestone-id gh-api-authenticated-request gh-object-list-reader eieio-oref label-cls "GET" format "/repos/%s/%s/milestones/%s/labels"] 9] gh-issues-comments-list #[(api user repo issue-id) "\304\305\306 \n $\"\207" [api user repo issue-id gh-comments-list format "/repos/%s/%s/issues/%s"] 7] gh-issues-comments-get #[(api user repo comment-id) "\304\305\306 \n# #\207" [api user repo comment-id gh-comments-get format "/repos/%s/%s/issues"] 6] gh-issues-comments-update #[(api user repo comment-id comment) "\305\306\307 \n# \f$\207" [api user repo comment-id comment gh-comments-update format "/repos/%s/%s/issues"] 6] gh-issues-comments-new #[(api user repo issue-id comment) "\305\306\307 \n $\f#\207" [api user repo issue-id comment gh-comments-new format "/repos/%s/%s/issues/%s"] 7] gh-issues-comments-delete #[(api user repo comment-id) "\304\305\306 \n# #\207" [api user repo comment-id gh-comments-delete format "/repos/%s/%s/issues"] 6]] 8) (defalias 'gh-issues--issue-id #[(issue-or-issue-id) "\301!\203 \302\303\"\207\207" [issue-or-issue-id eieio-object-p eieio-oref :id] 3]) (defalias 'gh-issues--milestone-id #[(milestone-or-milestone-id) "\301!\203 \302\303\"\207\207" [milestone-or-milestone-id eieio-object-p eieio-oref :id] 3]) (defalias 'gh-issues--label-name #[(label-or-label-name) "\301!\203 \302\303\"\207\207" [label-or-label-name eieio-object-p eieio-oref :name] 3]) (provide 'gh-issues)