| commit | author | age | ||
| 5cb5f7 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\207" [require auth-source cl-lib json let-alist url url-auth url-http] 2) | |
| 16 | #@58 The default host that is used if `ghub.host' is not set. | |
| 17 | (defconst ghub-default-host "api.github.com" (#$ . 582)) | |
| 18 | #@882 The Github API scopes that your private tools need. | |
| 19 | ||
| 20 | The token that is created based on the value of this variable | |
| 21 | is used when `ghub-request' (or one of its wrappers) is called | |
| 22 | without providing a value for AUTH. Packages should always | |
| 23 | identify themselves using that argument, but when you use Ghub | |
| 24 | directly in private tools, then that is not necessary and the | |
| 25 | request is made on behalf of the `ghub' package itself, aka on | |
| 26 | behalf of some private tool. | |
| 27 | ||
| 28 | By default the only requested scope is `repo' because that is | |
| 29 | sufficient as well as required for most common uses. This and | |
| 30 | other scopes are documented at URL `https://magit.vc/goto/2e586d36'. | |
| 31 | ||
| 32 | If your private tools need other scopes, then you have to add | |
| 33 | them here *before* creating the token. Alternatively you can | |
| 34 | edit the scopes of an existing token using the web interface | |
| 35 | at URL `https://github.com/settings/tokens'. | |
| 36 | (defvar ghub-github-token-scopes '(repo) (#$ . 703)) | |
| 37 | #@134 If non-nil, the string used to identify the local machine. | |
| 38 | If this is nil, then the value returned by `system-name' is | |
| 39 | used instead. | |
| 40 | (defvar ghub-override-system-name nil (#$ . 1644)) | |
| 41 | #@68 compiler-macro for inlining `ghub--req-p'. | |
| 42 | ||
| 43 | (fn CL-WHOLE-ARG CL-X) | |
| 44 | (defalias 'ghub--req-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--req-p (and (memq (type-of cl-x) cl-struct-ghub--req-tags) t)) nil] 9 (#$ . 1834)]) | |
| 45 | (put 'ghub--req-p 'compiler-macro 'ghub--req-p--cmacro) | |
| 46 | #@13 | |
| 47 | ||
| 48 | (fn CL-X) | |
| 49 | (defalias 'ghub--req-p #[257 "\301!>\205 \302\207" [cl-struct-ghub--req-tags type-of t] 3 (#$ . 2162)]) | |
| 50 | (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put ghub--req-p side-effect-free error-free put ghub--req cl-deftype-satisfies] 5) | |
| 51 | #@70 compiler-macro for inlining `ghub--req-url'. | |
| 52 | ||
| 53 | (fn CL-WHOLE-ARG CL-X) | |
| 54 | (defalias 'ghub--req-url--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--req-url (or (ghub--req-p cl-x) (signal 'wrong-type-argument (list 'ghub--req cl-x))) (aref cl-x 1)) nil] 9 (#$ . 2432)]) | |
| 55 | (put 'ghub--req-url 'compiler-macro 'ghub--req-url--cmacro) | |
| 56 | #@104 Access slot "url" of `(ghub--req (:constructor ghub--make-req) (:copier nil))' struct CL-X. | |
| 57 | ||
| 58 | (fn CL-X) | |
| 59 | (defalias 'ghub--req-url #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ghub--req-tags type-of signal wrong-type-argument ghub--req 1] 5 (#$ . 2807)]) | |
| 60 | (byte-code "\300\301\302\303#\300\207" [function-put ghub--req-url side-effect-free t] 4) | |
| 61 | #@72 compiler-macro for inlining `ghub--req-forge'. | |
| 62 | ||
| 63 | (fn CL-WHOLE-ARG CL-X) | |
| 64 | (defalias 'ghub--req-forge--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--req-forge (or (ghub--req-p cl-x) (signal 'wrong-type-argument (list 'ghub--req cl-x))) (aref cl-x 2)) nil] 9 (#$ . 3177)]) | |
| 65 | (put 'ghub--req-forge 'compiler-macro 'ghub--req-forge--cmacro) | |
| 66 | #@106 Access slot "forge" of `(ghub--req (:constructor ghub--make-req) (:copier nil))' struct CL-X. | |
| 67 | ||
| 68 | (fn CL-X) | |
| 69 | (defalias 'ghub--req-forge #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ghub--req-tags type-of signal wrong-type-argument ghub--req 2] 5 (#$ . 3562)]) | |
| 70 | (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put ghub--req-forge side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" ghub--req-forge] 5 "\n\n(fn CL-DO CL-X)"]] 5) | |
| 71 | #@73 compiler-macro for inlining `ghub--req-silent'. | |
| 72 | ||
| 73 | (fn CL-WHOLE-ARG CL-X) | |
| 74 | (defalias 'ghub--req-silent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--req-silent (or (ghub--req-p cl-x) (signal 'wrong-type-argument (list 'ghub--req cl-x))) (aref cl-x 3)) nil] 9 (#$ . 4068)]) | |
| 75 | (put 'ghub--req-silent 'compiler-macro 'ghub--req-silent--cmacro) | |
| 76 | #@107 Access slot "silent" of `(ghub--req (:constructor ghub--make-req) (:copier nil))' struct CL-X. | |
| 77 | ||
| 78 | (fn CL-X) | |
| 79 | (defalias 'ghub--req-silent #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ghub--req-tags type-of signal wrong-type-argument ghub--req 3] 5 (#$ . 4458)]) | |
| 80 | (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put ghub--req-silent side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" ghub--req-silent] 5 "\n\n(fn CL-DO CL-X)"]] 5) | |
| 81 | #@73 compiler-macro for inlining `ghub--req-method'. | |
| 82 | ||
| 83 | (fn CL-WHOLE-ARG CL-X) | |
| 84 | (defalias 'ghub--req-method--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--req-method (or (ghub--req-p cl-x) (signal 'wrong-type-argument (list 'ghub--req cl-x))) (aref cl-x 4)) nil] 9 (#$ . 4968)]) | |
| 85 | (put 'ghub--req-method 'compiler-macro 'ghub--req-method--cmacro) | |
| 86 | #@107 Access slot "method" of `(ghub--req (:constructor ghub--make-req) (:copier nil))' struct CL-X. | |
| 87 | ||
| 88 | (fn CL-X) | |
| 89 | (defalias 'ghub--req-method #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ghub--req-tags type-of signal wrong-type-argument ghub--req 4] 5 (#$ . 5358)]) | |
| 90 | (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put ghub--req-method side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" ghub--req-method] 5 "\n\n(fn CL-DO CL-X)"]] 5) | |
| 91 | #@74 compiler-macro for inlining `ghub--req-headers'. | |
| 92 | ||
| 93 | (fn CL-WHOLE-ARG CL-X) | |
| 94 | (defalias 'ghub--req-headers--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--req-headers (or (ghub--req-p cl-x) (signal 'wrong-type-argument (list 'ghub--req cl-x))) (aref cl-x 5)) nil] 9 (#$ . 5868)]) | |
| 95 | (put 'ghub--req-headers 'compiler-macro 'ghub--req-headers--cmacro) | |
| 96 | #@108 Access slot "headers" of `(ghub--req (:constructor ghub--make-req) (:copier nil))' struct CL-X. | |
| 97 | ||
| 98 | (fn CL-X) | |
| 99 | (defalias 'ghub--req-headers #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ghub--req-tags type-of signal wrong-type-argument ghub--req 5] 5 (#$ . 6263)]) | |
| 100 | (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put ghub--req-headers side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" ghub--req-headers] 5 "\n\n(fn CL-DO CL-X)"]] 5) | |
| 101 | #@74 compiler-macro for inlining `ghub--req-handler'. | |
| 102 | ||
| 103 | (fn CL-WHOLE-ARG CL-X) | |
| 104 | (defalias 'ghub--req-handler--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--req-handler (or (ghub--req-p cl-x) (signal 'wrong-type-argument (list 'ghub--req cl-x))) (aref cl-x 6)) nil] 9 (#$ . 6777)]) | |
| 105 | (put 'ghub--req-handler 'compiler-macro 'ghub--req-handler--cmacro) | |
| 106 | #@108 Access slot "handler" of `(ghub--req (:constructor ghub--make-req) (:copier nil))' struct CL-X. | |
| 107 | ||
| 108 | (fn CL-X) | |
| 109 | (defalias 'ghub--req-handler #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ghub--req-tags type-of signal wrong-type-argument ghub--req 6] 5 (#$ . 7172)]) | |
| 110 | (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put ghub--req-handler side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" ghub--req-handler] 5 "\n\n(fn CL-DO CL-X)"]] 5) | |
| 111 | #@77 compiler-macro for inlining `ghub--req-unpaginate'. | |
| 112 | ||
| 113 | (fn CL-WHOLE-ARG CL-X) | |
| 114 | (defalias 'ghub--req-unpaginate--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--req-unpaginate (or (ghub--req-p cl-x) (signal 'wrong-type-argument (list 'ghub--req cl-x))) (aref cl-x 7)) nil] 9 (#$ . 7686)]) | |
| 115 | (put 'ghub--req-unpaginate 'compiler-macro 'ghub--req-unpaginate--cmacro) | |
| 116 | #@111 Access slot "unpaginate" of `(ghub--req (:constructor ghub--make-req) (:copier nil))' struct CL-X. | |
| 117 | ||
| 118 | (fn CL-X) | |
| 119 | (defalias 'ghub--req-unpaginate #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ghub--req-tags type-of signal wrong-type-argument ghub--req 7] 5 (#$ . 8096)]) | |
| 120 | (byte-code "\300\301\302\303#\300\207" [function-put ghub--req-unpaginate side-effect-free t] 4) | |
| 121 | #@74 compiler-macro for inlining `ghub--req-noerror'. | |
| 122 | ||
| 123 | (fn CL-WHOLE-ARG CL-X) | |
| 124 | (defalias 'ghub--req-noerror--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--req-noerror (or (ghub--req-p cl-x) (signal 'wrong-type-argument (list 'ghub--req cl-x))) (aref cl-x 8)) nil] 9 (#$ . 8487)]) | |
| 125 | (put 'ghub--req-noerror 'compiler-macro 'ghub--req-noerror--cmacro) | |
| 126 | #@108 Access slot "noerror" of `(ghub--req (:constructor ghub--make-req) (:copier nil))' struct CL-X. | |
| 127 | ||
| 128 | (fn CL-X) | |
| 129 | (defalias 'ghub--req-noerror #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ghub--req-tags type-of signal wrong-type-argument ghub--req 8] 5 (#$ . 8882)]) | |
| 130 | (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put ghub--req-noerror side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" ghub--req-noerror] 5 "\n\n(fn CL-DO CL-X)"]] 5) | |
| 131 | #@73 compiler-macro for inlining `ghub--req-reader'. | |
| 132 | ||
| 133 | (fn CL-WHOLE-ARG CL-X) | |
| 134 | (defalias 'ghub--req-reader--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--req-reader (or (ghub--req-p cl-x) (signal 'wrong-type-argument (list 'ghub--req cl-x))) (aref cl-x 9)) nil] 9 (#$ . 9396)]) | |
| 135 | (put 'ghub--req-reader 'compiler-macro 'ghub--req-reader--cmacro) | |
| 136 | #@107 Access slot "reader" of `(ghub--req (:constructor ghub--make-req) (:copier nil))' struct CL-X. | |
| 137 | ||
| 138 | (fn CL-X) | |
| 139 | (defalias 'ghub--req-reader #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ghub--req-tags type-of signal wrong-type-argument ghub--req 9] 5 (#$ . 9786)]) | |
| 140 | (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put ghub--req-reader side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" ghub--req-reader] 5 "\n\n(fn CL-DO CL-X)"]] 5) | |
| 141 | #@75 compiler-macro for inlining `ghub--req-callback'. | |
| 142 | ||
| 143 | (fn CL-WHOLE-ARG CL-X) | |
| 144 | (defalias 'ghub--req-callback--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--req-callback (or (ghub--req-p cl-x) (signal 'wrong-type-argument (list 'ghub--req cl-x))) (aref cl-x 10)) nil] 9 (#$ . 10296)]) | |
| 145 | (put 'ghub--req-callback 'compiler-macro 'ghub--req-callback--cmacro) | |
| 146 | #@109 Access slot "callback" of `(ghub--req (:constructor ghub--make-req) (:copier nil))' struct CL-X. | |
| 147 | ||
| 148 | (fn CL-X) | |
| 149 | (defalias 'ghub--req-callback #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ghub--req-tags type-of signal wrong-type-argument ghub--req 10] 5 (#$ . 10698)]) | |
| 150 | (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put ghub--req-callback side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" ghub--req-callback] 5 "\n\n(fn CL-DO CL-X)"]] 5) | |
| 151 | #@76 compiler-macro for inlining `ghub--req-errorback'. | |
| 152 | ||
| 153 | (fn CL-WHOLE-ARG CL-X) | |
| 154 | (defalias 'ghub--req-errorback--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--req-errorback (or (ghub--req-p cl-x) (signal 'wrong-type-argument (list 'ghub--req cl-x))) (aref cl-x 11)) nil] 9 (#$ . 11218)]) | |
| 155 | (put 'ghub--req-errorback 'compiler-macro 'ghub--req-errorback--cmacro) | |
| 156 | #@110 Access slot "errorback" of `(ghub--req (:constructor ghub--make-req) (:copier nil))' struct CL-X. | |
| 157 | ||
| 158 | (fn CL-X) | |
| 159 | (defalias 'ghub--req-errorback #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ghub--req-tags type-of signal wrong-type-argument ghub--req 11] 5 (#$ . 11625)]) | |
| 160 | (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put ghub--req-errorback side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" ghub--req-errorback] 5 "\n\n(fn CL-DO CL-X)"]] 5) | |
| 161 | #@72 compiler-macro for inlining `ghub--req-value'. | |
| 162 | ||
| 163 | (fn CL-WHOLE-ARG CL-X) | |
| 164 | (defalias 'ghub--req-value--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--req-value (or (ghub--req-p cl-x) (signal 'wrong-type-argument (list 'ghub--req cl-x))) (aref cl-x 12)) nil] 9 (#$ . 12149)]) | |
| 165 | (put 'ghub--req-value 'compiler-macro 'ghub--req-value--cmacro) | |
| 166 | #@106 Access slot "value" of `(ghub--req (:constructor ghub--make-req) (:copier nil))' struct CL-X. | |
| 167 | ||
| 168 | (fn CL-X) | |
| 169 | (defalias 'ghub--req-value #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ghub--req-tags type-of signal wrong-type-argument ghub--req 12] 5 (#$ . 12536)]) | |
| 170 | (byte-code "\300\301\302\303#\300\207" [function-put ghub--req-value side-effect-free t] 4) | |
| 171 | #@72 compiler-macro for inlining `ghub--req-extra'. | |
| 172 | ||
| 173 | (fn CL-WHOLE-ARG CL-X) | |
| 174 | (defalias 'ghub--req-extra--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ghub--req-extra (or (ghub--req-p cl-x) (signal 'wrong-type-argument (list 'ghub--req cl-x))) (aref cl-x 13)) nil] 9 (#$ . 12914)]) | |
| 175 | (put 'ghub--req-extra 'compiler-macro 'ghub--req-extra--cmacro) | |
| 176 | #@106 Access slot "extra" of `(ghub--req (:constructor ghub--make-req) (:copier nil))' struct CL-X. | |
| 177 | ||
| 178 | (fn CL-X) | |
| 179 | (defalias 'ghub--req-extra #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ghub--req-tags type-of signal wrong-type-argument ghub--req 13] 5 (#$ . 13301)]) | |
| 180 | (byte-code "\300\301\302\303#\300\207" [function-put ghub--req-extra side-effect-free t] 4) | |
| 181 | #@174 compiler-macro for inlining `ghub--make-req'. | |
| 182 | ||
| 183 | (fn CL-WHOLE &cl-quote &key URL FORGE SILENT METHOD HEADERS HANDLER UNPAGINATE NOERROR READER CALLBACK ERRORBACK VALUE EXTRA) | |
| 184 | (defalias 'ghub--make-req--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\300 \311\"A@\300\n\312\"A@\300 \313\"A@\300\f\314\"A@\300 \315\"A@ \211\203\203 \211@\316>\203k \211AA\262\202X \317>A@\203z \320\262\202X \321\322@\"\210\202X \210\323\324\325\320\320&\207" [plist-member :url :forge :silent :method :headers :handler :unpaginate :noerror :reader :callback :errorback :value :extra (:url :forge :silent :method :headers :handler :unpaginate :noerror :reader :callback :errorback :value :extra :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:url :forge :silent :method :headers :handler :unpaginate :noerror :reader :callback :errorback :value :extra)" cl--defsubst-expand (url forge silent method headers handler unpaginate noerror reader callback errorback value extra) (cl-block ghub--make-req (record 'ghub--req url forge silent method headers handler unpaginate noerror reader callback errorback value extra))] 34 (#$ . 13680)]) | |
| 185 | (put 'ghub--make-req 'compiler-macro 'ghub--make-req--cmacro) | |
| 186 | #@154 Constructor for objects of type `ghub--req'. | |
| 187 | ||
| 188 | (fn &key URL FORGE SILENT METHOD HEADERS HANDLER UNPAGINATE NOERROR READER CALLBACK ERRORBACK VALUE EXTRA) | |
| 189 | (defalias 'ghub--make-req #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\300 \311\"A@\300\n\312\"A@\300 \313\"A@\300\f\314\"A@\300 \315\"A@ \211\203\203 \211@\316>\203k \211AA\262\202X \317>A@\203z \320\262\202X \321\322@\"\210\202X \210\323\324&\207" [plist-member :url :forge :silent :method :headers :handler :unpaginate :noerror :reader :callback :errorback :value :extra (:url :forge :silent :method :headers :handler :unpaginate :noerror :reader :callback :errorback :value :extra :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:url :forge :silent :method :headers :handler :unpaginate :noerror :reader :callback :errorback :value :extra)" record ghub--req] 29 (#$ . 15010)]) | |
| 190 | (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \210\313\314\315\"\210\316\317\320\321#\210\316\322\323\317#\207" [function-put ghub--make-req side-effect-free t cl-struct-define ghub--req nil cl-structure-object record ((cl-tag-slot) (url nil :read-only nil) (forge nil :read-only t) (silent nil :read-only t) (method nil :read-only t) (headers nil :read-only t) (handler nil :read-only t) (unpaginate nil :read-only nil) (noerror nil :read-only t) (reader nil :read-only t) (callback nil :read-only t) (errorback nil :read-only t) (value nil :read-only nil) (extra nil :read-only nil)) cl-struct-ghub--req-tags defalias ghub-req-extra ghub--req-extra define-error ghub-error "Ghub/Url Error" error ghub-http-error "HTTP Error"] 11) | |
| 191 | #@146 The headers returned in response to the last request. | |
| 192 | `ghub-request' returns the response body and stores the | |
| 193 | response headers in this variable. | |
| 194 | (defvar ghub-response-headers nil (#$ . 16748)) | |
| 195 | #@264 Make a `HEAD' request for RESOURCE, with optional query PARAMS. | |
| 196 | Like calling `ghub-request' (which see) with "HEAD" as METHOD. | |
| 197 | ||
| 198 | (fn RESOURCE &optional PARAMS &key QUERY PAYLOAD HEADERS SILENT UNPAGINATE NOERROR READER USERNAME AUTH HOST CALLBACK ERRORBACK EXTRA) | |
| 199 | (defalias 'ghub-head #[641 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\300 \311\"A@\300\n\312\"A@\300 \313\"A@\300\f\314\"A@\300 \315\"A@ \211\203\203 \211@\316>\203k \211AA\262\202X \317>A@\203z \320\262\202X \321\322@\"\210\202X \210\323\324\301\302\303\304\305\306\307\310\311\312\313\314 \315 & \207" [plist-member :query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :callback :errorback :extra (:query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :callback :errorback :extra :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :callback :errorback :extra)" ghub-request "HEAD"] 46 (#$ . 16948)]) | |
| 200 | #@262 Make a `GET' request for RESOURCE, with optional query PARAMS. | |
| 201 | Like calling `ghub-request' (which see) with "GET" as METHOD. | |
| 202 | ||
| 203 | (fn RESOURCE &optional PARAMS &key QUERY PAYLOAD HEADERS SILENT UNPAGINATE NOERROR READER USERNAME AUTH HOST CALLBACK ERRORBACK EXTRA) | |
| 204 | (defalias 'ghub-get #[641 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\300 \311\"A@\300\n\312\"A@\300 \313\"A@\300\f\314\"A@\300 \315\"A@ \211\203\203 \211@\316>\203k \211AA\262\202X \317>A@\203z \320\262\202X \321\322@\"\210\202X \210\323\324\301\302\303\304\305\306\307\310\311\312\313\314 \315 & \207" [plist-member :query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :callback :errorback :extra (:query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :callback :errorback :extra :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :callback :errorback :extra)" ghub-request "GET"] 46 (#$ . 18099)]) | |
| 205 | #@264 Make a `PUT' request for RESOURCE, with optional payload PARAMS. | |
| 206 | Like calling `ghub-request' (which see) with "PUT" as METHOD. | |
| 207 | ||
| 208 | (fn RESOURCE &optional PARAMS &key QUERY PAYLOAD HEADERS SILENT UNPAGINATE NOERROR READER USERNAME AUTH HOST CALLBACK ERRORBACK EXTRA) | |
| 209 | (defalias 'ghub-put #[641 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\300 \311\"A@\300\n\312\"A@\300 \313\"A@\300\f\314\"A@\300 \315\"A@ \211\203\203 \211@\316>\203k \211AA\262\202X \317>A@\203z \320\262\202X \321\322@\"\210\202X \210\323\324\301\302\303\304\305\306\307\310\311\312\313\314 \315 & \207" [plist-member :query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :callback :errorback :extra (:query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :callback :errorback :extra :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :callback :errorback :extra)" ghub-request "PUT"] 46 (#$ . 19246)]) | |
| 210 | #@266 Make a `POST' request for RESOURCE, with optional payload PARAMS. | |
| 211 | Like calling `ghub-request' (which see) with "POST" as METHOD. | |
| 212 | ||
| 213 | (fn RESOURCE &optional PARAMS &key QUERY PAYLOAD HEADERS SILENT UNPAGINATE NOERROR READER USERNAME AUTH HOST CALLBACK ERRORBACK EXTRA) | |
| 214 | (defalias 'ghub-post #[641 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\300 \311\"A@\300\n\312\"A@\300 \313\"A@\300\f\314\"A@\300 \315\"A@ \211\203\203 \211@\316>\203k \211AA\262\202X \317>A@\203z \320\262\202X \321\322@\"\210\202X \210\323\324\301\302\303\304\305\306\307\310\311\312\313\314 \315 & \207" [plist-member :query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :callback :errorback :extra (:query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :callback :errorback :extra :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :callback :errorback :extra)" ghub-request "POST"] 46 (#$ . 20395)]) | |
| 215 | #@268 Make a `PATCH' request for RESOURCE, with optional payload PARAMS. | |
| 216 | Like calling `ghub-request' (which see) with "PATCH" as METHOD. | |
| 217 | ||
| 218 | (fn RESOURCE &optional PARAMS &key QUERY PAYLOAD HEADERS SILENT UNPAGINATE NOERROR READER USERNAME AUTH HOST CALLBACK ERRORBACK EXTRA) | |
| 219 | (defalias 'ghub-patch #[641 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\300 \311\"A@\300\n\312\"A@\300 \313\"A@\300\f\314\"A@\300 \315\"A@ \211\203\203 \211@\316>\203k \211AA\262\202X \317>A@\203z \320\262\202X \321\322@\"\210\202X \210\323\324\301\302\303\304\305\306\307\310\311\312\313\314 \315 & \207" [plist-member :query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :callback :errorback :extra (:query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :callback :errorback :extra :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :callback :errorback :extra)" ghub-request "PATCH"] 46 (#$ . 21548)]) | |
| 220 | #@270 Make a `DELETE' request for RESOURCE, with optional payload PARAMS. | |
| 221 | Like calling `ghub-request' (which see) with "DELETE" as METHOD. | |
| 222 | ||
| 223 | (fn RESOURCE &optional PARAMS &key QUERY PAYLOAD HEADERS SILENT UNPAGINATE NOERROR READER USERNAME AUTH HOST CALLBACK ERRORBACK EXTRA) | |
| 224 | (defalias 'ghub-delete #[641 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\300 \311\"A@\300\n\312\"A@\300 \313\"A@\300\f\314\"A@\300 \315\"A@ \211\203\203 \211@\316>\203k \211AA\262\202X \317>A@\203z \320\262\202X \321\322@\"\210\202X \210\323\324\301\302\303\304\305\306\307\310\311\312\313\314 \315 & \207" [plist-member :query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :callback :errorback :extra (:query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :callback :errorback :extra :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :callback :errorback :extra)" ghub-request "DELETE"] 46 (#$ . 22705)]) | |
| 225 | #@4540 Make a request for RESOURCE and return the response body. | |
| 226 | ||
| 227 | Also place the response header in `ghub-response-headers'. | |
| 228 | ||
| 229 | METHOD is the HTTP method, given as a string. | |
| 230 | RESOURCE is the resource to access, given as a string beginning | |
| 231 | with a slash. | |
| 232 | ||
| 233 | PARAMS, QUERY, PAYLOAD and HEADERS are alists used to specify | |
| 234 | data. The Github API documentation is vague on how data has | |
| 235 | to be transmitted and for a particular resource usually just | |
| 236 | talks about "parameters". Generally speaking when the METHOD | |
| 237 | is "HEAD" or "GET", then they have to be transmitted as a | |
| 238 | query, otherwise as a payload. | |
| 239 | Use PARAMS to automatically transmit like QUERY or PAYLOAD would | |
| 240 | depending on METHOD. | |
| 241 | Use QUERY to explicitly transmit data as a query. | |
| 242 | Use PAYLOAD to explicitly transmit data as a payload. | |
| 243 | Instead of an alist, PAYLOAD may also be a string, in which | |
| 244 | case it gets encoded as UTF-8 but is otherwise transmitted as-is. | |
| 245 | Use HEADERS for those rare resources that require that the data | |
| 246 | is transmitted as headers instead of as a query or payload. | |
| 247 | When that is the case, then the API documentation usually | |
| 248 | mentions it explicitly. | |
| 249 | ||
| 250 | If SILENT is non-nil, then don't message progress reports and | |
| 251 | the like. | |
| 252 | ||
| 253 | If UNPAGINATE is t, then make as many requests as necessary to | |
| 254 | get all values. If UNPAGINATE is a natural number, then get | |
| 255 | at most that many pages. For any other non-nil value raise | |
| 256 | an error. | |
| 257 | If NOERROR is non-nil, then do not raise an error if the request | |
| 258 | fails and return nil instead. If NOERROR is `return', then | |
| 259 | return the error payload instead of nil. | |
| 260 | If READER is non-nil, then it is used to read and return from the | |
| 261 | response buffer. The default is `ghub--read-json-payload'. | |
| 262 | For the very few resources that do not return JSON, you might | |
| 263 | want to use `ghub--decode-payload'. | |
| 264 | ||
| 265 | If USERNAME is non-nil, then make a request on behalf of that | |
| 266 | user. It is better to specify the user using the Git variable | |
| 267 | `github.user' for "api.github.com", or `github.HOST.user' if | |
| 268 | connecting to a Github Enterprise instance. | |
| 269 | ||
| 270 | Each package that uses `ghub' should use its own token. If AUTH | |
| 271 | is nil, then the generic `ghub' token is used instead. This | |
| 272 | is only acceptable for personal utilities. A packages that | |
| 273 | is distributed to other users should always use this argument | |
| 274 | to identify itself, using a symbol matching its name. | |
| 275 | ||
| 276 | Package authors who find this inconvenient should write a | |
| 277 | wrapper around this function and possibly for the | |
| 278 | method-specific functions as well. | |
| 279 | ||
| 280 | Some symbols have a special meaning. `none' means to make an | |
| 281 | unauthorized request. `basic' means to make a password based | |
| 282 | request. If the value is a string, then it is assumed to be | |
| 283 | a valid token. `basic' and an explicit token string are only | |
| 284 | intended for internal and debugging uses. | |
| 285 | ||
| 286 | If AUTH is a package symbol, then the scopes are specified | |
| 287 | using the variable `AUTH-github-token-scopes'. It is an error | |
| 288 | if that is not specified. See `ghub-github-token-scopes' for | |
| 289 | an example. | |
| 290 | ||
| 291 | If HOST is non-nil, then connect to that Github instance. This | |
| 292 | defaults to "api.github.com". When a repository is connected | |
| 293 | to a Github Enterprise instance, then it is better to specify | |
| 294 | that using the Git variable `github.host' instead of using this | |
| 295 | argument. | |
| 296 | ||
| 297 | If FORGE is `gitlab', then connect to Gitlab.com or, depending | |
| 298 | on HOST, to another Gitlab instance. This is only intended for | |
| 299 | internal use. Instead of using this argument you should use | |
| 300 | function `glab-request' and other `glab-*' functions. | |
| 301 | ||
| 302 | If CALLBACK and/or ERRORBACK is non-nil, then make one or more | |
| 303 | asynchronous requests and call CALLBACK or ERRORBACK when | |
| 304 | finished. If an error occurred, then call ERRORBACK, or if | |
| 305 | that is nil, then CALLBACK. When no error occurred then call | |
| 306 | CALLBACK. When making asynchronous requests, then no errors | |
| 307 | are signaled, regardless of the value of NOERROR. | |
| 308 | ||
| 309 | Both callbacks are called with four arguments. | |
| 310 | 1. For CALLBACK, the combined value of the retrieved pages. | |
| 311 | For ERRORBACK, the error that occured when retrieving the | |
| 312 | last page. | |
| 313 | 2. The headers of the last page as an alist. | |
| 314 | 3. Status information provided by `url-retrieve'. Its `:error' | |
| 315 | property holds the same information as ERRORBACK's first | |
| 316 | argument. | |
| 317 | 4. A `ghub--req' struct, which can be passed to `ghub-continue' | |
| 318 | (which see) to retrieve the next page, if any. | |
| 319 | ||
| 320 | (fn METHOD RESOURCE &optional PARAMS &key QUERY PAYLOAD HEADERS SILENT UNPAGINATE NOERROR READER USERNAME AUTH HOST FORGE CALLBACK ERRORBACK VALUE EXTRA) | |
| 321 | (defalias 'ghub-request #[898 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\300 \311\"A@\300\n\312\"A@\300 \313\"A@\300\f\314\"A@\300 \315\"A@\300\316\"A@\300\317\"A@\211\203\221 \211@\320>\203y \211AA\262\202f \321>A@\203\210 \322\262\202f \323\324@\"\210\202f \210\325 !\204\244 \326 !\204\244 \327\330!\210\331\332\"\204\262 \332P\262\204\273 \333!\262\204\325 ;\204\325 \334=\204\325 \335\"\262\203\336\235\203\363 \203\354 \323\337\"\210\262\202 \203\376 \323\340\"\210\262\204\n\203 \341\262\n\342\343!\344\345\346\347 \205%\350\351!PR!\313\n\304\352\353 \354\"\303\355%\356\357\305\306\307 \314\315\316\317 &\"\207" [plist-member :query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :forge :callback :errorback :value :extra (:query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :forge :callback :errorback :value :extra :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:query :payload :headers :silent :unpaginate :noerror :reader :username :auth :host :forge :callback :errorback :value :extra)" booleanp natnump cl--assertion-failed (or (booleanp unpaginate) (natnump unpaginate)) string-prefix-p "/" ghub--host none ghub--username ("GET" "HEAD") "PARAMS and QUERY are mutually exclusive for METHOD %S" "PARAMS and PAYLOAD are mutually exclusive for METHOD %S" t ghub--retrieve ghub--encode-payload ghub--make-req :url url-generic-parse-url "https://" "?" ghub--url-encode-params :method encode-coding-string utf-8 ghub--headers :handler ghub--handle-response] 48 (#$ . 23867)]) | |
| 322 | #@680 If there is a next page, then retrieve that. | |
| 323 | ||
| 324 | This function is only intended to be called from callbacks. If | |
| 325 | there is a next page, then retrieve that and return the buffer | |
| 326 | that the result will be loaded into, or t if the process has | |
| 327 | already completed. If there is no next page, then return nil. | |
| 328 | ||
| 329 | Callbacks are called with four arguments (see `ghub-request'). | |
| 330 | The forth argument is a `ghub--req' struct, intended to be passed | |
| 331 | to this function. A callback may use the struct's `extra' slot | |
| 332 | to pass additional information to the callback that will be | |
| 333 | called after the next request has finished. Use the function | |
| 334 | `ghub-req-extra' to get and set the value of this slot. | |
| 335 | ||
| 336 | (fn REQ) | |
| 337 | (defalias 'ghub-continue #[257 "\300\301!\236\205 \302\303\"\206 \304\207" [next ghub-response-link-relations ghub--retrieve nil t] 4 (#$ . 30157)]) | |
| 338 | #@467 Busy-wait up to DURATION seconds for RESOURCE to become available. | |
| 339 | ||
| 340 | DURATION specifies how many seconds to wait at most. It defaults | |
| 341 | to 64 seconds. The first attempt is made immediately, the second | |
| 342 | after two seconds, and each subsequent attempt is made after | |
| 343 | waiting as long again as we already waited between all preceding | |
| 344 | attempts combined. | |
| 345 | ||
| 346 | See `ghub-request' for information about the other arguments. | |
| 347 | ||
| 348 | (fn RESOURCE &optional DURATION &key USERNAME AUTH HOST) | |
| 349 | (defalias 'ghub-wait #[641 "\302\303\"A@\302\304\"A@\302\305\"A@\211\203= \211@\306>\203& \211AA\262\202 \307>A@\2034 \310\262\202 \311\312@\"\210\202 \210\204E \313\262\3141\243 \310\315\316\310\317\320\303 \304\n\305 &\n?\205\234 \321\322\n$\210\211U\203z \311\323\"\210\202L \211\315V\203\222 \211Z^\324!\210\\\266\202\202L \324\325\211\262!\210\202L \262)0\202\251 \210\320\326\327!\207" [inhibit-quit quit-flag plist-member :username :auth :host (:username :auth :host :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:username :auth :host)" 64 (quit) 0 ghub-get :noerror t message "Waited (%3ss of %ss) for %s..." "Github is taking too long to create %s" sit-for 2 eval (ignore nil)] 18 (#$ . 30996)]) | |
| 350 | #@484 Return an alist of link relations in HEADERS. | |
| 351 | If optional HEADERS is nil, then return those that were | |
| 352 | previously stored in the variable `ghub-response-headers'. | |
| 353 | ||
| 354 | When accessing a Bitbucket instance then the link relations | |
| 355 | are in PAYLOAD instead of HEADERS, making their API merely | |
| 356 | RESTish and forcing this function to append those relations | |
| 357 | to the value of `ghub-response-headers', for later use when | |
| 358 | this function is called with nil for PAYLOAD. | |
| 359 | ||
| 360 | (fn REQ &optional HEADERS PAYLOAD) | |
| 361 | (defalias 'ghub-response-link-relations #[769 "\302!>\204 \303\304\305D\"\210\306H\307=\203u \211\203p \310\311\312\313\314\315!\316\"\317\320%\321\"\322BB\203i \302!>\204D \303\304\305D\"\210\323H\204` \302!>\204Z \303\304\305D\"\210\324H\203i \325\301!\210\211\202n \326\301\"\210\207\322 \236A\207\327\330\206| \"A\211\205\211 \331\332\333\334\"\"\207" [cl-struct-ghub--req-tags ghub-response-headers type-of signal wrong-type-argument ghub--req 2 bitbucket cl-mapcan make-byte-code 257 "\211\300\236\211\205 \211C\207" vconcat vector [] 3 "\n\n(fn KEY)" (size page pagelen next previous) link-alist 10 11 make-local-variable set-default assoc "Link" mapcar #[257 "\300\301\"\211@A\211@A\302\303\304O!\305\304OB\266\202\207" [split-string "; " intern 5 -1 1] 12 "\n\n(fn ELT)"] split-string ", "] 10 (#$ . 32244)]) | |
| 362 | #@91 Return the id of the specified repository. | |
| 363 | ||
| 364 | (fn OWNER NAME &key USERNAME AUTH HOST FORGE) | |
| 365 | (defalias 'ghub-repository-id #[642 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\211\203D \211@\305>\203, \211AA\262\202 \306>A@\203; \307\262\202 \310\311@\"\210\202 \210\312\313\314\206M \315\"!\211\316=\203Y \317\202Z \211\301\302 \303\n&\262\207" [plist-member :username :auth :host :forge (:username :auth :host :forge :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:username :auth :host :forge)" intern format "%s-repository-id" ghub ghub-repository-id ghub--repository-id] 17 (#$ . 33585)]) | |
| 366 | #@20 | |
| 367 | ||
| 368 | (fn PAYLOAD REQ) | |
| 369 | (defalias 'ghub--retrieve #[514 "\306!>\204 \307\310\311D\"\210\211\312H\313!\203 \211 \202 \211\262\306!>\204/ \307\310\311D\"\210\314H\315\306!>\204D \307\310\311D\"\210\316H\306!>\204X \307\310\311D\"\210\317H\306!>\204l \307\310\311 D\"\210\320H \306!>\204\212 \307\310\311\nD\"\210\321H\204\251 \306!>\204\242 \307\310\311\nD\"\210\322H\203\264 \323\nC$\202\311 \324 \210r\325 \326\")q\210@ \"),\207" [cl-struct-ghub--req-tags url-show-status url-request-data url-request-method url-request-extra-headers url-registered-auth-schemes type-of signal wrong-type-argument ghub--req 5 functionp 4 nil 1 6 3 10 11 url-retrieve url-do-setup (("basic" ghub--basic-auth-errorback . 10)) url-retrieve-synchronously url-callback-arguments] 14 (#$ . 34241)]) | |
| 370 | #@19 | |
| 371 | ||
| 372 | (fn STATUS REQ) | |
| 373 | (defalias 'ghub--handle-response #[514 "p\301\302\303\304\305!\306\"\307$\216\310\311!\210\312!>\204 \313\314\315D\"\210\316H\317\"\320!\321#\322\"\323\324#\236A\247\203I S\262\312!>\204Z \313\314\315\nD\"\210\211\325\326!I\266\312!>\204u \313\314\315\nD\"\210\211\316I\266\211\203\231 \203\231 \311=\204\222 \302V\203\231 \327!\206\357 \312!>\204\252 \313\314\315\nD\"\210\330H\312 !>\204\277 \313\314\315 D\"\210\331H\332 \333\"\211\203\334 \203\334 $\202\355 \203\354 $\202\355 \266\203\266\206)\207" [cl-struct-ghub--req-tags make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-live-p kill-buffer] 2 set-buffer-multibyte t type-of signal wrong-type-argument ghub--req 7 ghub--handle-response-headers ghub--handle-response-payload ghub--handle-response-error ghub--handle-response-value next ghub-response-link-relations 1 url-generic-parse-url ghub-continue 10 11 plist-get :error] 17 (#$ . 35078)]) | |
| 374 | #@19 | |
| 375 | ||
| 376 | (fn STATUS REQ) | |
| 377 | (defalias 'ghub--handle-response-headers #[514 "eb\210\303y\210\304\305\306\307#\203 \310\303!\310\311!BB\262\202 \211\237\262\204- \312\313\314\315\"\"\210Tb\210\203h \316! >\204D \317\320\321D\"\210\322H\204_ \316! >\204Y \317\320\321D\"\210\323H\203h \324\302!\210\211\202m \325\302\"\210\211\207" [url-http-end-of-headers cl-struct-ghub--req-tags ghub-response-headers 1 nil re-search-forward "^\\([^:]*\\): \\(.+\\)" t match-string 2 error "BUG: missing headers %s" plist-get :error type-of signal wrong-type-argument ghub--req 10 11 make-local-variable set-default] 8 (#$ . 36103)]) | |
| 378 | #@27 | |
| 379 | ||
| 380 | (fn STATUS PAYLOAD REQ) | |
| 381 | (defalias 'ghub--handle-response-error #[771 "\301!>\204 \302\303\304D\"\210\211\305H\306\307\"\211\203: \2033 \310=\203( \202; \311!C\241\210\312\202; \313\"\202; \207" [cl-struct-ghub--req-tags type-of signal wrong-type-argument ghub--req 8 plist-get :error return last nil ghub--signal-error] 8 (#$ . 36734)]) | |
| 382 | #@30 | |
| 383 | ||
| 384 | (fn ERR &optional PAYLOAD) | |
| 385 | (defalias 'ghub--signal-error #[513 "@A\211\211\301=\203. \242\302=\203' \303\304\243@\211\305\2368 E\262\"\2022 \303\306\"\2022 \303\"\266\202\207" [url-http-codes error http signal ghub-http-error 2 ghub-error] 13 (#$ . 37092)]) | |
| 386 | #@20 | |
| 387 | ||
| 388 | (fn PAYLOAD REQ) | |
| 389 | (defalias 'ghub--handle-response-value #[514 "\301!>\204 \302\303\304D\"\210\211\211\305\301!>\204\" \302\303\304D\"\210\305H\301!>\2045 \302\303\304D\"\210\306H\307=\205A \310\236\211\203J \211A\202L \262\244I\207" [cl-struct-ghub--req-tags type-of signal wrong-type-argument ghub--req 12 2 bitbucket values] 10 (#$ . 37370)]) | |
| 390 | #@12 | |
| 391 | ||
| 392 | (fn REQ) | |
| 393 | (defalias 'ghub--handle-response-payload #[257 "\302!>\204 \303\304\305D\"\210\211\306H\206 \307 !\207" [cl-struct-ghub--req-tags url-http-response-status type-of signal wrong-type-argument ghub--req 9 ghub--read-json-payload] 5 (#$ . 37742)]) | |
| 394 | #@15 | |
| 395 | ||
| 396 | (fn STATUS) | |
| 397 | (defalias 'ghub--read-json-payload #[257 "\305 \211\205y \3061 \307\310\311\312\211 \313!-0\202y \210\314\315\316!\2036 \317\320\312\321#\2032 \322\323!\202v \324\202v `d{\312\211\325\326\206D \327\330Q\"\203V \331\332\321\211$\266\202\202Y \266\202\325\333\206a \327\334Q\"\203s \331\332\321\211$\266\205\202v \266\205B\335B\207" [json-null json-false json-key-type json-array-type json-object-type ghub--decode-payload (json-readtable-error) alist list symbol nil json-read-from-string message looking-at "<!DOCTYPE html>" re-search-forward "<p>\\(?:<strong>\\)?\\([^<]+\\)" t match-string 1 "error description missing" string-match "\\(?:" "[ \n ]+" "\\)\\'" replace-match "" "\\`\\(?:" "\\)" ((documentation_url . "https://github.com/magit/ghub/wiki/Github-Errors"))] 13 (#$ . 38008)]) | |
| 398 | #@25 | |
| 399 | ||
| 400 | (fn &optional STATUS) | |
| 401 | (defalias 'ghub--decode-payload #[256 "m?\205\f \300\301`d\"\302\"\207" [decode-coding-string buffer-substring-no-properties utf-8] 5 (#$ . 38836)]) | |
| 402 | #@16 | |
| 403 | ||
| 404 | (fn PAYLOAD) | |
| 405 | (defalias 'ghub--encode-payload #[257 "\211\205 \211;\204 \300!\262\301\302\"\207" [json-encode-list encode-coding-string utf-8] 4 (#$ . 39015)]) | |
| 406 | #@15 | |
| 407 | ||
| 408 | (fn PARAMS) | |
| 409 | (defalias 'ghub--url-encode-params #[257 "\300\301\302#\207" [mapconcat #[257 "\211@A\211\300\301!!\302\250\203 \303!\202 \300!Q\266\202\207" [url-hexify-string symbol-name "=" number-to-string] 9 "\n\n(fn PARAM)"] "&"] 5 (#$ . 39187)]) | |
| 410 | #@279 Create, store and return a new token. | |
| 411 | ||
| 412 | HOST is the Github instance, usually "api.github.com". | |
| 413 | USERNAME is the name of a user on that instance. | |
| 414 | PACKAGE is the package that will use the token. | |
| 415 | SCOPES are the scopes the token is given access to. | |
| 416 | ||
| 417 | (fn HOST USERNAME PACKAGE SCOPES) | |
| 418 | (defalias 'ghub-create-token #[1028 "\300\"\301\302\303D\304\305\306 \307\303\310\311\312\313B\314\315!BD\316\317\320\306&\236A& \211G\321U\203= \211A\262\242\202D \322\323\324GD\"@\325!\203O \210\326\306 \307F!\210\266\202\207" [ghub--ident ghub--auth-source-get :save-function :secret :create t :host :user token ghub-post "/authorizations" scopes note ghub--ident-github :username :auth basic 2 signal wrong-number-of-arguments nil functionp auth-source-forget] 24 (#$ . 39454) (byte-code "\300 \211@A\211@A\211@A\211\301\302\303\304\305\306\307\310 \"!J\311#\"\311\312\313$F\266\203\207" [ghub--read-triplet split-string read-string "Scopes (separated by commas): " mapconcat symbol-name intern format "%s-github-token-scopes" "," t "[ ]+"] 22)]) | |
| 419 | #@192 Return and echo the scopes of the specified token. | |
| 420 | This is intended for debugging purposes only. The user | |
| 421 | has to provide several values including their password. | |
| 422 | ||
| 423 | (fn HOST USERNAME PACKAGE) | |
| 424 | (defalias 'ghub-token-scopes #[771 "\300\301#\236A\302\303!\203 \304\305\306\"$\210\211\207" [scopes ghub--get-token-plist called-interactively-p any message "Scopes for %s@%s: %S" ghub--ident] 9 (#$ . 40525) (ghub--read-triplet)]) | |
| 425 | #@308 Clear all caches that might negatively affect Ghub. | |
| 426 | ||
| 427 | If a library that is used by Ghub caches incorrect information | |
| 428 | such as a mistyped password, then that can prevent Ghub from | |
| 429 | asking the user for the correct information again. | |
| 430 | ||
| 431 | Set `url-http-real-basic-auth-storage' to nil | |
| 432 | and call `auth-source-forget+'. | |
| 433 | (defalias 'ghub-clear-caches #[0 "\301\302 \207" [url-http-real-basic-auth-storage nil auth-source-forget+] 1 (#$ . 40964) nil]) | |
| 434 | #@41 | |
| 435 | ||
| 436 | (fn HEADERS HOST AUTH USERNAME FORGE) | |
| 437 | (defalias 'ghub--headers #[1285 "CC\211\300\301B\242B\240\210\302=\203 \211\242\202= \242\204* ;\204* \303\"\240\210\304\305\306\307\310 %\311\"\312$\207" ["Content-Type" "application/json" none ghub--username make-byte-code 0 "\302\305=\203 \306\307\301\303\242\"B\300\242B\207\310\301\302\303\242\304$\300\242B\207" vconcat vector [basic "Authorization" ghub--basic-auth ghub--auth] 5] 17 (#$ . 41407)]) | |
| 438 | #@43 | |
| 439 | ||
| 440 | (fn HOST AUTH &optional USERNAME FORGE) | |
| 441 | (defalias 'ghub--auth #[1026 "\204 \300!\262\301=\2032 \302\303\"\203 \304\305\"B\207\306\307\"\203( \310\311!\207\310\312\313#\205\222 \314\207\302\315\"\203= \304\202Q \306\307\"\203H \316\202Q \310\312\317#\205Q \314\307=?\205Y \320\321;\203c \202\216 \204t \322\323\314%\202\216 9\203\207 \322\314%\202\216 \324\325\326D\"\327\"PB\207" [ghub--username basic memql (nil github gitea gogs bitbucket) "Authorization" ghub--basic-auth eql gitlab error "Gitlab does not support basic authentication" "cl-ecase failed: %s, %s" (bitbucket gogs gitea github nil gitlab) nil (nil github gitea gogs bitbucket) "Private-Token" (bitbucket gogs gitea github nil gitlab) "token " encode-coding-string ghub--token ghub signal wrong-type-argument (or stringp symbolp) utf-8] 13 (#$ . 41879)]) | |
| 442 | #@22 | |
| 443 | ||
| 444 | (fn HOST USERNAME) | |
| 445 | (defalias 'ghub--basic-auth #[514 "\301\302P!\303!>\204 \304\305\306D\"\210\211\211\307I\266\310\311\"\207" [cl-struct-url-tags url-generic-parse-url "https://" type-of signal wrong-type-argument url 2 url-basic-auth t] 7 (#$ . 42743)]) | |
| 446 | #@50 | |
| 447 | ||
| 448 | (fn URL &optional PROMPT OVERWRITE REALM ARGS) | |
| 449 | (defalias 'ghub--basic-auth-errorback #[1281 "\205\205 \303\304\305\306\211\"\"\203 \307\304\310 BAABB\311\306\211\211$\207\312\313\314\315! >\2044 \316\317\320\nD\"\210\321H\315! >\204I \316\317\320D\"\210\211\322H\206y \315! >\204^ \316\317\320D\"\210\211\323H\205y \324\315! >\204t \316\317\320D\"\210\323H\325\"\262#\n\326\327\330\331&\306\207" [url-http-extra-headers cl-struct-url-tags url-http-real-basic-auth-storage assoc "X-GitHub-OTP" ghub--handle-response-headers nil ("Content-Type" . "application/json") ghub--read-2fa-code url-basic-auth cl-delete format "%s:%d" type-of signal wrong-type-argument url 4 5 1 url-scheme-get-property default-port :test equal :key car] 15 (#$ . 43015)]) | |
| 450 | #@55 | |
| 451 | ||
| 452 | (fn HOST USERNAME PACKAGE &optional NOCREATE FORGE) | |
| 453 | (defalias 'ghub--token #[1283 "\300\"\301\302C\303\304%@\206R \305\303\304\306\307\257!\210?\205R \310\311\"\2034 \312#\202R \310\313\"\203I \314\315\316\317!! $\202R \314\320\321#\205R \322\323!\203] \211 \202^ \211\207" [ghub--ident ghub--auth-source-get :secret :host :user auth-source-forget :max 1 memql (nil github) ghub--confirm-create-token (gitlab gitea gogs bitbucket) error "Required %s token (%S for %S) does not exist.\nSee https://magit.vc/manual/ghub/Support-for-Other-Forges.html for instructions." capitalize symbol-name "cl-ecase failed: %s, %s" (github nil bitbucket gogs gitea gitlab) nil functionp] 13 (#$ . 43792)]) | |
| 454 | #@24 | |
| 455 | ||
| 456 | (fn &optional FORGE) | |
| 457 | (defalias 'ghub--host #[256 "\305\306\"\203 \3071 \310\311\312\313#@0\202 \210\202 \206\267 \207\314\315\"\203B \31613 \310\311\312\317#@0\2027 \210\202: \206\267 \320\301!\205A \207\314\321\"\203f \3221W \310\311\312\323#@0\202[ \210\202^ \206\267 \320\302!\205e \n\207\314\324\"\203\212 \3251{ \310\311\312\326#@0\202 \210\202\202 \206\267 \320\303!\205\211 \207\314\327\"\203\256 \3301\237 \310\311\312\331#@0\202\243 \210\202\246 \206\267 \320\304!\205\255 \f\207\332\333\334#\205\267 \335\207" [ghub-default-host glab-default-host gtea-default-host gogs-default-host buck-default-host memql (nil github) (error) process-lines "git" "config" "github.host" eql gitlab (error) "gitlab.host" boundp gitea (error) "gitea.host" gogs (error) "gogs.host" bitbucket (error) "bitbucket.host" error "cl-ecase failed: %s, %s" (github nil gitlab gitea gogs bitbucket) nil] 5 (#$ . 44513)]) | |
| 458 | #@29 | |
| 459 | ||
| 460 | (fn HOST &optional FORGE) | |
| 461 | (defalias 'ghub--username #[513 "\301\302\"\203 \232\203 \303\202\221 \304\305\"\202\221 \306\307\"\2030 \310\232\203) \311\202\221 \304\312\"\202\221 \306\313\"\203H \314\232\203A \315\202\221 \304\316\"\202\221 \306\317\"\203h \320\321\322\211\211\323\324&\325U\203a \326\327!\210\304\330\"\202\221 \306\331\"\203\210 \320\321\322\211\211\323\332&\325U\203\201 \326\333!\210\304\334\"\202\221 \326\335\336#\205\221 \322\3371\237 \340\321\323#@0\202\301 \210\341\304\342\"!\211\203\274 \320\321\322\211\211\323\343&\210\211\206\277 \344\345!\262\207" [ghub-default-host memql (nil github) "github.user" format "github.%s.user" eql gitlab "gitlab.com/api/v4" "gitlab.user" "gitlab.%s.user" bitbucket "api.bitbucket.org/2.0" "bitbucket.user" "bitbucket.%s.user" gitea call-process "git" nil "config" "gitea.host" 0 error "gitea.host is set but always ignored" "gitea.%s.user" gogs "gogs.host" "gogs.host is set but always ignored" "gogs.%s.user" "cl-ecase failed: %s, %s" (github nil gitlab bitbucket gitea gogs) (error) process-lines read-string "Git variable `%s' is unset. Set to: " "--global" user-error "Abort"] 13 (#$ . 45438)]) | |
| 462 | #@25 | |
| 463 | ||
| 464 | (fn USERNAME PACKAGE) | |
| 465 | (defalias 'ghub--ident #[514 "\300\301#\207" [format "%s^%s"] 6 (#$ . 46634)]) | |
| 466 | #@16 | |
| 467 | ||
| 468 | (fn PACKAGE) | |
| 469 | (defalias 'ghub--ident-github #[257 "\301\302\206 \303 #\207" [ghub-override-system-name format "Emacs package %s @ %s" system-name] 5 (#$ . 46745)]) | |
| 470 | #@16 | |
| 471 | ||
| 472 | (fn PACKAGE) | |
| 473 | (defalias 'ghub--package-scopes #[257 "\300\301\302\"!\303!\203 \211J\202 \304\305#\207" [intern format "%s-github-token-scopes" boundp error "%s fails to define %s"] 6 (#$ . 46919)]) | |
| 474 | #@30 | |
| 475 | ||
| 476 | (fn HOST USERNAME PACKAGE) | |
| 477 | (defalias 'ghub--confirm-create-token #[771 "\303!\304!\305\306\307\310\311\211\312\313 \314# \n\211@;\2033 \315\316\n@\"\2043 \310\317\n@\"\2024 \320& !)\203g \3211I \322$0\202j \3238\324\325\236A\236A\211@\262\262\326\230\205b \327\330\"\262\202j \331\332!)\207" [max-mini-window-height message-log-max auth-sources ghub--ident-github ghub--package-scopes 40 nil yes-or-no-p format "Such a Github API token is not available:\n\n Host: %s\n User: %s\n Package: %s\n\n Scopes requested in `%s-github-token-scopes':\n%s\n Store on Github as:\n %S\n Store locally according to option `auth-sources':\n %S\n%s\nIf in doubt, then abort and first view the section of\nthe Ghub documentation called \"Interactively Creating\nand Storing a Token\".\n\nOtherwise confirm and then provide your Github username and\npassword at the next two prompts. Depending on the backend\nyou might have to provide a passphrase and confirm that you\nreally want to save the token.\n\nCreate and store such a token? " mapconcat #[257 "\300\301\"\207" [format " %s"] 4 "\n\n(fn SCOPE)"] "\n" string-suffix-p ".gpg" "\nWARNING: The token will be stored unencrypted in %S.\n If you don't want that, you have to abort and customize\n the `auth-sources' option.\n" "" (ghub-http-error) ghub-create-token 3 code errors "already_exists" error "A token named %S already exists on Github. Please visit https://github.com/settings/tokens and delete it." user-error "Abort"] 18 (#$ . 47130)]) | |
| 478 | #@30 | |
| 479 | ||
| 480 | (fn HOST USERNAME PACKAGE) | |
| 481 | (defalias 'ghub--get-token-id #[771 "\300!\301\302\303\304\305\306!\307\"\310\311%\312\313\314\315\316\317\n\320\321\322&\n\"\207" [ghub--ident-github cl-some make-byte-code 257 "\211\301\302\236A\236A\303\236A\300\232\205 \211\266\202\207" vconcat vector [name app id] 6 "\n\n(fn X)" ghub-get "/authorizations" ((per_page . 100)) :unpaginate t :username :auth basic :host] 17 (#$ . 48684)]) | |
| 482 | #@30 | |
| 483 | ||
| 484 | (fn HOST USERNAME PACKAGE) | |
| 485 | (defalias 'ghub--get-token-plist #[771 "\300\301\302\303#\"\304\305\306\307\310\n&\207" [ghub-get format "/authorizations/%s" ghub--get-token-id nil :username :auth basic :host] 12 (#$ . 49121)]) | |
| 486 | #@30 | |
| 487 | ||
| 488 | (fn HOST USERNAME PACKAGE) | |
| 489 | (defalias 'ghub--delete-token #[771 "\300\301\302\303#\"\304\305\306\307\310\n&\207" [ghub-delete format "/authorizations/%s" ghub--get-token-id nil :username :auth basic :host] 12 (#$ . 49361)]) | |
| 490 | (defalias 'ghub--read-triplet #[0 "\300\301\302 \"\211\300\303\304!\"\305\300\306\307\"!E\207" [read-string "Host: " ghub--host "Username: " ghub--username intern "Package: " "ghub"] 7]) | |
| 491 | (defvar ghub--2fa-cache nil) | |
| 492 | (defalias 'ghub--read-2fa-code #[0 "\301\302\205 \303\304\305 A\"!\306W\205 @\"\211\305 B\307!\207" [ghub--2fa-cache read-number "Two-factor authentication code: " float-time time-subtract current-time 25 number-to-string] 6]) | |
| 493 | #@24 | |
| 494 | ||
| 495 | (fn KEYS &rest SPEC) | |
| 496 | (defalias 'ghub--auth-source-get #[385 "\300\301\302\303\304D\"\"@\305\306\307\310\311\312!\313\"\314\315%\"\207" [apply auth-source-search append :max 1 mapcar make-byte-code 257 "\301\300\"\207" vconcat vector [plist-get] 4 "\n\n(fn K)"] 10 (#$ . 50052)]) | |
| 497 | (byte-code "\300\301\302\303#\304\305\306\307#\207" [function-put ghub--auth-source-get lisp-indent-function 1 advice-add auth-source-netrc-parse-next-interesting :around auth-source-netrc-parse-next-interesting@save-match-data] 5) | |
| 498 | #@217 Save match-data for the benefit of caller `auth-source-netrc-parse-one'. | |
| 499 | Without wrapping this function in `save-match-data' the caller | |
| 500 | won't see the secret from a line that is followed by a commented | |
| 501 | line. | |
| 502 | ||
| 503 | (fn FN) | |
| 504 | (defalias 'auth-source-netrc-parse-next-interesting@save-match-data #[257 "\300 \301\302\303\304\305!\306\"\307$\216 )\207" [match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3] 8 (#$ . 50577)]) | |
| 505 | (byte-code "\300\301!\210\302\303!\207" [provide ghub require ghub-graphql] 2) | |
