Add worktree add

emacs.el

@@ -2180,7 +2180,7 @@ initializing."
          (path (plist-get id :worktree)))
     (cl-assert path nil "No worktree info at point")
     (cl-assert (file-directory-p path) t "Directory not found")
-    (let ((new (read-file-name (format "New name for worktree %s: "
+    (let ((new (read-file-name (format "New name for worktree \"%s\": "
                                        path))))
       (with-temp-buffer
         (git-worktree--call-process "worktree"
@@ -2189,6 +2189,20 @@ initializing."
                                     (expand-file-name new)))
       (revert-buffer))))
 
+(defun git-worktree-mode-add ()
+  "Add new git worktree."
+  (interactive)
+  (let* ((path (read-file-name "Path of new worktree: "))
+         (commitish (read-string (format "Commitish to checkout to \"%s\" (Empty to omit): "
+                                         path)))
+         (args (append '("worktree" "add")
+                       (if (string= "" commitish)
+                           (list (expand-file-name path))
+                         (list (expand-file-name path) commitish)))))
+    (with-temp-buffer
+      (apply 'git-worktree--call-process args))
+    (revert-buffer)))
+
 (defvar git-worktree-mode-map
   (let ((map (make-sparse-keymap)))
     (suppress-keymap map)
@@ -2196,7 +2210,7 @@ initializing."
     (define-key map (kbd "C-m") 'git-worktree-mode-go)
     (define-key map "R" 'git-worktree-mode-move)
     (define-key map "D" 'git-worktree-mode-remove)
-    (define-key map (kbd "C-g") 'git-worktree-mode-close)
+    ;; (define-key map (kbd "C-g") 'git-worktree-mode-close)
     (define-key map "/" 'isearch-forward)
     map))