;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-gist-api-p eieio-make-class-predicate gh-gist-api gh-gist-api--eieio-childp eieio-make-child-predicate gh-gist-api-child-p make-obsolete "use (cl-typep ... \\='gh-gist-api) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (gh-api-v3) ((gist-cls :allocation :class :initform gh-gist-gist)) (:documentation "Gist API")] 6) #@50 Create a new object of class type `gh-gist-api'. (defalias 'gh-gist-api #[(&rest slots) "\301\302\303#\207" [slots apply make-instance gh-gist-api] 4 (#$ . 684)]) (byte-code "\300\301\302\303#\300\207" [function-put gh-gist-api compiler-macro gh-gist-api--anon-cmacro] 4) (defalias 'gh-gist-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-gist-gist-stub-p eieio-make-class-predicate gh-gist-gist-stub gh-gist-gist-stub--eieio-childp eieio-make-child-predicate gh-gist-gist-stub-child-p make-obsolete "use (cl-typep ... \\='gh-gist-gist-stub) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (gh-object marshal-base) ((files :initarg :files :type list :initform nil :marshal-type (list gh-gist-gist-file)) (public :initarg :public :marshal-type bool) (description :initarg :description)) (:documentation "Class for user-created gist objects" :marshal-default-spec gh-marshal-default-spec)] 6) #@56 Create a new object of class type `gh-gist-gist-stub'. (defalias 'gh-gist-gist-stub #[(&rest slots) "\301\302\303#\207" [slots apply make-instance gh-gist-gist-stub] 4 (#$ . 1912)]) (byte-code "\300\301\302\303#\300\207" [function-put gh-gist-gist-stub compiler-macro gh-gist-gist-stub--anon-cmacro] 4) (defalias 'gh-gist-gist-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-gist-gist-stub :marshal-class-slot :-cls :marshal-info ((alist (description . description) (public . public) (files . files))) (gh-object) nil marshal--alist-merge marshal-get-marshal-info t :type-info ((files list gh-gist-gist-file) (public . bool)) marshal-get-type-info defalias gh-gist-history-change-p eieio-make-class-predicate gh-gist-history-change gh-gist-history-change--eieio-childp eieio-make-child-predicate gh-gist-history-change-child-p make-obsolete "use (cl-typep ... \\='gh-gist-history-change) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (gh-object marshal-base) ((total :initarg :total) (additions :initarg :additions) (deletions :initarg :deletions)) (:marshal-default-spec gh-marshal-default-spec)] 8) #@61 Create a new object of class type `gh-gist-history-change'. (defalias 'gh-gist-history-change #[(&rest slots) "\301\302\303#\207" [slots apply make-instance gh-gist-history-change] 4 (#$ . 3587)]) (byte-code "\300\301\302\303#\300\207" [function-put gh-gist-history-change compiler-macro gh-gist-history-change--anon-cmacro] 4) (defalias 'gh-gist-history-change--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-gist-history-change :marshal-class-slot :-cls :marshal-info ((alist (deletions . deletions) (additions . additions) (total . total))) (gh-object) nil marshal--alist-merge marshal-get-marshal-info t :type-info marshal-get-type-info defalias gh-gist-history-entry-p eieio-make-class-predicate gh-gist-history-entry gh-gist-history-entry--eieio-childp eieio-make-child-predicate gh-gist-history-entry-child-p make-obsolete "use (cl-typep ... \\='gh-gist-history-entry) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (gh-object marshal-base) ((user :initarg :user :initform nil :marshal-type gh-user) (version :initarg :version) (committed :initarg :committed :marshal ((alist . committed_at))) (change :initarg :change :marshal ((alist . change_status)) :marshal-type gh-gist-history-change) (url :initarg :url)) (:marshal-default-spec gh-marshal-default-spec)] 8) #@60 Create a new object of class type `gh-gist-history-entry'. (defalias 'gh-gist-history-entry #[(&rest slots) "\301\302\303#\207" [slots apply make-instance gh-gist-history-entry] 4 (#$ . 5427)]) (byte-code "\300\301\302\303#\300\207" [function-put gh-gist-history-entry compiler-macro gh-gist-history-entry--anon-cmacro] 4) (defalias 'gh-gist-history-entry--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-gist-history-entry :marshal-class-slot :-cls :marshal-info ((alist (url . url) (change . change_status) (committed . committed_at) (version . version) (user . user))) (gh-object) nil marshal--alist-merge marshal-get-marshal-info t :type-info ((user . gh-user) (change . gh-gist-history-change)) marshal-get-type-info defalias gh-gist-fork-entry-p eieio-make-class-predicate gh-gist-fork-entry gh-gist-fork-entry--eieio-childp eieio-make-child-predicate gh-gist-fork-entry-child-p make-obsolete "use (cl-typep ... \\='gh-gist-fork-entry) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (gh-ref-object marshal-base) ((user :initarg :user :initform nil :marshal-type gh-user) (created :initarg :created :marshal ((alist . created_at))) (updated :initarg :updated :marshal ((alist . updated_at)))) (:marshal-default-spec gh-marshal-default-spec)] 8) #@57 Create a new object of class type `gh-gist-fork-entry'. (defalias 'gh-gist-fork-entry #[(&rest slots) "\301\302\303#\207" [slots apply make-instance gh-gist-fork-entry] 4 (#$ . 7244)]) (byte-code "\300\301\302\303#\300\207" [function-put gh-gist-fork-entry compiler-macro gh-gist-fork-entry--anon-cmacro] 4) (defalias 'gh-gist-fork-entry--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-gist-fork-entry :marshal-class-slot :-cls :marshal-info ((alist (updated . updated_at) (created . created_at) (user . user))) (gh-ref-object) nil marshal--alist-merge marshal-get-marshal-info t :type-info ((user . gh-user)) marshal-get-type-info defalias gh-gist-gist-p eieio-make-class-predicate gh-gist-gist gh-gist-gist--eieio-childp eieio-make-child-predicate gh-gist-gist-child-p make-obsolete "use (cl-typep ... \\='gh-gist-gist) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (gh-ref-object gh-gist-gist-stub marshal-base) ((date :initarg :date :marshal ((alist . created_at))) (update :initarg :update :marshal ((alist . updated_at))) (push-url :initarg :push-url :marshal ((alist . git_push_url))) (pull-url :initarg :pull-url :marshal ((alist . git_pull_url))) (comments :initarg :comments) (user :initarg :user :initform nil :marshal-type gh-user :marshal ((alist . owner))) (history :initarg :history :initform nil :type list :marshal-type (list gh-gist-history-entry)) (forks :initarg :forks :initform nil :type list :marshal-type (list gh-gist-fork-entry))) (:documentation "Gist object" :marshal-default-spec gh-marshal-default-spec)] 8) #@51 Create a new object of class type `gh-gist-gist'. (defalias 'gh-gist-gist #[(&rest slots) "\301\302\303#\207" [slots apply make-instance gh-gist-gist] 4 (#$ . 9351)]) (byte-code "\300\301\302\303#\300\207" [function-put gh-gist-gist compiler-macro gh-gist-gist--anon-cmacro] 4) (defalias 'gh-gist-gist--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-gist-gist :marshal-class-slot :-cls :marshal-info ((alist (forks . forks) (history . history) (user . owner) (comments . comments) (pull-url . git_pull_url) (push-url . git_push_url) (update . updated_at) (date . created_at))) (gh-ref-object gh-gist-gist-stub) nil marshal--alist-merge marshal-get-marshal-info t :type-info ((user . gh-user) (history list gh-gist-history-entry) (forks list gh-gist-fork-entry)) marshal-get-type-info defalias gh-gist-gist-file-p eieio-make-class-predicate gh-gist-gist-file gh-gist-gist-file--eieio-childp eieio-make-child-predicate gh-gist-gist-file-child-p make-obsolete "use (cl-typep ... \\='gh-gist-gist-file) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (gh-object marshal-base) ((filename :initarg :filename) (size :initarg :size) (url :initarg :url :marshal ((alist . raw_url))) (content :initarg :content)) (:marshal-default-spec gh-marshal-default-spec)] 8) #@56 Create a new object of class type `gh-gist-gist-file'. (defalias 'gh-gist-gist-file #[(&rest slots) "\301\302\303#\207" [slots apply make-instance gh-gist-gist-file] 4 (#$ . 11173)]) (byte-code "\300\301\302\303#\300\207" [function-put gh-gist-gist-file compiler-macro gh-gist-gist-file--anon-cmacro] 4) (defalias 'gh-gist-gist-file--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\323\303\324$\210\317\325\321\325\311\"\"\210\322\325\311\326\327$\210\317\330\321\330\311\"\"\210\322\330\311\326\331$\210\317\332\321\332\311\"\"\210\322\332\311\303\333$\210\317\334\321\334\311\"\"\210\322\334\311\335\336$\210\317\337\321\337\311\"\"\210\322\337\311\335\340$\210\317\341\321\341\311\"\"\210\322\341\311\335\342$\210\317\343\321\343\311\"\"\210\322\343\311\335\344$\210\317\345\321\345\311\"\"\210\322\345\311\335\346$\210\317\347\321\347\311\"\"\210\322\347\311\335\350$\210\317\351\321\351\311\"\"\210\322\351\311\335\352$\210\317\353\321\353\311\"\"\210\322\353\311\335\354$\210\317\355\321\355\311\"\"\210\322\355\311\335\356$\210\317\357\321\357\311\"\"\210\322\357\311\335\360$\210\361\362!\207" [cls --dolist-tail-- put gh-gist-gist-file :marshal-class-slot :-cls :marshal-info ((alist (content . content) (url . raw_url) (size . size) (filename . filename))) (gh-object) nil marshal--alist-merge marshal-get-marshal-info t :type-info marshal-get-type-info eieio--defalias constructor eieio--defgeneric-init-form eieio--defmethod :static #[(file &rest args) "\301 \302\303\"\203\304\303\305\302\303\"!#\210)\207" [obj call-next-method eieio-oref :content eieio-oset gh-sanitize-content] 7] gh-gist-gist-to-obj gh-gist-gist-stub #[(gist) "\302\303\304\305\"\"\306\304\307\"B\310\304\311\"B \205\312 BC)BB\207" [gist files mapcar gh-gist-gist-file-to-obj eieio-oref :files "description" :description "public" :public "files"] 5] gh-gist-gist-has-files #[(gist) "\301\302\303\304\305\"\">?\207" [gist nil mapcar #[(f) "\301\302\"\207" [f eieio-oref :content] 3] eieio-oref :files] 6] gh-gist-gist-file-to-obj #[(file) "\303\304\"\303\305\"\211\205\306 B\307\nBD +B\207" [file filename content eieio-oref :filename :content "filename" "content"] 4] gh-gist-list gh-gist-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 gist-cls "GET" format "/users/%s/gists" gh-api-get-username] 8] gh-gist-list-public #[(api) "\301\302\303\304\"!\305\306$\207" [api gh-api-authenticated-request gh-object-list-reader eieio-oref gist-cls "GET" "/gists/public"] 6] gh-gist-list-starred #[(api) "\301\302\303\304\"!\305\306$\207" [api gh-api-authenticated-request gh-object-list-reader eieio-oref gist-cls "GET" "/gists/starred"] 6] gh-gist-get #[(api gist-or-id) "\304\211\n;\203\n\305\306 \307\"!\202\306\n\310\"\305\n!\311 \312\313\314 \"$*\207" [transformer id gist-or-id api nil gh-object-reader eieio-oref gist-cls :id gh-api-authenticated-request "GET" format "/gists/%s"] 7] gh-gist-new #[(api gist-stub) "\302\303\304\305\"!\306\307\310 !%\207" [api gist-stub gh-api-authenticated-request gh-object-reader eieio-oref gist-cls "POST" "/gists" gh-gist-gist-to-obj] 7] gh-gist-edit #[(api gist) "\302\303\304\305\"!\306\307\310\304 \311\"\"\312 !%\207" [api gist gh-api-authenticated-request gh-object-reader eieio-oref gist-cls "PATCH" format "/gists/%s" :id gh-gist-gist-to-obj] 9] gh-gist-set-star #[(api gist-or-id star) ";\203 \202 \304\305\"\306\n\307 \203\310\202\311\312\313 \"$)\207" [gist-or-id id api star eieio-oref :id gh-api-authenticated-request ignore "PUT" "DELETE" format "/gists/%s/star"] 7] gh-gist-get-star #[(api gist-or-id) ";\203 \202 \303\304\"\305\n\306\307\310\311 \"$)\207" [gist-or-id id api eieio-oref :id gh-api-authenticated-request ignore "GET" format "/gists/%s/star"] 7] gh-gist-fork #[(api gist-or-id) ";\203 \202 \303\304\"\305\n\306\303\n\307\"!\310\311\312 \"$)\207" [gist-or-id id api eieio-oref :id gh-api-authenticated-request gh-object-reader gist-cls "POST" format "/gists/%s/forks"] 7] gh-gist-delete #[(api gist-or-id) ";\203 \202 \303\304\"\305\n\306\307\310\311 \"$)\207" [gist-or-id id api eieio-oref :id gh-api-authenticated-request ignore "DELETE" format "/gists/%s"] 7] provide gh-gist] 8)