;ELC ;;; Compiled ;;; in Emacs version 25.3.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!\207" [require auth-source cl-lib json let-alist url url-auth] 2) (defconst ghub-default-host "api.github.com") #@870 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 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 https://github.com/settings/tokens. (defvar ghub-github-token-scopes '(repo) (#$ . 609)) #@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 (#$ . 1538)) #@145 The headers returned in response to the last request. `ghub-request' returns the response body and stores the response header in this variable. (defvar ghub-response-headers nil (#$ . 1729)) (defvar ghub-raw-response-body nil) #@232 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 UNPAGINATE NOERROR READER USERNAME AUTH HOST) (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@ \211\203g\211@\312>\203O\211AA\262\202<\313 >A@\203^\314\262\202<\315\316@\"\210\202<\210\317\320  \301 \302\303\304\305\306\307\310\311&\207" [plist-member :query :payload :headers :unpaginate :noerror :reader :username :auth :host (:query :payload :headers :unpaginate :noerror :reader :username :auth :host :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:query :payload :headers :unpaginate :noerror :reader :username :auth :host)" ghub-request "HEAD"] 34 (#$ . 1963)]) #@230 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 UNPAGINATE NOERROR READER USERNAME AUTH HOST) (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@ \211\203g\211@\312>\203O\211AA\262\202<\313 >A@\203^\314\262\202<\315\316@\"\210\202<\210\317\320  \301 \302\303\304\305\306\307\310\311&\207" [plist-member :query :payload :headers :unpaginate :noerror :reader :username :auth :host (:query :payload :headers :unpaginate :noerror :reader :username :auth :host :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:query :payload :headers :unpaginate :noerror :reader :username :auth :host)" ghub-request "GET"] 34 (#$ . 2888)]) #@232 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 UNPAGINATE NOERROR READER USERNAME AUTH HOST) (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@ \211\203g\211@\312>\203O\211AA\262\202<\313 >A@\203^\314\262\202<\315\316@\"\210\202<\210\317\320  \301 \302\303\304\305\306\307\310\311&\207" [plist-member :query :payload :headers :unpaginate :noerror :reader :username :auth :host (:query :payload :headers :unpaginate :noerror :reader :username :auth :host :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:query :payload :headers :unpaginate :noerror :reader :username :auth :host)" ghub-request "PUT"] 34 (#$ . 3809)]) #@234 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 UNPAGINATE NOERROR READER USERNAME AUTH HOST) (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@ \211\203g\211@\312>\203O\211AA\262\202<\313 >A@\203^\314\262\202<\315\316@\"\210\202<\210\317\320  \301 \302\303\304\305\306\307\310\311&\207" [plist-member :query :payload :headers :unpaginate :noerror :reader :username :auth :host (:query :payload :headers :unpaginate :noerror :reader :username :auth :host :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:query :payload :headers :unpaginate :noerror :reader :username :auth :host)" ghub-request "POST"] 34 (#$ . 4732)]) #@236 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 UNPAGINATE NOERROR READER USERNAME AUTH HOST) (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@ \211\203g\211@\312>\203O\211AA\262\202<\313 >A@\203^\314\262\202<\315\316@\"\210\202<\210\317\320  \301 \302\303\304\305\306\307\310\311&\207" [plist-member :query :payload :headers :unpaginate :noerror :reader :username :auth :host (:query :payload :headers :unpaginate :noerror :reader :username :auth :host :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:query :payload :headers :unpaginate :noerror :reader :username :auth :host)" ghub-request "PATCH"] 34 (#$ . 5659)]) #@238 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 UNPAGINATE NOERROR READER USERNAME AUTH HOST) (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@ \211\203g\211@\312>\203O\211AA\262\202<\313 >A@\203^\314\262\202<\315\316@\"\210\202<\210\317\320  \301 \302\303\304\305\306\307\310\311&\207" [plist-member :query :payload :headers :unpaginate :noerror :reader :username :auth :host (:query :payload :headers :unpaginate :noerror :reader :username :auth :host :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:query :payload :headers :unpaginate :noerror :reader :username :auth :host)" ghub-request "DELETE"] 34 (#$ . 6590)]) (byte-code "\300\301\302\"\210\300\303\304\301#\210\300\305\306\303#\210\300\307\310\303#\210\300\311\312\303#\210\300\313\314\303#\210\300\315\316\303#\210\300\317\320\303#\210\300\321\322\303#\207" [define-error ghub-error "Ghub Error" ghub-http-error "HTTP Error" ghub-301 "Moved Permanently" ghub-400 "Bad Request" ghub-401 "Unauthorized" ghub-403 "Forbidden" ghub-404 "Not Found" ghub-422 "Unprocessable Entity" ghub-500 "Internal Server Error"] 4) #@3008 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. 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 UNPAGINATE is non-nil, then make multiple requests if necessary to get all items at RESOURCE. If NOERROR is non-nil, then do not raise an error if the request fails and return nil instead. If READER is non-nil, then it is used to read and return from the response buffer. The default is `ghub--read-json-response'. For the very few resources that do not return json, you might want to use `ghub--read-raw-response'. 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 also. 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. (fn METHOD RESOURCE &optional PARAMS &key QUERY PAYLOAD HEADERS UNPAGINATE NOERROR READER USERNAME AUTH HOST) (defalias 'ghub-request #[898 "\306\307\"A@\306\310\"A@\306\311\"A@\306\312\"A@\306\313\"A@\306\314\"A@\306\315\"A@\306\316\"A@\306 \317\"A@ \211\203g\211@\320>\203O\211AA\262\202<\321 >A@\203^\322\262\202<\323\324@\"\210\202<\210\325\326 \"\204v\326\fP\262\f\211\204~\327 \262\n\203\253\f\330>\203\234\203\225\323\331\"\210\n\262 \202\253\203\247\323\332\"\210\n\262\203\277;\204\277\333\334 !\335\"\262\205\312\336\337\n!P\340\341\342=?\205\335\343\344 #BC\n\"B\333\335\"\n\345\346R!+\347\350\351\352\353!\354\"\355$\216r\211q\210\356\357!\210\322\211eb\210\322\360\361 \357#\203$\362\363!\362\355!BB\262\202\364\365\"A\211\262\203O\366\367C\370\371\372\373\"\"\"@\211\262\203O\374\375\"\203O\362\363\"\262\211\237\210 \204[\323\376!\210 Tb\210\206e\377 !\262\204 \201@\245\355U\204\257 \201A=\203\226\201B\201C\"\210\202 \201D=\203\252\201B\201E\"\210\202 \201F=\203\276\201B\201G\"\210\202 \201H=\203\322\201B\201I\"\210\202 \201J=\203\346\201B\201K\"\210\202 \201L=\203\372\201B\201M\"\210\202 \201N=\203\201B\201O\"\210\202\201B\201P B\"\210\210\203` \203`\211\201Q\322\307\201RB\201S\201R\201T\201U$B\310\311\312\357\313\314\315\316\317&\244\202a\211\266\202*\266\202\207" [url-request-data url-request-method url-request-extra-headers url-http-end-of-headers ghub-response-headers url-http-response-status plist-member :query :payload :headers :unpaginate :noerror :reader :username :auth :host (:query :payload :headers :unpaginate :noerror :reader :username :auth :host :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:query :payload :headers :unpaginate :noerror :reader :username :auth :host)" string-prefix-p "/" ghub--host ("GET" "HEAD") "PARAMS and QUERY are mutually exclusive for METHOD %S" "PARAMS and PAYLOAD are mutually exclusive for METHOD %S" encode-coding-string json-encode-list utf-8 "?" ghub--url-encode-params ("Content-Type" . "application/json") append none "Authorization" ghub--auth url-retrieve-synchronously "https://" make-byte-code 0 "\301\300!\207" vconcat vector [kill-buffer] 2 set-buffer-multibyte t re-search-forward "^\\([^:]*\\): \\(.+\\)" match-string 1 assoc "Link" rassoc "rel=\"next\"" mapcar #[257 "\300\301\"\207" [split-string "; "] 4 "\n\n(fn ELT)"] split-string "," string-match "[?&]page=\\([^&>]+\\)" "ghub: url-http-end-of-headers is nil when it shouldn't" ghub--read-json-response 100 301 signal ghub-301 400 ghub-400 401 ghub-401 403 ghub-403 404 ghub-404 422 ghub-422 500 ghub-500 ghub-http-error ghub-request page cl-delete :key car] 40 (#$ . 7980)]) #@456 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 subequent attemts are made after waiting as long as we already waited between all preceding attempts combined. See `ghub-request' for information about the other arguments. (fn RESOURCE &optional USERNAME AUTH HOST DURATION) (defalias 'ghub-wait #[1281 "\211\204\302\262\3031l\304\305\3061%\307\304\310\311 \312\n&0\202'\210\304?\205g\313\314 $\210\211U\203F\315\316\317\320 \"C\"\210\202\211\305V\203]\211Z^\321!\210\\\266\202\202\321\322\211\262!\210\202\262)0\207\210\323\324\325!\207" [inhibit-quit quit-flag 64 (quit) nil 0 (error) ghub-get :username :auth :host message "Waited (%3ss of %ss) for %s..." signal ghub-error format "Github is taking too long to create %s" sit-for 2 t eval (ignore nil)] 15 (#$ . 13738)]) (defalias 'ghub--read-json-response #[257 "\305 \211\205!\3061\307\310\311\312\211\313!-0\202!\210\314\"\207" [json-null json-false json-key-type json-array-type json-object-type ghub--read-raw-response (json-readable-error) alist list symbol nil json-read-from-string ghub--handle-invalid-response] 7 "\n\n(fn STATUS)"]) (defalias 'ghub--read-raw-response #[256 "m?\205\301\302`d\"\303\"\211\207" [ghub-raw-response-body decode-coding-string buffer-substring-no-properties utf-8] 5 "\n\n(fn &optional STATUS)"]) (defalias 'ghub--handle-invalid-response #[514 "\300\301\"\302\203B\303\304!r\211q\210\305\306\307\310\311!\312\"\313$\216\212c\210)\314\315\302\316#\2033\317\320!B\262\202!*\210\211\203B\321\322\323!\324#\262\325B\326\327B\330\331B\257\207" [string-prefix-p "" nil generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 re-search-forward "

\\(?:\\)?\\([^<]+\\)" t match-string 1 mapconcat identity reverse " " http_status (invalid_response . "Github failed to deliver Json.") invalid_is_html (invalid_comment . "Message consists of strings found in the html.") message] 11 "\n\n(fn STATUS BODY)"]) (defalias 'ghub--url-encode-params #[257 "\300\301\302#\207" [mapconcat #[257 "\300\301@!!\302\300A!Q\207" [url-hexify-string symbol-name "="] 5 "\n\n(fn PARAM)"] "&"] 5 "\n\n(fn PARAMS)"]) #@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\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 auth-source-forget] 24 (#$ . 16162) (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 (#$ . 17205) (ghub--read-triplet)]) (defalias 'ghub--auth #[770 "\211\204 \300!\262\301=\203\302\"\207\303\304;\203\202@\204+\305\306#\202@9\2039\305#\202@\307\310\311D\"\312\"P\207" [ghub--username basic ghub--basic-auth "token " encode-coding-string ghub--token ghub signal wrong-type-argument (or stringp symbolp) utf-8] 9 "\n\n(fn HOST AUTH &optional USERNAME)"]) (defalias 'ghub--basic-auth #[514 "\301\302P!\211\303H>\204\304\305\306D\"\210\211\211\307I\266\310\311\"\207" [cl-struct-url-tags url-generic-parse-url "https://" 0 signal wrong-type-argument url 2 url-basic-auth t] 7 "\n\n(fn HOST USERNAME)"]) (defalias 'ghub--token #[1027 "\300\"\301\302\303\304%\206&\305\306\307\303\304\257!\210?\205&\310#\207" [ghub--ident ghub--auth-source-get :secret :host :user auth-source-forget :max 1 ghub--confirm-create-token] 12 "\n\n(fn HOST USERNAME PACKAGE &optional NOCREATE)"]) (defalias 'ghub--host #[0 "\3011\302\303\304\305#@0\202\210\202\206\207" [ghub-default-host (error) process-lines "git" "config" "github.host"] 4]) (defalias 'ghub--username #[257 "\300\301\"\203 \302\202\303\304\"\3051\306\307\310#@0\202?\210\311\303\312\"!\211\203:\313\307\314\211\211\310\315&\210\211\206=\316\317!\262\207" [string-prefix-p "api.github.com" "github.user" format "github.%s.user" (error) process-lines "git" "config" read-string "Git variable `%s' is unset. Set to: " call-process nil "--global" user-error "Abort"] 12 "\n\n(fn HOST)"]) (defalias 'ghub--ident #[514 "\300\301#\207" [format "%s^%s"] 6 "\n\n(fn USERNAME PACKAGE)"]) (defalias 'ghub--ident-github #[257 "\301\302\206 \303 #\207" [ghub-override-system-name format "Emacs package %s @ %s" system-name] 5 "\n\n(fn PACKAGE)"]) (defalias 'ghub--package-scopes #[257 "\300\301\302\"!J\207" [intern format "%s-github-token-scopes"] 5 "\n\n(fn PACKAGE)"]) (defalias 'ghub--confirm-create-token #[771 "\303!\304!\305\306\307\310\311\211\312\313 \314#\n\n&!)\203K\315#\203B\307\310\316\"!\203>\317#\210\202B\320\321!\210\322$\202N\320\321!)\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 locally according to `auth-sources':\n %S\n Store on Github as:\n %S\n\nWARNING: If you have enabled two-factor authentication then\n you have to abort and create the token manually.\n\nIf in doubt, then abort and view the documentation first.\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" ghub--get-token-id "A token named %S\nalready exists on Github. Replace it?" ghub--delete-token user-error "Abort" ghub-create-token] 16 "\n\n(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" nil :unpaginate t :username :auth basic :host] 17 "\n\n(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 "\n\n(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 "\n\n(fn HOST USERNAME PACKAGE)"]) (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]) (defalias 'ghub--auth-source-get #[385 "\300\301\302\303$@\304\305\306\307\310!\311\"\312\313%<\203\314\"\202\"\211!\262\207" [apply auth-source-search :max 1 make-byte-code 257 "\301\300\"\302!\203\211 \202\211\207" vconcat vector [plist-get functionp] 4 "\n\n(fn K)" mapcar] 9 "\n\n(fn KEY:S &rest SPEC)"]) (byte-code "\300\301\302\303#\210\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] 4) #@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 (#$ . 22368)]) (provide 'ghub)