;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-pulls-cache-p eieio-make-class-predicate gh-pulls-cache gh-pulls-cache--eieio-childp eieio-make-child-predicate gh-pulls-cache-child-p make-obsolete "use (cl-typep ... \\='gh-pulls-cache) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (gh-cache) ((invalidation-chain :allocation :class :initform '(("^/repos/.*/.*/pulls$" . "") ("^/repos/.*/.*/pulls/.*$" . "")))) nil] 6) #@53 Create a new object of class type `gh-pulls-cache'. (defalias 'gh-pulls-cache #[(&rest slots) "\301\302\303#\207" [slots apply make-instance gh-pulls-cache] 4 (#$ . 786)]) (byte-code "\300\301\302\303#\300\207" [function-put gh-pulls-cache compiler-macro gh-pulls-cache--anon-cmacro] 4) (defalias 'gh-pulls-cache--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-pulls-api-p eieio-make-class-predicate gh-pulls-api gh-pulls-api--eieio-childp eieio-make-child-predicate gh-pulls-api-child-p make-obsolete "use (cl-typep ... \\='gh-pulls-api) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (gh-api-v3 gh-comments-api-mixin) ((cache-cls :allocation :class :initform gh-pulls-cache) (req-cls :allocation :class :initform gh-pulls-request) (comment-cls :allocation :class :initform gh-pulls-comment)) (:documentation "Git pull requests API")] 6) #@51 Create a new object of class type `gh-pulls-api'. (defalias 'gh-pulls-api #[(&rest slots) "\301\302\303#\207" [slots apply make-instance gh-pulls-api] 4 (#$ . 1959)]) (byte-code "\300\301\302\303#\300\207" [function-put gh-pulls-api compiler-macro gh-pulls-api--anon-cmacro] 4) (defalias 'gh-pulls-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-pulls-comment-p eieio-make-class-predicate gh-pulls-comment gh-pulls-comment--eieio-childp eieio-make-child-predicate gh-pulls-comment-child-p make-obsolete "use (cl-typep ... \\='gh-pulls-comment) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (gh-comment marshal-base) ((path :initarg :path) (diff-hunk :initarg :diff-hunk) (position :initarg :position) (original-position :initarg :original-position) (commit-id :initarg :commit-id) (original-commit-id :initarg :original-commit-id) (in-reply-to :initarg :in-reply-to :initform nil)) (:marshal-default-spec gh-marshal-default-spec)] 6) #@55 Create a new object of class type `gh-pulls-comment'. (defalias 'gh-pulls-comment #[(&rest slots) "\301\302\303#\207" [slots apply make-instance gh-pulls-comment] 4 (#$ . 3232)]) (byte-code "\300\301\302\303#\300\207" [function-put gh-pulls-comment compiler-macro gh-pulls-comment--anon-cmacro] 4) (defalias 'gh-pulls-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\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-pulls-comment :marshal-class-slot :-cls :marshal-info ((alist (in-reply-to . in_reply_to) (original-commit-id . original_commit_id) (commit-id . commit_id) (original-position . original_position) (position . position) (diff-hunk . diff_hunk) (path . path))) (gh-comment) nil marshal--alist-merge marshal-get-marshal-info t :type-info marshal-get-type-info eieio--defalias gh-pulls-comment-req-to-create eieio--defgeneric-init-form eieio--defmethod #[(req) "\303\302\"\304\303\305\"BC\211\203 \306\nBC\244\210\2021 \307\303\310\"B\311\303\312\"B\313\303\314\"BE\244\210 *\207" [req to-update in-reply-to eieio-oref "body" body "in_reply_to" "commit_id" commit-id "path" path "position" position] 8] defalias gh-pulls-request-stub-p eieio-make-class-predicate gh-pulls-request-stub gh-pulls-request-stub--eieio-childp eieio-make-child-predicate gh-pulls-request-stub-child-p make-obsolete "use (cl-typep ... \\='gh-pulls-request-stub) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (gh-ref-object marshal-base) ((diff-url :initarg :diff-url) (patch-url :initarg :patch-url) (issue-url :initarg :issue-url) (number :initarg :number) (state :initarg :state) (title :initarg :title) (body :initarg :body) (created-at :initarg :created-at) (updated-at :initarg :updated-at) (closed-at :initarg :closed-at) (merged-at :initarg :merged-at) (head :initarg :head :initform nil :marshal-type gh-repos-ref) (base :initarg :base :initform nil :marshal-type gh-repos-ref)) (:marshal-default-spec gh-marshal-default-spec)] 8) #@60 Create a new object of class type `gh-pulls-request-stub'. (defalias 'gh-pulls-request-stub #[(&rest slots) "\301\302\303#\207" [slots apply make-instance gh-pulls-request-stub] 4 (#$ . 5748)]) (byte-code "\300\301\302\303#\300\207" [function-put gh-pulls-request-stub compiler-macro gh-pulls-request-stub--anon-cmacro] 4) (defalias 'gh-pulls-request-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\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-pulls-request-stub :marshal-class-slot :-cls :marshal-info ((alist (base . base) (head . head) (merged-at . merged_at) (closed-at . closed_at) (updated-at . updated_at) (created-at . created_at) (body . body) (title . title) (state . state) (number . number) (issue-url . issue_url) (patch-url . patch_url) (diff-url . diff_url))) (gh-ref-object) nil marshal--alist-merge marshal-get-marshal-info t :type-info ((head . gh-repos-ref) (base . gh-repos-ref)) marshal-get-type-info defalias gh-pulls-request-p eieio-make-class-predicate gh-pulls-request gh-pulls-request--eieio-childp eieio-make-child-predicate gh-pulls-request-child-p make-obsolete "use (cl-typep ... \\='gh-pulls-request) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (gh-pulls-request-stub marshal-base) ((merged :initarg :merged) (mergeable :initarg :mergeable) (merged-by :initarg :merged-by) (comments :initarg :comments) (user :initarg :user :initform nil :marshal-type gh-user) (commits :initarg :commits) (additions :initarg :additions) (deletions :initarg :deletions) (changed-files :initarg :changed-files)) (:documentation "Git pull requests API" :marshal-default-spec gh-marshal-default-spec)] 8) #@55 Create a new object of class type `gh-pulls-request'. (defalias 'gh-pulls-request #[(&rest slots) "\301\302\303#\207" [slots apply make-instance gh-pulls-request] 4 (#$ . 7895)]) (byte-code "\300\301\302\303#\300\207" [function-put gh-pulls-request compiler-macro gh-pulls-request--anon-cmacro] 4) (defalias 'gh-pulls-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\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\331\332$\210\320\333\322\333\311\"\"\210\323\333\311\331\334$\210\320\335\322\335\311\"\"\210\323\335\311\331\336$\210\320\337\322\337\311\"\"\210\323\337\311\331\340$\210\320\341\322\341\311\"\"\210\323\341\311\331\342$\210\320\343\322\343\311\"\"\210\323\343\311\331\344$\210\320\345\322\345\311\"\"\210\323\345\311\331\346$\210\320\347\322\347\311\"\"\210\323\347\311\331\350$\210\320\351\322\351\311\"\"\210\323\351\311\331\352$\210\353\354!\207" [cls --dolist-tail-- put gh-pulls-request :marshal-class-slot :-cls :marshal-info ((alist (changed-files . changed_files) (deletions . deletions) (additions . additions) (commits . commits) (user . user) (comments . comments) (merged-by . merged_by) (mergeable . mergeable) (merged . merged))) (gh-pulls-request-stub) nil marshal--alist-merge marshal-get-marshal-info t :type-info ((user . gh-user)) marshal-get-type-info eieio--defalias gh-pulls-req-to-new eieio--defgeneric-init-form eieio--defmethod #[(req) "\303\304\"\303\305\"\306\303\307\"B\310\303\311\"B\312\303\n\313\"\206\"\303\n\314\"B\315\303 \313\"\206/\303 \314\"BF*\207" [req base head eieio-oref :head :base "title" :title "body" :body "head" :ref :sha "base"] 7] gh-pulls-req-to-update gh-pulls-request-stub #[(req) "\301\302\303\"B\304\302\305\"B\306\302\307\"BE\207" [req "title" eieio-oref :title "body" :body "state" :state] 6] gh-pulls-list gh-pulls-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 req-cls "GET" format "/repos/%s/%s/pulls"] 8] gh-pulls-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 req-cls "GET" format "/repos/%s/%s/pulls/%s"] 9] gh-pulls-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 req-cls "POST" format "/repos/%s/%s/pulls" gh-pulls-req-to-new] 8] gh-pulls-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 req-cls "PATCH" format "/repos/%s/%s/pulls/%s" gh-pulls-req-to-update] 9] gh-pulls-comments-list #[(api user repo pull-id) "\304\305\306 \n $\"\207" [api user repo pull-id gh-comments-list format "/repos/%s/%s/pulls/%s"] 7] gh-pulls-comments-get #[(api user repo comment-id) "\304\305\306 \n# #\207" [api user repo comment-id gh-comments-get format "/repos/%s/%s/pulls"] 6] gh-pulls-comments-update #[(api user repo comment-id comment) "\305\306\307 \n# \310\f!$\207" [api user repo comment-id comment gh-comments-update format "/repos/%s/%s/pulls" gh-comment-req-to-update] 6] gh-pulls-comments-new #[(api user repo pull-id comment) "\305\306\307 \n $\310\f!#\207" [api user repo pull-id comment gh-comments-new format "/repos/%s/%s/pulls/%s" gh-pulls-comment-req-to-create] 7] gh-pulls-comments-delete #[(api user repo comment-id) "\304\305\306 \n# #\207" [api user repo comment-id gh-comments-delete format "/repos/%s/%s/pulls"] 6] provide gh-pulls] 8)