mirror of https://github.com/Chizi123/.emacs.d.git

Chizi123
2018-11-21 e75a20334813452c6912c090d70a0de2c805f94d
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)