;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)
|
