Add git-worktree

emacs.el

@@ -2949,6 +2949,40 @@ If target path is not found in COMMITISH tree, go up path and try again until fo
 ;; (git-revision--git-plumbing "cat-file" "-t" "HEAD")
 
 
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; git-worktree
+
+(defun git-worktree-get-current-list ()
+  "Get current worktree list."
+  (with-temp-buffer
+    (let ((trees nil)
+          (status (call-process "git"
+                                nil
+                                t
+                                nil
+                                "worktree" "list" "--porcelain")))
+      (cl-assert (eq status 0))
+      (goto-char (point-min))
+      (save-match-data
+        (while (not (eq (point) (point-max)))
+          (let ((worktree nil)
+                (head nil)
+                (branch nil))
+            (while (re-search-forward "^\\([^ ]\+\\) \\(.*\\)$" (point-at-eol) t)
+              (pcase (match-string 1)
+                ("worktree" (setq worktree (match-string 2)))
+                ("HEAD" (setq head (match-string 2)))
+                ("branch" (setq branch (match-string 2))))
+              (forward-line 1)
+              (goto-char (point-at-bol)))
+            (setq trees `(,@trees
+                          (:worktree ,worktree :head ,head :branch ,branch)))
+            (forward-line 1)
+            (goto-char (point-at-bol)))
+          ))
+      trees)))
+
+
 ;; Local Variables:
 ;; flycheck-disabled-checkers: (emacs-lisp-checkdoc)
 ;; flycheck-checker: emacs-lisp