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

Chizi123
2018-11-18 9d27fc972e84736015ab3b1c331888a8fe3d1276
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
;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.
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 
(require 'magit)
#@58 Popup console for worktree commands.
 
(fn &optional ARG)
(defalias 'magit-worktree-popup #[256 "\300\301\302#\207" [magit-invoke-popup magit-worktree-popup nil] 5 (#$ . 425) "P"])
(defvar magit-worktree-popup (byte-code "\300\301\302\303\304\305\306\307\310\311\312\313#?\205\314\315\"BB\316\317\257\207" [:variable magit-worktree-arguments :man-page "git-worktree" :actions (98 "Create new worktree" magit-worktree-checkout) (99 "Create new branch and worktree" magit-worktree-branch) append require forge nil t ((112 "Create new worktree from pull-request" magit-worktree-checkout-pull-request)) ((107 "Delete worktree" magit-worktree-delete) (103 "Show status for worktree" magit-worktree-status)) :max-action-columns 1] 12))
(byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313&\207" [magit-define-popup-keys-deferred magit-worktree-popup custom-declare-variable magit-worktree-arguments funcall function #[0 "\301\302\"\207" [magit-worktree-popup plist-get :default-arguments] 3] "" :group magit-git-arguments :type (repeat (string :tag "Argument"))] 8)
(defalias 'magit-worktree-arguments #[0 "\303=\203    \207\n\207" [magit-current-popup magit-current-popup-args magit-worktree-arguments magit-worktree-popup] 2])
(put 'magit-worktree-arguments 'definition-name 'magit-worktree-popup)
#@62 Checkout BRANCH in a new worktree at PATH.
 
(fn PATH BRANCH)
(defalias 'magit-worktree-checkout #[514 "\300\301\302\303!$\210\304!\207" [magit-run-git "worktree" "add" expand-file-name magit-diff-visit-directory] 7 (#$ . 1745) (byte-code "\300\301!\302\303\304\"!D\207" [magit-read-local-branch-or-commit "Checkout" read-directory-name format "Checkout %s in new worktree: "] 5)])
#@214 Create, configure and checkout a new worktree from a pull-request.
This is like `magit-checkout-pull-request', except that it
also creates a new worktree. Please see the manual for more
information.
 
(fn PATH PR)
(defalias 'magit-worktree-checkout-pull-request #[514 "\301!\203\302!\203\303\304!G\305U\204\306\307\"\210\310\311\312!)\"\207" [inhibit-magit-refresh file-exists-p file-directory-p directory-files "/tmp/testing/" 2 user-error "%s already exists and isn't empty" magit-worktree-checkout t magit-branch-pull-request] 6 (#$ . 2138) (byte-code "\302\303!\211\304\236A\305\306\236A\236A\307\310\"\311\312\313#\314\315!!\316\211\317\316\310\320#)\266\203\2038\321!\202?\312\322        #%\262\211\323\232\203L\324\325!\210\211D\262\266\202\262\207" [default-directory inhibit-changing-match-data magit-read-pull-request "Checkout pull request" number ref head magit--pullreq-branch t read-directory-name format "Checkout #%s as `%s' in new worktree: " file-name-directory directory-file-name nil "\\`pr-[0-9]+\\'" string-match number-to-string "%s-%s" "" user-error "The empty string isn't a valid path"] 17)])
#@111 Create a new BRANCH and check it out in a new worktree at PATH.
 
(fn PATH BRANCH START-POINT &optional FORCE)
(defalias 'magit-worktree-branch #[1027 "\300\301\302\203 \303\202\f\304\305    !&\210\306!\207" [magit-run-git "worktree" "add" "-B" "-b" expand-file-name magit-diff-visit-directory] 11 (#$ . 3292) (byte-code "\301\302!\303\304\305\306!!C\"B\207" [current-prefix-arg read-directory-name "Create worktree: " append butlast magit-branch-read-args "Create and checkout branch"] 5)])
#@112 Delete a worktree, defaulting to the worktree at point.
The primary worktree cannot be deleted.
 
(fn WORKTREE)
(defalias 'magit-worktree-delete #[257 "\303\304\305\"!\203\306\307\"\207\310\311 @@!\312\203\313\202\314\315C\"\210\316!\2031\317\320#\210)\316\n!\203>\321\315\322\"\202R\211\321\315\322\"\210)\323\324!\205R\325 \210\326!\207" [magit-delete-by-moving-to-trash delete-by-moving-to-trash default-directory file-directory-p expand-file-name ".git" user-error "Deleting %s would delete the shared .git directory" file-name-as-directory magit-list-worktrees magit-confirm-files trash delete "worktree" file-exists-p delete-directory t magit-run-git "prune" derived-mode-p magit-status-mode kill-buffer magit-status-internal] 6 (#$ . 3798) (byte-code "\300\301\302 A\303\304\303\211\305\306!&C\207" [magit-completing-read "Delete worktree" magit-list-worktrees nil t magit-section-value-if worktree] 9)])
#@257 Show the status for the worktree at point.
If there is no worktree at point, then read one in the
minibuffer.  If the worktree at point is the one whose
status is already being displayed in the current buffer,
then show it in Dired instead.
 
(fn WORKTREE)
(defalias 'magit-worktree-status #[257 "\300!\207" [magit-diff-visit-directory] 3 (#$ . 4737) (byte-code "\300\301!\206\302\303\304\305\306 !\307 \310\311\312\313&\"C\207" [magit-section-value-if worktree magit-completing-read "Show status for worktree" cl-delete directory-file-name magit-toplevel magit-list-worktrees :test equal :key car] 9)])
#@33 Keymap for `worktree' sections.
(defvar magit-worktree-section-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\211\207" [make-sparse-keymap define-key [remap magit-visit-thing] magit-worktree-status [remap magit-delete-thing] magit-worktree-delete] 5) (#$ . 5350))
#@88 Insert sections for all worktrees.
If there is only one worktree, then insert nothing.
(defalias 'magit-insert-worktrees #[0 "\306 \211G\307V\205\311\310\311!\203\211\202\211\236A\206\312\313\311!\2033\314\"@\2064\315\316\300#\2024\317\320\321\322 \323    &\324\325\326\327\"\211\203N\211\330=\202\200\n\205Y\331\332!\n\"\211\203d\333\325\"\202~\334 \"\211\205|\335!\203y\211!\262\211\330=\262\262\262#\210\211\n\206\222    ?\205\222\f\3362\305\337\340!\210\341\342\"\343\341\344\"!T\211\203\211@\211@A\211\345\311!\203\300\211\202\310\211\236A\206\310\312\313\311!\203\337\314\"@\206\340\315\316\300#\202\340\317\321\322 \323    &\324\325\326\327\"\211\203\373\211\330=\202-\n\205\331\332!\n\"\211\203\333\325\"\202+\334 \"\211\205)\335!\203&\211!\262\211\330=\262\262\262#\210\211\n\206?    ?\205?\f\3362c\210j\210\346!\347!\350!\350!W\203a\202b\211\266\202c\210\351c\210\352\353!\210\354!\210\355\333\356\"\357\"\210\324\360\322 #\361\362\"\363\364\365\333\366\"\"!\363\364\367\333\366\"\"!\203\240J\206\263\370!\203\253J\206\263\370!\205\263\211J\212\333\356\"b\210`W\203\352\371`\312\"\206\311\372`\312\"\204\343\373`\312\n$\210\203\343\373`\362$\210\211b\266\202\273)\266\211\f=\203\375\320?\374!)\202\324\333\375\"\376\333\211\375\"\376\"C\244#0\210+\266A\266\202\202\251\266\351c\210\352\353!\210\354!\210\355\333\356\"\357\"\210\324\360\322 #\361\362\"\363\364\365\333\366\"\"!\363\364\367\333\366\"\"!\203VJ\206i\370!\203aJ\206i\370!\205i\211J\212\333\356\"b\210`W\203\240\371`\312\"\206\372`\312\"\204\231\373`\312\n$\210\203\231\373`\362$\210\211b\266\202q)\266\211\f=\203\263\320?\374!)\202\304\324\333\375\"\376\333\211\375\"\376\"C\244#0\210+\262\207" [magit--section-type-alist magit-insert-section--parent magit-insert-section--oldroot magit-section-initial-visibility-alist magit-root-section magit-insert-section--current magit-list-worktrees 1 worktrees class-p magit-section :type rassq error "BUG: No entry for %s in %s" :value nil :start point-marker :parent eieio-oset hidden run-hook-with-args-until-success magit-section-set-visibility-hook hide magit-get-section magit-section-ident eieio-oref magit-section-match-assoc functionp cancel-section magit-insert-heading "Worktrees:" mapcar #[257 "\211@A\211@A\211@A\211@A\n\203\"\300\301\302#\2025\2030\300\303!\301\304#\2025\2055\305B\266\204\207" [propertize face magit-branch-local magit-rev-abbrev magit-hash "(bare)"] 17 "\n\n(fn ARG0)"] -max #[257 "\300@!\207" [string-width] 3 "\n\n(fn IT)"] worktree file-relative-name abbreviate-file-name string-width 10 run-hooks magit-insert-section-hook magit-insert-child-count set-marker-insertion-type start t end eieio-oref-default keymap intern format "magit-%s-section-map" type "forge-%s-section-map" boundp next-single-property-change get-text-property put-text-property magit-section-show parent children magit-section-cache-visibility] 24 (#$ . 5631)])
(provide 'magit-worktree)