| 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!\207" [require magit ghub] 2) | |
| 16 | #@645 The Github API scopes needed by Magit. | |
| 17 | ||
| 18 | `repo' is the only required scope. Without this scope none of | |
| 19 | Magit's features that use the API work. Instead of this scope | |
| 20 | you could use `public_repo' if you are only interested in public | |
| 21 | repositories. | |
| 22 | ||
| 23 | `repo' Grants read/write access to code, commit statuses, | |
| 24 | invitations, collaborators, adding team memberships, and | |
| 25 | deployment statuses for public and private repositories | |
| 26 | and organizations. | |
| 27 | ||
| 28 | `public_repo' Grants read/write access to code, commit statuses, | |
| 29 | collaborators, and deployment statuses for public repositories | |
| 30 | and organizations. Also required for starring public | |
| 31 | repositories. | |
| 32 | (defvar magit-github-token-scopes '(repo) (#$ . 473)) | |
| 33 | #@166 Visit pull-request PR using `browse-url'. | |
| 34 | ||
| 35 | Currently this only supports Github, but that restriction will | |
| 36 | be lifted eventually to support other Git forges. | |
| 37 | ||
| 38 | (fn PR) | |
| 39 | (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)]) | |
| 40 | #@189 Read a pull request from the user, prompting with PROMPT. | |
| 41 | Return the Git forge's API response. Currently this function | |
| 42 | only supports Github, but that will change eventually. | |
| 43 | ||
| 44 | (fn PROMPT) | |
| 45 | (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)]) | |
| 46 | #@201 Return the remote name of the upstream repository. | |
| 47 | ||
| 48 | If the Git variable `magit.upstream' is set, then return its | |
| 49 | value. Otherwise return "origin". If the remote does not | |
| 50 | exist, then raise an error. | |
| 51 | (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)]) | |
| 52 | #@15 | |
| 53 | ||
| 54 | (fn REMOTE) | |
| 55 | (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)]) | |
| 56 | (defconst magit--github-url-regexp "\\`\\(?:git://\\|git@\\|ssh://git@\\|https://\\)\\(.*?\\)[/:]\\(\\([^:/]+\\)/\\([^/]+?\\)\\)\\(?:\\.git\\)?\\'") | |
| 57 | #@12 | |
| 58 | ||
| 59 | (fn URL) | |
| 60 | (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)]) | |
| 61 | #@15 | |
| 62 | ||
| 63 | (fn REMOTE) | |
| 64 | (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)]) | |
| 65 | #@14 | |
| 66 | ||
| 67 | (fn R1 R2) | |
| 68 | (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)]) | |
| 69 | #@11 | |
| 70 | ||
| 71 | (fn PR) | |
| 72 | (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)]) | |
| 73 | #@32 | |
| 74 | ||
| 75 | (fn PR &optional ASSERT-NEW) | |
| 76 | (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)]) | |
| 77 | (provide 'magit-collab) | |
