;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\303\304\305\"\210\303\306\305\"\210\307\310\311\312\313\314%\210\315\316\311\317\320\321\313\310&\207" [require eieio marshal autoload gh-profile-current-profile "gh-profile" gh-profile-default-profile custom-declare-group gh nil "Github API client libraries." :group applications custom-declare-variable gh-use-local-git-config "If `t' use git configuration from the machine running\nEmacs. This makes a difference when running with TRAMP." :type boolean] 8) (defalias 'gh-read #[(obj field) "\302 \"A\207" [field obj assoc] 3]) (defalias 'gh-namespaced-key #[(key) "\302 \303\304 \230\203\305\202\306P Q)\207" [profile key gh-profile-current-profile "github." gh-profile-default-profile "" "."] 3]) #@61 Returns a GitHub specific value from the global Git config. (defalias 'gh-config #[(key) "\302\211\303\304\305 !\"!)\207" [strip key #[(string) "G\301V\205 \301GSO\207" [string 0] 3] gh-command-to-string "config" gh-namespaced-key] 6 (#$ . 836)]) #@56 Sets a GitHub specific value to the global Git config. (defalias 'gh-set-config #[(key value) "\302\303\304\305! $\207" [key value gh-command-to-string "config" "--global" gh-namespaced-key] 5 (#$ . 1094)]) (defalias 'gh-command-to-string #[(&rest args) "\305\306!\203 \307\202\f\310\311\312\313\"\314\216 \315 \n\316 \316\f&\210)r q\210\317 -\207" [gh-use-local-git-config runner git standard-output args executable-find "git" call-process process-file generate-new-buffer " *string-output*" t #[nil "\301!\207" [standard-output kill-buffer] 2] apply nil buffer-string] 7]) #@119 Remove all non-unicode characters. This can be used to sanitize API calls that need to handle potentially dirty data. (defalias 'gh-sanitize-content #[(content) "\303\211\304\305\n\"\210\203\306\307!\210\310\311 \237\"*\207" [skipped res content nil mapc #[(c) "\303\304\"\305=\203 \306\211\207\nB\211\207" [c skipped res get-char-code-property general-category Cn t] 3] warn "Content contained non-unicode characters" apply string] 3 (#$ . 1686)]) (defalias 'gh-marshal-default-spec #[(slot) "\302!\303\304\305\306\307 #!)BC\207" [slot slot-name symbol-name alist intern replace-regexp-in-string "-" "_"] 6]) (defalias 'gh-defclass '(macro . #[(name superclass slots &rest options-and-doc) "\304 \n\305 \306\"BBBB\207" [name superclass slots options-and-doc marshal-defclass append (:marshal-default-spec gh-marshal-default-spec)] 7])) (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-object-p eieio-make-class-predicate gh-object gh-object--eieio-childp eieio-make-child-predicate gh-object-child-p make-obsolete "use (cl-typep ... \\='gh-object) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (marshal-base) nil (:marshal-default-spec gh-marshal-default-spec)] 6) #@48 Create a new object of class type `gh-object'. (defalias 'gh-object #[(&rest slots) "\301\302\303#\207" [slots apply make-instance gh-object] 4 (#$ . 3010)]) (byte-code "\300\301\302\303#\300\207" [function-put gh-object compiler-macro gh-object--anon-cmacro] 4) (defalias 'gh-object--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\307\211\211\203, @\302\303\306\310\303\306N\311!\312##\210 A\211\204*\302\303\313\307#\210\307\211\211\203S @\302\303\313\310\303\313N\314!\312##\210 A\211\204;*\315\316\317\316\307\"\"\210\320\316\321\303\322$\210\315\323\317\323\307\"\"\210\320\323\321\303\324$\210\315\325\317\325\307\"\"\210\320\325\321\303\326$\210\315\327\317\327\307\"\"\210\320\327\321\303\330$\210\315\331\317\331\307\"\"\210\320\331\307\303\332$\210\315\333\317\333\307\"\"\210\320\333\307\303\334$\210\335\336\337\340!\"\210\335\341\342\340!\"\210\335\343\341\"\210\344\343\345\346#\210\347\340\350\341#\351\340\352\353\354$\207" [cls --dolist-tail-- put gh-object :marshal-class-slot :-cls :marshal-info nil marshal--alist-merge marshal-get-marshal-info t :type-info marshal-get-type-info eieio--defalias gh-object-read eieio--defgeneric-init-form eieio--defmethod :static #[(obj data) "\303!\203\n\202 \304!\n\203\305 \n\"\210 )\207" [obj target data object-p make-instance gh-object-read-into] 3] gh-object-reader #[(obj) "\301\302\"\207" [obj apply-partially gh-object-read] 3] gh-object-list-read #[(obj data) "\302\303! \"\207" [obj data mapcar gh-object-reader] 3] gh-object-list-reader #[(obj) "\301\302\"\207" [obj apply-partially gh-object-list-read] 3] gh-object-read-into #[(obj data) "\302 \303#\207" [obj data unmarshal alist] 4] slot-unbound #[(obj cls slot-name fn) "\301=?\205 \302 \207" [fn oref call-next-method] 2] defalias gh-ref-object-p eieio-make-class-predicate gh-ref-object gh-ref-object--eieio-childp eieio-make-child-predicate gh-ref-object-child-p make-obsolete "use (cl-typep ... \\='gh-ref-object) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (gh-object marshal-base) ((id :initarg :id) (url :initarg :url) (html-url :initarg :html-url)) (:marshal-default-spec gh-marshal-default-spec)] 8) #@52 Create a new object of class type `gh-ref-object'. (defalias 'gh-ref-object #[(&rest slots) "\301\302\303#\207" [slots apply make-instance gh-ref-object] 4 (#$ . 5408)]) (byte-code "\300\301\302\303#\300\207" [function-put gh-ref-object compiler-macro gh-ref-object--anon-cmacro] 4) (defalias 'gh-ref-object--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\317\320\321\320\311\"\"\210\322\320\311\211\324$\210\325\326\327\330!\"\210\325\331\332\330!\"\210\325\333\331\"\210\334\333\335\336#\210\337\330\340\331#\341\330\342\343\344$\207" [cls --dolist-tail-- put gh-ref-object :marshal-class-slot :-cls :marshal-info ((alist (html-url . html_url) (url . url) (id . id))) (gh-object) nil marshal--alist-merge marshal-get-marshal-info t :type-info marshal-get-type-info eieio--defalias gh-ref-object-base eieio--defgeneric-init-form eieio--defmethod #[(obj) "\302\303\"\304\305\306\307 \304\310#AA\304#P)\207" [obj url eieio-oref :url "/" mapconcat identity split-string t] 7] #[(obj) ";\203\207\301\302!\207" [obj error "illegal input for `gh-ref-object-base'"] 2] defalias gh-user-p eieio-make-class-predicate gh-user gh-user--eieio-childp eieio-make-child-predicate gh-user-child-p make-obsolete "use (cl-typep ... \\='gh-user) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (gh-ref-object marshal-base) ((login :initarg :login) (gravatar-url :initarg :gravatar-url)) (:documentation "Github user object" :marshal-default-spec gh-marshal-default-spec)] 8) #@46 Create a new object of class type `gh-user'. (defalias 'gh-user #[(&rest slots) "\301\302\303#\207" [slots apply make-instance gh-user] 4 (#$ . 7335)]) (byte-code "\300\301\302\303#\300\207" [function-put gh-user compiler-macro gh-user--anon-cmacro] 4) (defalias 'gh-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\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-user :marshal-class-slot :-cls :marshal-info ((alist (gravatar-url . gravatar_url) (login . login))) (gh-ref-object) nil marshal--alist-merge marshal-get-marshal-info t :type-info marshal-get-type-info defalias gh-comment-p eieio-make-class-predicate gh-comment gh-comment--eieio-childp eieio-make-child-predicate gh-comment-child-p make-obsolete "use (cl-typep ... \\='gh-comment) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (gh-ref-object marshal-base) ((body :initarg :body) (user :initarg :user :initform nil :marshal-type gh-user) (created-at :initarg :created_at) (updated-at :initarg :updated_at)) (:documentation "Github comment object" :marshal-default-spec gh-marshal-default-spec)] 8) #@49 Create a new object of class type `gh-comment'. (defalias 'gh-comment #[(&rest slots) "\301\302\303#\207" [slots apply make-instance gh-comment] 4 (#$ . 8922)]) (byte-code "\300\301\302\303#\300\207" [function-put gh-comment compiler-macro gh-comment--anon-cmacro] 4) (defalias 'gh-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\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\325\326!\207" [cls --dolist-tail-- put gh-comment :marshal-class-slot :-cls :marshal-info ((alist (updated-at . updated_at) (created-at . created_at) (user . user) (body . body))) (gh-ref-object) nil marshal--alist-merge marshal-get-marshal-info t :type-info ((user . gh-user)) marshal-get-type-info eieio--defalias gh-comment-req-to-update eieio--defgeneric-init-form eieio--defmethod #[(req) "\301\302\303\"BC\207" [req "body" eieio-oref :body] 4] provide gh-common] 8)