|
|
@@ -2194,12 +2194,12 @@ initializing." |
|
|
|
(with-current-buffer (get-buffer-create bname) |
|
|
|
(cd root) |
|
|
|
(let* ((trees (git-worktree-get-current-trees)) |
|
|
|
(branch-max-length |
|
|
|
(branch-max-size |
|
|
|
(apply 'max |
|
|
|
(cl-loop for e in trees |
|
|
|
when (plist-get e :branch) |
|
|
|
collect (length (plist-get e :branch))))) |
|
|
|
(worktree-max-length |
|
|
|
(worktree-max-size |
|
|
|
(apply 'max |
|
|
|
(cl-loop for e in trees |
|
|
|
when (plist-get e :worktree) |
|
|
@@ -2213,8 +2213,8 @@ initializing." |
|
|
|
(plist-get f :head)))) |
|
|
|
trees)) |
|
|
|
(setq tabulated-list-format |
|
|
|
`[("Branch" ,branch-max-length t) |
|
|
|
("Worktree" ,worktree-max-length t) |
|
|
|
`[("Branch" ,branch-max-size t) |
|
|
|
("Worktree" ,worktree-max-size t) |
|
|
|
("Head" -1 t)]) |
|
|
|
(git-worktree-mode) |
|
|
|
(current-buffer))))) |
|
|
|