From ad5c9f23411dee1265fd4a24f2825e203f4f3774 Mon Sep 17 00:00:00 2001 From: 10sr <8.slashes@gmail.com> Date: Tue, 30 Oct 2018 14:59:50 +0900 Subject: [PATCH] Add git-worktree --- emacs.el | 34 ++++++++++++++++++++++++++++++++++ 1 file changed, 34 insertions(+) diff --git a/emacs.el b/emacs.el index 37b8f13..5466721 100644 --- a/emacs.el +++ b/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