Browse Source

Add remove

master
10sr 5 years ago
parent
commit
b31dd6e404
Signed by: 10sr GPG Key ID: 7BEC428194130EB2
1 changed files with 15 additions and 0 deletions
  1. +15
    -0
      emacs.el

+ 15
- 0
emacs.el View File

@@ -2203,6 +2203,21 @@ initializing."
(apply 'git-worktree--call-process args))
(revert-buffer)))

(defun git-worktree-mode-remove ()
"Remove worktree at point."
(interactive)
(let* ((id (tabulated-list-get-id))
(path (plist-get id :worktree)))
(cl-assert path nil "No worktree info at point")
(cl-assert (file-directory-p path) t "Directory not found")
(when (yes-or-no-p (format "Remove workking directory \"%s\": "
path))
(with-temp-buffer
(git-worktree--call-process "worktree"
"remove"
path))
(revert-buffer))))

(defvar git-worktree-mode-map
(let ((map (make-sparse-keymap)))
(suppress-keymap map)


Loading…
Cancel
Save