;ELC
|
;;; Compiled
|
;;; in Emacs version 26.1
|
;;; with all optimizations.
|
|
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
|
|
;;; This file does not contain utf-8 non-ASCII characters,
|
;;; and so can be loaded in Emacs versions earlier than 23.
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
(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)
|
#@58 The default host that is used if `ghub.host' is not set.
|
(defconst ghub-default-host "api.github.com" (#$ . 582))
|
#@882 The Github API scopes that your private tools need.
|
|
The token that is created based on the value of this variable
|
is used when `ghub-request' (or one of its wrappers) is called
|
without providing a value for AUTH. Packages should always
|
identify themselves using that argument, but when you use Ghub
|
directly in private tools, then that is not necessary and the
|
request is made on behalf of the `ghub' package itself, aka on
|
behalf of some private tool.
|
|
By default the only requested scope is `repo' because that is
|
sufficient as well as required for most common uses. This and
|
other scopes are documented at URL `https://magit.vc/goto/2e586d36'.
|
|
If your private tools need other scopes, then you have to add
|
them here *before* creating the token. Alternatively you can
|
edit the scopes of an existing token using the web interface
|
at URL `https://github.com/settings/tokens'.
|
(defvar ghub-github-token-scopes '(repo) (#$ . 703))
|
#@134 If non-nil, the string used to identify the local machine.
|
If this is nil, then the value returned by `system-name' is
|
used instead.
|
(defvar ghub-override-system-name nil (#$ . 1644))
|
#@68 compiler-macro for inlining `ghub--req-p'.
|
|
(fn CL-WHOLE-ARG CL-X)
|
(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)])
|
(put 'ghub--req-p 'compiler-macro 'ghub--req-p--cmacro)
|
#@13
|
|
(fn CL-X)
|
(defalias 'ghub--req-p #[257 "\301!>\205 \302\207" [cl-struct-ghub--req-tags type-of t] 3 (#$ . 2162)])
|
(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)
|
#@70 compiler-macro for inlining `ghub--req-url'.
|
|
(fn CL-WHOLE-ARG CL-X)
|
(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)])
|
(put 'ghub--req-url 'compiler-macro 'ghub--req-url--cmacro)
|
#@104 Access slot "url" of `(ghub--req (:constructor ghub--make-req) (:copier nil))' struct CL-X.
|
|
(fn CL-X)
|
(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)])
|
(byte-code "\300\301\302\303#\300\207" [function-put ghub--req-url side-effect-free t] 4)
|
#@72 compiler-macro for inlining `ghub--req-forge'.
|
|
(fn CL-WHOLE-ARG CL-X)
|
(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)])
|
(put 'ghub--req-forge 'compiler-macro 'ghub--req-forge--cmacro)
|
#@106 Access slot "forge" of `(ghub--req (:constructor ghub--make-req) (:copier nil))' struct CL-X.
|
|
(fn CL-X)
|
(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)])
|
(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)
|
#@73 compiler-macro for inlining `ghub--req-silent'.
|
|
(fn CL-WHOLE-ARG CL-X)
|
(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)])
|
(put 'ghub--req-silent 'compiler-macro 'ghub--req-silent--cmacro)
|
#@107 Access slot "silent" of `(ghub--req (:constructor ghub--make-req) (:copier nil))' struct CL-X.
|
|
(fn CL-X)
|
(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)])
|
(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)
|
#@73 compiler-macro for inlining `ghub--req-method'.
|
|
(fn CL-WHOLE-ARG CL-X)
|
(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)])
|
(put 'ghub--req-method 'compiler-macro 'ghub--req-method--cmacro)
|
#@107 Access slot "method" of `(ghub--req (:constructor ghub--make-req) (:copier nil))' struct CL-X.
|
|
(fn CL-X)
|
(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)])
|
(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)
|
#@74 compiler-macro for inlining `ghub--req-headers'.
|
|
(fn CL-WHOLE-ARG CL-X)
|
(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)])
|
(put 'ghub--req-headers 'compiler-macro 'ghub--req-headers--cmacro)
|
#@108 Access slot "headers" of `(ghub--req (:constructor ghub--make-req) (:copier nil))' struct CL-X.
|
|
(fn CL-X)
|
(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)])
|
(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)
|
#@74 compiler-macro for inlining `ghub--req-handler'.
|
|
(fn CL-WHOLE-ARG CL-X)
|
(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)])
|
(put 'ghub--req-handler 'compiler-macro 'ghub--req-handler--cmacro)
|
#@108 Access slot "handler" of `(ghub--req (:constructor ghub--make-req) (:copier nil))' struct CL-X.
|
|
(fn CL-X)
|
(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)])
|
(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)
|
#@77 compiler-macro for inlining `ghub--req-unpaginate'.
|
|
(fn CL-WHOLE-ARG CL-X)
|
(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)])
|
(put 'ghub--req-unpaginate 'compiler-macro 'ghub--req-unpaginate--cmacro)
|
#@111 Access slot "unpaginate" of `(ghub--req (:constructor ghub--make-req) (:copier nil))' struct CL-X.
|
|
(fn CL-X)
|
(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)])
|
(byte-code "\300\301\302\303#\300\207" [function-put ghub--req-unpaginate side-effect-free t] 4)
|
#@74 compiler-macro for inlining `ghub--req-noerror'.
|
|
(fn CL-WHOLE-ARG CL-X)
|
(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)])
|
(put 'ghub--req-noerror 'compiler-macro 'ghub--req-noerror--cmacro)
|
#@108 Access slot "noerror" of `(ghub--req (:constructor ghub--make-req) (:copier nil))' struct CL-X.
|
|
(fn CL-X)
|
(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)])
|
(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)
|
#@73 compiler-macro for inlining `ghub--req-reader'.
|
|
(fn CL-WHOLE-ARG CL-X)
|
(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)])
|
(put 'ghub--req-reader 'compiler-macro 'ghub--req-reader--cmacro)
|
#@107 Access slot "reader" of `(ghub--req (:constructor ghub--make-req) (:copier nil))' struct CL-X.
|
|
(fn CL-X)
|
(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)])
|
(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)
|
#@75 compiler-macro for inlining `ghub--req-callback'.
|
|
(fn CL-WHOLE-ARG CL-X)
|
(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)])
|
(put 'ghub--req-callback 'compiler-macro 'ghub--req-callback--cmacro)
|
#@109 Access slot "callback" of `(ghub--req (:constructor ghub--make-req) (:copier nil))' struct CL-X.
|
|
(fn CL-X)
|
(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)])
|
(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)
|
#@76 compiler-macro for inlining `ghub--req-errorback'.
|
|
(fn CL-WHOLE-ARG CL-X)
|
(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)])
|
(put 'ghub--req-errorback 'compiler-macro 'ghub--req-errorback--cmacro)
|
#@110 Access slot "errorback" of `(ghub--req (:constructor ghub--make-req) (:copier nil))' struct CL-X.
|
|
(fn CL-X)
|
(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)])
|
(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)
|
#@72 compiler-macro for inlining `ghub--req-value'.
|
|
(fn CL-WHOLE-ARG CL-X)
|
(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)])
|
(put 'ghub--req-value 'compiler-macro 'ghub--req-value--cmacro)
|
#@106 Access slot "value" of `(ghub--req (:constructor ghub--make-req) (:copier nil))' struct CL-X.
|
|
(fn CL-X)
|
(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)])
|
(byte-code "\300\301\302\303#\300\207" [function-put ghub--req-value side-effect-free t] 4)
|
#@72 compiler-macro for inlining `ghub--req-extra'.
|
|
(fn CL-WHOLE-ARG CL-X)
|
(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)])
|
(put 'ghub--req-extra 'compiler-macro 'ghub--req-extra--cmacro)
|
#@106 Access slot "extra" of `(ghub--req (:constructor ghub--make-req) (:copier nil))' struct CL-X.
|
|
(fn CL-X)
|
(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)])
|
(byte-code "\300\301\302\303#\300\207" [function-put ghub--req-extra side-effect-free t] 4)
|
#@174 compiler-macro for inlining `ghub--make-req'.
|
|
(fn CL-WHOLE &cl-quote &key URL FORGE SILENT METHOD HEADERS HANDLER UNPAGINATE NOERROR READER CALLBACK ERRORBACK VALUE EXTRA)
|
(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)])
|
(put 'ghub--make-req 'compiler-macro 'ghub--make-req--cmacro)
|
#@154 Constructor for objects of type `ghub--req'.
|
|
(fn &key URL FORGE SILENT METHOD HEADERS HANDLER UNPAGINATE NOERROR READER CALLBACK ERRORBACK VALUE EXTRA)
|
(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)])
|
(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)
|
#@146 The headers returned in response to the last request.
|
`ghub-request' returns the response body and stores the
|
response headers in this variable.
|
(defvar ghub-response-headers nil (#$ . 16748))
|
#@264 Make a `HEAD' request for RESOURCE, with optional query PARAMS.
|
Like calling `ghub-request' (which see) with "HEAD" as METHOD.
|
|
(fn RESOURCE &optional PARAMS &key QUERY PAYLOAD HEADERS SILENT UNPAGINATE NOERROR READER USERNAME AUTH HOST CALLBACK ERRORBACK EXTRA)
|
(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)])
|
#@262 Make a `GET' request for RESOURCE, with optional query PARAMS.
|
Like calling `ghub-request' (which see) with "GET" as METHOD.
|
|
(fn RESOURCE &optional PARAMS &key QUERY PAYLOAD HEADERS SILENT UNPAGINATE NOERROR READER USERNAME AUTH HOST CALLBACK ERRORBACK EXTRA)
|
(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)])
|
#@264 Make a `PUT' request for RESOURCE, with optional payload PARAMS.
|
Like calling `ghub-request' (which see) with "PUT" as METHOD.
|
|
(fn RESOURCE &optional PARAMS &key QUERY PAYLOAD HEADERS SILENT UNPAGINATE NOERROR READER USERNAME AUTH HOST CALLBACK ERRORBACK EXTRA)
|
(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)])
|
#@266 Make a `POST' request for RESOURCE, with optional payload PARAMS.
|
Like calling `ghub-request' (which see) with "POST" as METHOD.
|
|
(fn RESOURCE &optional PARAMS &key QUERY PAYLOAD HEADERS SILENT UNPAGINATE NOERROR READER USERNAME AUTH HOST CALLBACK ERRORBACK EXTRA)
|
(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)])
|
#@268 Make a `PATCH' request for RESOURCE, with optional payload PARAMS.
|
Like calling `ghub-request' (which see) with "PATCH" as METHOD.
|
|
(fn RESOURCE &optional PARAMS &key QUERY PAYLOAD HEADERS SILENT UNPAGINATE NOERROR READER USERNAME AUTH HOST CALLBACK ERRORBACK EXTRA)
|
(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)])
|
#@270 Make a `DELETE' request for RESOURCE, with optional payload PARAMS.
|
Like calling `ghub-request' (which see) with "DELETE" as METHOD.
|
|
(fn RESOURCE &optional PARAMS &key QUERY PAYLOAD HEADERS SILENT UNPAGINATE NOERROR READER USERNAME AUTH HOST CALLBACK ERRORBACK EXTRA)
|
(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)])
|
#@4540 Make a request for RESOURCE and return the response body.
|
|
Also place the response header in `ghub-response-headers'.
|
|
METHOD is the HTTP method, given as a string.
|
RESOURCE is the resource to access, given as a string beginning
|
with a slash.
|
|
PARAMS, QUERY, PAYLOAD and HEADERS are alists used to specify
|
data. The Github API documentation is vague on how data has
|
to be transmitted and for a particular resource usually just
|
talks about "parameters". Generally speaking when the METHOD
|
is "HEAD" or "GET", then they have to be transmitted as a
|
query, otherwise as a payload.
|
Use PARAMS to automatically transmit like QUERY or PAYLOAD would
|
depending on METHOD.
|
Use QUERY to explicitly transmit data as a query.
|
Use PAYLOAD to explicitly transmit data as a payload.
|
Instead of an alist, PAYLOAD may also be a string, in which
|
case it gets encoded as UTF-8 but is otherwise transmitted as-is.
|
Use HEADERS for those rare resources that require that the data
|
is transmitted as headers instead of as a query or payload.
|
When that is the case, then the API documentation usually
|
mentions it explicitly.
|
|
If SILENT is non-nil, then don't message progress reports and
|
the like.
|
|
If UNPAGINATE is t, then make as many requests as necessary to
|
get all values. If UNPAGINATE is a natural number, then get
|
at most that many pages. For any other non-nil value raise
|
an error.
|
If NOERROR is non-nil, then do not raise an error if the request
|
fails and return nil instead. If NOERROR is `return', then
|
return the error payload instead of nil.
|
If READER is non-nil, then it is used to read and return from the
|
response buffer. The default is `ghub--read-json-payload'.
|
For the very few resources that do not return JSON, you might
|
want to use `ghub--decode-payload'.
|
|
If USERNAME is non-nil, then make a request on behalf of that
|
user. It is better to specify the user using the Git variable
|
`github.user' for "api.github.com", or `github.HOST.user' if
|
connecting to a Github Enterprise instance.
|
|
Each package that uses `ghub' should use its own token. If AUTH
|
is nil, then the generic `ghub' token is used instead. This
|
is only acceptable for personal utilities. A packages that
|
is distributed to other users should always use this argument
|
to identify itself, using a symbol matching its name.
|
|
Package authors who find this inconvenient should write a
|
wrapper around this function and possibly for the
|
method-specific functions as well.
|
|
Some symbols have a special meaning. `none' means to make an
|
unauthorized request. `basic' means to make a password based
|
request. If the value is a string, then it is assumed to be
|
a valid token. `basic' and an explicit token string are only
|
intended for internal and debugging uses.
|
|
If AUTH is a package symbol, then the scopes are specified
|
using the variable `AUTH-github-token-scopes'. It is an error
|
if that is not specified. See `ghub-github-token-scopes' for
|
an example.
|
|
If HOST is non-nil, then connect to that Github instance. This
|
defaults to "api.github.com". When a repository is connected
|
to a Github Enterprise instance, then it is better to specify
|
that using the Git variable `github.host' instead of using this
|
argument.
|
|
If FORGE is `gitlab', then connect to Gitlab.com or, depending
|
on HOST, to another Gitlab instance. This is only intended for
|
internal use. Instead of using this argument you should use
|
function `glab-request' and other `glab-*' functions.
|
|
If CALLBACK and/or ERRORBACK is non-nil, then make one or more
|
asynchronous requests and call CALLBACK or ERRORBACK when
|
finished. If an error occurred, then call ERRORBACK, or if
|
that is nil, then CALLBACK. When no error occurred then call
|
CALLBACK. When making asynchronous requests, then no errors
|
are signaled, regardless of the value of NOERROR.
|
|
Both callbacks are called with four arguments.
|
1. For CALLBACK, the combined value of the retrieved pages.
|
For ERRORBACK, the error that occured when retrieving the
|
last page.
|
2. The headers of the last page as an alist.
|
3. Status information provided by `url-retrieve'. Its `:error'
|
property holds the same information as ERRORBACK's first
|
argument.
|
4. A `ghub--req' struct, which can be passed to `ghub-continue'
|
(which see) to retrieve the next page, if any.
|
|
(fn METHOD RESOURCE &optional PARAMS &key QUERY PAYLOAD HEADERS SILENT UNPAGINATE NOERROR READER USERNAME AUTH HOST FORGE CALLBACK ERRORBACK VALUE EXTRA)
|
(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)])
|
#@680 If there is a next page, then retrieve that.
|
|
This function is only intended to be called from callbacks. If
|
there is a next page, then retrieve that and return the buffer
|
that the result will be loaded into, or t if the process has
|
already completed. If there is no next page, then return nil.
|
|
Callbacks are called with four arguments (see `ghub-request').
|
The forth argument is a `ghub--req' struct, intended to be passed
|
to this function. A callback may use the struct's `extra' slot
|
to pass additional information to the callback that will be
|
called after the next request has finished. Use the function
|
`ghub-req-extra' to get and set the value of this slot.
|
|
(fn REQ)
|
(defalias 'ghub-continue #[257 "\300\301!\236\205 \302\303\"\206 \304\207" [next ghub-response-link-relations ghub--retrieve nil t] 4 (#$ . 30157)])
|
#@467 Busy-wait up to DURATION seconds for RESOURCE to become available.
|
|
DURATION specifies how many seconds to wait at most. It defaults
|
to 64 seconds. The first attempt is made immediately, the second
|
after two seconds, and each subsequent attempt is made after
|
waiting as long again as we already waited between all preceding
|
attempts combined.
|
|
See `ghub-request' for information about the other arguments.
|
|
(fn RESOURCE &optional DURATION &key USERNAME AUTH HOST)
|
(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)])
|
#@484 Return an alist of link relations in HEADERS.
|
If optional HEADERS is nil, then return those that were
|
previously stored in the variable `ghub-response-headers'.
|
|
When accessing a Bitbucket instance then the link relations
|
are in PAYLOAD instead of HEADERS, making their API merely
|
RESTish and forcing this function to append those relations
|
to the value of `ghub-response-headers', for later use when
|
this function is called with nil for PAYLOAD.
|
|
(fn REQ &optional HEADERS PAYLOAD)
|
(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)])
|
#@91 Return the id of the specified repository.
|
|
(fn OWNER NAME &key USERNAME AUTH HOST FORGE)
|
(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)])
|
#@20
|
|
(fn PAYLOAD REQ)
|
(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)])
|
#@19
|
|
(fn STATUS REQ)
|
(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)])
|
#@19
|
|
(fn STATUS REQ)
|
(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)])
|
#@27
|
|
(fn STATUS PAYLOAD REQ)
|
(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)])
|
#@30
|
|
(fn ERR &optional PAYLOAD)
|
(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)])
|
#@20
|
|
(fn PAYLOAD REQ)
|
(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)])
|
#@12
|
|
(fn REQ)
|
(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)])
|
#@15
|
|
(fn STATUS)
|
(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)])
|
#@25
|
|
(fn &optional STATUS)
|
(defalias 'ghub--decode-payload #[256 "m?\205\f \300\301`d\"\302\"\207" [decode-coding-string buffer-substring-no-properties utf-8] 5 (#$ . 38836)])
|
#@16
|
|
(fn PAYLOAD)
|
(defalias 'ghub--encode-payload #[257 "\211\205 \211;\204 \300!\262\301\302\"\207" [json-encode-list encode-coding-string utf-8] 4 (#$ . 39015)])
|
#@15
|
|
(fn PARAMS)
|
(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)])
|
#@279 Create, store and return a new token.
|
|
HOST is the Github instance, usually "api.github.com".
|
USERNAME is the name of a user on that instance.
|
PACKAGE is the package that will use the token.
|
SCOPES are the scopes the token is given access to.
|
|
(fn HOST USERNAME PACKAGE SCOPES)
|
(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)])
|
#@192 Return and echo the scopes of the specified token.
|
This is intended for debugging purposes only. The user
|
has to provide several values including their password.
|
|
(fn HOST USERNAME PACKAGE)
|
(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)])
|
#@308 Clear all caches that might negatively affect Ghub.
|
|
If a library that is used by Ghub caches incorrect information
|
such as a mistyped password, then that can prevent Ghub from
|
asking the user for the correct information again.
|
|
Set `url-http-real-basic-auth-storage' to nil
|
and call `auth-source-forget+'.
|
(defalias 'ghub-clear-caches #[0 "\301\302 \207" [url-http-real-basic-auth-storage nil auth-source-forget+] 1 (#$ . 40964) nil])
|
#@41
|
|
(fn HEADERS HOST AUTH USERNAME FORGE)
|
(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)])
|
#@43
|
|
(fn HOST AUTH &optional USERNAME FORGE)
|
(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)])
|
#@22
|
|
(fn HOST USERNAME)
|
(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)])
|
#@50
|
|
(fn URL &optional PROMPT OVERWRITE REALM ARGS)
|
(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)])
|
#@55
|
|
(fn HOST USERNAME PACKAGE &optional NOCREATE FORGE)
|
(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)])
|
#@24
|
|
(fn &optional FORGE)
|
(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)])
|
#@29
|
|
(fn HOST &optional FORGE)
|
(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)])
|
#@25
|
|
(fn USERNAME PACKAGE)
|
(defalias 'ghub--ident #[514 "\300\301#\207" [format "%s^%s"] 6 (#$ . 46634)])
|
#@16
|
|
(fn PACKAGE)
|
(defalias 'ghub--ident-github #[257 "\301\302\206 \303 #\207" [ghub-override-system-name format "Emacs package %s @ %s" system-name] 5 (#$ . 46745)])
|
#@16
|
|
(fn PACKAGE)
|
(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)])
|
#@30
|
|
(fn HOST USERNAME PACKAGE)
|
(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)])
|
#@30
|
|
(fn HOST USERNAME PACKAGE)
|
(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)])
|
#@30
|
|
(fn HOST USERNAME PACKAGE)
|
(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)])
|
#@30
|
|
(fn HOST USERNAME PACKAGE)
|
(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)])
|
(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])
|
(defvar ghub--2fa-cache nil)
|
(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])
|
#@24
|
|
(fn KEYS &rest SPEC)
|
(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)])
|
(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)
|
#@217 Save match-data for the benefit of caller `auth-source-netrc-parse-one'.
|
Without wrapping this function in `save-match-data' the caller
|
won't see the secret from a line that is followed by a commented
|
line.
|
|
(fn FN)
|
(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)])
|
(byte-code "\300\301!\210\302\303!\207" [provide ghub require ghub-graphql] 2)
|
