;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!\207" [require magit ghub] 2)
|
#@645 The Github API scopes needed by Magit.
|
|
`repo' is the only required scope. Without this scope none of
|
Magit's features that use the API work. Instead of this scope
|
you could use `public_repo' if you are only interested in public
|
repositories.
|
|
`repo' Grants read/write access to code, commit statuses,
|
invitations, collaborators, adding team memberships, and
|
deployment statuses for public and private repositories
|
and organizations.
|
|
`public_repo' Grants read/write access to code, commit statuses,
|
collaborators, and deployment statuses for public repositories
|
and organizations. Also required for starring public
|
repositories.
|
(defvar magit-github-token-scopes '(repo) (#$ . 473))
|
#@166 Visit pull-request PR using `browse-url'.
|
|
Currently this only supports Github, but that restriction will
|
be lifted eventually to support other Git forges.
|
|
(fn PR)
|
(defalias 'magit-browse-pull-request #[257 "\300\301\302\303\236A\304\236A\305\236A\262\262\262\306\236A#!\207" [browse-url format "https://github.com/%s/pull/%s" base repo full_name number] 9 (#$ . 1178) (byte-code "\300\301!C\207" [magit-read-pull-request "Visit pull request"] 2)])
|
#@189 Read a pull request from the user, prompting with PROMPT.
|
Return the Git forge's API response. Currently this function
|
only supports Github, but that will change eventually.
|
|
(fn PROMPT)
|
(defalias 'magit-read-pull-request #[257 "\300 \301!\302\303\304\305\"\306\307\310$\311\312\"\306\211\211\211\313\314!\211\205$ !\262&\315\316\"\2055 \317\320\321\"!\211\205D \303\304\322#\306\307\310$\207" [magit-upstream-repository magit--forge-id #[257 "\300\301\302\236A\303\236A#\207" [format "%s %s" number title] 6 "\n\n(fn PULL-REQUEST)"] ghub-get format "/repos/%s/pulls" nil :auth magit magit-completing-read mapcar thing-at-point github-pull-request string-match "\\([0-9]+\\)" string-to-number match-string 1 "/repos/%s/pulls/%s"] 15 (#$ . 1643)])
|
#@201 Return the remote name of the upstream repository.
|
|
If the Git variable `magit.upstream' is set, then return its
|
value. Otherwise return "origin". If the remote does not
|
exist, then raise an error.
|
(defalias 'magit-upstream-repository #[0 "\300\301!\206 \302\303!\204 \304\305\"\210\306!\204 \304\307!\210\211\207" [magit-get "magit.upstream" "origin" magit-remote-p error "No remote named `%s' exists (consider setting `magit.upstream')" magit--github-remote-p "Currently only Github is supported"] 4 (#$ . 2416)])
|
#@15
|
|
(fn REMOTE)
|
(defalias 'magit--forge-id #[257 "\300\301\302#\303\304\"\205 \305\306\"\207" [magit-get "remote" "url" string-match "\\([^:/]+/[^/]+?\\)\\(?:\\.git\\)?\\'" match-string 1] 5 (#$ . 2946)])
|
(defconst magit--github-url-regexp "\\`\\(?:git://\\|git@\\|ssh://git@\\|https://\\)\\(.*?\\)[/:]\\(\\([^:/]+\\)/\\([^/]+?\\)\\)\\(?:\\.git\\)?\\'")
|
#@12
|
|
(fn URL)
|
(defalias 'magit--github-url-p #[257 "\302 \303\304\305\306\307!\310\"\311$\216\205G \312\"\205G \313\314\"\315\316\317\312#)\266\203\204D \320\321\322 \323\"@!\316\317\312#)\266\203\205E \211\262)\207" [magit--github-url-regexp inhibit-changing-match-data match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 string-match match-string 1 "github\\.com" nil t regexp-quote split-string ghub--host "/"] 10 (#$ . 3308)])
|
#@15
|
|
(fn REMOTE)
|
(defalias 'magit--github-remote-p #[257 "\300\301\302\303$\211\205 \304!\262\206! \300\301\302\305$\211\205 \304!\262\207" [magit-git-string "remote" "get-url" "--push" magit--github-url-p "--all"] 6 (#$ . 3799)])
|
#@14
|
|
(fn R1 R2)
|
(defalias 'magit--github-url-equal #[514 "\232\206: \301 \302\303\304\305\306!\307\"\310$\216\311\"\205 \312\313\"\311\"\205* \312\313\"\2055 \211\2055 \232\266\202)\262\207" [magit--github-url-regexp match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 string-match match-string 2] 9 (#$ . 4041)])
|
#@11
|
|
(fn PR)
|
(defalias 'magit--pullreq-from-upstream-p #[257 "\211\300\301\302\236A\236A\236A\300\301\303\236A\236A\236A\232\266\202\207" [full_name repo head base] 7 (#$ . 4413)])
|
#@32
|
|
(fn PR &optional ASSERT-NEW)
|
(defalias 'magit--pullreq-branch #[513 "\300\301\236A\236A\302\236A\303\236A\304!\204( \203\" \305!\203( \306\307\"\262\2037 \305!\2037 \310\311\"\210\211\262\266\203\207" [ref head maintainer_can_modify number magit--pullreq-from-upstream-p magit-branch-p format "pr-%s" user-error "Branch `%s' already exists"] 10 (#$ . 4601)])
|
(provide 'magit-collab)
|
