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