| 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 | (require 'magit) | |
| 16 | #@58 Popup console for worktree commands. | |
| 17 | ||
| 18 | (fn &optional ARG) | |
| 19 | (defalias 'magit-worktree-popup #[256 "\300\301\302#\207" [magit-invoke-popup magit-worktree-popup nil] 5 (#$ . 425) "P"]) | |
| 20 | (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)) | |
| 21 | (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) | |
| 22 | (defalias 'magit-worktree-arguments #[0 "\303=\203 \207\n\207" [magit-current-popup magit-current-popup-args magit-worktree-arguments magit-worktree-popup] 2]) | |
| 23 | (put 'magit-worktree-arguments 'definition-name 'magit-worktree-popup) | |
| 24 | #@62 Checkout BRANCH in a new worktree at PATH. | |
| 25 | ||
| 26 | (fn PATH BRANCH) | |
| 27 | (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)]) | |
| 28 | #@214 Create, configure and checkout a new worktree from a pull-request. | |
| 29 | This is like `magit-checkout-pull-request', except that it | |
| 30 | also creates a new worktree. Please see the manual for more | |
| 31 | information. | |
| 32 | ||
| 33 | (fn PATH PR) | |
| 34 | (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)]) | |
| 35 | #@111 Create a new BRANCH and check it out in a new worktree at PATH. | |
| 36 | ||
| 37 | (fn PATH BRANCH START-POINT &optional FORCE) | |
| 38 | (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)]) | |
| 39 | #@112 Delete a worktree, defaulting to the worktree at point. | |
| 40 | The primary worktree cannot be deleted. | |
| 41 | ||
| 42 | (fn WORKTREE) | |
| 43 | (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)]) | |
| 44 | #@257 Show the status for the worktree at point. | |
| 45 | If there is no worktree at point, then read one in the | |
| 46 | minibuffer. If the worktree at point is the one whose | |
| 47 | status is already being displayed in the current buffer, | |
| 48 | then show it in Dired instead. | |
| 49 | ||
| 50 | (fn WORKTREE) | |
| 51 | (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)]) | |
| 52 | #@33 Keymap for `worktree' sections. | |
| 53 | (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)) | |
| 54 | #@88 Insert sections for all worktrees. | |
| 55 | If there is only one worktree, then insert nothing. | |
| 56 | (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)]) | |
| 57 | (provide 'magit-worktree) | |
